埋め込みの説明
@1@ : SORTまたはMERGE．
例題
[P2580.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2580. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 SELECT SQFILE2 ASSIGN TO SYS002. 000008 SELECT SRTFILE ASSIGN TO SYS003. 000009 I-O-CONTROL. 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD SQFILE1. 000013 01 SQF1REC. 000014 02 PIC X(80). 000015 FD SQFILE2. 000016 01 SQF2REC. 000017 02 PIC X(80). 000018 SD SRTFILE. 000019 01 SRTREC. 000020 02 SRTKEY PIC X(8). 000021 02 PIC X(72). 000022 WORKING-STORAGE SECTION. 000023 01 WFS1 PIC X(2). 000024 PROCEDURE DIVISION. 000025 DECLARATIVES. 000026 FILE-ERROR SECTION. 000027 USE AFTER STANDARD ERROR PROCEDURE ON SQFILE1 000028 SORT SRTFILE 000029 ASCENDING KEY SRTKEY 000030 USING SQFILE1 000031 GIVING SQFILE2. 000032 END DECLARATIVES. 000033 END PROGRAM P2580.
P2580.cob 28: JMN2580I-W SORT文は，宣言部分に指定できません．書かれているとおりに受け入れます．
