埋め込みの説明
@1@ : SORT文またはMERGE文
例題
[C3057.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C3057. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 ABN-1 IS CODE-3. 000007 INPUT-OUTPUT SECTION. 000008 FILE-CONTROL. 000009 SELECT FILE-1 ASSIGN TO DA-S-SYS001. 000010 SELECT FILE-2 ASSIGN TO DA-S-SYS002. 000011 SELECT FILE-3 ASSIGN TO DA-S-SYS003. 000012 DATA DIVISION. 000013 FILE SECTION. 000014 SD FILE-1 LABEL RECORD STANDARD. 000015 01 REC-1. 000016 02 KEY-1 PIC 9(2). 000017 02 KEY-2 PIC 9(2). 000018 02 KEY-3 PIC 9(2). 000019 02 FILLER PIC X(74). 000020 FD FILE-2 LABEL RECORD STANDARD. 000021 01 REC-2 PIC X(80). 000022 FD FILE-3 LABEL RECORD STANDARD. 000023 01 REC-3 PIC X(80). 000024 PROCEDURE DIVISION. 000025 P-START. 000026 SORT FILE-1 ON ASCENDING KEY KEY-1 KEY-2 000027 COLLATING SEQUENCE ABN-1 000028 USING FILE-2 000029 GIVING FILE-3. 000030 STOP RUN.
C3057.cob 26: JMN3057I-S 機能名に対応付けられた符号系名は，SORT文のCOLLATING SEQUENCE指定に記述できません．
