埋め込みの説明
@1@ : SIA,STD
@2@ : REEL,REEL FOR REMOVAL,UNIT,UNIT FOR REMOVAL,WITH NO REWIND
例題
[C9251.cob] 000001 @OPTIONS FLAGSW(STDM) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C9251. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT IN-FILE ASSIGN SEQ. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD IN-FILE. 000011 01 REC01 PIC 9(5). 000012 PROCEDURE DIVISION. 000013 P-START. 000014 OPEN INPUT IN-FILE. 000015 CLOSE IN-FILE REEL FOR REMOVAL. 000016 STOP RUN.
P9251.cob 15: JMN9251I-W (STD)CLOSE文中のREEL FOR REMOVAL句は共通範囲外です.処理を続行します.