例題
[P2576.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2576. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE01 ASSIGN TO SYS001. 000007 SELECT SQFILE02 ASSIGN TO SYS002. : 000022 SELECT SQFILE17 ASSIGN TO SYS017. 000023 SELECT SQFILE18 ASSIGN TO SYS018. 000024 SELECT SRTFILE ASSIGN TO SYS019. 000025 I-O-CONTROL. 000026 DATA DIVISION. 000027 FILE SECTION. 000028 FD SQFILE01. 000029 01 SQF01REC PIC X(80). 000030 FD SQFILE02. 000031 01 SQF02REC PIC X(80). : 000060 FD SQFILE17. 000061 01 SQF17REC PIC X(80). 000062 FD SQFILE18. 000063 01 SQF18REC PIC X(80). 000064 SD SRTFILE. 000065 01 SRTREC. 000066 02 SRTKEY PIC X(1). 000067 02 PIC X(79). 000068 WORKING-STORAGE SECTION. 000069 PROCEDURE DIVISION. 000070 SORT SRTFILE 000071 ON ASCENDING KEY SRTKEY 000072 USING SQFILE01 SQFILE02 SQFILE03 SQFILE04 000073 SQFILE05 SQFILE06 SQFILE07 SQFILE08 000074 SQFILE09 SQFILE10 SQFILE11 SQFILE12 000075 SQFILE13 SQFILE14 SQFILE15 SQFILE16 000076 SQFILE17 000077 GIVING SQFILE18 000078 END PROGRAM P2576.
P2576.cob 76: JMN2576I-S SORT文またはMERGE文のUSING指定に記述されたファイル名の数は，16以下でなければなりません．17番目以降のファイル名は無効になります．
詳細な説明
COBOL処理系の定量制限です．
