埋め込みの説明
@1@ : 編成種別
@2@ : ファイル名
例題
[C3196.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3196. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE001 ASSIGN SYS010-DA-OUTFILE 000007 ORGANIZATION IS RELATIVE 000008 ACCESS MODE IS SEQUENTIAL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD FILE001 LABEL RECORD STANDARD. 000012 01 LINE-REC PIC X(77). 000013 01 CTL-REC PIC X(61). 000014 PROCEDURE DIVISION. 000015 OPEN OUTPUT FILE001. 000016 CALL "EXTPROG" USING BY CONTENT FILE001. 000017 CLOSE FILE001. 000018 END PROGRAM C3196.
C3196.cob 16: JMN3196I-S 相対ファイル'FILE001'は,CALL文のUSING指定に記述できません.