Progress 4GL：不能READ-JSON被寫入的JSON

我有一個Progress READ-JSON的問題，它不接受由WRITE-JSON輸出的JSON。我們對具有嵌套數據關係的數據集使用TRACKING-CHANGES。Progress 4GL：不能READ-JSON被寫入的JSON

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上的評論，那麼它的工作原理，這使我相信這是一個進步的bug。

我正在使用OpenEdge 11.4。

來源

2017-07-19 Ian Stewart

您使用的是什麼版本的Progress？我在11.6.3上試了一下，它可以使用或不使用註釋。 – TheDrooper

我正在使用11.4。也許他們固定在11.6。 JSON輸出在11.6中是否相同？ –

是的，除了ID「ttBox96513」以外，它們是相同的。沒有額外/丟失的括號。 – TheDrooper

這是一個進度錯誤。爲了解決這個問題，我需要在JSON的前表中插入一個無意義的字段。

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

進度不喜歡前面的表由於某種原因是空的。

來源

2017-07-21 18:08:40

Progress 4GL：不能READ-JSON被寫入的JSON

回答

相關問題