MFmainframe-rea
WS carddemo · 26f629ef

copybook · 560 lines · sha256 f5029dc12e672443 · guides at columns 7 and 72app/cpy-bms/COCRDLI.CPY

1 ******************************************************************
2 * Copyright Amazon.com, Inc. or its affiliates.
3 * All Rights Reserved.
4 *
5 * Licensed under the Apache License, Version 2.0 (the "License").
6 * You may not use this file except in compliance with the License.
7 * You may obtain a copy of the License at
8 *
9 * http://www.apache.org/licenses/LICENSE-2.0
10 *
11 * Unless required by applicable law or agreed to in writing,
12 * software distributed under the License is distributed on an
13 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND,
14 * either express or implied. See the License for the specific
15 * language governing permissions and limitations under the License
16 ******************************************************************
17 01 CCRDLIAI.
18 02 FILLER PIC X(12).
19 02 TRNNAMEL COMP PIC S9(4).
20 02 TRNNAMEF PICTURE X.
21 02 FILLER REDEFINES TRNNAMEF.
22 03 TRNNAMEA PICTURE X.
23 02 FILLER PICTURE X(4).
24 02 TRNNAMEI PIC X(4).
25 02 TITLE01L COMP PIC S9(4).
26 02 TITLE01F PICTURE X.
27 02 FILLER REDEFINES TITLE01F.
28 03 TITLE01A PICTURE X.
29 02 FILLER PICTURE X(4).
30 02 TITLE01I PIC X(40).
31 02 CURDATEL COMP PIC S9(4).
32 02 CURDATEF PICTURE X.
33 02 FILLER REDEFINES CURDATEF.
34 03 CURDATEA PICTURE X.
35 02 FILLER PICTURE X(4).
36 02 CURDATEI PIC X(8).
37 02 PGMNAMEL COMP PIC S9(4).
38 02 PGMNAMEF PICTURE X.
39 02 FILLER REDEFINES PGMNAMEF.
40 03 PGMNAMEA PICTURE X.
41 02 FILLER PICTURE X(4).
42 02 PGMNAMEI PIC X(8).
43 02 TITLE02L COMP PIC S9(4).
44 02 TITLE02F PICTURE X.
45 02 FILLER REDEFINES TITLE02F.
46 03 TITLE02A PICTURE X.
47 02 FILLER PICTURE X(4).
48 02 TITLE02I PIC X(40).
49 02 CURTIMEL COMP PIC S9(4).
50 02 CURTIMEF PICTURE X.
51 02 FILLER REDEFINES CURTIMEF.
52 03 CURTIMEA PICTURE X.
53 02 FILLER PICTURE X(4).
54 02 CURTIMEI PIC X(8).
55 02 PAGENOL COMP PIC S9(4).
56 02 PAGENOF PICTURE X.
57 02 FILLER REDEFINES PAGENOF.
58 03 PAGENOA PICTURE X.
59 02 FILLER PICTURE X(4).
60 02 PAGENOI PIC X(3).
61 02 ACCTSIDL COMP PIC S9(4).
62 02 ACCTSIDF PICTURE X.
63 02 FILLER REDEFINES ACCTSIDF.
64 03 ACCTSIDA PICTURE X.
65 02 FILLER PICTURE X(4).
66 02 ACCTSIDI PIC X(11).
67 02 CARDSIDL COMP PIC S9(4).
68 02 CARDSIDF PICTURE X.
69 02 FILLER REDEFINES CARDSIDF.
70 03 CARDSIDA PICTURE X.
71 02 FILLER PICTURE X(4).
72 02 CARDSIDI PIC X(16).
73 02 CRDSEL1L COMP PIC S9(4).
74 02 CRDSEL1F PICTURE X.
75 02 FILLER REDEFINES CRDSEL1F.
76 03 CRDSEL1A PICTURE X.
77 02 FILLER PICTURE X(4).
78 02 CRDSEL1I PIC X(1).
79 02 ACCTNO1L COMP PIC S9(4).
80 02 ACCTNO1F PICTURE X.
81 02 FILLER REDEFINES ACCTNO1F.
82 03 ACCTNO1A PICTURE X.
83 02 FILLER PICTURE X(4).
84 02 ACCTNO1I PIC X(11).
85 02 CRDNUM1L COMP PIC S9(4).
86 02 CRDNUM1F PICTURE X.
87 02 FILLER REDEFINES CRDNUM1F.
88 03 CRDNUM1A PICTURE X.
89 02 FILLER PICTURE X(4).
90 02 CRDNUM1I PIC X(16).
91 02 CRDSTS1L COMP PIC S9(4).
92 02 CRDSTS1F PICTURE X.
93 02 FILLER REDEFINES CRDSTS1F.
94 03 CRDSTS1A PICTURE X.
95 02 FILLER PICTURE X(4).
96 02 CRDSTS1I PIC X(1).
97 02 CRDSEL2L COMP PIC S9(4).
98 02 CRDSEL2F PICTURE X.
99 02 FILLER REDEFINES CRDSEL2F.
100 03 CRDSEL2A PICTURE X.
101 02 FILLER PICTURE X(4).
102 02 CRDSEL2I PIC X(1).
103 02 CRDSTP2L COMP PIC S9(4).
104 02 CRDSTP2F PICTURE X.
105 02 FILLER REDEFINES CRDSTP2F.
106 03 CRDSTP2A PICTURE X.
107 02 FILLER PICTURE X(4).
108 02 CRDSTP2I PIC X(1).
109 02 ACCTNO2L COMP PIC S9(4).
110 02 ACCTNO2F PICTURE X.
111 02 FILLER REDEFINES ACCTNO2F.
112 03 ACCTNO2A PICTURE X.
113 02 FILLER PICTURE X(4).
114 02 ACCTNO2I PIC X(11).
115 02 CRDNUM2L COMP PIC S9(4).
116 02 CRDNUM2F PICTURE X.
117 02 FILLER REDEFINES CRDNUM2F.
118 03 CRDNUM2A PICTURE X.
119 02 FILLER PICTURE X(4).
120 02 CRDNUM2I PIC X(16).
121 02 CRDSTS2L COMP PIC S9(4).
122 02 CRDSTS2F PICTURE X.
123 02 FILLER REDEFINES CRDSTS2F.
124 03 CRDSTS2A PICTURE X.
125 02 FILLER PICTURE X(4).
126 02 CRDSTS2I PIC X(1).
127 02 CRDSEL3L COMP PIC S9(4).
128 02 CRDSEL3F PICTURE X.
129 02 FILLER REDEFINES CRDSEL3F.
130 03 CRDSEL3A PICTURE X.
131 02 FILLER PICTURE X(4).
132 02 CRDSEL3I PIC X(1).
133 02 CRDSTP3L COMP PIC S9(4).
134 02 CRDSTP3F PICTURE X.
135 02 FILLER REDEFINES CRDSTP3F.
136 03 CRDSTP3A PICTURE X.
137 02 FILLER PICTURE X(4).
138 02 CRDSTP3I PIC X(1).
139 02 ACCTNO3L COMP PIC S9(4).
140 02 ACCTNO3F PICTURE X.
141 02 FILLER REDEFINES ACCTNO3F.
142 03 ACCTNO3A PICTURE X.
143 02 FILLER PICTURE X(4).
144 02 ACCTNO3I PIC X(11).
145 02 CRDNUM3L COMP PIC S9(4).
146 02 CRDNUM3F PICTURE X.
147 02 FILLER REDEFINES CRDNUM3F.
148 03 CRDNUM3A PICTURE X.
149 02 FILLER PICTURE X(4).
150 02 CRDNUM3I PIC X(16).
151 02 CRDSTS3L COMP PIC S9(4).
152 02 CRDSTS3F PICTURE X.
153 02 FILLER REDEFINES CRDSTS3F.
154 03 CRDSTS3A PICTURE X.
155 02 FILLER PICTURE X(4).
156 02 CRDSTS3I PIC X(1).
157 02 CRDSEL4L COMP PIC S9(4).
158 02 CRDSEL4F PICTURE X.
159 02 FILLER REDEFINES CRDSEL4F.
160 03 CRDSEL4A PICTURE X.
161 02 FILLER PICTURE X(4).
162 02 CRDSEL4I PIC X(1).
163 02 CRDSTP4L COMP PIC S9(4).
164 02 CRDSTP4F PICTURE X.
165 02 FILLER REDEFINES CRDSTP4F.
166 03 CRDSTP4A PICTURE X.
167 02 FILLER PICTURE X(4).
168 02 CRDSTP4I PIC X(1).
169 02 ACCTNO4L COMP PIC S9(4).
170 02 ACCTNO4F PICTURE X.
171 02 FILLER REDEFINES ACCTNO4F.
172 03 ACCTNO4A PICTURE X.
173 02 FILLER PICTURE X(4).
174 02 ACCTNO4I PIC X(11).
175 02 CRDNUM4L COMP PIC S9(4).
176 02 CRDNUM4F PICTURE X.
177 02 FILLER REDEFINES CRDNUM4F.
178 03 CRDNUM4A PICTURE X.
179 02 FILLER PICTURE X(4).
180 02 CRDNUM4I PIC X(16).
181 02 CRDSTS4L COMP PIC S9(4).
182 02 CRDSTS4F PICTURE X.
183 02 FILLER REDEFINES CRDSTS4F.
184 03 CRDSTS4A PICTURE X.
185 02 FILLER PICTURE X(4).
186 02 CRDSTS4I PIC X(1).
187 02 CRDSEL5L COMP PIC S9(4).
188 02 CRDSEL5F PICTURE X.
189 02 FILLER REDEFINES CRDSEL5F.
190 03 CRDSEL5A PICTURE X.
191 02 FILLER PICTURE X(4).
192 02 CRDSEL5I PIC X(1).
193 02 CRDSTP5L COMP PIC S9(4).
194 02 CRDSTP5F PICTURE X.
195 02 FILLER REDEFINES CRDSTP5F.
196 03 CRDSTP5A PICTURE X.
197 02 FILLER PICTURE X(4).
198 02 CRDSTP5I PIC X(1).
199 02 ACCTNO5L COMP PIC S9(4).
200 02 ACCTNO5F PICTURE X.
201 02 FILLER REDEFINES ACCTNO5F.
202 03 ACCTNO5A PICTURE X.
203 02 FILLER PICTURE X(4).
204 02 ACCTNO5I PIC X(11).
205 02 CRDNUM5L COMP PIC S9(4).
206 02 CRDNUM5F PICTURE X.
207 02 FILLER REDEFINES CRDNUM5F.
208 03 CRDNUM5A PICTURE X.
209 02 FILLER PICTURE X(4).
210 02 CRDNUM5I PIC X(16).
211 02 CRDSTS5L COMP PIC S9(4).
212 02 CRDSTS5F PICTURE X.
213 02 FILLER REDEFINES CRDSTS5F.
214 03 CRDSTS5A PICTURE X.
215 02 FILLER PICTURE X(4).
216 02 CRDSTS5I PIC X(1).
217 02 CRDSEL6L COMP PIC S9(4).
218 02 CRDSEL6F PICTURE X.
219 02 FILLER REDEFINES CRDSEL6F.
220 03 CRDSEL6A PICTURE X.
221 02 FILLER PICTURE X(4).
222 02 CRDSEL6I PIC X(1).
223 02 CRDSTP6L COMP PIC S9(4).
224 02 CRDSTP6F PICTURE X.
225 02 FILLER REDEFINES CRDSTP6F.
226 03 CRDSTP6A PICTURE X.
227 02 FILLER PICTURE X(4).
228 02 CRDSTP6I PIC X(1).
229 02 ACCTNO6L COMP PIC S9(4).
230 02 ACCTNO6F PICTURE X.
231 02 FILLER REDEFINES ACCTNO6F.
232 03 ACCTNO6A PICTURE X.
233 02 FILLER PICTURE X(4).
234 02 ACCTNO6I PIC X(11).
235 02 CRDNUM6L COMP PIC S9(4).
236 02 CRDNUM6F PICTURE X.
237 02 FILLER REDEFINES CRDNUM6F.
238 03 CRDNUM6A PICTURE X.
239 02 FILLER PICTURE X(4).
240 02 CRDNUM6I PIC X(16).
241 02 CRDSTS6L COMP PIC S9(4).
242 02 CRDSTS6F PICTURE X.
243 02 FILLER REDEFINES CRDSTS6F.
244 03 CRDSTS6A PICTURE X.
245 02 FILLER PICTURE X(4).
246 02 CRDSTS6I PIC X(1).
247 02 CRDSEL7L COMP PIC S9(4).
248 02 CRDSEL7F PICTURE X.
249 02 FILLER REDEFINES CRDSEL7F.
250 03 CRDSEL7A PICTURE X.
251 02 FILLER PICTURE X(4).
252 02 CRDSEL7I PIC X(1).
253 02 CRDSTP7L COMP PIC S9(4).
254 02 CRDSTP7F PICTURE X.
255 02 FILLER REDEFINES CRDSTP7F.
256 03 CRDSTP7A PICTURE X.
257 02 FILLER PICTURE X(4).
258 02 CRDSTP7I PIC X(1).
259 02 ACCTNO7L COMP PIC S9(4).
260 02 ACCTNO7F PICTURE X.
261 02 FILLER REDEFINES ACCTNO7F.
262 03 ACCTNO7A PICTURE X.
263 02 FILLER PICTURE X(4).
264 02 ACCTNO7I PIC X(11).
265 02 CRDNUM7L COMP PIC S9(4).
266 02 CRDNUM7F PICTURE X.
267 02 FILLER REDEFINES CRDNUM7F.
268 03 CRDNUM7A PICTURE X.
269 02 FILLER PICTURE X(4).
270 02 CRDNUM7I PIC X(16).
271 02 CRDSTS7L COMP PIC S9(4).
272 02 CRDSTS7F PICTURE X.
273 02 FILLER REDEFINES CRDSTS7F.
274 03 CRDSTS7A PICTURE X.
275 02 FILLER PICTURE X(4).
276 02 CRDSTS7I PIC X(1).
277 02 INFOMSGL COMP PIC S9(4).
278 02 INFOMSGF PICTURE X.
279 02 FILLER REDEFINES INFOMSGF.
280 03 INFOMSGA PICTURE X.
281 02 FILLER PICTURE X(4).
282 02 INFOMSGI PIC X(45).
283 02 ERRMSGL COMP PIC S9(4).
284 02 ERRMSGF PICTURE X.
285 02 FILLER REDEFINES ERRMSGF.
286 03 ERRMSGA PICTURE X.
287 02 FILLER PICTURE X(4).
288 02 ERRMSGI PIC X(78).
289 01 CCRDLIAO REDEFINES CCRDLIAI.
290 02 FILLER PIC X(12).
291 02 FILLER PICTURE X(3).
292 02 TRNNAMEC PICTURE X.
293 02 TRNNAMEP PICTURE X.
294 02 TRNNAMEH PICTURE X.
295 02 TRNNAMEV PICTURE X.
296 02 TRNNAMEO PIC X(4).
297 02 FILLER PICTURE X(3).
298 02 TITLE01C PICTURE X.
299 02 TITLE01P PICTURE X.
300 02 TITLE01H PICTURE X.
301 02 TITLE01V PICTURE X.
302 02 TITLE01O PIC X(40).
303 02 FILLER PICTURE X(3).
304 02 CURDATEC PICTURE X.
305 02 CURDATEP PICTURE X.
306 02 CURDATEH PICTURE X.
307 02 CURDATEV PICTURE X.
308 02 CURDATEO PIC X(8).
309 02 FILLER PICTURE X(3).
310 02 PGMNAMEC PICTURE X.
311 02 PGMNAMEP PICTURE X.
312 02 PGMNAMEH PICTURE X.
313 02 PGMNAMEV PICTURE X.
314 02 PGMNAMEO PIC X(8).
315 02 FILLER PICTURE X(3).
316 02 TITLE02C PICTURE X.
317 02 TITLE02P PICTURE X.
318 02 TITLE02H PICTURE X.
319 02 TITLE02V PICTURE X.
320 02 TITLE02O PIC X(40).
321 02 FILLER PICTURE X(3).
322 02 CURTIMEC PICTURE X.
323 02 CURTIMEP PICTURE X.
324 02 CURTIMEH PICTURE X.
325 02 CURTIMEV PICTURE X.
326 02 CURTIMEO PIC X(8).
327 02 FILLER PICTURE X(3).
328 02 PAGENOC PICTURE X.
329 02 PAGENOP PICTURE X.
330 02 PAGENOH PICTURE X.
331 02 PAGENOV PICTURE X.
332 02 PAGENOO PIC X(3).
333 02 FILLER PICTURE X(3).
334 02 ACCTSIDC PICTURE X.
335 02 ACCTSIDP PICTURE X.
336 02 ACCTSIDH PICTURE X.
337 02 ACCTSIDV PICTURE X.
338 02 ACCTSIDO PIC X(11).
339 02 FILLER PICTURE X(3).
340 02 CARDSIDC PICTURE X.
341 02 CARDSIDP PICTURE X.
342 02 CARDSIDH PICTURE X.
343 02 CARDSIDV PICTURE X.
344 02 CARDSIDO PIC X(16).
345 02 FILLER PICTURE X(3).
346 02 CRDSEL1C PICTURE X.
347 02 CRDSEL1P PICTURE X.
348 02 CRDSEL1H PICTURE X.
349 02 CRDSEL1V PICTURE X.
350 02 CRDSEL1O PIC X(1).
351 02 FILLER PICTURE X(3).
352 02 ACCTNO1C PICTURE X.
353 02 ACCTNO1P PICTURE X.
354 02 ACCTNO1H PICTURE X.
355 02 ACCTNO1V PICTURE X.
356 02 ACCTNO1O PIC X(11).
357 02 FILLER PICTURE X(3).
358 02 CRDNUM1C PICTURE X.
359 02 CRDNUM1P PICTURE X.
360 02 CRDNUM1H PICTURE X.
361 02 CRDNUM1V PICTURE X.
362 02 CRDNUM1O PIC X(16).
363 02 FILLER PICTURE X(3).
364 02 CRDSTS1C PICTURE X.
365 02 CRDSTS1P PICTURE X.
366 02 CRDSTS1H PICTURE X.
367 02 CRDSTS1V PICTURE X.
368 02 CRDSTS1O PIC X(1).
369 02 FILLER PICTURE X(3).
370 02 CRDSEL2C PICTURE X.
371 02 CRDSEL2P PICTURE X.
372 02 CRDSEL2H PICTURE X.
373 02 CRDSEL2V PICTURE X.
374 02 CRDSEL2O PIC X(1).
375 02 FILLER PICTURE X(3).
376 02 CRDSTP2C PICTURE X.
377 02 CRDSTP2P PICTURE X.
378 02 CRDSTP2H PICTURE X.
379 02 CRDSTP2V PICTURE X.
380 02 CRDSTP2O PIC X(1).
381 02 FILLER PICTURE X(3).
382 02 ACCTNO2C PICTURE X.
383 02 ACCTNO2P PICTURE X.
384 02 ACCTNO2H PICTURE X.
385 02 ACCTNO2V PICTURE X.
386 02 ACCTNO2O PIC X(11).
387 02 FILLER PICTURE X(3).
388 02 CRDNUM2C PICTURE X.
389 02 CRDNUM2P PICTURE X.
390 02 CRDNUM2H PICTURE X.
391 02 CRDNUM2V PICTURE X.
392 02 CRDNUM2O PIC X(16).
393 02 FILLER PICTURE X(3).
394 02 CRDSTS2C PICTURE X.
395 02 CRDSTS2P PICTURE X.
396 02 CRDSTS2H PICTURE X.
397 02 CRDSTS2V PICTURE X.
398 02 CRDSTS2O PIC X(1).
399 02 FILLER PICTURE X(3).
400 02 CRDSEL3C PICTURE X.
401 02 CRDSEL3P PICTURE X.
402 02 CRDSEL3H PICTURE X.
403 02 CRDSEL3V PICTURE X.
404 02 CRDSEL3O PIC X(1).
405 02 FILLER PICTURE X(3).
406 02 CRDSTP3C PICTURE X.
407 02 CRDSTP3P PICTURE X.
408 02 CRDSTP3H PICTURE X.
409 02 CRDSTP3V PICTURE X.
410 02 CRDSTP3O PIC X(1).
411 02 FILLER PICTURE X(3).
412 02 ACCTNO3C PICTURE X.
413 02 ACCTNO3P PICTURE X.
414 02 ACCTNO3H PICTURE X.
415 02 ACCTNO3V PICTURE X.
416 02 ACCTNO3O PIC X(11).
417 02 FILLER PICTURE X(3).
418 02 CRDNUM3C PICTURE X.
419 02 CRDNUM3P PICTURE X.
420 02 CRDNUM3H PICTURE X.
421 02 CRDNUM3V PICTURE X.
422 02 CRDNUM3O PIC X(16).
423 02 FILLER PICTURE X(3).
424 02 CRDSTS3C PICTURE X.
425 02 CRDSTS3P PICTURE X.
426 02 CRDSTS3H PICTURE X.
427 02 CRDSTS3V PICTURE X.
428 02 CRDSTS3O PIC X(1).
429 02 FILLER PICTURE X(3).
430 02 CRDSEL4C PICTURE X.
431 02 CRDSEL4P PICTURE X.
432 02 CRDSEL4H PICTURE X.
433 02 CRDSEL4V PICTURE X.
434 02 CRDSEL4O PIC X(1).
435 02 FILLER PICTURE X(3).
436 02 CRDSTP4C PICTURE X.
437 02 CRDSTP4P PICTURE X.
438 02 CRDSTP4H PICTURE X.
439 02 CRDSTP4V PICTURE X.
440 02 CRDSTP4O PIC X(1).
441 02 FILLER PICTURE X(3).
442 02 ACCTNO4C PICTURE X.
443 02 ACCTNO4P PICTURE X.
444 02 ACCTNO4H PICTURE X.
445 02 ACCTNO4V PICTURE X.
446 02 ACCTNO4O PIC X(11).
447 02 FILLER PICTURE X(3).
448 02 CRDNUM4C PICTURE X.
449 02 CRDNUM4P PICTURE X.
450 02 CRDNUM4H PICTURE X.
451 02 CRDNUM4V PICTURE X.
452 02 CRDNUM4O PIC X(16).
453 02 FILLER PICTURE X(3).
454 02 CRDSTS4C PICTURE X.
455 02 CRDSTS4P PICTURE X.
456 02 CRDSTS4H PICTURE X.
457 02 CRDSTS4V PICTURE X.
458 02 CRDSTS4O PIC X(1).
459 02 FILLER PICTURE X(3).
460 02 CRDSEL5C PICTURE X.
461 02 CRDSEL5P PICTURE X.
462 02 CRDSEL5H PICTURE X.
463 02 CRDSEL5V PICTURE X.
464 02 CRDSEL5O PIC X(1).
465 02 FILLER PICTURE X(3).
466 02 CRDSTP5C PICTURE X.
467 02 CRDSTP5P PICTURE X.
468 02 CRDSTP5H PICTURE X.
469 02 CRDSTP5V PICTURE X.
470 02 CRDSTP5O PIC X(1).
471 02 FILLER PICTURE X(3).
472 02 ACCTNO5C PICTURE X.
473 02 ACCTNO5P PICTURE X.
474 02 ACCTNO5H PICTURE X.
475 02 ACCTNO5V PICTURE X.
476 02 ACCTNO5O PIC X(11).
477 02 FILLER PICTURE X(3).
478 02 CRDNUM5C PICTURE X.
479 02 CRDNUM5P PICTURE X.
480 02 CRDNUM5H PICTURE X.
481 02 CRDNUM5V PICTURE X.
482 02 CRDNUM5O PIC X(16).
483 02 FILLER PICTURE X(3).
484 02 CRDSTS5C PICTURE X.
485 02 CRDSTS5P PICTURE X.
486 02 CRDSTS5H PICTURE X.
487 02 CRDSTS5V PICTURE X.
488 02 CRDSTS5O PIC X(1).
489 02 FILLER PICTURE X(3).
490 02 CRDSEL6C PICTURE X.
491 02 CRDSEL6P PICTURE X.
492 02 CRDSEL6H PICTURE X.
493 02 CRDSEL6V PICTURE X.
494 02 CRDSEL6O PIC X(1).
495 02 FILLER PICTURE X(3).
496 02 CRDSTP6C PICTURE X.
497 02 CRDSTP6P PICTURE X.
498 02 CRDSTP6H PICTURE X.
499 02 CRDSTP6V PICTURE X.
500 02 CRDSTP6O PIC X(1).
501 02 FILLER PICTURE X(3).
502 02 ACCTNO6C PICTURE X.
503 02 ACCTNO6P PICTURE X.
504 02 ACCTNO6H PICTURE X.
505 02 ACCTNO6V PICTURE X.
506 02 ACCTNO6O PIC X(11).
507 02 FILLER PICTURE X(3).
508 02 CRDNUM6C PICTURE X.
509 02 CRDNUM6P PICTURE X.
510 02 CRDNUM6H PICTURE X.
511 02 CRDNUM6V PICTURE X.
512 02 CRDNUM6O PIC X(16).
513 02 FILLER PICTURE X(3).
514 02 CRDSTS6C PICTURE X.
515 02 CRDSTS6P PICTURE X.
516 02 CRDSTS6H PICTURE X.
517 02 CRDSTS6V PICTURE X.
518 02 CRDSTS6O PIC X(1).
519 02 FILLER PICTURE X(3).
520 02 CRDSEL7C PICTURE X.
521 02 CRDSEL7P PICTURE X.
522 02 CRDSEL7H PICTURE X.
523 02 CRDSEL7V PICTURE X.
524 02 CRDSEL7O PIC X(1).
525 02 FILLER PICTURE X(3).
526 02 CRDSTP7C PICTURE X.
527 02 CRDSTP7P PICTURE X.
528 02 CRDSTP7H PICTURE X.
529 02 CRDSTP7V PICTURE X.
530 02 CRDSTP7O PIC X(1).
531 02 FILLER PICTURE X(3).
532 02 ACCTNO7C PICTURE X.
533 02 ACCTNO7P PICTURE X.
534 02 ACCTNO7H PICTURE X.
535 02 ACCTNO7V PICTURE X.
536 02 ACCTNO7O PIC X(11).
537 02 FILLER PICTURE X(3).
538 02 CRDNUM7C PICTURE X.
539 02 CRDNUM7P PICTURE X.
540 02 CRDNUM7H PICTURE X.
541 02 CRDNUM7V PICTURE X.
542 02 CRDNUM7O PIC X(16).
543 02 FILLER PICTURE X(3).
544 02 CRDSTS7C PICTURE X.
545 02 CRDSTS7P PICTURE X.
546 02 CRDSTS7H PICTURE X.
547 02 CRDSTS7V PICTURE X.
548 02 CRDSTS7O PIC X(1).
549 02 FILLER PICTURE X(3).
550 02 INFOMSGC PICTURE X.
551 02 INFOMSGP PICTURE X.
552 02 INFOMSGH PICTURE X.
553 02 INFOMSGV PICTURE X.
554 02 INFOMSGO PIC X(45).
555 02 FILLER PICTURE X(3).
556 02 ERRMSGC PICTURE X.
557 02 ERRMSGP PICTURE X.
558 02 ERRMSGH PICTURE X.
559 02 ERRMSGV PICTURE X.
560 02 ERRMSGO PIC X(78).