埋め込みの説明
@1@ : LINE NUMBER,NEXT GROUP
例題
[C1516.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1516. 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 LIMIT 10. 000012 01 HEAD01 TYPE IS RH LINE NUMBER 1000 000013 NEXT GROUP 1000. 000014 01 FOOT01 TYPE IS RF. 000015 END PROGRAM C1516.
C1516.cob 12: JMN1516I-S LINE NUMBER句の整数は999を超えてはなりません.999が指定されたものとみなします.
C1516.cob 12: JMN2461I-S LINE句の整数は表示範囲の下限を超えてはなりません.そのまま処理を続行します.
C1516.cob 13: JMN1516I-S NEXT GROUP句の整数は999を超えてはなりません.999が指定されたものとみなします.