copybook · 500 lines · sha256 ece821940dafaf82 · guides at columns 7 and 72app/app-transaction-type-db2/cpy-bms/COTRTLI.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 CTRTLIAI.
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 TRTYPEL COMP PIC S9(4).
62	02 TRTYPEF PICTURE X.
63	02 FILLER REDEFINES TRTYPEF.
64	03 TRTYPEA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 TRTYPEI PIC X(2).
67	02 TRDESCL COMP PIC S9(4).
68	02 TRDESCF PICTURE X.
69	02 FILLER REDEFINES TRDESCF.
70	03 TRDESCA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 TRDESCI PIC X(50).
73	02 TRTSEL1L COMP PIC S9(4).
74	02 TRTSEL1F PICTURE X.
75	02 FILLER REDEFINES TRTSEL1F.
76	03 TRTSEL1A PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 TRTSEL1I PIC X(1).
79	02 TRTTYP1L COMP PIC S9(4).
80	02 TRTTYP1F PICTURE X.
81	02 FILLER REDEFINES TRTTYP1F.
82	03 TRTTYP1A PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 TRTTYP1I PIC X(2).
85	02 TRTYPD1L COMP PIC S9(4).
86	02 TRTYPD1F PICTURE X.
87	02 FILLER REDEFINES TRTYPD1F.
88	03 TRTYPD1A PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 TRTYPD1I PIC X(50).
91	02 TRTSEL2L COMP PIC S9(4).
92	02 TRTSEL2F PICTURE X.
93	02 FILLER REDEFINES TRTSEL2F.
94	03 TRTSEL2A PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 TRTSEL2I PIC X(1).
97	02 TRTTYP2L COMP PIC S9(4).
98	02 TRTTYP2F PICTURE X.
99	02 FILLER REDEFINES TRTTYP2F.
100	03 TRTTYP2A PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 TRTTYP2I PIC X(2).
103	02 TRTYPD2L COMP PIC S9(4).
104	02 TRTYPD2F PICTURE X.
105	02 FILLER REDEFINES TRTYPD2F.
106	03 TRTYPD2A PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 TRTYPD2I PIC X(50).
109	02 TRTSEL3L COMP PIC S9(4).
110	02 TRTSEL3F PICTURE X.
111	02 FILLER REDEFINES TRTSEL3F.
112	03 TRTSEL3A PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 TRTSEL3I PIC X(1).
115	02 TRTTYP3L COMP PIC S9(4).
116	02 TRTTYP3F PICTURE X.
117	02 FILLER REDEFINES TRTTYP3F.
118	03 TRTTYP3A PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 TRTTYP3I PIC X(2).
121	02 TRTYPD3L COMP PIC S9(4).
122	02 TRTYPD3F PICTURE X.
123	02 FILLER REDEFINES TRTYPD3F.
124	03 TRTYPD3A PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 TRTYPD3I PIC X(50).
127	02 TRTSEL4L COMP PIC S9(4).
128	02 TRTSEL4F PICTURE X.
129	02 FILLER REDEFINES TRTSEL4F.
130	03 TRTSEL4A PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 TRTSEL4I PIC X(1).
133	02 TRTTYP4L COMP PIC S9(4).
134	02 TRTTYP4F PICTURE X.
135	02 FILLER REDEFINES TRTTYP4F.
136	03 TRTTYP4A PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 TRTTYP4I PIC X(2).
139	02 TRTYPD4L COMP PIC S9(4).
140	02 TRTYPD4F PICTURE X.
141	02 FILLER REDEFINES TRTYPD4F.
142	03 TRTYPD4A PICTURE X.
143	02 FILLER PICTURE X(4).
144	02 TRTYPD4I PIC X(50).
145	02 TRTSEL5L COMP PIC S9(4).
146	02 TRTSEL5F PICTURE X.
147	02 FILLER REDEFINES TRTSEL5F.
148	03 TRTSEL5A PICTURE X.
149	02 FILLER PICTURE X(4).
150	02 TRTSEL5I PIC X(1).
151	02 TRTTYP5L COMP PIC S9(4).
152	02 TRTTYP5F PICTURE X.
153	02 FILLER REDEFINES TRTTYP5F.
154	03 TRTTYP5A PICTURE X.
155	02 FILLER PICTURE X(4).
156	02 TRTTYP5I PIC X(2).
157	02 TRTYPD5L COMP PIC S9(4).
158	02 TRTYPD5F PICTURE X.
159	02 FILLER REDEFINES TRTYPD5F.
160	03 TRTYPD5A PICTURE X.
161	02 FILLER PICTURE X(4).
162	02 TRTYPD5I PIC X(50).
163	02 TRTSEL6L COMP PIC S9(4).
164	02 TRTSEL6F PICTURE X.
165	02 FILLER REDEFINES TRTSEL6F.
166	03 TRTSEL6A PICTURE X.
167	02 FILLER PICTURE X(4).
168	02 TRTSEL6I PIC X(1).
169	02 TRTTYP6L COMP PIC S9(4).
170	02 TRTTYP6F PICTURE X.
171	02 FILLER REDEFINES TRTTYP6F.
172	03 TRTTYP6A PICTURE X.
173	02 FILLER PICTURE X(4).
174	02 TRTTYP6I PIC X(2).
175	02 TRTYPD6L COMP PIC S9(4).
176	02 TRTYPD6F PICTURE X.
177	02 FILLER REDEFINES TRTYPD6F.
178	03 TRTYPD6A PICTURE X.
179	02 FILLER PICTURE X(4).
180	02 TRTYPD6I PIC X(50).
181	02 TRTSEL7L COMP PIC S9(4).
182	02 TRTSEL7F PICTURE X.
183	02 FILLER REDEFINES TRTSEL7F.
184	03 TRTSEL7A PICTURE X.
185	02 FILLER PICTURE X(4).
186	02 TRTSEL7I PIC X(1).
187	02 TRTTYP7L COMP PIC S9(4).
188	02 TRTTYP7F PICTURE X.
189	02 FILLER REDEFINES TRTTYP7F.
190	03 TRTTYP7A PICTURE X.
191	02 FILLER PICTURE X(4).
192	02 TRTTYP7I PIC X(2).
193	02 TRTYPD7L COMP PIC S9(4).
194	02 TRTYPD7F PICTURE X.
195	02 FILLER REDEFINES TRTYPD7F.
196	03 TRTYPD7A PICTURE X.
197	02 FILLER PICTURE X(4).
198	02 TRTYPD7I PIC X(50).
199	02 TRTSELAL COMP PIC S9(4).
200	02 TRTSELAF PICTURE X.
201	02 FILLER REDEFINES TRTSELAF.
202	03 TRTSELAA PICTURE X.
203	02 FILLER PICTURE X(4).
204	02 TRTSELAI PIC X(1).
205	02 TRTTYPAL COMP PIC S9(4).
206	02 TRTTYPAF PICTURE X.
207	02 FILLER REDEFINES TRTTYPAF.
208	03 TRTTYPAA PICTURE X.
209	02 FILLER PICTURE X(4).
210	02 TRTTYPAI PIC X(2).
211	02 TRTDSCAL COMP PIC S9(4).
212	02 TRTDSCAF PICTURE X.
213	02 FILLER REDEFINES TRTDSCAF.
214	03 TRTDSCAA PICTURE X.
215	02 FILLER PICTURE X(4).
216	02 TRTDSCAI PIC X(50).
217	02 INFOMSGL COMP PIC S9(4).
218	02 INFOMSGF PICTURE X.
219	02 FILLER REDEFINES INFOMSGF.
220	03 INFOMSGA PICTURE X.
221	02 FILLER PICTURE X(4).
222	02 INFOMSGI PIC X(45).
223	02 ERRMSGL COMP PIC S9(4).
224	02 ERRMSGF PICTURE X.
225	02 FILLER REDEFINES ERRMSGF.
226	03 ERRMSGA PICTURE X.
227	02 FILLER PICTURE X(4).
228	02 ERRMSGI PIC X(78).
229	02 BUTNF02L COMP PIC S9(4).
230	02 BUTNF02F PICTURE X.
231	02 FILLER REDEFINES BUTNF02F.
232	03 BUTNF02A PICTURE X.
233	02 FILLER PICTURE X(4).
234	02 BUTNF02I PIC X(7).
235	02 BUTNF03L COMP PIC S9(4).
236	02 BUTNF03F PICTURE X.
237	02 FILLER REDEFINES BUTNF03F.
238	03 BUTNF03A PICTURE X.
239	02 FILLER PICTURE X(4).
240	02 BUTNF03I PIC X(7).
241	02 BUTNF07L COMP PIC S9(4).
242	02 BUTNF07F PICTURE X.
243	02 FILLER REDEFINES BUTNF07F.
244	03 BUTNF07A PICTURE X.
245	02 FILLER PICTURE X(4).
246	02 BUTNF07I PIC X(10).
247	02 BUTNF08L COMP PIC S9(4).
248	02 BUTNF08F PICTURE X.
249	02 FILLER REDEFINES BUTNF08F.
250	03 BUTNF08A PICTURE X.
251	02 FILLER PICTURE X(4).
252	02 BUTNF08I PIC X(10).
253	02 BUTNF10L COMP PIC S9(4).
254	02 BUTNF10F PICTURE X.
255	02 FILLER REDEFINES BUTNF10F.
256	03 BUTNF10A PICTURE X.
257	02 FILLER PICTURE X(4).
258	02 BUTNF10I PIC X(8).
259	01 CTRTLIAO REDEFINES CTRTLIAI.
260	02 FILLER PIC X(12).
261	02 FILLER PICTURE X(3).
262	02 TRNNAMEC PICTURE X.
263	02 TRNNAMEP PICTURE X.
264	02 TRNNAMEH PICTURE X.
265	02 TRNNAMEV PICTURE X.
266	02 TRNNAMEO PIC X(4).
267	02 FILLER PICTURE X(3).
268	02 TITLE01C PICTURE X.
269	02 TITLE01P PICTURE X.
270	02 TITLE01H PICTURE X.
271	02 TITLE01V PICTURE X.
272	02 TITLE01O PIC X(40).
273	02 FILLER PICTURE X(3).
274	02 CURDATEC PICTURE X.
275	02 CURDATEP PICTURE X.
276	02 CURDATEH PICTURE X.
277	02 CURDATEV PICTURE X.
278	02 CURDATEO PIC X(8).
279	02 FILLER PICTURE X(3).
280	02 PGMNAMEC PICTURE X.
281	02 PGMNAMEP PICTURE X.
282	02 PGMNAMEH PICTURE X.
283	02 PGMNAMEV PICTURE X.
284	02 PGMNAMEO PIC X(8).
285	02 FILLER PICTURE X(3).
286	02 TITLE02C PICTURE X.
287	02 TITLE02P PICTURE X.
288	02 TITLE02H PICTURE X.
289	02 TITLE02V PICTURE X.
290	02 TITLE02O PIC X(40).
291	02 FILLER PICTURE X(3).
292	02 CURTIMEC PICTURE X.
293	02 CURTIMEP PICTURE X.
294	02 CURTIMEH PICTURE X.
295	02 CURTIMEV PICTURE X.
296	02 CURTIMEO PIC X(8).
297	02 FILLER PICTURE X(3).
298	02 PAGENOC PICTURE X.
299	02 PAGENOP PICTURE X.
300	02 PAGENOH PICTURE X.
301	02 PAGENOV PICTURE X.
302	02 PAGENOO PIC X(3).
303	02 FILLER PICTURE X(3).
304	02 TRTYPEC PICTURE X.
305	02 TRTYPEP PICTURE X.
306	02 TRTYPEH PICTURE X.
307	02 TRTYPEV PICTURE X.
308	02 TRTYPEO PIC X(2).
309	02 FILLER PICTURE X(3).
310	02 TRDESCC PICTURE X.
311	02 TRDESCP PICTURE X.
312	02 TRDESCH PICTURE X.
313	02 TRDESCV PICTURE X.
314	02 TRDESCO PIC X(50).
315	02 FILLER PICTURE X(3).
316	02 TRTSEL1C PICTURE X.
317	02 TRTSEL1P PICTURE X.
318	02 TRTSEL1H PICTURE X.
319	02 TRTSEL1V PICTURE X.
320	02 TRTSEL1O PIC X(1).
321	02 FILLER PICTURE X(3).
322	02 TRTTYP1C PICTURE X.
323	02 TRTTYP1P PICTURE X.
324	02 TRTTYP1H PICTURE X.
325	02 TRTTYP1V PICTURE X.
326	02 TRTTYP1O PIC X(2).
327	02 FILLER PICTURE X(3).
328	02 TRTYPD1C PICTURE X.
329	02 TRTYPD1P PICTURE X.
330	02 TRTYPD1H PICTURE X.
331	02 TRTYPD1V PICTURE X.
332	02 TRTYPD1O PIC X(50).
333	02 FILLER PICTURE X(3).
334	02 TRTSEL2C PICTURE X.
335	02 TRTSEL2P PICTURE X.
336	02 TRTSEL2H PICTURE X.
337	02 TRTSEL2V PICTURE X.
338	02 TRTSEL2O PIC X(1).
339	02 FILLER PICTURE X(3).
340	02 TRTTYP2C PICTURE X.
341	02 TRTTYP2P PICTURE X.
342	02 TRTTYP2H PICTURE X.
343	02 TRTTYP2V PICTURE X.
344	02 TRTTYP2O PIC X(2).
345	02 FILLER PICTURE X(3).
346	02 TRTYPD2C PICTURE X.
347	02 TRTYPD2P PICTURE X.
348	02 TRTYPD2H PICTURE X.
349	02 TRTYPD2V PICTURE X.
350	02 TRTYPD2O PIC X(50).
351	02 FILLER PICTURE X(3).
352	02 TRTSEL3C PICTURE X.
353	02 TRTSEL3P PICTURE X.
354	02 TRTSEL3H PICTURE X.
355	02 TRTSEL3V PICTURE X.
356	02 TRTSEL3O PIC X(1).
357	02 FILLER PICTURE X(3).
358	02 TRTTYP3C PICTURE X.
359	02 TRTTYP3P PICTURE X.
360	02 TRTTYP3H PICTURE X.
361	02 TRTTYP3V PICTURE X.
362	02 TRTTYP3O PIC X(2).
363	02 FILLER PICTURE X(3).
364	02 TRTYPD3C PICTURE X.
365	02 TRTYPD3P PICTURE X.
366	02 TRTYPD3H PICTURE X.
367	02 TRTYPD3V PICTURE X.
368	02 TRTYPD3O PIC X(50).
369	02 FILLER PICTURE X(3).
370	02 TRTSEL4C PICTURE X.
371	02 TRTSEL4P PICTURE X.
372	02 TRTSEL4H PICTURE X.
373	02 TRTSEL4V PICTURE X.
374	02 TRTSEL4O PIC X(1).
375	02 FILLER PICTURE X(3).
376	02 TRTTYP4C PICTURE X.
377	02 TRTTYP4P PICTURE X.
378	02 TRTTYP4H PICTURE X.
379	02 TRTTYP4V PICTURE X.
380	02 TRTTYP4O PIC X(2).
381	02 FILLER PICTURE X(3).
382	02 TRTYPD4C PICTURE X.
383	02 TRTYPD4P PICTURE X.
384	02 TRTYPD4H PICTURE X.
385	02 TRTYPD4V PICTURE X.
386	02 TRTYPD4O PIC X(50).
387	02 FILLER PICTURE X(3).
388	02 TRTSEL5C PICTURE X.
389	02 TRTSEL5P PICTURE X.
390	02 TRTSEL5H PICTURE X.
391	02 TRTSEL5V PICTURE X.
392	02 TRTSEL5O PIC X(1).
393	02 FILLER PICTURE X(3).
394	02 TRTTYP5C PICTURE X.
395	02 TRTTYP5P PICTURE X.
396	02 TRTTYP5H PICTURE X.
397	02 TRTTYP5V PICTURE X.
398	02 TRTTYP5O PIC X(2).
399	02 FILLER PICTURE X(3).
400	02 TRTYPD5C PICTURE X.
401	02 TRTYPD5P PICTURE X.
402	02 TRTYPD5H PICTURE X.
403	02 TRTYPD5V PICTURE X.
404	02 TRTYPD5O PIC X(50).
405	02 FILLER PICTURE X(3).
406	02 TRTSEL6C PICTURE X.
407	02 TRTSEL6P PICTURE X.
408	02 TRTSEL6H PICTURE X.
409	02 TRTSEL6V PICTURE X.
410	02 TRTSEL6O PIC X(1).
411	02 FILLER PICTURE X(3).
412	02 TRTTYP6C PICTURE X.
413	02 TRTTYP6P PICTURE X.
414	02 TRTTYP6H PICTURE X.
415	02 TRTTYP6V PICTURE X.
416	02 TRTTYP6O PIC X(2).
417	02 FILLER PICTURE X(3).
418	02 TRTYPD6C PICTURE X.
419	02 TRTYPD6P PICTURE X.
420	02 TRTYPD6H PICTURE X.
421	02 TRTYPD6V PICTURE X.
422	02 TRTYPD6O PIC X(50).
423	02 FILLER PICTURE X(3).
424	02 TRTSEL7C PICTURE X.
425	02 TRTSEL7P PICTURE X.
426	02 TRTSEL7H PICTURE X.
427	02 TRTSEL7V PICTURE X.
428	02 TRTSEL7O PIC X(1).
429	02 FILLER PICTURE X(3).
430	02 TRTTYP7C PICTURE X.
431	02 TRTTYP7P PICTURE X.
432	02 TRTTYP7H PICTURE X.
433	02 TRTTYP7V PICTURE X.
434	02 TRTTYP7O PIC X(2).
435	02 FILLER PICTURE X(3).
436	02 TRTYPD7C PICTURE X.
437	02 TRTYPD7P PICTURE X.
438	02 TRTYPD7H PICTURE X.
439	02 TRTYPD7V PICTURE X.
440	02 TRTYPD7O PIC X(50).
441	02 FILLER PICTURE X(3).
442	02 TRTSELAC PICTURE X.
443	02 TRTSELAP PICTURE X.
444	02 TRTSELAH PICTURE X.
445	02 TRTSELAV PICTURE X.
446	02 TRTSELAO PIC X(1).
447	02 FILLER PICTURE X(3).
448	02 TRTTYPAC PICTURE X.
449	02 TRTTYPAP PICTURE X.
450	02 TRTTYPAH PICTURE X.
451	02 TRTTYPAV PICTURE X.
452	02 TRTTYPAO PIC X(2).
453	02 FILLER PICTURE X(3).
454	02 TRTDSCAC PICTURE X.
455	02 TRTDSCAP PICTURE X.
456	02 TRTDSCAH PICTURE X.
457	02 TRTDSCAV PICTURE X.
458	02 TRTDSCAO PIC X(50).
459	02 FILLER PICTURE X(3).
460	02 INFOMSGC PICTURE X.
461	02 INFOMSGP PICTURE X.
462	02 INFOMSGH PICTURE X.
463	02 INFOMSGV PICTURE X.
464	02 INFOMSGO PIC X(45).
465	02 FILLER PICTURE X(3).
466	02 ERRMSGC PICTURE X.
467	02 ERRMSGP PICTURE X.
468	02 ERRMSGH PICTURE X.
469	02 ERRMSGV PICTURE X.
470	02 ERRMSGO PIC X(78).
471	02 FILLER PICTURE X(3).
472	02 BUTNF02C PICTURE X.
473	02 BUTNF02P PICTURE X.
474	02 BUTNF02H PICTURE X.
475	02 BUTNF02V PICTURE X.
476	02 BUTNF02O PIC X(7).
477	02 FILLER PICTURE X(3).
478	02 BUTNF03C PICTURE X.
479	02 BUTNF03P PICTURE X.
480	02 BUTNF03H PICTURE X.
481	02 BUTNF03V PICTURE X.
482	02 BUTNF03O PIC X(7).
483	02 FILLER PICTURE X(3).
484	02 BUTNF07C PICTURE X.
485	02 BUTNF07P PICTURE X.
486	02 BUTNF07H PICTURE X.
487	02 BUTNF07V PICTURE X.
488	02 BUTNF07O PIC X(10).
489	02 FILLER PICTURE X(3).
490	02 BUTNF08C PICTURE X.
491	02 BUTNF08P PICTURE X.
492	02 BUTNF08H PICTURE X.
493	02 BUTNF08V PICTURE X.
494	02 BUTNF08O PIC X(10).
495	02 FILLER PICTURE X(3).
496	02 BUTNF10C PICTURE X.
497	02 BUTNF10P PICTURE X.
498	02 BUTNF10H PICTURE X.
499	02 BUTNF10V PICTURE X.
500	02 BUTNF10O PIC X(8).