FILE FILEA
I-TEN 1 3 N HEADING('テン') MASK('999')
I-DATE * 8 N HEADING('DATE')
I-ID1 * 5 A HEADING('ID1')
I-ID2 * 5 A HEADING('ID2')
* ←これもコメント
*WORKエリア ←これもコメント
* ←これもコメント
WKDATE W 8 N . *2001/01/31
WKYM WKDATE 6 N . *2001/01/31
WKYY WKDATE 4 N MASK('9999') . *2001/01/31
WKMM WKDATE +4 2 N MASK('Z9') . *2001/01/31
WKDD WKDATE +6 2 N HEADING('DAY') . *2001/01/31
WKTITLE1 W 11 A . *2001/01/31
WKTYY WKTITLE1 4 N . *2001/01/31
WKAAA WKTITLE1 +4 2 A VALUE 'ネン' . *2001/01/31
WKTMM WKTITLE1 +6 2 N . *2001/01/31
WKBBB WKTITLE1 +8 3 A VALUE 'ガツ' . *2001/01/31
* ←これもコメント
JOB INPUT FILEA
WKDATE = I-DATE . *2001/01/31
WKTYY = WKYY . *2001/01/31
WKTMM = WKMM . *2001/01/31
PRINT REPT1
REPORT REPT1
SEQUENCE I-TEN I-DATE
CONTROL I-TEN I-DATE NEWPAGE
TITLE 1 '***** HEADER *****' WKTITLE1
LINE 1 WKDD I-ID1 I-ID2
|