埋め込みの説明
@1@ : ファイル名
@2@ : 'SORT'，'MERGE'
例題
[C3124.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3124. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT FILE-1 ASSIGN TO DA-S-SYS001. 000007 SELECT FILE-2 ASSIGN TO DA-S-SYS002. 000008 SELECT FILE-3 ASSIGN TO DA-S-SYS003. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 SD FILE-1 LABEL RECORD IS STANDARD. 000012 01 REC-1. 000013 02 KEY-REC PIC XX. 000014 02 FILLER PIC X(78). 000015 FD FILE-2 LABEL RECORD IS STANDARD. 000016 01 REC-2 PIC N(40) CHARACTER TYPE IS MODE-2. 000017 FD FILE-3 LABEL RECORD IS STANDARD. 000018 01 REC-3 PIC X(80). 000019 PROCEDURE DIVISION. 000020 SORT FILE-1 ON ASCENDING KEY KEY-REC 000021 USING FILE-2 000022 GIVING FILE-3. 000023 STOP RUN.
C3124.cob 21: JMN3124I-S CHARACTER TYPE句またはPRINTING POSITION句指定のあるレコード記述項を持つファイルは，SORT文のUSINGまたはGIVING指定に記述できません．ファイル名'FILE-2'は，無効になります．
