例
000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1267. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IDX-F ASSIGN TO IDXFILE 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS MAINKEY 000009 ALTERNATE RECORD KEY IS KEY1 000010 ALTERNATE RECORD KEY IS KEY2 000011 ALTERNATE RECORD KEY IS KEY3 000012 ALTERNATE RECORD KEY IS KEY4 000013 ALTERNATE RECORD KEY IS KEY5 000014 ALTERNATE RECORD KEY IS KEY6 000015 ALTERNATE RECORD KEY IS KEY7 000016 ALTERNATE RECORD KEY IS KEY8 000017 ALTERNATE RECORD KEY IS KEY9 000018 ALTERNATE RECORD KEY IS KEY0 000019 ALTERNATE RECORD KEY IS KEY11 000020 ALTERNATE RECORD KEY IS KEY12 000021 ALTERNATE RECORD KEY IS KEY13 000022 ALTERNATE RECORD KEY IS KEY14 000023 ALTERNATE RECORD KEY IS KEY15 000024 ALTERNATE RECORD KEY IS KEY16 000025 ALTERNATE RECORD KEY IS KEY17 000026 ALTERNATE RECORD KEY IS KEY18 000027 ALTERNATE RECORD KEY IS KEY19 000028 ALTERNATE RECORD KEY IS KEY10 000029 ALTERNATE RECORD KEY IS KEY21 000030 ALTERNATE RECORD KEY IS KEY22 000031 ALTERNATE RECORD KEY IS KEY23 000032 ALTERNATE RECORD KEY IS KEY24 000033 ALTERNATE RECORD KEY IS KEY25 000034 ALTERNATE RECORD KEY IS KEY26 000035 ALTERNATE RECORD KEY IS KEY27 000036 ALTERNATE RECORD KEY IS KEY28 000037 ALTERNATE RECORD KEY IS KEY29 000038 ALTERNATE RECORD KEY IS KEY20 000039 ALTERNATE RECORD KEY IS KEY31 000040 ALTERNATE RECORD KEY IS KEY32 000041 ALTERNATE RECORD KEY IS KEY33 000042 ALTERNATE RECORD KEY IS KEY34 000043 ALTERNATE RECORD KEY IS KEY35 000044 ALTERNATE RECORD KEY IS KEY36 000045 ALTERNATE RECORD KEY IS KEY37 000046 ALTERNATE RECORD KEY IS KEY38 000047 ALTERNATE RECORD KEY IS KEY39 000048 ALTERNATE RECORD KEY IS KEY30 000049 ALTERNATE RECORD KEY IS KEY41 000050 ALTERNATE RECORD KEY IS KEY42 000051 ALTERNATE RECORD KEY IS KEY43 000052 ALTERNATE RECORD KEY IS KEY44 000053 ALTERNATE RECORD KEY IS KEY45 000054 ALTERNATE RECORD KEY IS KEY46 000055 ALTERNATE RECORD KEY IS KEY47 000056 ALTERNATE RECORD KEY IS KEY48 000057 ALTERNATE RECORD KEY IS KEY49 000058 ALTERNATE RECORD KEY IS KEY40 000059 ALTERNATE RECORD KEY IS KEY51 000060 ALTERNATE RECORD KEY IS KEY52 000061 ALTERNATE RECORD KEY IS KEY53 000062 ALTERNATE RECORD KEY IS KEY54 000063 ALTERNATE RECORD KEY IS KEY55 000064 ALTERNATE RECORD KEY IS KEY56 000065 ALTERNATE RECORD KEY IS KEY57 000066 ALTERNATE RECORD KEY IS KEY58 000067 ALTERNATE RECORD KEY IS KEY59 000068 ALTERNATE RECORD KEY IS KEY50 000069 ALTERNATE RECORD KEY IS KEY61 000070 ALTERNATE RECORD KEY IS KEY62 000071 ALTERNATE RECORD KEY IS KEY63 000072 ALTERNATE RECORD KEY IS KEY64 000073 ALTERNATE RECORD KEY IS KEY65 000074 ALTERNATE RECORD KEY IS KEY66 000075 ALTERNATE RECORD KEY IS KEY67 000076 ALTERNATE RECORD KEY IS KEY68 000077 ALTERNATE RECORD KEY IS KEY69 000078 ALTERNATE RECORD KEY IS KEY60 000079 ALTERNATE RECORD KEY IS KEY71 000080 ALTERNATE RECORD KEY IS KEY72 000081 ALTERNATE RECORD KEY IS KEY73 000082 ALTERNATE RECORD KEY IS KEY74 000083 ALTERNATE RECORD KEY IS KEY75 000084 ALTERNATE RECORD KEY IS KEY76 000085 ALTERNATE RECORD KEY IS KEY77 000086 ALTERNATE RECORD KEY IS KEY78 000087 ALTERNATE RECORD KEY IS KEY79 000088 ALTERNATE RECORD KEY IS KEY70 000089 ALTERNATE RECORD KEY IS KEY81 000090 ALTERNATE RECORD KEY IS KEY82 000091 ALTERNATE RECORD KEY IS KEY83 000092 ALTERNATE RECORD KEY IS KEY84 000093 ALTERNATE RECORD KEY IS KEY85 000094 ALTERNATE RECORD KEY IS KEY86 000095 ALTERNATE RECORD KEY IS KEY87 000096 ALTERNATE RECORD KEY IS KEY88 000097 ALTERNATE RECORD KEY IS KEY89 000098 ALTERNATE RECORD KEY IS KEY80 000099 ALTERNATE RECORD KEY IS KEY91 000100 ALTERNATE RECORD KEY IS KEY92 000101 ALTERNATE RECORD KEY IS KEY93 000102 ALTERNATE RECORD KEY IS KEY94 000103 ALTERNATE RECORD KEY IS KEY95 000104 ALTERNATE RECORD KEY IS KEY96 000105 ALTERNATE RECORD KEY IS KEY97 000106 ALTERNATE RECORD KEY IS KEY98 000107 ALTERNATE RECORD KEY IS KEY99 000108 ALTERNATE RECORD KEY IS KEY90 000109 ALTERNATE RECORD KEY IS KEY01 000110 ALTERNATE RECORD KEY IS KEY02 000111 ALTERNATE RECORD KEY IS KEY03 000112 ALTERNATE RECORD KEY IS KEY04 000113 ALTERNATE RECORD KEY IS KEY05 000114 ALTERNATE RECORD KEY IS KEY06 000115 ALTERNATE RECORD KEY IS KEY07 000116 ALTERNATE RECORD KEY IS KEY08 000117 ALTERNATE RECORD KEY IS KEY09 000118 ALTERNATE RECORD KEY IS KEY00 000119 ALTERNATE RECORD KEY IS KEYA1 000120 ALTERNATE RECORD KEY IS KEYA2 000121 ALTERNATE RECORD KEY IS KEYA3 000122 ALTERNATE RECORD KEY IS KEYA4 000123 ALTERNATE RECORD KEY IS KEYA5 000124 ALTERNATE RECORD KEY IS KEYA6 000125 ALTERNATE RECORD KEY IS KEYA7 000126 ALTERNATE RECORD KEY IS KEYA8 000127 ALTERNATE RECORD KEY IS KEYA9 000128 ALTERNATE RECORD KEY IS KEYA0 000129 ALTERNATE RECORD KEY IS KEYB1 000130 ALTERNATE RECORD KEY IS KEYB2 000131 ALTERNATE RECORD KEY IS KEYB3 000132 ALTERNATE RECORD KEY IS KEYB4 000133 ALTERNATE RECORD KEY IS KEYB5 000134 ALTERNATE RECORD KEY IS KEYB6. 000135 DATA DIVISION. 000136 FILE SECTION. 000137 FD IDX-F. 000138 01 IDX-R PIC X(130). 000139 01 MAINKEY PIC X. 000140 01 KEY1 PIC X. 000141 01 KEY2 PIC X. 000142 01 KEY3 PIC X. 000143 01 KEY4 PIC X. 000144 01 KEY5 PIC X. 000145 01 KEY6 PIC X. 000146 01 KEY7 PIC X. 000147 01 KEY8 PIC X. 000148 01 KEY9 PIC X. 000149 01 KEY0 PIC X. 000150 01 KEY11 PIC X. 000151 01 KEY12 PIC X. 000152 01 KEY13 PIC X. 000153 01 KEY14 PIC X. 000154 01 KEY15 PIC X. 000155 01 KEY16 PIC X. 000156 01 KEY17 PIC X. 000157 01 KEY18 PIC X. 000158 01 KEY19 PIC X. 000159 01 KEY10 PIC X. 000160 01 KEY21 PIC X. 000161 01 KEY22 PIC X. 000162 01 KEY23 PIC X. 000163 01 KEY24 PIC X. 000164 01 KEY25 PIC X. 000165 01 KEY26 PIC X. 000166 01 KEY27 PIC X. 000167 01 KEY28 PIC X. 000168 01 KEY29 PIC X. 000169 01 KEY20 PIC X. 000170 01 KEY31 PIC X. 000171 01 KEY32 PIC X. 000172 01 KEY33 PIC X. 000173 01 KEY34 PIC X. 000174 01 KEY35 PIC X. 000175 01 KEY36 PIC X. 000176 01 KEY37 PIC X. 000177 01 KEY38 PIC X. 000178 01 KEY39 PIC X. 000179 01 KEY30 PIC X. 000180 01 KEY41 PIC X. 000181 01 KEY42 PIC X. 000182 01 KEY43 PIC X. 000183 01 KEY44 PIC X. 000184 01 KEY45 PIC X. 000185 01 KEY46 PIC X. 000186 01 KEY47 PIC X. 000187 01 KEY48 PIC X. 000188 01 KEY49 PIC X. 000189 01 KEY40 PIC X. 000190 01 KEY51 PIC X. 000191 01 KEY52 PIC X. 000192 01 KEY53 PIC X. 000193 01 KEY54 PIC X. 000194 01 KEY55 PIC X. 000195 01 KEY56 PIC X. 000196 01 KEY57 PIC X. 000197 01 KEY58 PIC X. 000198 01 KEY59 PIC X. 000199 01 KEY50 PIC X. 000200 01 KEY61 PIC X. 000201 01 KEY62 PIC X. 000202 01 KEY63 PIC X. 000203 01 KEY64 PIC X. 000204 01 KEY65 PIC X. 000205 01 KEY66 PIC X. 000206 01 KEY67 PIC X. 000207 01 KEY68 PIC X. 000208 01 KEY69 PIC X. 000209 01 KEY60 PIC X. 000210 01 KEY71 PIC X. 000211 01 KEY72 PIC X. 000212 01 KEY73 PIC X. 000213 01 KEY74 PIC X. 000214 01 KEY75 PIC X. 000215 01 KEY76 PIC X. 000216 01 KEY77 PIC X. 000217 01 KEY78 PIC X. 000218 01 KEY79 PIC X. 000219 01 KEY70 PIC X. 000220 01 KEY81 PIC X. 000221 01 KEY82 PIC X. 000222 01 KEY83 PIC X. 000223 01 KEY84 PIC X. 000224 01 KEY85 PIC X. 000225 01 KEY86 PIC X. 000226 01 KEY87 PIC X. 000227 01 KEY88 PIC X. 000228 01 KEY89 PIC X. 000229 01 KEY80 PIC X. 000230 01 KEY91 PIC X. 000231 01 KEY92 PIC X. 000232 01 KEY93 PIC X. 000233 01 KEY94 PIC X. 000234 01 KEY95 PIC X. 000235 01 KEY96 PIC X. 000236 01 KEY97 PIC X. 000237 01 KEY98 PIC X. 000238 01 KEY99 PIC X. 000239 01 KEY90 PIC X. 000240 01 KEY01 PIC X. 000241 01 KEY02 PIC X. 000242 01 KEY03 PIC X. 000243 01 KEY04 PIC X. 000244 01 KEY05 PIC X. 000245 01 KEY06 PIC X. 000246 01 KEY07 PIC X. 000247 01 KEY08 PIC X. 000248 01 KEY09 PIC X. 000249 01 KEY00 PIC X. 000250 01 KEYA1 PIC X. 000251 01 KEYA2 PIC X. 000252 01 KEYA3 PIC X. 000253 01 KEYA4 PIC X. 000254 01 KEYA5 PIC X. 000255 01 KEYA6 PIC X. 000256 01 KEYA7 PIC X. 000257 01 KEYA8 PIC X. 000258 01 KEYA9 PIC X. 000259 01 KEYA0 PIC X. 000260 01 KEYB1 PIC X. 000261 01 KEYB2 PIC X. 000262 01 KEYB3 PIC X. 000263 01 KEYB4 PIC X. 000264 01 KEYB5 PIC X. 000265 01 KEYB6 PIC X. 000266 01 KEYB7 PIC X. 000267 01 KEYB8 PIC X. 000268 01 KEYB9 PIC X. 000269 01 KEYB0 PIC X. 000270 END PROGRAM C1267.
C1267.cob (134) : JMN1267I-S ALTERNATE RECORD KEYの個数は,125個以下でなければなりません.