埋め込みの説明
@1@ : 制御レコード名
例題
[C3298.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3298. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 FORMAT IS FMT-001. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD FILE-1 000011 CONTROL RECORD IS CNTL-REC. 000012 01 CNTL-REC PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 FMT-001 PIC X(8). 000015 PROCEDURE DIVISION. 000016 WRITE CNTL-REC AFTER ADVANCING 1. 000017 END PROGRAM C3298.
C3298.cob 16: JMN3298I-S 制御レコード'CNTL-REC'に対するWRITE文に,ADVANCING指定は記述できません.