埋め込みの説明
@1@ : エラーの原因となった文,句,指定を現す予約語.
例題
[P2766.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2766. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 APPLY RECORD-OVERFLOW ON SQFILE1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1 000012 RECORD VARYING IN SIZE DEPENDING ON LRECL. 000013 01 SQF1REC. 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 01 LRECL PIC 9(2). 000017 PROCEDURE DIVISION. 000018 END PROGRAM P2766.
P2766.cob 8: JMN2766I-W このシステムでは,'APPLY RECORD-OVERFLOW'は注釈として扱います.