例題
[P2613.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2613. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 SPECIAL-NAMES. 000006 BUSHU IS SORT-RULE1 000007 BUSHOU IS SORT-RULE2. 000008 INPUT-OUTPUT SECTION. 000009 FILE-CONTROL. 000010 SELECT SQFILE1 ASSIGN TO SYS001. 000011 SELECT SQFILE2 ASSIGN TO SYS002. 000012 SELECT SRTFILE ASSIGN TO SYS003. 000013 I-O-CONTROL. 000014 DATA DIVISION. 000015 FILE SECTION. 000016 FD SQFILE1. 000017 01 SQF1REC. 000018 02 PIC X(80). 000019 FD SQFILE2. 000020 01 SQF2REC. 000021 02 PIC X(80). 000022 SD SRTFILE. 000023 01 SRTREC. 000024 02 SRTKEY1 PIC X(4). 000025 02 SRTKEY2 PIC X(4). 000026 02 PIC X(72). 000027 WORKING-STORAGE SECTION. 000028 01 WFS1 PIC X(2). 000029 PROCEDURE DIVISION. 000030 SORT SRTFILE 000031 ASCENDING SORT-RULE1 KEY SRTKEY1 000032 ASCENDING SORT-RULE2 KEY SRTKEY2 000033 USING SQFILE1 000034 GIVING SQFILE2. 000035 END PROGRAM P2613.
P2613.cob 30: JMN2613I-S SORTまたはMERGE文のASCENDING指定で,日本語系の機能名,中国語系の機能名および韓国語系の機能名のそれぞれに対応する呼び名を同時に指定できません.
詳細な説明
SORTまたはMERGE文のASCENDING指定に指定された呼び名は,OSIV系システムの固有機能です.