付録 E - 解析時の COBOL 項目の取り込みの抑制

次の JSON テキスト文字列があるとします。

{"msg":{"SND":9,"pid":1289,"txt":"Hello World!"}}

この文字列を次の COBOL プログラムに渡すと、JSON PARSE 文の実行時に従属項目 (msg の項目) を照合しないように抑制できます。

Identification division.Program-id. jparse1.Program-id. jparse1.Working-storage section.01 msg.03 snd usage comp-1.03 pid pic 9999 usage display.03 txt pic x(12).Linkage section.01 json-str pic x(53).Procedure division using json-str. move 1300 to pid. display "Parsing....".JSON PARSE json-str into msg with DETAIL SUPPRESS pid END-JSON. if snd equal to 9 then DISPLAY "PID is " pid DISPLAY "Message text is '" txt "'" end-if. display "JSON-STATUS is " JSON-STATUS. goback.End program jparse1.

この JSON PARSE 文を実行すると、pid の照合が抑制され、前の値 (1300) のまま保持されます。データ項目を抑制すると、非例外コード 2 が生成されます。