埋め込みの説明
@1@ : ファイル名
例題
[C3218.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3218. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO SYS001 000007 ORGANIZATION IS RELATIVE 000008 ACCESS MODE IS SEQUENTIAL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD FILE-1. 000012 01 REC-1 PIC X(80). 000013 PROCEDURE DIVISION. 000014 OPEN INPUT FILE-1. 000015 START FILE-1. 000016 CLOSE FILE-1. 000017 STOP RUN.
C3218.cob 15: JMN3218I-S 相対ファイル'FILE-1'には,RELATIVE KEY句を指定しなければなりません.