埋め込みの説明
@1@ : SORT, MERGE
例題
000001 @OPTIONS ENCODE(UTF8,UTF16) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. A1. 000004 ENVIRONMENT DIVISION. 000005 CONFIGURATION SECTION. 000006 SPECIAL-NAMES. 000007 ALPHABET UTF16 NATIONAL UTF16 000008 . 000009 INPUT-OUTPUT SECTION. 000010 FILE-CONTROL. 000011 SELECT SMFILE ASSIGN DA-S-SM1F. 000012 DATA DIVISION. 000013 FILE SECTION. 000014 SD SMFILE LABEL RECORD IS STANDARD. 000015 01 R1. 000016 02 KEY-1 PIC X(4). 000017 02 KEY-2 PIC X(4). 000018 02 R1-1 PIC X(72). 000019 WORKING-STORAGE SECTION. 000020 77 ERR-SWT PIC 9(1). 000021 PROCEDURE DIVISION. 000022 SORT SMFILE ON ASCENDING KEY KEY-2 000023 COLLATING SEQUENCE UTF16. 000024 END PROGRAM A1.
c5788.cob 22: JMN5788I-S エンコード方式に対応付けられた符号系名は,SORT文のCOLLATING SEQUENCE指定に記述できません.SORT文は無効になります.