例題
[P2575.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2575. 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 SRTKEY01 PIC X(1). 000021 02 SRTKEY02 PIC X(1). 000022 02 SRTKEY03 PIC X(1). 000023 02 SRTKEY04 PIC X(1). 000024 02 SRTKEY05 PIC X(1). : 000080 02 SRTKEY61 PIC X(1). 000081 02 SRTKEY62 PIC X(1). 000082 02 SRTKEY63 PIC X(1). 000083 02 SRTKEY64 PIC X(1). 000084 02 SRTKEY65 PIC X(1). 000085 02 PIC X(15). 000086 WORKING-STORAGE SECTION. 000087 PROCEDURE DIVISION. 000088 SORT SRTFILE 000089 ON ASCENDING KEY 000090 SRTKEY01 SRTKEY02 SRTKEY03 SRTKEY04 SRTKEY05 : 000102 SRTKEY61 SRTKEY62 SRTKEY63 SRTKEY64 SRTKEY65 000103 USING SQFILE1 000104 GIVING SQFILE2 000105 END PROGRAM P2575.
P2575.cob 102: JMN2575I-S SORT文またはMERGE文のキーデータ名の項目の数は，64以下でなければなりません．65番目以降のキーデータ名の項目は，無効になります．
詳細な説明
COBOL処理系の定量制限です．
