埋め込みの説明
@1@ : TYPE,NEXT GROUP
例題
[C1522.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1522. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 REPORT SECTION. 000011 RD RPT-F PAGE 15 HEADING 2 FIRST DETAIL 5 LAST DETAIL 8 FOOTING 10. 000012 01 TYPE RH. 000013 02 TYPE RH 000014 LINE 2 000015 COLUMN 3 000016 PIC X(15) 000017 VALUE "*COBOL SAMPLE*". 000018 END PROGRAM C1522.
C1522.cob 13: JMN1522I-S TYPE句はレベル番号01の報告集団記述項以外に指定できません.