例
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).
000025 02 SRTKEY06 PIC X(1).
000026 02 SRTKEY07 PIC X(1).
000027 02 SRTKEY08 PIC X(1).
000028 02 SRTKEY09 PIC X(1).
000029 02 SRTKEY10 PIC X(1).
000030 02 SRTKEY11 PIC X(1).
000031 02 SRTKEY12 PIC X(1).
000032 02 SRTKEY13 PIC X(1).
000033 02 SRTKEY14 PIC X(1).
000034 02 SRTKEY15 PIC X(1).
000035 02 SRTKEY16 PIC X(1).
000036 02 SRTKEY17 PIC X(1).
000037 02 SRTKEY18 PIC X(1).
000038 02 SRTKEY19 PIC X(1).
000039 02 SRTKEY20 PIC X(1).
000040 02 SRTKEY21 PIC X(1).
000041 02 SRTKEY22 PIC X(1).
000042 02 SRTKEY23 PIC X(1).
000043 02 SRTKEY24 PIC X(1).
000044 02 SRTKEY25 PIC X(1).
000045 02 SRTKEY26 PIC X(1).
000046 02 SRTKEY27 PIC X(1).
000047 02 SRTKEY28 PIC X(1).
000048 02 SRTKEY29 PIC X(1).
000049 02 SRTKEY30 PIC X(1).
000050 02 SRTKEY31 PIC X(1).
000051 02 SRTKEY32 PIC X(1).
000052 02 SRTKEY33 PIC X(1).
000053 02 SRTKEY34 PIC X(1).
000054 02 SRTKEY35 PIC X(1).
000055 02 SRTKEY36 PIC X(1).
000056 02 SRTKEY37 PIC X(1).
000057 02 SRTKEY38 PIC X(1).
000058 02 SRTKEY39 PIC X(1).
000059 02 SRTKEY40 PIC X(1).
000060 02 SRTKEY41 PIC X(1).
000061 02 SRTKEY42 PIC X(1).
000062 02 SRTKEY43 PIC X(1).
000063 02 SRTKEY44 PIC X(1).
000064 02 SRTKEY45 PIC X(1).
000065 02 SRTKEY46 PIC X(1).
000066 02 SRTKEY47 PIC X(1).
000067 02 SRTKEY48 PIC X(1).
000068 02 SRTKEY49 PIC X(1).
000069 02 SRTKEY50 PIC X(1).
000070 02 SRTKEY51 PIC X(1).
000071 02 SRTKEY52 PIC X(1).
000072 02 SRTKEY53 PIC X(1).
000073 02 SRTKEY54 PIC X(1).
000074 02 SRTKEY55 PIC X(1).
000075 02 SRTKEY56 PIC X(1).
000076 02 SRTKEY57 PIC X(1).
000077 02 SRTKEY58 PIC X(1).
000078 02 SRTKEY59 PIC X(1).
000079 02 SRTKEY60 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
000091 SRTKEY06 SRTKEY07 SRTKEY08 SRTKEY09 SRTKEY10
000092 SRTKEY11 SRTKEY12 SRTKEY13 SRTKEY14 SRTKEY15
000093 SRTKEY16 SRTKEY17 SRTKEY18 SRTKEY19 SRTKEY20
000094 SRTKEY21 SRTKEY22 SRTKEY23 SRTKEY24 SRTKEY25
000095 SRTKEY26 SRTKEY27 SRTKEY28 SRTKEY29 SRTKEY30
000096 SRTKEY31 SRTKEY32 SRTKEY33 SRTKEY34 SRTKEY35
000097 SRTKEY36 SRTKEY37 SRTKEY38 SRTKEY39 SRTKEY40
000098 SRTKEY41 SRTKEY42 SRTKEY43 SRTKEY44 SRTKEY45
000099 SRTKEY46 SRTKEY47 SRTKEY48 SRTKEY49 SRTKEY50
000100 SRTKEY51 SRTKEY52 SRTKEY53 SRTKEY54 SRTKEY55
000101 SRTKEY56 SRTKEY57 SRTKEY58 SRTKEY59 SRTKEY60
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処理系の定量制限です．