Arrays 如何遍历OpenEdge Progress 4gl中的JsonArray整数？

我有一个整数数组 示例-[100010011002

我需要遍历这个JsonArray，以便能够逐个调用我的函数

我试过了

function Amen returns JsonObject (input code as JsonArray, input lang as char):

def var Amenities as JsonObject.
    Amenities = new JsonObject().
    Amenities:Add("Code", code).
    for first inditaal where string(inditaal.indi-nr) = string(code) and inditaal.taal-code = lang no-lock.
    end.
        Amenities:Add("Description", inditaal.inditaal-oms).

return Amenities.

end function.

define variable code as JsonArray no-undo init [10400, 10239, 10205].

def var result as JsonArray.
result = new JsonArray().

def var lineObj as JsonArray.

do i = 1 to code :length:
    lineObj = new JsonArray().
    lineObj = code :GetJsonArray(i).
    result:Add(Amen(lineObj)).
end.

我无法从JsonArray代码中获取整数。 还有别的办法吗

由于我不熟悉这种语言，我无法做到这一点，而且我在文档中也没有找到任何东西。 请帮忙

要向JsonArray添加整数范围（ABL数组），请使用add方法

要在JsonArray中循环，请迭代JsonArray的长度，并使用GetInteger（i）检索单个值

USING Progress.Json.ObjectModel.* FROM PROPATH . 

define variable code as INTEGER EXTENT no-undo init [10400, 10239, 10205].

DEFINE VARIABLE oJsonArray AS JsonArray NO-UNDO . 
DEFINE VARIABLE i AS INTEGER     NO-UNDO.

oJsonArray = NEW JsonArray () . 

oJsonArray:ADD (code) . 

do i = 1 to oJsonArray:length:
    message oJsonArray:GetInteger (i) .
end.