进度 4GL：无法读取-JSON 已写入的 JSON

Question

Progress READ-JSON 有问题，它不接受 WRITE-JSON 输出的 JSON。我们正在对具有嵌套数据关系的数据集使用 TRACKING-CHANGES。

OUTPUT TO "debug.txt".

DEFINE VARIABLE lcString AS LONGCHAR NO-UNDO.
DEFINE VARIABLE hdsBox AS HANDLE NO-UNDO.
DEFINE VARIABLE lOk AS LOGICAL NO-UNDO.

DEFINE TEMP-TABLE ttEmployee NO-UNDO
    BEFORE-TABLE ttEmployeeBefore
    FIELD eid AS INTEGER
    FIELD empname AS CHAR.
DEFINE TEMP-TABLE ttBox NO-UNDO
    BEFORE-TABLE ttBoxBefore
    FIELD eid AS INTEGER SERIALIZE-HIDDEN
    FIELD boxid AS INTEGER
    FIELD boxdesc AS CHAR.
DEFINE DATASET dsBox FOR ttEmployee, ttBox
    DATA-RELATION relat1 FOR ttEmployee, ttBox RELATION-FIELDS (ttEmployee.eid, ttBox.eid) NESTED.

CREATE ttEmployee.
CREATE ttBox.
ASSIGN ttEmployee.eid = 1
    ttEmployee.empname = "Ian"
    ttBox.eid = 1
    ttBox.boxid = 10
    ttBox.boxdesc = "Ians box".
    hdsBox = DATASET dsBox:HANDLE.

ASSIGN TEMP-TABLE ttEmployee:TRACKING-CHANGES = YES
    TEMP-TABLE ttBox:TRACKING-CHANGES = YES.

CREATE ttBox.
ASSIGN ttBox.eid = 1
    ttBox.boxid = 11
    ttBox.boxdesc = "Stewarts box"
    /*ttEmployee.empname = "Stewart"*/ .

ASSIGN lOk = hdsBox:WRITE-JSON("LONGCHAR", lcString,FALSE , "UTF-8", FALSE, FALSE, TRUE).

ASSIGN TEMP-TABLE ttEmployee:TRACKING-CHANGES = NO
    TEMP-TABLE ttBox:TRACKING-CHANGES = NO.

MESSAGE lOk ERROR-STATUS:GET-MESSAGE(1) SKIP.
MESSAGE STRING(lcString) SKIP.

ASSIGN lOk = hdsBox:READ-JSON("LONGCHAR":U, lcString, "EMPTY":U) NO-ERROR.

MESSAGE lOk ERROR-STATUS:GET-MESSAGE(1) SKIP.

此示例生成以下输出：

yes
{"dsBox":{"prods:hasChanges":true,"ttEmployee":[{"eid":1,"empname":"Ian","ttBox":[{"boxid":10,"boxdesc":"Ians box"},{"prods:id":"ttBox96513","prods:rowState":"created","boxid":11,"boxdesc":"Stewarts box"}]}],"prods:before":{}}}
no Error parsing JSON: expected string, but found bracket. (15358)

如果我去掉第 35 行的注释，它就起作用了，这让我相信这是一个 Progress 错误。

我正在使用 OpenEdge 11.4。

Answer 1

这是一个进度错误。要修复，我需要在 JSON 的 before-table 中插入一个无意义的字段。

"prods:before":{"Progress11.4bug":"Need this string or Progress will barf"}

出于某种原因，Progress 不喜欢 before-table 为空。

进度 4GL：无法读取-JSON 已写入的 JSON

Progress 4GL: Cannot READ-JSON the JSON that was written

json

progress-4gl

openedge