copybook · 344 lines · sha256 bee60b3bfeb37d5d · guides at columns 7 and 72app/app-authorization-ims-db2-mq/cpy-bms/COPAU01.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 COPAU1AI.
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 CARDNUML COMP PIC S9(4).
56	02 CARDNUMF PICTURE X.
57	02 FILLER REDEFINES CARDNUMF.
58	03 CARDNUMA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 CARDNUMI PIC X(16).
61	02 AUTHDTL COMP PIC S9(4).
62	02 AUTHDTF PICTURE X.
63	02 FILLER REDEFINES AUTHDTF.
64	03 AUTHDTA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 AUTHDTI PIC X(10).
67	02 AUTHTML COMP PIC S9(4).
68	02 AUTHTMF PICTURE X.
69	02 FILLER REDEFINES AUTHTMF.
70	03 AUTHTMA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 AUTHTMI PIC X(10).
73	02 AUTHRSPL COMP PIC S9(4).
74	02 AUTHRSPF PICTURE X.
75	02 FILLER REDEFINES AUTHRSPF.
76	03 AUTHRSPA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 AUTHRSPI PIC X(1).
79	02 AUTHRSNL COMP PIC S9(4).
80	02 AUTHRSNF PICTURE X.
81	02 FILLER REDEFINES AUTHRSNF.
82	03 AUTHRSNA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 AUTHRSNI PIC X(20).
85	02 AUTHCDL COMP PIC S9(4).
86	02 AUTHCDF PICTURE X.
87	02 FILLER REDEFINES AUTHCDF.
88	03 AUTHCDA PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 AUTHCDI PIC X(6).
91	02 AUTHAMTL COMP PIC S9(4).
92	02 AUTHAMTF PICTURE X.
93	02 FILLER REDEFINES AUTHAMTF.
94	03 AUTHAMTA PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 AUTHAMTI PIC X(12).
97	02 POSEMDL COMP PIC S9(4).
98	02 POSEMDF PICTURE X.
99	02 FILLER REDEFINES POSEMDF.
100	03 POSEMDA PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 POSEMDI PIC X(4).
103	02 AUTHSRCL COMP PIC S9(4).
104	02 AUTHSRCF PICTURE X.
105	02 FILLER REDEFINES AUTHSRCF.
106	03 AUTHSRCA PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 AUTHSRCI PIC X(10).
109	02 MCCCDL COMP PIC S9(4).
110	02 MCCCDF PICTURE X.
111	02 FILLER REDEFINES MCCCDF.
112	03 MCCCDA PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 MCCCDI PIC X(4).
115	02 CRDEXPL COMP PIC S9(4).
116	02 CRDEXPF PICTURE X.
117	02 FILLER REDEFINES CRDEXPF.
118	03 CRDEXPA PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 CRDEXPI PIC X(5).
121	02 AUTHTYPL COMP PIC S9(4).
122	02 AUTHTYPF PICTURE X.
123	02 FILLER REDEFINES AUTHTYPF.
124	03 AUTHTYPA PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 AUTHTYPI PIC X(14).
127	02 TRNIDL COMP PIC S9(4).
128	02 TRNIDF PICTURE X.
129	02 FILLER REDEFINES TRNIDF.
130	03 TRNIDA PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 TRNIDI PIC X(15).
133	02 AUTHMTCL COMP PIC S9(4).
134	02 AUTHMTCF PICTURE X.
135	02 FILLER REDEFINES AUTHMTCF.
136	03 AUTHMTCA PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 AUTHMTCI PIC X(1).
139	02 AUTHFRDL COMP PIC S9(4).
140	02 AUTHFRDF PICTURE X.
141	02 FILLER REDEFINES AUTHFRDF.
142	03 AUTHFRDA PICTURE X.
143	02 FILLER PICTURE X(4).
144	02 AUTHFRDI PIC X(10).
145	02 MERNAMEL COMP PIC S9(4).
146	02 MERNAMEF PICTURE X.
147	02 FILLER REDEFINES MERNAMEF.
148	03 MERNAMEA PICTURE X.
149	02 FILLER PICTURE X(4).
150	02 MERNAMEI PIC X(25).
151	02 MERIDL COMP PIC S9(4).
152	02 MERIDF PICTURE X.
153	02 FILLER REDEFINES MERIDF.
154	03 MERIDA PICTURE X.
155	02 FILLER PICTURE X(4).
156	02 MERIDI PIC X(15).
157	02 MERCITYL COMP PIC S9(4).
158	02 MERCITYF PICTURE X.
159	02 FILLER REDEFINES MERCITYF.
160	03 MERCITYA PICTURE X.
161	02 FILLER PICTURE X(4).
162	02 MERCITYI PIC X(25).
163	02 MERSTL COMP PIC S9(4).
164	02 MERSTF PICTURE X.
165	02 FILLER REDEFINES MERSTF.
166	03 MERSTA PICTURE X.
167	02 FILLER PICTURE X(4).
168	02 MERSTI PIC X(2).
169	02 MERZIPL COMP PIC S9(4).
170	02 MERZIPF PICTURE X.
171	02 FILLER REDEFINES MERZIPF.
172	03 MERZIPA PICTURE X.
173	02 FILLER PICTURE X(4).
174	02 MERZIPI PIC X(10).
175	02 ERRMSGL COMP PIC S9(4).
176	02 ERRMSGF PICTURE X.
177	02 FILLER REDEFINES ERRMSGF.
178	03 ERRMSGA PICTURE X.
179	02 FILLER PICTURE X(4).
180	02 ERRMSGI PIC X(78).
181	01 COPAU1AO REDEFINES COPAU1AI.
182	02 FILLER PIC X(12).
183	02 FILLER PICTURE X(3).
184	02 TRNNAMEC PICTURE X.
185	02 TRNNAMEP PICTURE X.
186	02 TRNNAMEH PICTURE X.
187	02 TRNNAMEV PICTURE X.
188	02 TRNNAMEO PIC X(4).
189	02 FILLER PICTURE X(3).
190	02 TITLE01C PICTURE X.
191	02 TITLE01P PICTURE X.
192	02 TITLE01H PICTURE X.
193	02 TITLE01V PICTURE X.
194	02 TITLE01O PIC X(40).
195	02 FILLER PICTURE X(3).
196	02 CURDATEC PICTURE X.
197	02 CURDATEP PICTURE X.
198	02 CURDATEH PICTURE X.
199	02 CURDATEV PICTURE X.
200	02 CURDATEO PIC X(8).
201	02 FILLER PICTURE X(3).
202	02 PGMNAMEC PICTURE X.
203	02 PGMNAMEP PICTURE X.
204	02 PGMNAMEH PICTURE X.
205	02 PGMNAMEV PICTURE X.
206	02 PGMNAMEO PIC X(8).
207	02 FILLER PICTURE X(3).
208	02 TITLE02C PICTURE X.
209	02 TITLE02P PICTURE X.
210	02 TITLE02H PICTURE X.
211	02 TITLE02V PICTURE X.
212	02 TITLE02O PIC X(40).
213	02 FILLER PICTURE X(3).
214	02 CURTIMEC PICTURE X.
215	02 CURTIMEP PICTURE X.
216	02 CURTIMEH PICTURE X.
217	02 CURTIMEV PICTURE X.
218	02 CURTIMEO PIC X(8).
219	02 FILLER PICTURE X(3).
220	02 CARDNUMC PICTURE X.
221	02 CARDNUMP PICTURE X.
222	02 CARDNUMH PICTURE X.
223	02 CARDNUMV PICTURE X.
224	02 CARDNUMO PIC X(16).
225	02 FILLER PICTURE X(3).
226	02 AUTHDTC PICTURE X.
227	02 AUTHDTP PICTURE X.
228	02 AUTHDTH PICTURE X.
229	02 AUTHDTV PICTURE X.
230	02 AUTHDTO PIC X(10).
231	02 FILLER PICTURE X(3).
232	02 AUTHTMC PICTURE X.
233	02 AUTHTMP PICTURE X.
234	02 AUTHTMH PICTURE X.
235	02 AUTHTMV PICTURE X.
236	02 AUTHTMO PIC X(10).
237	02 FILLER PICTURE X(3).
238	02 AUTHRSPC PICTURE X.
239	02 AUTHRSPP PICTURE X.
240	02 AUTHRSPH PICTURE X.
241	02 AUTHRSPV PICTURE X.
242	02 AUTHRSPO PIC X(1).
243	02 FILLER PICTURE X(3).
244	02 AUTHRSNC PICTURE X.
245	02 AUTHRSNP PICTURE X.
246	02 AUTHRSNH PICTURE X.
247	02 AUTHRSNV PICTURE X.
248	02 AUTHRSNO PIC X(20).
249	02 FILLER PICTURE X(3).
250	02 AUTHCDC PICTURE X.
251	02 AUTHCDP PICTURE X.
252	02 AUTHCDH PICTURE X.
253	02 AUTHCDV PICTURE X.
254	02 AUTHCDO PIC X(6).
255	02 FILLER PICTURE X(3).
256	02 AUTHAMTC PICTURE X.
257	02 AUTHAMTP PICTURE X.
258	02 AUTHAMTH PICTURE X.
259	02 AUTHAMTV PICTURE X.
260	02 AUTHAMTO PIC X(12).
261	02 FILLER PICTURE X(3).
262	02 POSEMDC PICTURE X.
263	02 POSEMDP PICTURE X.
264	02 POSEMDH PICTURE X.
265	02 POSEMDV PICTURE X.
266	02 POSEMDO PIC X(4).
267	02 FILLER PICTURE X(3).
268	02 AUTHSRCC PICTURE X.
269	02 AUTHSRCP PICTURE X.
270	02 AUTHSRCH PICTURE X.
271	02 AUTHSRCV PICTURE X.
272	02 AUTHSRCO PIC X(10).
273	02 FILLER PICTURE X(3).
274	02 MCCCDC PICTURE X.
275	02 MCCCDP PICTURE X.
276	02 MCCCDH PICTURE X.
277	02 MCCCDV PICTURE X.
278	02 MCCCDO PIC X(4).
279	02 FILLER PICTURE X(3).
280	02 CRDEXPC PICTURE X.
281	02 CRDEXPP PICTURE X.
282	02 CRDEXPH PICTURE X.
283	02 CRDEXPV PICTURE X.
284	02 CRDEXPO PIC X(5).
285	02 FILLER PICTURE X(3).
286	02 AUTHTYPC PICTURE X.
287	02 AUTHTYPP PICTURE X.
288	02 AUTHTYPH PICTURE X.
289	02 AUTHTYPV PICTURE X.
290	02 AUTHTYPO PIC X(14).
291	02 FILLER PICTURE X(3).
292	02 TRNIDC PICTURE X.
293	02 TRNIDP PICTURE X.
294	02 TRNIDH PICTURE X.
295	02 TRNIDV PICTURE X.
296	02 TRNIDO PIC X(15).
297	02 FILLER PICTURE X(3).
298	02 AUTHMTCC PICTURE X.
299	02 AUTHMTCP PICTURE X.
300	02 AUTHMTCH PICTURE X.
301	02 AUTHMTCV PICTURE X.
302	02 AUTHMTCO PIC X(1).
303	02 FILLER PICTURE X(3).
304	02 AUTHFRDC PICTURE X.
305	02 AUTHFRDP PICTURE X.
306	02 AUTHFRDH PICTURE X.
307	02 AUTHFRDV PICTURE X.
308	02 AUTHFRDO PIC X(10).
309	02 FILLER PICTURE X(3).
310	02 MERNAMEC PICTURE X.
311	02 MERNAMEP PICTURE X.
312	02 MERNAMEH PICTURE X.
313	02 MERNAMEV PICTURE X.
314	02 MERNAMEO PIC X(25).
315	02 FILLER PICTURE X(3).
316	02 MERIDC PICTURE X.
317	02 MERIDP PICTURE X.
318	02 MERIDH PICTURE X.
319	02 MERIDV PICTURE X.
320	02 MERIDO PIC X(15).
321	02 FILLER PICTURE X(3).
322	02 MERCITYC PICTURE X.
323	02 MERCITYP PICTURE X.
324	02 MERCITYH PICTURE X.
325	02 MERCITYV PICTURE X.
326	02 MERCITYO PIC X(25).
327	02 FILLER PICTURE X(3).
328	02 MERSTC PICTURE X.
329	02 MERSTP PICTURE X.
330	02 MERSTH PICTURE X.
331	02 MERSTV PICTURE X.
332	02 MERSTO PIC X(2).
333	02 FILLER PICTURE X(3).
334	02 MERZIPC PICTURE X.
335	02 MERZIPP PICTURE X.
336	02 MERZIPH PICTURE X.
337	02 MERZIPV PICTURE X.
338	02 MERZIPO PIC X(10).
339	02 FILLER PICTURE X(3).
340	02 ERRMSGC PICTURE X.
341	02 ERRMSGP PICTURE X.
342	02 ERRMSGH PICTURE X.
343	02 ERRMSGV PICTURE X.
344	02 ERRMSGO PIC X(78).