埋め込みの説明
@1@ : ACCEPTまたはDISPLAY.
@2@ : エラーの発生した指定を示す予約語.
例題
[P2770.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2770. 000003 ENVIRONMENT DIVISION. 000004 DATA DIVISION. 000005 WORKING-STORAGE SECTION. 000006 01 AA PIC X(2). 000007 SCREEN SECTION. 000008 01 A1 PIC X(8) FROM AA. 000009 PROCEDURE DIVISION. 000010 ACCEPT A1 000011 AT LINE . 000012 END PROGRAM P2770.
P2770.cob 11: JMN2770I-S ACCEPT文のLINE指定に誤りがあります.