自由形式のデータ定義ステートメントは、宣言命令コードの 1 つで 始まり、その後に名前が続くか、項目に名前がない場合は *N が続き、 さらにその後にキーワードが続き、最後はセミコロンで終わります。
DCL-S abcdefghij CHAR(10); 1
DCL-S 2
abcdefghij
CHAR
(
10
)
;
DCL-S abcde... 3
fghij CHAR(10);
DCL-S abcde... 4
fghij
CHAR(10);
DCL-S G_Working_Date DATE(*ISO)
/IF DEFINED(main_module)
EXPORT INZ(*SYS)
/ELSE
IMPORT
/ENDIF
;
DCL-DS ds1;
subf1 CHAR(10);
END-DS;
D ds2 DS
subf2 CHAR(10);
END-DS;
DCL-DS ds3;
D subf3 10a
END-DS;
DCL-PR pr1;
subf1 CHAR(10);
END-PR;
D pr2 PR
parm2 CHAR(10);
END-PR;
DCL-PI pi3;
D parm3 10a
END-PI;
DCL-DS ds1 LEN(100) END-DS;
DCL-PR pr1 INT(10) END-PR;
