copybook · 272 lines · sha256 1eae5b624b8e7f97 · guides at columns 7 and 72app/cpy-bms/COTRN02.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 COTRN2AI.
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 ACTIDINL COMP PIC S9(4).
56	02 ACTIDINF PICTURE X.
57	02 FILLER REDEFINES ACTIDINF.
58	03 ACTIDINA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 ACTIDINI PIC X(11).
61	02 CARDNINL COMP PIC S9(4).
62	02 CARDNINF PICTURE X.
63	02 FILLER REDEFINES CARDNINF.
64	03 CARDNINA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 CARDNINI PIC X(16).
67	02 TTYPCDL COMP PIC S9(4).
68	02 TTYPCDF PICTURE X.
69	02 FILLER REDEFINES TTYPCDF.
70	03 TTYPCDA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 TTYPCDI PIC X(2).
73	02 TCATCDL COMP PIC S9(4).
74	02 TCATCDF PICTURE X.
75	02 FILLER REDEFINES TCATCDF.
76	03 TCATCDA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 TCATCDI PIC X(4).
79	02 TRNSRCL COMP PIC S9(4).
80	02 TRNSRCF PICTURE X.
81	02 FILLER REDEFINES TRNSRCF.
82	03 TRNSRCA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 TRNSRCI PIC X(10).
85	02 TDESCL COMP PIC S9(4).
86	02 TDESCF PICTURE X.
87	02 FILLER REDEFINES TDESCF.
88	03 TDESCA PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 TDESCI PIC X(60).
91	02 TRNAMTL COMP PIC S9(4).
92	02 TRNAMTF PICTURE X.
93	02 FILLER REDEFINES TRNAMTF.
94	03 TRNAMTA PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 TRNAMTI PIC X(12).
97	02 TORIGDTL COMP PIC S9(4).
98	02 TORIGDTF PICTURE X.
99	02 FILLER REDEFINES TORIGDTF.
100	03 TORIGDTA PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 TORIGDTI PIC X(10).
103	02 TPROCDTL COMP PIC S9(4).
104	02 TPROCDTF PICTURE X.
105	02 FILLER REDEFINES TPROCDTF.
106	03 TPROCDTA PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 TPROCDTI PIC X(10).
109	02 MIDL COMP PIC S9(4).
110	02 MIDF PICTURE X.
111	02 FILLER REDEFINES MIDF.
112	03 MIDA PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 MIDI PIC X(9).
115	02 MNAMEL COMP PIC S9(4).
116	02 MNAMEF PICTURE X.
117	02 FILLER REDEFINES MNAMEF.
118	03 MNAMEA PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 MNAMEI PIC X(30).
121	02 MCITYL COMP PIC S9(4).
122	02 MCITYF PICTURE X.
123	02 FILLER REDEFINES MCITYF.
124	03 MCITYA PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 MCITYI PIC X(25).
127	02 MZIPL COMP PIC S9(4).
128	02 MZIPF PICTURE X.
129	02 FILLER REDEFINES MZIPF.
130	03 MZIPA PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 MZIPI PIC X(10).
133	02 CONFIRML COMP PIC S9(4).
134	02 CONFIRMF PICTURE X.
135	02 FILLER REDEFINES CONFIRMF.
136	03 CONFIRMA PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 CONFIRMI PIC X(1).
139	02 ERRMSGL COMP PIC S9(4).
140	02 ERRMSGF PICTURE X.
141	02 FILLER REDEFINES ERRMSGF.
142	03 ERRMSGA PICTURE X.
143	02 FILLER PICTURE X(4).
144	02 ERRMSGI PIC X(78).
145	01 COTRN2AO REDEFINES COTRN2AI.
146	02 FILLER PIC X(12).
147	02 FILLER PICTURE X(3).
148	02 TRNNAMEC PICTURE X.
149	02 TRNNAMEP PICTURE X.
150	02 TRNNAMEH PICTURE X.
151	02 TRNNAMEV PICTURE X.
152	02 TRNNAMEO PIC X(4).
153	02 FILLER PICTURE X(3).
154	02 TITLE01C PICTURE X.
155	02 TITLE01P PICTURE X.
156	02 TITLE01H PICTURE X.
157	02 TITLE01V PICTURE X.
158	02 TITLE01O PIC X(40).
159	02 FILLER PICTURE X(3).
160	02 CURDATEC PICTURE X.
161	02 CURDATEP PICTURE X.
162	02 CURDATEH PICTURE X.
163	02 CURDATEV PICTURE X.
164	02 CURDATEO PIC X(8).
165	02 FILLER PICTURE X(3).
166	02 PGMNAMEC PICTURE X.
167	02 PGMNAMEP PICTURE X.
168	02 PGMNAMEH PICTURE X.
169	02 PGMNAMEV PICTURE X.
170	02 PGMNAMEO PIC X(8).
171	02 FILLER PICTURE X(3).
172	02 TITLE02C PICTURE X.
173	02 TITLE02P PICTURE X.
174	02 TITLE02H PICTURE X.
175	02 TITLE02V PICTURE X.
176	02 TITLE02O PIC X(40).
177	02 FILLER PICTURE X(3).
178	02 CURTIMEC PICTURE X.
179	02 CURTIMEP PICTURE X.
180	02 CURTIMEH PICTURE X.
181	02 CURTIMEV PICTURE X.
182	02 CURTIMEO PIC X(8).
183	02 FILLER PICTURE X(3).
184	02 ACTIDINC PICTURE X.
185	02 ACTIDINP PICTURE X.
186	02 ACTIDINH PICTURE X.
187	02 ACTIDINV PICTURE X.
188	02 ACTIDINO PIC X(11).
189	02 FILLER PICTURE X(3).
190	02 CARDNINC PICTURE X.
191	02 CARDNINP PICTURE X.
192	02 CARDNINH PICTURE X.
193	02 CARDNINV PICTURE X.
194	02 CARDNINO PIC X(16).
195	02 FILLER PICTURE X(3).
196	02 TTYPCDC PICTURE X.
197	02 TTYPCDP PICTURE X.
198	02 TTYPCDH PICTURE X.
199	02 TTYPCDV PICTURE X.
200	02 TTYPCDO PIC X(2).
201	02 FILLER PICTURE X(3).
202	02 TCATCDC PICTURE X.
203	02 TCATCDP PICTURE X.
204	02 TCATCDH PICTURE X.
205	02 TCATCDV PICTURE X.
206	02 TCATCDO PIC X(4).
207	02 FILLER PICTURE X(3).
208	02 TRNSRCC PICTURE X.
209	02 TRNSRCP PICTURE X.
210	02 TRNSRCH PICTURE X.
211	02 TRNSRCV PICTURE X.
212	02 TRNSRCO PIC X(10).
213	02 FILLER PICTURE X(3).
214	02 TDESCC PICTURE X.
215	02 TDESCP PICTURE X.
216	02 TDESCH PICTURE X.
217	02 TDESCV PICTURE X.
218	02 TDESCO PIC X(60).
219	02 FILLER PICTURE X(3).
220	02 TRNAMTC PICTURE X.
221	02 TRNAMTP PICTURE X.
222	02 TRNAMTH PICTURE X.
223	02 TRNAMTV PICTURE X.
224	02 TRNAMTO PIC X(12).
225	02 FILLER PICTURE X(3).
226	02 TORIGDTC PICTURE X.
227	02 TORIGDTP PICTURE X.
228	02 TORIGDTH PICTURE X.
229	02 TORIGDTV PICTURE X.
230	02 TORIGDTO PIC X(10).
231	02 FILLER PICTURE X(3).
232	02 TPROCDTC PICTURE X.
233	02 TPROCDTP PICTURE X.
234	02 TPROCDTH PICTURE X.
235	02 TPROCDTV PICTURE X.
236	02 TPROCDTO PIC X(10).
237	02 FILLER PICTURE X(3).
238	02 MIDC PICTURE X.
239	02 MIDP PICTURE X.
240	02 MIDH PICTURE X.
241	02 MIDV PICTURE X.
242	02 MIDO PIC X(9).
243	02 FILLER PICTURE X(3).
244	02 MNAMEC PICTURE X.
245	02 MNAMEP PICTURE X.
246	02 MNAMEH PICTURE X.
247	02 MNAMEV PICTURE X.
248	02 MNAMEO PIC X(30).
249	02 FILLER PICTURE X(3).
250	02 MCITYC PICTURE X.
251	02 MCITYP PICTURE X.
252	02 MCITYH PICTURE X.
253	02 MCITYV PICTURE X.
254	02 MCITYO PIC X(25).
255	02 FILLER PICTURE X(3).
256	02 MZIPC PICTURE X.
257	02 MZIPP PICTURE X.
258	02 MZIPH PICTURE X.
259	02 MZIPV PICTURE X.
260	02 MZIPO PIC X(10).
261	02 FILLER PICTURE X(3).
262	02 CONFIRMC PICTURE X.
263	02 CONFIRMP PICTURE X.
264	02 CONFIRMH PICTURE X.
265	02 CONFIRMV PICTURE X.
266	02 CONFIRMO PIC X(1).
267	02 FILLER PICTURE X(3).
268	02 ERRMSGC PICTURE X.
269	02 ERRMSGP PICTURE X.
270	02 ERRMSGH PICTURE X.
271	02 ERRMSGV PICTURE X.
272	02 ERRMSGO PIC X(78).