4gl语言中对json的传值

在4GL语言中，JSON是一种常用的数据格式，它能够快速、方便地传输各种类型的数据。在4GL语言中，我们可以使用以下代码来传值到JSON：

DEFINE VARIABLE jsonVal AS LONGCHAR NO-UNDO.
DEFINE VARIABLE value AS INTEGER NO-UNDO.

value = 10.

CREATE JSON-DOCUMENT jsonDoc.
CREATE JSON-NODE jsonNode.
CREATE JSON-NODE jsonValue.

SET-JSON-NODE-VALUE(jsonValue,value).
SET-JSON-NODE-NAME(jsonValue,"value").
ADD-JSON-NODE(jsonNode,jsonValue).

SET-JSON-NODE-NAME(jsonNode,"data").
ADD-JSON-NODE(jsonDoc,jsonNode).

GET-JSON(doc,jsonVal,FALSE).

MESSAGE jsonVal VIEW-AS ALERT-Box informatION.

以上代码中，我们先定义了一个整型变量value，然后创建了jsonDoc和jsonNode两个JSON对象。接着，我们将value的值传入jsonValue中，并给jsonValue取了"value"这个名称。我们将jsonValue作为子节点添加到jsonNode中，并给jsonNode取了"data"这个名称。最后，我们将jsonNode添加到jsonDoc中，并用GET-JSON方法将jsonDoc传递给jsonVal。

值得注意的是，我们在传值时必须要给每个节点取个名称，这样才能够在接收端正确地取出对应的值。而且，在使用GET-JSON方法时，第三个参数必须设置为FALSE，否则会打印出一些JSON的解析信息。

综上所述，JSON在4GL语言中的传值方法相对来说比较简单，只需要注意每个节点的名称即可。使用JSON能够很好地解决数据类型不同、数据量大等问题，并能够提高传输效率。