例
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個以下でなければなりません．