copybook · 464 lines · sha256 f3bf70a636aecb58 · guides at columns 7 and 72app/cpy-bms/COACTVW.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 CACTVWAI.
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 99999999999.
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 ADTOPENL COMP PIC S9(4).
68	02 ADTOPENF PICTURE X.
69	02 FILLER REDEFINES ADTOPENF.
70	03 ADTOPENA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 ADTOPENI PIC X(10).
73	02 ACRDLIML COMP PIC S9(4).
74	02 ACRDLIMF PICTURE X.
75	02 FILLER REDEFINES ACRDLIMF.
76	03 ACRDLIMA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 ACRDLIMI PIC X(15).
79	02 AEXPDTL COMP PIC S9(4).
80	02 AEXPDTF PICTURE X.
81	02 FILLER REDEFINES AEXPDTF.
82	03 AEXPDTA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 AEXPDTI PIC X(10).
85	02 ACSHLIML COMP PIC S9(4).
86	02 ACSHLIMF PICTURE X.
87	02 FILLER REDEFINES ACSHLIMF.
88	03 ACSHLIMA PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 ACSHLIMI PIC X(15).
91	02 AREISDTL COMP PIC S9(4).
92	02 AREISDTF PICTURE X.
93	02 FILLER REDEFINES AREISDTF.
94	03 AREISDTA PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 AREISDTI PIC X(10).
97	02 ACURBALL COMP PIC S9(4).
98	02 ACURBALF PICTURE X.
99	02 FILLER REDEFINES ACURBALF.
100	03 ACURBALA PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 ACURBALI PIC X(15).
103	02 ACRCYCRL COMP PIC S9(4).
104	02 ACRCYCRF PICTURE X.
105	02 FILLER REDEFINES ACRCYCRF.
106	03 ACRCYCRA PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 ACRCYCRI PIC X(15).
109	02 AADDGRPL COMP PIC S9(4).
110	02 AADDGRPF PICTURE X.
111	02 FILLER REDEFINES AADDGRPF.
112	03 AADDGRPA PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 AADDGRPI PIC X(10).
115	02 ACRCYDBL COMP PIC S9(4).
116	02 ACRCYDBF PICTURE X.
117	02 FILLER REDEFINES ACRCYDBF.
118	03 ACRCYDBA PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 ACRCYDBI PIC X(15).
121	02 ACSTNUML COMP PIC S9(4).
122	02 ACSTNUMF PICTURE X.
123	02 FILLER REDEFINES ACSTNUMF.
124	03 ACSTNUMA PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 ACSTNUMI PIC X(9).
127	02 ACSTSSNL COMP PIC S9(4).
128	02 ACSTSSNF PICTURE X.
129	02 FILLER REDEFINES ACSTSSNF.
130	03 ACSTSSNA PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 ACSTSSNI PIC X(12).
133	02 ACSTDOBL COMP PIC S9(4).
134	02 ACSTDOBF PICTURE X.
135	02 FILLER REDEFINES ACSTDOBF.
136	03 ACSTDOBA PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 ACSTDOBI PIC X(10).
139	02 ACSTFCOL COMP PIC S9(4).
140	02 ACSTFCOF PICTURE X.
141	02 FILLER REDEFINES ACSTFCOF.
142	03 ACSTFCOA PICTURE X.
143	02 FILLER PICTURE X(4).
144	02 ACSTFCOI PIC X(3).
145	02 ACSFNAML COMP PIC S9(4).
146	02 ACSFNAMF PICTURE X.
147	02 FILLER REDEFINES ACSFNAMF.
148	03 ACSFNAMA PICTURE X.
149	02 FILLER PICTURE X(4).
150	02 ACSFNAMI PIC X(25).
151	02 ACSMNAML COMP PIC S9(4).
152	02 ACSMNAMF PICTURE X.
153	02 FILLER REDEFINES ACSMNAMF.
154	03 ACSMNAMA PICTURE X.
155	02 FILLER PICTURE X(4).
156	02 ACSMNAMI PIC X(25).
157	02 ACSLNAML COMP PIC S9(4).
158	02 ACSLNAMF PICTURE X.
159	02 FILLER REDEFINES ACSLNAMF.
160	03 ACSLNAMA PICTURE X.
161	02 FILLER PICTURE X(4).
162	02 ACSLNAMI PIC X(25).
163	02 ACSADL1L COMP PIC S9(4).
164	02 ACSADL1F PICTURE X.
165	02 FILLER REDEFINES ACSADL1F.
166	03 ACSADL1A PICTURE X.
167	02 FILLER PICTURE X(4).
168	02 ACSADL1I PIC X(50).
169	02 ACSSTTEL COMP PIC S9(4).
170	02 ACSSTTEF PICTURE X.
171	02 FILLER REDEFINES ACSSTTEF.
172	03 ACSSTTEA PICTURE X.
173	02 FILLER PICTURE X(4).
174	02 ACSSTTEI PIC X(2).
175	02 ACSADL2L COMP PIC S9(4).
176	02 ACSADL2F PICTURE X.
177	02 FILLER REDEFINES ACSADL2F.
178	03 ACSADL2A PICTURE X.
179	02 FILLER PICTURE X(4).
180	02 ACSADL2I PIC X(50).
181	02 ACSZIPCL COMP PIC S9(4).
182	02 ACSZIPCF PICTURE X.
183	02 FILLER REDEFINES ACSZIPCF.
184	03 ACSZIPCA PICTURE X.
185	02 FILLER PICTURE X(4).
186	02 ACSZIPCI PIC X(5).
187	02 ACSCITYL COMP PIC S9(4).
188	02 ACSCITYF PICTURE X.
189	02 FILLER REDEFINES ACSCITYF.
190	03 ACSCITYA PICTURE X.
191	02 FILLER PICTURE X(4).
192	02 ACSCITYI PIC X(50).
193	02 ACSCTRYL COMP PIC S9(4).
194	02 ACSCTRYF PICTURE X.
195	02 FILLER REDEFINES ACSCTRYF.
196	03 ACSCTRYA PICTURE X.
197	02 FILLER PICTURE X(4).
198	02 ACSCTRYI PIC X(3).
199	02 ACSPHN1L COMP PIC S9(4).
200	02 ACSPHN1F PICTURE X.
201	02 FILLER REDEFINES ACSPHN1F.
202	03 ACSPHN1A PICTURE X.
203	02 FILLER PICTURE X(4).
204	02 ACSPHN1I PIC X(13).
205	02 ACSGOVTL COMP PIC S9(4).
206	02 ACSGOVTF PICTURE X.
207	02 FILLER REDEFINES ACSGOVTF.
208	03 ACSGOVTA PICTURE X.
209	02 FILLER PICTURE X(4).
210	02 ACSGOVTI PIC X(20).
211	02 ACSPHN2L COMP PIC S9(4).
212	02 ACSPHN2F PICTURE X.
213	02 FILLER REDEFINES ACSPHN2F.
214	03 ACSPHN2A PICTURE X.
215	02 FILLER PICTURE X(4).
216	02 ACSPHN2I PIC X(13).
217	02 ACSEFTCL COMP PIC S9(4).
218	02 ACSEFTCF PICTURE X.
219	02 FILLER REDEFINES ACSEFTCF.
220	03 ACSEFTCA PICTURE X.
221	02 FILLER PICTURE X(4).
222	02 ACSEFTCI PIC X(10).
223	02 ACSPFLGL COMP PIC S9(4).
224	02 ACSPFLGF PICTURE X.
225	02 FILLER REDEFINES ACSPFLGF.
226	03 ACSPFLGA PICTURE X.
227	02 FILLER PICTURE X(4).
228	02 ACSPFLGI PIC X(1).
229	02 INFOMSGL COMP PIC S9(4).
230	02 INFOMSGF PICTURE X.
231	02 FILLER REDEFINES INFOMSGF.
232	03 INFOMSGA PICTURE X.
233	02 FILLER PICTURE X(4).
234	02 INFOMSGI PIC X(45).
235	02 ERRMSGL COMP PIC S9(4).
236	02 ERRMSGF PICTURE X.
237	02 FILLER REDEFINES ERRMSGF.
238	03 ERRMSGA PICTURE X.
239	02 FILLER PICTURE X(4).
240	02 ERRMSGI PIC X(78).
241	01 CACTVWAO REDEFINES CACTVWAI.
242	02 FILLER PIC X(12).
243	02 FILLER PICTURE X(3).
244	02 TRNNAMEC PICTURE X.
245	02 TRNNAMEP PICTURE X.
246	02 TRNNAMEH PICTURE X.
247	02 TRNNAMEV PICTURE X.
248	02 TRNNAMEO PIC X(4).
249	02 FILLER PICTURE X(3).
250	02 TITLE01C PICTURE X.
251	02 TITLE01P PICTURE X.
252	02 TITLE01H PICTURE X.
253	02 TITLE01V PICTURE X.
254	02 TITLE01O PIC X(40).
255	02 FILLER PICTURE X(3).
256	02 CURDATEC PICTURE X.
257	02 CURDATEP PICTURE X.
258	02 CURDATEH PICTURE X.
259	02 CURDATEV PICTURE X.
260	02 CURDATEO PIC X(8).
261	02 FILLER PICTURE X(3).
262	02 PGMNAMEC PICTURE X.
263	02 PGMNAMEP PICTURE X.
264	02 PGMNAMEH PICTURE X.
265	02 PGMNAMEV PICTURE X.
266	02 PGMNAMEO PIC X(8).
267	02 FILLER PICTURE X(3).
268	02 TITLE02C PICTURE X.
269	02 TITLE02P PICTURE X.
270	02 TITLE02H PICTURE X.
271	02 TITLE02V PICTURE X.
272	02 TITLE02O PIC X(40).
273	02 FILLER PICTURE X(3).
274	02 CURTIMEC PICTURE X.
275	02 CURTIMEP PICTURE X.
276	02 CURTIMEH PICTURE X.
277	02 CURTIMEV PICTURE X.
278	02 CURTIMEO PIC X(8).
279	02 FILLER PICTURE X(3).
280	02 ACCTSIDC PICTURE X.
281	02 ACCTSIDP PICTURE X.
282	02 ACCTSIDH PICTURE X.
283	02 ACCTSIDV PICTURE X.
284	02 ACCTSIDO PIC X(11).
285	02 FILLER PICTURE X(3).
286	02 ACSTTUSC PICTURE X.
287	02 ACSTTUSP PICTURE X.
288	02 ACSTTUSH PICTURE X.
289	02 ACSTTUSV PICTURE X.
290	02 ACSTTUSO PIC X(1).
291	02 FILLER PICTURE X(3).
292	02 ADTOPENC PICTURE X.
293	02 ADTOPENP PICTURE X.
294	02 ADTOPENH PICTURE X.
295	02 ADTOPENV PICTURE X.
296	02 ADTOPENO PIC X(10).
297	02 FILLER PICTURE X(3).
298	02 ACRDLIMC PICTURE X.
299	02 ACRDLIMP PICTURE X.
300	02 ACRDLIMH PICTURE X.
301	02 ACRDLIMV PICTURE X.
302	02 ACRDLIMO PIC +ZZZ,ZZZ,ZZZ.99.
303	02 FILLER PICTURE X(3).
304	02 AEXPDTC PICTURE X.
305	02 AEXPDTP PICTURE X.
306	02 AEXPDTH PICTURE X.
307	02 AEXPDTV PICTURE X.
308	02 AEXPDTO PIC X(10).
309	02 FILLER PICTURE X(3).
310	02 ACSHLIMC PICTURE X.
311	02 ACSHLIMP PICTURE X.
312	02 ACSHLIMH PICTURE X.
313	02 ACSHLIMV PICTURE X.
314	02 ACSHLIMO PIC +ZZZ,ZZZ,ZZZ.99.
315	02 FILLER PICTURE X(3).
316	02 AREISDTC PICTURE X.
317	02 AREISDTP PICTURE X.
318	02 AREISDTH PICTURE X.
319	02 AREISDTV PICTURE X.
320	02 AREISDTO PIC X(10).
321	02 FILLER PICTURE X(3).
322	02 ACURBALC PICTURE X.
323	02 ACURBALP PICTURE X.
324	02 ACURBALH PICTURE X.
325	02 ACURBALV PICTURE X.
326	02 ACURBALO PIC +ZZZ,ZZZ,ZZZ.99.
327	02 FILLER PICTURE X(3).
328	02 ACRCYCRC PICTURE X.
329	02 ACRCYCRP PICTURE X.
330	02 ACRCYCRH PICTURE X.
331	02 ACRCYCRV PICTURE X.
332	02 ACRCYCRO PIC +ZZZ,ZZZ,ZZZ.99.
333	02 FILLER PICTURE X(3).
334	02 AADDGRPC PICTURE X.
335	02 AADDGRPP PICTURE X.
336	02 AADDGRPH PICTURE X.
337	02 AADDGRPV PICTURE X.
338	02 AADDGRPO PIC X(10).
339	02 FILLER PICTURE X(3).
340	02 ACRCYDBC PICTURE X.
341	02 ACRCYDBP PICTURE X.
342	02 ACRCYDBH PICTURE X.
343	02 ACRCYDBV PICTURE X.
344	02 ACRCYDBO PIC +ZZZ,ZZZ,ZZZ.99.
345	02 FILLER PICTURE X(3).
346	02 ACSTNUMC PICTURE X.
347	02 ACSTNUMP PICTURE X.
348	02 ACSTNUMH PICTURE X.
349	02 ACSTNUMV PICTURE X.
350	02 ACSTNUMO PIC X(9).
351	02 FILLER PICTURE X(3).
352	02 ACSTSSNC PICTURE X.
353	02 ACSTSSNP PICTURE X.
354	02 ACSTSSNH PICTURE X.
355	02 ACSTSSNV PICTURE X.
356	02 ACSTSSNO PIC X(12).
357	02 FILLER PICTURE X(3).
358	02 ACSTDOBC PICTURE X.
359	02 ACSTDOBP PICTURE X.
360	02 ACSTDOBH PICTURE X.
361	02 ACSTDOBV PICTURE X.
362	02 ACSTDOBO PIC X(10).
363	02 FILLER PICTURE X(3).
364	02 ACSTFCOC PICTURE X.
365	02 ACSTFCOP PICTURE X.
366	02 ACSTFCOH PICTURE X.
367	02 ACSTFCOV PICTURE X.
368	02 ACSTFCOO PIC X(3).
369	02 FILLER PICTURE X(3).
370	02 ACSFNAMC PICTURE X.
371	02 ACSFNAMP PICTURE X.
372	02 ACSFNAMH PICTURE X.
373	02 ACSFNAMV PICTURE X.
374	02 ACSFNAMO PIC X(25).
375	02 FILLER PICTURE X(3).
376	02 ACSMNAMC PICTURE X.
377	02 ACSMNAMP PICTURE X.
378	02 ACSMNAMH PICTURE X.
379	02 ACSMNAMV PICTURE X.
380	02 ACSMNAMO PIC X(25).
381	02 FILLER PICTURE X(3).
382	02 ACSLNAMC PICTURE X.
383	02 ACSLNAMP PICTURE X.
384	02 ACSLNAMH PICTURE X.
385	02 ACSLNAMV PICTURE X.
386	02 ACSLNAMO PIC X(25).
387	02 FILLER PICTURE X(3).
388	02 ACSADL1C PICTURE X.
389	02 ACSADL1P PICTURE X.
390	02 ACSADL1H PICTURE X.
391	02 ACSADL1V PICTURE X.
392	02 ACSADL1O PIC X(50).
393	02 FILLER PICTURE X(3).
394	02 ACSSTTEC PICTURE X.
395	02 ACSSTTEP PICTURE X.
396	02 ACSSTTEH PICTURE X.
397	02 ACSSTTEV PICTURE X.
398	02 ACSSTTEO PIC X(2).
399	02 FILLER PICTURE X(3).
400	02 ACSADL2C PICTURE X.
401	02 ACSADL2P PICTURE X.
402	02 ACSADL2H PICTURE X.
403	02 ACSADL2V PICTURE X.
404	02 ACSADL2O PIC X(50).
405	02 FILLER PICTURE X(3).
406	02 ACSZIPCC PICTURE X.
407	02 ACSZIPCP PICTURE X.
408	02 ACSZIPCH PICTURE X.
409	02 ACSZIPCV PICTURE X.
410	02 ACSZIPCO PIC X(5).
411	02 FILLER PICTURE X(3).
412	02 ACSCITYC PICTURE X.
413	02 ACSCITYP PICTURE X.
414	02 ACSCITYH PICTURE X.
415	02 ACSCITYV PICTURE X.
416	02 ACSCITYO PIC X(50).
417	02 FILLER PICTURE X(3).
418	02 ACSCTRYC PICTURE X.
419	02 ACSCTRYP PICTURE X.
420	02 ACSCTRYH PICTURE X.
421	02 ACSCTRYV PICTURE X.
422	02 ACSCTRYO PIC X(3).
423	02 FILLER PICTURE X(3).
424	02 ACSPHN1C PICTURE X.
425	02 ACSPHN1P PICTURE X.
426	02 ACSPHN1H PICTURE X.
427	02 ACSPHN1V PICTURE X.
428	02 ACSPHN1O PIC X(13).
429	02 FILLER PICTURE X(3).
430	02 ACSGOVTC PICTURE X.
431	02 ACSGOVTP PICTURE X.
432	02 ACSGOVTH PICTURE X.
433	02 ACSGOVTV PICTURE X.
434	02 ACSGOVTO PIC X(20).
435	02 FILLER PICTURE X(3).
436	02 ACSPHN2C PICTURE X.
437	02 ACSPHN2P PICTURE X.
438	02 ACSPHN2H PICTURE X.
439	02 ACSPHN2V PICTURE X.
440	02 ACSPHN2O PIC X(13).
441	02 FILLER PICTURE X(3).
442	02 ACSEFTCC PICTURE X.
443	02 ACSEFTCP PICTURE X.
444	02 ACSEFTCH PICTURE X.
445	02 ACSEFTCV PICTURE X.
446	02 ACSEFTCO PIC X(10).
447	02 FILLER PICTURE X(3).
448	02 ACSPFLGC PICTURE X.
449	02 ACSPFLGP PICTURE X.
450	02 ACSPFLGH PICTURE X.
451	02 ACSPFLGV PICTURE X.
452	02 ACSPFLGO PIC X(1).
453	02 FILLER PICTURE X(3).
454	02 INFOMSGC PICTURE X.
455	02 INFOMSGP PICTURE X.
456	02 INFOMSGH PICTURE X.
457	02 INFOMSGV PICTURE X.
458	02 INFOMSGO PIC X(45).
459	02 FILLER PICTURE X(3).
460	02 ERRMSGC PICTURE X.
461	02 ERRMSGP PICTURE X.
462	02 ERRMSGH PICTURE X.
463	02 ERRMSGV PICTURE X.
464	02 ERRMSGO PIC X(78).