例題
[C5582.cob] 000001 IDENTIFICATION DIVISION. 000002 CLASS-ID. C5582. 000003 ENVIRONMENT DIVISION. 000004 CONFIGURATION SECTION. 000005 REPOSITORY. 000006 IDENTIFICATION DIVISION. 000007 OBJECT. 000008 PROCEDURE DIVISION. 000009 IDENTIFICATION DIVISION. 000010 METHOD-ID. M5582. 000011 ENVIRONMENT DIVISION. 000012 INPUT-OUTPUT SECTION. 000013 FILE-CONTROL. 000014 SELECT SQFILE1 ASSIGN TO SYS001. 000015 SELECT SQFILE2 ASSIGN TO SYS002. 000016 SELECT SRFILE ASSIGN TO SYS003. 000017 I-O-CONTROL. 000018 DATA DIVISION. 000019 FILE SECTION. 000020 FD SQFILE1. 000021 01 SQF1REC PIC X(80). 000022 FD SQFILE2. 000023 01 SQF2REC PIC X(80). 000024 SD SRFILE. 000025 01 SRFREC. 000026 02 SRKEY PIC X(08). 000027 02 PIC X(72). 000028 LINKAGE SECTION. 000029 PROCEDURE DIVISION. 000030 OPEN INPUT SQFILE1 000031 OUTPUT SQFILE2 000032 SORT SRFILE 000033 ON ASCENDING KEY SRKEY SELF 000034 USING SQFILE1 000035 GIVING SQFILE2. 000036 CLOSE SQFILE1 SQFILE2. 000037 END METHOD M5582. 000038 END OBJECT. 000039 END CLASS C5582.
C5582.cob 33: JMN5582I-S SORTまたはMERGE文のKEY指定に定義済オブジェクト一意名SELFは指定できません．
