次のデータ宣言は、JSON 形式に変換するソースとして指定されています。
01 JSON-SRC-GRP. 03 SRC-STAT PIC X(4). 03 SRC-AREA PIC X(100). 03 VAL-AREA REDEFINES SRC-AREA. 05 FLAGS PIC X. 05 PIC X(3). 05 COUNTER USAGE COMP-5 PIC S9(9). 05 ASFNPTR REDEFINES COUNTER USAGE FUNCTION-POINTER. 05 UNREFERENCED PIC X(92). 03 INVAL-AREA1 REDEFINES SRC-AREA. 05 FLAGS PIC X. 05 PIC X(3). 05 PTR USAGE POINTER. 05 ASNUM REDEFINES PTR USAGE COMP-5 PIC S9(9). 05 PIC X(92). 03 INVAL-AREA2 REDEFINES SRC-AREA. 05 FN-CODE PIC X. 05 UNREFERENCED PIC X(3). 05 QTYONHAND USAGE BINARY PIC 9(5). 05 DESC USAGE NATIONAL PIC N(40). 05 UNREFERENCED PIC X(12).
構文規則に従って、次のデータ項目は、identifier-2 として指定されている場合に JSON GENERATE 文で変換されます。