copybook · 668 lines · sha256 2ae13a55cb35c639 · guides at columns 7 and 72app/cpy-bms/COACTUP.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 CACTUPAI.
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 ACCTSIDL COMP PIC S9(4).
56	02 ACCTSIDF PICTURE X.
57	02 FILLER REDEFINES ACCTSIDF.
58	03 ACCTSIDA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 ACCTSIDI PIC X(11).
61	02 ACSTTUSL COMP PIC S9(4).
62	02 ACSTTUSF PICTURE X.
63	02 FILLER REDEFINES ACSTTUSF.
64	03 ACSTTUSA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 ACSTTUSI PIC X(1).
67	02 OPNYEARL COMP PIC S9(4).
68	02 OPNYEARF PICTURE X.
69	02 FILLER REDEFINES OPNYEARF.
70	03 OPNYEARA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 OPNYEARI PIC X(4).
73	02 OPNMONL COMP PIC S9(4).
74	02 OPNMONF PICTURE X.
75	02 FILLER REDEFINES OPNMONF.
76	03 OPNMONA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 OPNMONI PIC X(2).
79	02 OPNDAYL COMP PIC S9(4).
80	02 OPNDAYF PICTURE X.
81	02 FILLER REDEFINES OPNDAYF.
82	03 OPNDAYA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 OPNDAYI PIC X(2).
85	02 ACRDLIML COMP PIC S9(4).
86	02 ACRDLIMF PICTURE X.
87	02 FILLER REDEFINES ACRDLIMF.
88	03 ACRDLIMA PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 ACRDLIMI PIC X(15).
91	02 EXPYEARL COMP PIC S9(4).
92	02 EXPYEARF PICTURE X.
93	02 FILLER REDEFINES EXPYEARF.
94	03 EXPYEARA PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 EXPYEARI PIC X(4).
97	02 EXPMONL COMP PIC S9(4).
98	02 EXPMONF PICTURE X.
99	02 FILLER REDEFINES EXPMONF.
100	03 EXPMONA PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 EXPMONI PIC X(2).
103	02 EXPDAYL COMP PIC S9(4).
104	02 EXPDAYF PICTURE X.
105	02 FILLER REDEFINES EXPDAYF.
106	03 EXPDAYA PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 EXPDAYI PIC X(2).
109	02 ACSHLIML COMP PIC S9(4).
110	02 ACSHLIMF PICTURE X.
111	02 FILLER REDEFINES ACSHLIMF.
112	03 ACSHLIMA PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 ACSHLIMI PIC X(15).
115	02 RISYEARL COMP PIC S9(4).
116	02 RISYEARF PICTURE X.
117	02 FILLER REDEFINES RISYEARF.
118	03 RISYEARA PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 RISYEARI PIC X(4).
121	02 RISMONL COMP PIC S9(4).
122	02 RISMONF PICTURE X.
123	02 FILLER REDEFINES RISMONF.
124	03 RISMONA PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 RISMONI PIC X(2).
127	02 RISDAYL COMP PIC S9(4).
128	02 RISDAYF PICTURE X.
129	02 FILLER REDEFINES RISDAYF.
130	03 RISDAYA PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 RISDAYI PIC X(2).
133	02 ACURBALL COMP PIC S9(4).
134	02 ACURBALF PICTURE X.
135	02 FILLER REDEFINES ACURBALF.
136	03 ACURBALA PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 ACURBALI PIC X(15).
139	02 ACRCYCRL COMP PIC S9(4).
140	02 ACRCYCRF PICTURE X.
141	02 FILLER REDEFINES ACRCYCRF.
142	03 ACRCYCRA PICTURE X.
143	02 FILLER PICTURE X(4).
144	02 ACRCYCRI PIC X(15).
145	02 AADDGRPL COMP PIC S9(4).
146	02 AADDGRPF PICTURE X.
147	02 FILLER REDEFINES AADDGRPF.
148	03 AADDGRPA PICTURE X.
149	02 FILLER PICTURE X(4).
150	02 AADDGRPI PIC X(10).
151	02 ACRCYDBL COMP PIC S9(4).
152	02 ACRCYDBF PICTURE X.
153	02 FILLER REDEFINES ACRCYDBF.
154	03 ACRCYDBA PICTURE X.
155	02 FILLER PICTURE X(4).
156	02 ACRCYDBI PIC X(15).
157	02 ACSTNUML COMP PIC S9(4).
158	02 ACSTNUMF PICTURE X.
159	02 FILLER REDEFINES ACSTNUMF.
160	03 ACSTNUMA PICTURE X.
161	02 FILLER PICTURE X(4).
162	02 ACSTNUMI PIC X(9).
163	02 ACTSSN1L COMP PIC S9(4).
164	02 ACTSSN1F PICTURE X.
165	02 FILLER REDEFINES ACTSSN1F.
166	03 ACTSSN1A PICTURE X.
167	02 FILLER PICTURE X(4).
168	02 ACTSSN1I PIC X(3).
169	02 ACTSSN2L COMP PIC S9(4).
170	02 ACTSSN2F PICTURE X.
171	02 FILLER REDEFINES ACTSSN2F.
172	03 ACTSSN2A PICTURE X.
173	02 FILLER PICTURE X(4).
174	02 ACTSSN2I PIC X(2).
175	02 ACTSSN3L COMP PIC S9(4).
176	02 ACTSSN3F PICTURE X.
177	02 FILLER REDEFINES ACTSSN3F.
178	03 ACTSSN3A PICTURE X.
179	02 FILLER PICTURE X(4).
180	02 ACTSSN3I PIC X(4).
181	02 DOBYEARL COMP PIC S9(4).
182	02 DOBYEARF PICTURE X.
183	02 FILLER REDEFINES DOBYEARF.
184	03 DOBYEARA PICTURE X.
185	02 FILLER PICTURE X(4).
186	02 DOBYEARI PIC X(4).
187	02 DOBMONL COMP PIC S9(4).
188	02 DOBMONF PICTURE X.
189	02 FILLER REDEFINES DOBMONF.
190	03 DOBMONA PICTURE X.
191	02 FILLER PICTURE X(4).
192	02 DOBMONI PIC X(2).
193	02 DOBDAYL COMP PIC S9(4).
194	02 DOBDAYF PICTURE X.
195	02 FILLER REDEFINES DOBDAYF.
196	03 DOBDAYA PICTURE X.
197	02 FILLER PICTURE X(4).
198	02 DOBDAYI PIC X(2).
199	02 ACSTFCOL COMP PIC S9(4).
200	02 ACSTFCOF PICTURE X.
201	02 FILLER REDEFINES ACSTFCOF.
202	03 ACSTFCOA PICTURE X.
203	02 FILLER PICTURE X(4).
204	02 ACSTFCOI PIC X(3).
205	02 ACSFNAML COMP PIC S9(4).
206	02 ACSFNAMF PICTURE X.
207	02 FILLER REDEFINES ACSFNAMF.
208	03 ACSFNAMA PICTURE X.
209	02 FILLER PICTURE X(4).
210	02 ACSFNAMI PIC X(25).
211	02 ACSMNAML COMP PIC S9(4).
212	02 ACSMNAMF PICTURE X.
213	02 FILLER REDEFINES ACSMNAMF.
214	03 ACSMNAMA PICTURE X.
215	02 FILLER PICTURE X(4).
216	02 ACSMNAMI PIC X(25).
217	02 ACSLNAML COMP PIC S9(4).
218	02 ACSLNAMF PICTURE X.
219	02 FILLER REDEFINES ACSLNAMF.
220	03 ACSLNAMA PICTURE X.
221	02 FILLER PICTURE X(4).
222	02 ACSLNAMI PIC X(25).
223	02 ACSADL1L COMP PIC S9(4).
224	02 ACSADL1F PICTURE X.
225	02 FILLER REDEFINES ACSADL1F.
226	03 ACSADL1A PICTURE X.
227	02 FILLER PICTURE X(4).
228	02 ACSADL1I PIC X(50).
229	02 ACSSTTEL COMP PIC S9(4).
230	02 ACSSTTEF PICTURE X.
231	02 FILLER REDEFINES ACSSTTEF.
232	03 ACSSTTEA PICTURE X.
233	02 FILLER PICTURE X(4).
234	02 ACSSTTEI PIC X(2).
235	02 ACSADL2L COMP PIC S9(4).
236	02 ACSADL2F PICTURE X.
237	02 FILLER REDEFINES ACSADL2F.
238	03 ACSADL2A PICTURE X.
239	02 FILLER PICTURE X(4).
240	02 ACSADL2I PIC X(50).
241	02 ACSZIPCL COMP PIC S9(4).
242	02 ACSZIPCF PICTURE X.
243	02 FILLER REDEFINES ACSZIPCF.
244	03 ACSZIPCA PICTURE X.
245	02 FILLER PICTURE X(4).
246	02 ACSZIPCI PIC X(5).
247	02 ACSCITYL COMP PIC S9(4).
248	02 ACSCITYF PICTURE X.
249	02 FILLER REDEFINES ACSCITYF.
250	03 ACSCITYA PICTURE X.
251	02 FILLER PICTURE X(4).
252	02 ACSCITYI PIC X(50).
253	02 ACSCTRYL COMP PIC S9(4).
254	02 ACSCTRYF PICTURE X.
255	02 FILLER REDEFINES ACSCTRYF.
256	03 ACSCTRYA PICTURE X.
257	02 FILLER PICTURE X(4).
258	02 ACSCTRYI PIC X(3).
259	02 ACSPH1AL COMP PIC S9(4).
260	02 ACSPH1AF PICTURE X.
261	02 FILLER REDEFINES ACSPH1AF.
262	03 ACSPH1AA PICTURE X.
263	02 FILLER PICTURE X(4).
264	02 ACSPH1AI PIC X(3).
265	02 ACSPH1BL COMP PIC S9(4).
266	02 ACSPH1BF PICTURE X.
267	02 FILLER REDEFINES ACSPH1BF.
268	03 ACSPH1BA PICTURE X.
269	02 FILLER PICTURE X(4).
270	02 ACSPH1BI PIC X(3).
271	02 ACSPH1CL COMP PIC S9(4).
272	02 ACSPH1CF PICTURE X.
273	02 FILLER REDEFINES ACSPH1CF.
274	03 ACSPH1CA PICTURE X.
275	02 FILLER PICTURE X(4).
276	02 ACSPH1CI PIC X(4).
277	02 ACSGOVTL COMP PIC S9(4).
278	02 ACSGOVTF PICTURE X.
279	02 FILLER REDEFINES ACSGOVTF.
280	03 ACSGOVTA PICTURE X.
281	02 FILLER PICTURE X(4).
282	02 ACSGOVTI PIC X(20).
283	02 ACSPH2AL COMP PIC S9(4).
284	02 ACSPH2AF PICTURE X.
285	02 FILLER REDEFINES ACSPH2AF.
286	03 ACSPH2AA PICTURE X.
287	02 FILLER PICTURE X(4).
288	02 ACSPH2AI PIC X(3).
289	02 ACSPH2BL COMP PIC S9(4).
290	02 ACSPH2BF PICTURE X.
291	02 FILLER REDEFINES ACSPH2BF.
292	03 ACSPH2BA PICTURE X.
293	02 FILLER PICTURE X(4).
294	02 ACSPH2BI PIC X(3).
295	02 ACSPH2CL COMP PIC S9(4).
296	02 ACSPH2CF PICTURE X.
297	02 FILLER REDEFINES ACSPH2CF.
298	03 ACSPH2CA PICTURE X.
299	02 FILLER PICTURE X(4).
300	02 ACSPH2CI PIC X(4).
301	02 ACSEFTCL COMP PIC S9(4).
302	02 ACSEFTCF PICTURE X.
303	02 FILLER REDEFINES ACSEFTCF.
304	03 ACSEFTCA PICTURE X.
305	02 FILLER PICTURE X(4).
306	02 ACSEFTCI PIC X(10).
307	02 ACSPFLGL COMP PIC S9(4).
308	02 ACSPFLGF PICTURE X.
309	02 FILLER REDEFINES ACSPFLGF.
310	03 ACSPFLGA PICTURE X.
311	02 FILLER PICTURE X(4).
312	02 ACSPFLGI PIC X(1).
313	02 INFOMSGL COMP PIC S9(4).
314	02 INFOMSGF PICTURE X.
315	02 FILLER REDEFINES INFOMSGF.
316	03 INFOMSGA PICTURE X.
317	02 FILLER PICTURE X(4).
318	02 INFOMSGI PIC X(45).
319	02 ERRMSGL COMP PIC S9(4).
320	02 ERRMSGF PICTURE X.
321	02 FILLER REDEFINES ERRMSGF.
322	03 ERRMSGA PICTURE X.
323	02 FILLER PICTURE X(4).
324	02 ERRMSGI PIC X(78).
325	02 FKEYSL COMP PIC S9(4).
326	02 FKEYSF PICTURE X.
327	02 FILLER REDEFINES FKEYSF.
328	03 FKEYSA PICTURE X.
329	02 FILLER PICTURE X(4).
330	02 FKEYSI PIC X(21).
331	02 FKEY05L COMP PIC S9(4).
332	02 FKEY05F PICTURE X.
333	02 FILLER REDEFINES FKEY05F.
334	03 FKEY05A PICTURE X.
335	02 FILLER PICTURE X(4).
336	02 FKEY05I PIC X(7).
337	02 FKEY12L COMP PIC S9(4).
338	02 FKEY12F PICTURE X.
339	02 FILLER REDEFINES FKEY12F.
340	03 FKEY12A PICTURE X.
341	02 FILLER PICTURE X(4).
342	02 FKEY12I PIC X(10).
343	01 CACTUPAO REDEFINES CACTUPAI.
344	02 FILLER PIC X(12).
345	02 FILLER PICTURE X(3).
346	02 TRNNAMEC PICTURE X.
347	02 TRNNAMEP PICTURE X.
348	02 TRNNAMEH PICTURE X.
349	02 TRNNAMEV PICTURE X.
350	02 TRNNAMEO PIC X(4).
351	02 FILLER PICTURE X(3).
352	02 TITLE01C PICTURE X.
353	02 TITLE01P PICTURE X.
354	02 TITLE01H PICTURE X.
355	02 TITLE01V PICTURE X.
356	02 TITLE01O PIC X(40).
357	02 FILLER PICTURE X(3).
358	02 CURDATEC PICTURE X.
359	02 CURDATEP PICTURE X.
360	02 CURDATEH PICTURE X.
361	02 CURDATEV PICTURE X.
362	02 CURDATEO PIC X(8).
363	02 FILLER PICTURE X(3).
364	02 PGMNAMEC PICTURE X.
365	02 PGMNAMEP PICTURE X.
366	02 PGMNAMEH PICTURE X.
367	02 PGMNAMEV PICTURE X.
368	02 PGMNAMEO PIC X(8).
369	02 FILLER PICTURE X(3).
370	02 TITLE02C PICTURE X.
371	02 TITLE02P PICTURE X.
372	02 TITLE02H PICTURE X.
373	02 TITLE02V PICTURE X.
374	02 TITLE02O PIC X(40).
375	02 FILLER PICTURE X(3).
376	02 CURTIMEC PICTURE X.
377	02 CURTIMEP PICTURE X.
378	02 CURTIMEH PICTURE X.
379	02 CURTIMEV PICTURE X.
380	02 CURTIMEO PIC X(8).
381	02 FILLER PICTURE X(3).
382	02 ACCTSIDC PICTURE X.
383	02 ACCTSIDP PICTURE X.
384	02 ACCTSIDH PICTURE X.
385	02 ACCTSIDV PICTURE X.
386	02 ACCTSIDO PIC X(11).
387	02 FILLER PICTURE X(3).
388	02 ACSTTUSC PICTURE X.
389	02 ACSTTUSP PICTURE X.
390	02 ACSTTUSH PICTURE X.
391	02 ACSTTUSV PICTURE X.
392	02 ACSTTUSO PIC X(1).
393	02 FILLER PICTURE X(3).
394	02 OPNYEARC PICTURE X.
395	02 OPNYEARP PICTURE X.
396	02 OPNYEARH PICTURE X.
397	02 OPNYEARV PICTURE X.
398	02 OPNYEARO PIC X(4).
399	02 FILLER PICTURE X(3).
400	02 OPNMONC PICTURE X.
401	02 OPNMONP PICTURE X.
402	02 OPNMONH PICTURE X.
403	02 OPNMONV PICTURE X.
404	02 OPNMONO PIC X(2).
405	02 FILLER PICTURE X(3).
406	02 OPNDAYC PICTURE X.
407	02 OPNDAYP PICTURE X.
408	02 OPNDAYH PICTURE X.
409	02 OPNDAYV PICTURE X.
410	02 OPNDAYO PIC X(2).
411	02 FILLER PICTURE X(3).
412	02 ACRDLIMC PICTURE X.
413	02 ACRDLIMP PICTURE X.
414	02 ACRDLIMH PICTURE X.
415	02 ACRDLIMV PICTURE X.
416	02 ACRDLIMO PIC X(15).
417	02 FILLER PICTURE X(3).
418	02 EXPYEARC PICTURE X.
419	02 EXPYEARP PICTURE X.
420	02 EXPYEARH PICTURE X.
421	02 EXPYEARV PICTURE X.
422	02 EXPYEARO PIC X(4).
423	02 FILLER PICTURE X(3).
424	02 EXPMONC PICTURE X.
425	02 EXPMONP PICTURE X.
426	02 EXPMONH PICTURE X.
427	02 EXPMONV PICTURE X.
428	02 EXPMONO PIC X(2).
429	02 FILLER PICTURE X(3).
430	02 EXPDAYC PICTURE X.
431	02 EXPDAYP PICTURE X.
432	02 EXPDAYH PICTURE X.
433	02 EXPDAYV PICTURE X.
434	02 EXPDAYO PIC X(2).
435	02 FILLER PICTURE X(3).
436	02 ACSHLIMC PICTURE X.
437	02 ACSHLIMP PICTURE X.
438	02 ACSHLIMH PICTURE X.
439	02 ACSHLIMV PICTURE X.
440	02 ACSHLIMO PIC X(15).
441	02 FILLER PICTURE X(3).
442	02 RISYEARC PICTURE X.
443	02 RISYEARP PICTURE X.
444	02 RISYEARH PICTURE X.
445	02 RISYEARV PICTURE X.
446	02 RISYEARO PIC X(4).
447	02 FILLER PICTURE X(3).
448	02 RISMONC PICTURE X.
449	02 RISMONP PICTURE X.
450	02 RISMONH PICTURE X.
451	02 RISMONV PICTURE X.
452	02 RISMONO PIC X(2).
453	02 FILLER PICTURE X(3).
454	02 RISDAYC PICTURE X.
455	02 RISDAYP PICTURE X.
456	02 RISDAYH PICTURE X.
457	02 RISDAYV PICTURE X.
458	02 RISDAYO PIC X(2).
459	02 FILLER PICTURE X(3).
460	02 ACURBALC PICTURE X.
461	02 ACURBALP PICTURE X.
462	02 ACURBALH PICTURE X.
463	02 ACURBALV PICTURE X.
464	02 ACURBALO PIC X(15).
465	02 FILLER PICTURE X(3).
466	02 ACRCYCRC PICTURE X.
467	02 ACRCYCRP PICTURE X.
468	02 ACRCYCRH PICTURE X.
469	02 ACRCYCRV PICTURE X.
470	02 ACRCYCRO PIC X(15).
471	02 FILLER PICTURE X(3).
472	02 AADDGRPC PICTURE X.
473	02 AADDGRPP PICTURE X.
474	02 AADDGRPH PICTURE X.
475	02 AADDGRPV PICTURE X.
476	02 AADDGRPO PIC X(10).
477	02 FILLER PICTURE X(3).
478	02 ACRCYDBC PICTURE X.
479	02 ACRCYDBP PICTURE X.
480	02 ACRCYDBH PICTURE X.
481	02 ACRCYDBV PICTURE X.
482	02 ACRCYDBO PIC X(15).
483	02 FILLER PICTURE X(3).
484	02 ACSTNUMC PICTURE X.
485	02 ACSTNUMP PICTURE X.
486	02 ACSTNUMH PICTURE X.
487	02 ACSTNUMV PICTURE X.
488	02 ACSTNUMO PIC X(9).
489	02 FILLER PICTURE X(3).
490	02 ACTSSN1C PICTURE X.
491	02 ACTSSN1P PICTURE X.
492	02 ACTSSN1H PICTURE X.
493	02 ACTSSN1V PICTURE X.
494	02 ACTSSN1O PIC X(3).
495	02 FILLER PICTURE X(3).
496	02 ACTSSN2C PICTURE X.
497	02 ACTSSN2P PICTURE X.
498	02 ACTSSN2H PICTURE X.
499	02 ACTSSN2V PICTURE X.
500	02 ACTSSN2O PIC X(2).
501	02 FILLER PICTURE X(3).
502	02 ACTSSN3C PICTURE X.
503	02 ACTSSN3P PICTURE X.
504	02 ACTSSN3H PICTURE X.
505	02 ACTSSN3V PICTURE X.
506	02 ACTSSN3O PIC X(4).
507	02 FILLER PICTURE X(3).
508	02 DOBYEARC PICTURE X.
509	02 DOBYEARP PICTURE X.
510	02 DOBYEARH PICTURE X.
511	02 DOBYEARV PICTURE X.
512	02 DOBYEARO PIC X(4).
513	02 FILLER PICTURE X(3).
514	02 DOBMONC PICTURE X.
515	02 DOBMONP PICTURE X.
516	02 DOBMONH PICTURE X.
517	02 DOBMONV PICTURE X.
518	02 DOBMONO PIC X(2).
519	02 FILLER PICTURE X(3).
520	02 DOBDAYC PICTURE X.
521	02 DOBDAYP PICTURE X.
522	02 DOBDAYH PICTURE X.
523	02 DOBDAYV PICTURE X.
524	02 DOBDAYO PIC X(2).
525	02 FILLER PICTURE X(3).
526	02 ACSTFCOC PICTURE X.
527	02 ACSTFCOP PICTURE X.
528	02 ACSTFCOH PICTURE X.
529	02 ACSTFCOV PICTURE X.
530	02 ACSTFCOO PIC X(3).
531	02 FILLER PICTURE X(3).
532	02 ACSFNAMC PICTURE X.
533	02 ACSFNAMP PICTURE X.
534	02 ACSFNAMH PICTURE X.
535	02 ACSFNAMV PICTURE X.
536	02 ACSFNAMO PIC X(25).
537	02 FILLER PICTURE X(3).
538	02 ACSMNAMC PICTURE X.
539	02 ACSMNAMP PICTURE X.
540	02 ACSMNAMH PICTURE X.
541	02 ACSMNAMV PICTURE X.
542	02 ACSMNAMO PIC X(25).
543	02 FILLER PICTURE X(3).
544	02 ACSLNAMC PICTURE X.
545	02 ACSLNAMP PICTURE X.
546	02 ACSLNAMH PICTURE X.
547	02 ACSLNAMV PICTURE X.
548	02 ACSLNAMO PIC X(25).
549	02 FILLER PICTURE X(3).
550	02 ACSADL1C PICTURE X.
551	02 ACSADL1P PICTURE X.
552	02 ACSADL1H PICTURE X.
553	02 ACSADL1V PICTURE X.
554	02 ACSADL1O PIC X(50).
555	02 FILLER PICTURE X(3).
556	02 ACSSTTEC PICTURE X.
557	02 ACSSTTEP PICTURE X.
558	02 ACSSTTEH PICTURE X.
559	02 ACSSTTEV PICTURE X.
560	02 ACSSTTEO PIC X(2).
561	02 FILLER PICTURE X(3).
562	02 ACSADL2C PICTURE X.
563	02 ACSADL2P PICTURE X.
564	02 ACSADL2H PICTURE X.
565	02 ACSADL2V PICTURE X.
566	02 ACSADL2O PIC X(50).
567	02 FILLER PICTURE X(3).
568	02 ACSZIPCC PICTURE X.
569	02 ACSZIPCP PICTURE X.
570	02 ACSZIPCH PICTURE X.
571	02 ACSZIPCV PICTURE X.
572	02 ACSZIPCO PIC X(5).
573	02 FILLER PICTURE X(3).
574	02 ACSCITYC PICTURE X.
575	02 ACSCITYP PICTURE X.
576	02 ACSCITYH PICTURE X.
577	02 ACSCITYV PICTURE X.
578	02 ACSCITYO PIC X(50).
579	02 FILLER PICTURE X(3).
580	02 ACSCTRYC PICTURE X.
581	02 ACSCTRYP PICTURE X.
582	02 ACSCTRYH PICTURE X.
583	02 ACSCTRYV PICTURE X.
584	02 ACSCTRYO PIC X(3).
585	02 FILLER PICTURE X(3).
586	02 ACSPH1AC PICTURE X.
587	02 ACSPH1AP PICTURE X.
588	02 ACSPH1AH PICTURE X.
589	02 ACSPH1AV PICTURE X.
590	02 ACSPH1AO PIC X(3).
591	02 FILLER PICTURE X(3).
592	02 ACSPH1BC PICTURE X.
593	02 ACSPH1BP PICTURE X.
594	02 ACSPH1BH PICTURE X.
595	02 ACSPH1BV PICTURE X.
596	02 ACSPH1BO PIC X(3).
597	02 FILLER PICTURE X(3).
598	02 ACSPH1CC PICTURE X.
599	02 ACSPH1CP PICTURE X.
600	02 ACSPH1CH PICTURE X.
601	02 ACSPH1CV PICTURE X.
602	02 ACSPH1CO PIC X(4).
603	02 FILLER PICTURE X(3).
604	02 ACSGOVTC PICTURE X.
605	02 ACSGOVTP PICTURE X.
606	02 ACSGOVTH PICTURE X.
607	02 ACSGOVTV PICTURE X.
608	02 ACSGOVTO PIC X(20).
609	02 FILLER PICTURE X(3).
610	02 ACSPH2AC PICTURE X.
611	02 ACSPH2AP PICTURE X.
612	02 ACSPH2AH PICTURE X.
613	02 ACSPH2AV PICTURE X.
614	02 ACSPH2AO PIC X(3).
615	02 FILLER PICTURE X(3).
616	02 ACSPH2BC PICTURE X.
617	02 ACSPH2BP PICTURE X.
618	02 ACSPH2BH PICTURE X.
619	02 ACSPH2BV PICTURE X.
620	02 ACSPH2BO PIC X(3).
621	02 FILLER PICTURE X(3).
622	02 ACSPH2CC PICTURE X.
623	02 ACSPH2CP PICTURE X.
624	02 ACSPH2CH PICTURE X.
625	02 ACSPH2CV PICTURE X.
626	02 ACSPH2CO PIC X(4).
627	02 FILLER PICTURE X(3).
628	02 ACSEFTCC PICTURE X.
629	02 ACSEFTCP PICTURE X.
630	02 ACSEFTCH PICTURE X.
631	02 ACSEFTCV PICTURE X.
632	02 ACSEFTCO PIC X(10).
633	02 FILLER PICTURE X(3).
634	02 ACSPFLGC PICTURE X.
635	02 ACSPFLGP PICTURE X.
636	02 ACSPFLGH PICTURE X.
637	02 ACSPFLGV PICTURE X.
638	02 ACSPFLGO PIC X(1).
639	02 FILLER PICTURE X(3).
640	02 INFOMSGC PICTURE X.
641	02 INFOMSGP PICTURE X.
642	02 INFOMSGH PICTURE X.
643	02 INFOMSGV PICTURE X.
644	02 INFOMSGO PIC X(45).
645	02 FILLER PICTURE X(3).
646	02 ERRMSGC PICTURE X.
647	02 ERRMSGP PICTURE X.
648	02 ERRMSGH PICTURE X.
649	02 ERRMSGV PICTURE X.
650	02 ERRMSGO PIC X(78).
651	02 FILLER PICTURE X(3).
652	02 FKEYSC PICTURE X.
653	02 FKEYSP PICTURE X.
654	02 FKEYSH PICTURE X.
655	02 FKEYSV PICTURE X.
656	02 FKEYSO PIC X(21).
657	02 FILLER PICTURE X(3).
658	02 FKEY05C PICTURE X.
659	02 FKEY05P PICTURE X.
660	02 FKEY05H PICTURE X.
661	02 FKEY05V PICTURE X.
662	02 FKEY05O PIC X(7).
663	02 FILLER PICTURE X(3).
664	02 FKEY12C PICTURE X.
665	02 FKEY12P PICTURE X.
666	02 FKEY12H PICTURE X.
667	02 FKEY12V PICTURE X.
668	02 FKEY12O PIC X(10).