例
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.
000008 SELECT SQFILE03 ASSIGN TO SYS003.
000009 SELECT SQFILE04 ASSIGN TO SYS004.
000010 SELECT SQFILE05 ASSIGN TO SYS005.
000011 SELECT SQFILE06 ASSIGN TO SYS006.
000012 SELECT SQFILE07 ASSIGN TO SYS007.
000013 SELECT SQFILE08 ASSIGN TO SYS008.
000014 SELECT SQFILE09 ASSIGN TO SYS009.
000015 SELECT SQFILE10 ASSIGN TO SYS010.
000016 SELECT SQFILE11 ASSIGN TO SYS011.
000017 SELECT SQFILE12 ASSIGN TO SYS012.
000018 SELECT SQFILE13 ASSIGN TO SYS013.
000019 SELECT SQFILE14 ASSIGN TO SYS014.
000020 SELECT SQFILE15 ASSIGN TO SYS015.
000021 SELECT SQFILE16 ASSIGN TO SYS016.
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).
000032 FD SQFILE03.
000033 01 SQF03REC PIC X(80).
000034 FD SQFILE04.
000035 01 SQF04REC PIC X(80).
000036 FD SQFILE05.
000037 01 SQF05REC PIC X(80).
000038 FD SQFILE06.
000039 01 SQF06REC PIC X(80).
000040 FD SQFILE07.
000041 01 SQF07REC PIC X(80).
000042 FD SQFILE08.
000043 01 SQF08REC PIC X(80).
000044 FD SQFILE09.
000045 01 SQF09REC PIC X(80).
000046 FD SQFILE10.
000047 01 SQF10REC PIC X(80).
000048 FD SQFILE11.
000049 01 SQF11REC PIC X(80).
000050 FD SQFILE12.
000051 01 SQF12REC PIC X(80).
000052 FD SQFILE13.
000053 01 SQF13REC PIC X(80).
000054 FD SQFILE14.
000055 01 SQF14REC PIC X(80).
000056 FD SQFILE15.
000057 01 SQF15REC PIC X(80).
000058 FD SQFILE16.
000059 01 SQF16REC 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処理系の定量制限です．