copybook · 272 lines · sha256 23ba94dd138ea687 · guides at columns 7 and 72app/cpy-bms/COTRN01.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 COTRN1AI.
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 TRNIDINL COMP PIC S9(4).
56	02 TRNIDINF PICTURE X.
57	02 FILLER REDEFINES TRNIDINF.
58	03 TRNIDINA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 TRNIDINI PIC X(16).
61	02 TRNIDL COMP PIC S9(4).
62	02 TRNIDF PICTURE X.
63	02 FILLER REDEFINES TRNIDF.
64	03 TRNIDA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 TRNIDI PIC X(16).
67	02 CARDNUML COMP PIC S9(4).
68	02 CARDNUMF PICTURE X.
69	02 FILLER REDEFINES CARDNUMF.
70	03 CARDNUMA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 CARDNUMI PIC X(16).
73	02 TTYPCDL COMP PIC S9(4).
74	02 TTYPCDF PICTURE X.
75	02 FILLER REDEFINES TTYPCDF.
76	03 TTYPCDA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 TTYPCDI PIC X(2).
79	02 TCATCDL COMP PIC S9(4).
80	02 TCATCDF PICTURE X.
81	02 FILLER REDEFINES TCATCDF.
82	03 TCATCDA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 TCATCDI PIC X(4).
85	02 TRNSRCL COMP PIC S9(4).
86	02 TRNSRCF PICTURE X.
87	02 FILLER REDEFINES TRNSRCF.
88	03 TRNSRCA PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 TRNSRCI PIC X(10).
91	02 TDESCL COMP PIC S9(4).
92	02 TDESCF PICTURE X.
93	02 FILLER REDEFINES TDESCF.
94	03 TDESCA PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 TDESCI PIC X(60).
97	02 TRNAMTL COMP PIC S9(4).
98	02 TRNAMTF PICTURE X.
99	02 FILLER REDEFINES TRNAMTF.
100	03 TRNAMTA PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 TRNAMTI PIC X(12).
103	02 TORIGDTL COMP PIC S9(4).
104	02 TORIGDTF PICTURE X.
105	02 FILLER REDEFINES TORIGDTF.
106	03 TORIGDTA PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 TORIGDTI PIC X(10).
109	02 TPROCDTL COMP PIC S9(4).
110	02 TPROCDTF PICTURE X.
111	02 FILLER REDEFINES TPROCDTF.
112	03 TPROCDTA PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 TPROCDTI PIC X(10).
115	02 MIDL COMP PIC S9(4).
116	02 MIDF PICTURE X.
117	02 FILLER REDEFINES MIDF.
118	03 MIDA PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 MIDI PIC X(9).
121	02 MNAMEL COMP PIC S9(4).
122	02 MNAMEF PICTURE X.
123	02 FILLER REDEFINES MNAMEF.
124	03 MNAMEA PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 MNAMEI PIC X(30).
127	02 MCITYL COMP PIC S9(4).
128	02 MCITYF PICTURE X.
129	02 FILLER REDEFINES MCITYF.
130	03 MCITYA PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 MCITYI PIC X(25).
133	02 MZIPL COMP PIC S9(4).
134	02 MZIPF PICTURE X.
135	02 FILLER REDEFINES MZIPF.
136	03 MZIPA PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 MZIPI PIC X(10).
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 COTRN1AO REDEFINES COTRN1AI.
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 TRNIDINC PICTURE X.
185	02 TRNIDINP PICTURE X.
186	02 TRNIDINH PICTURE X.
187	02 TRNIDINV PICTURE X.
188	02 TRNIDINO PIC X(16).
189	02 FILLER PICTURE X(3).
190	02 TRNIDC PICTURE X.
191	02 TRNIDP PICTURE X.
192	02 TRNIDH PICTURE X.
193	02 TRNIDV PICTURE X.
194	02 TRNIDO PIC X(16).
195	02 FILLER PICTURE X(3).
196	02 CARDNUMC PICTURE X.
197	02 CARDNUMP PICTURE X.
198	02 CARDNUMH PICTURE X.
199	02 CARDNUMV PICTURE X.
200	02 CARDNUMO PIC X(16).
201	02 FILLER PICTURE X(3).
202	02 TTYPCDC PICTURE X.
203	02 TTYPCDP PICTURE X.
204	02 TTYPCDH PICTURE X.
205	02 TTYPCDV PICTURE X.
206	02 TTYPCDO PIC X(2).
207	02 FILLER PICTURE X(3).
208	02 TCATCDC PICTURE X.
209	02 TCATCDP PICTURE X.
210	02 TCATCDH PICTURE X.
211	02 TCATCDV PICTURE X.
212	02 TCATCDO PIC X(4).
213	02 FILLER PICTURE X(3).
214	02 TRNSRCC PICTURE X.
215	02 TRNSRCP PICTURE X.
216	02 TRNSRCH PICTURE X.
217	02 TRNSRCV PICTURE X.
218	02 TRNSRCO PIC X(10).
219	02 FILLER PICTURE X(3).
220	02 TDESCC PICTURE X.
221	02 TDESCP PICTURE X.
222	02 TDESCH PICTURE X.
223	02 TDESCV PICTURE X.
224	02 TDESCO PIC X(60).
225	02 FILLER PICTURE X(3).
226	02 TRNAMTC PICTURE X.
227	02 TRNAMTP PICTURE X.
228	02 TRNAMTH PICTURE X.
229	02 TRNAMTV PICTURE X.
230	02 TRNAMTO PIC X(12).
231	02 FILLER PICTURE X(3).
232	02 TORIGDTC PICTURE X.
233	02 TORIGDTP PICTURE X.
234	02 TORIGDTH PICTURE X.
235	02 TORIGDTV PICTURE X.
236	02 TORIGDTO PIC X(10).
237	02 FILLER PICTURE X(3).
238	02 TPROCDTC PICTURE X.
239	02 TPROCDTP PICTURE X.
240	02 TPROCDTH PICTURE X.
241	02 TPROCDTV PICTURE X.
242	02 TPROCDTO PIC X(10).
243	02 FILLER PICTURE X(3).
244	02 MIDC PICTURE X.
245	02 MIDP PICTURE X.
246	02 MIDH PICTURE X.
247	02 MIDV PICTURE X.
248	02 MIDO PIC X(9).
249	02 FILLER PICTURE X(3).
250	02 MNAMEC PICTURE X.
251	02 MNAMEP PICTURE X.
252	02 MNAMEH PICTURE X.
253	02 MNAMEV PICTURE X.
254	02 MNAMEO PIC X(30).
255	02 FILLER PICTURE X(3).
256	02 MCITYC PICTURE X.
257	02 MCITYP PICTURE X.
258	02 MCITYH PICTURE X.
259	02 MCITYV PICTURE X.
260	02 MCITYO PIC X(25).
261	02 FILLER PICTURE X(3).
262	02 MZIPC PICTURE X.
263	02 MZIPP PICTURE X.
264	02 MZIPH PICTURE X.
265	02 MZIPV PICTURE X.
266	02 MZIPO PIC X(10).
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).