copybook · 728 lines · sha256 18c9ab55bd2ed934 · guides at columns 7 and 72app/cpy-bms/COTRN00.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 COTRN0AI.
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 PAGENUML COMP PIC S9(4).
56	02 PAGENUMF PICTURE X.
57	02 FILLER REDEFINES PAGENUMF.
58	03 PAGENUMA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 PAGENUMI PIC X(8).
61	02 TRNIDINL COMP PIC S9(4).
62	02 TRNIDINF PICTURE X.
63	02 FILLER REDEFINES TRNIDINF.
64	03 TRNIDINA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 TRNIDINI PIC X(16).
67	02 SEL0001L COMP PIC S9(4).
68	02 SEL0001F PICTURE X.
69	02 FILLER REDEFINES SEL0001F.
70	03 SEL0001A PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 SEL0001I PIC X(1).
73	02 TRNID01L COMP PIC S9(4).
74	02 TRNID01F PICTURE X.
75	02 FILLER REDEFINES TRNID01F.
76	03 TRNID01A PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 TRNID01I PIC X(16).
79	02 TDATE01L COMP PIC S9(4).
80	02 TDATE01F PICTURE X.
81	02 FILLER REDEFINES TDATE01F.
82	03 TDATE01A PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 TDATE01I PIC X(8).
85	02 TDESC01L COMP PIC S9(4).
86	02 TDESC01F PICTURE X.
87	02 FILLER REDEFINES TDESC01F.
88	03 TDESC01A PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 TDESC01I PIC X(26).
91	02 TAMT001L COMP PIC S9(4).
92	02 TAMT001F PICTURE X.
93	02 FILLER REDEFINES TAMT001F.
94	03 TAMT001A PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 TAMT001I PIC X(12).
97	02 SEL0002L COMP PIC S9(4).
98	02 SEL0002F PICTURE X.
99	02 FILLER REDEFINES SEL0002F.
100	03 SEL0002A PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 SEL0002I PIC X(1).
103	02 TRNID02L COMP PIC S9(4).
104	02 TRNID02F PICTURE X.
105	02 FILLER REDEFINES TRNID02F.
106	03 TRNID02A PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 TRNID02I PIC X(16).
109	02 TDATE02L COMP PIC S9(4).
110	02 TDATE02F PICTURE X.
111	02 FILLER REDEFINES TDATE02F.
112	03 TDATE02A PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 TDATE02I PIC X(8).
115	02 TDESC02L COMP PIC S9(4).
116	02 TDESC02F PICTURE X.
117	02 FILLER REDEFINES TDESC02F.
118	03 TDESC02A PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 TDESC02I PIC X(26).
121	02 TAMT002L COMP PIC S9(4).
122	02 TAMT002F PICTURE X.
123	02 FILLER REDEFINES TAMT002F.
124	03 TAMT002A PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 TAMT002I PIC X(12).
127	02 SEL0003L COMP PIC S9(4).
128	02 SEL0003F PICTURE X.
129	02 FILLER REDEFINES SEL0003F.
130	03 SEL0003A PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 SEL0003I PIC X(1).
133	02 TRNID03L COMP PIC S9(4).
134	02 TRNID03F PICTURE X.
135	02 FILLER REDEFINES TRNID03F.
136	03 TRNID03A PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 TRNID03I PIC X(16).
139	02 TDATE03L COMP PIC S9(4).
140	02 TDATE03F PICTURE X.
141	02 FILLER REDEFINES TDATE03F.
142	03 TDATE03A PICTURE X.
143	02 FILLER PICTURE X(4).
144	02 TDATE03I PIC X(8).
145	02 TDESC03L COMP PIC S9(4).
146	02 TDESC03F PICTURE X.
147	02 FILLER REDEFINES TDESC03F.
148	03 TDESC03A PICTURE X.
149	02 FILLER PICTURE X(4).
150	02 TDESC03I PIC X(26).
151	02 TAMT003L COMP PIC S9(4).
152	02 TAMT003F PICTURE X.
153	02 FILLER REDEFINES TAMT003F.
154	03 TAMT003A PICTURE X.
155	02 FILLER PICTURE X(4).
156	02 TAMT003I PIC X(12).
157	02 SEL0004L COMP PIC S9(4).
158	02 SEL0004F PICTURE X.
159	02 FILLER REDEFINES SEL0004F.
160	03 SEL0004A PICTURE X.
161	02 FILLER PICTURE X(4).
162	02 SEL0004I PIC X(1).
163	02 TRNID04L COMP PIC S9(4).
164	02 TRNID04F PICTURE X.
165	02 FILLER REDEFINES TRNID04F.
166	03 TRNID04A PICTURE X.
167	02 FILLER PICTURE X(4).
168	02 TRNID04I PIC X(16).
169	02 TDATE04L COMP PIC S9(4).
170	02 TDATE04F PICTURE X.
171	02 FILLER REDEFINES TDATE04F.
172	03 TDATE04A PICTURE X.
173	02 FILLER PICTURE X(4).
174	02 TDATE04I PIC X(8).
175	02 TDESC04L COMP PIC S9(4).
176	02 TDESC04F PICTURE X.
177	02 FILLER REDEFINES TDESC04F.
178	03 TDESC04A PICTURE X.
179	02 FILLER PICTURE X(4).
180	02 TDESC04I PIC X(26).
181	02 TAMT004L COMP PIC S9(4).
182	02 TAMT004F PICTURE X.
183	02 FILLER REDEFINES TAMT004F.
184	03 TAMT004A PICTURE X.
185	02 FILLER PICTURE X(4).
186	02 TAMT004I PIC X(12).
187	02 SEL0005L COMP PIC S9(4).
188	02 SEL0005F PICTURE X.
189	02 FILLER REDEFINES SEL0005F.
190	03 SEL0005A PICTURE X.
191	02 FILLER PICTURE X(4).
192	02 SEL0005I PIC X(1).
193	02 TRNID05L COMP PIC S9(4).
194	02 TRNID05F PICTURE X.
195	02 FILLER REDEFINES TRNID05F.
196	03 TRNID05A PICTURE X.
197	02 FILLER PICTURE X(4).
198	02 TRNID05I PIC X(16).
199	02 TDATE05L COMP PIC S9(4).
200	02 TDATE05F PICTURE X.
201	02 FILLER REDEFINES TDATE05F.
202	03 TDATE05A PICTURE X.
203	02 FILLER PICTURE X(4).
204	02 TDATE05I PIC X(8).
205	02 TDESC05L COMP PIC S9(4).
206	02 TDESC05F PICTURE X.
207	02 FILLER REDEFINES TDESC05F.
208	03 TDESC05A PICTURE X.
209	02 FILLER PICTURE X(4).
210	02 TDESC05I PIC X(26).
211	02 TAMT005L COMP PIC S9(4).
212	02 TAMT005F PICTURE X.
213	02 FILLER REDEFINES TAMT005F.
214	03 TAMT005A PICTURE X.
215	02 FILLER PICTURE X(4).
216	02 TAMT005I PIC X(12).
217	02 SEL0006L COMP PIC S9(4).
218	02 SEL0006F PICTURE X.
219	02 FILLER REDEFINES SEL0006F.
220	03 SEL0006A PICTURE X.
221	02 FILLER PICTURE X(4).
222	02 SEL0006I PIC X(1).
223	02 TRNID06L COMP PIC S9(4).
224	02 TRNID06F PICTURE X.
225	02 FILLER REDEFINES TRNID06F.
226	03 TRNID06A PICTURE X.
227	02 FILLER PICTURE X(4).
228	02 TRNID06I PIC X(16).
229	02 TDATE06L COMP PIC S9(4).
230	02 TDATE06F PICTURE X.
231	02 FILLER REDEFINES TDATE06F.
232	03 TDATE06A PICTURE X.
233	02 FILLER PICTURE X(4).
234	02 TDATE06I PIC X(8).
235	02 TDESC06L COMP PIC S9(4).
236	02 TDESC06F PICTURE X.
237	02 FILLER REDEFINES TDESC06F.
238	03 TDESC06A PICTURE X.
239	02 FILLER PICTURE X(4).
240	02 TDESC06I PIC X(26).
241	02 TAMT006L COMP PIC S9(4).
242	02 TAMT006F PICTURE X.
243	02 FILLER REDEFINES TAMT006F.
244	03 TAMT006A PICTURE X.
245	02 FILLER PICTURE X(4).
246	02 TAMT006I PIC X(12).
247	02 SEL0007L COMP PIC S9(4).
248	02 SEL0007F PICTURE X.
249	02 FILLER REDEFINES SEL0007F.
250	03 SEL0007A PICTURE X.
251	02 FILLER PICTURE X(4).
252	02 SEL0007I PIC X(1).
253	02 TRNID07L COMP PIC S9(4).
254	02 TRNID07F PICTURE X.
255	02 FILLER REDEFINES TRNID07F.
256	03 TRNID07A PICTURE X.
257	02 FILLER PICTURE X(4).
258	02 TRNID07I PIC X(16).
259	02 TDATE07L COMP PIC S9(4).
260	02 TDATE07F PICTURE X.
261	02 FILLER REDEFINES TDATE07F.
262	03 TDATE07A PICTURE X.
263	02 FILLER PICTURE X(4).
264	02 TDATE07I PIC X(8).
265	02 TDESC07L COMP PIC S9(4).
266	02 TDESC07F PICTURE X.
267	02 FILLER REDEFINES TDESC07F.
268	03 TDESC07A PICTURE X.
269	02 FILLER PICTURE X(4).
270	02 TDESC07I PIC X(26).
271	02 TAMT007L COMP PIC S9(4).
272	02 TAMT007F PICTURE X.
273	02 FILLER REDEFINES TAMT007F.
274	03 TAMT007A PICTURE X.
275	02 FILLER PICTURE X(4).
276	02 TAMT007I PIC X(12).
277	02 SEL0008L COMP PIC S9(4).
278	02 SEL0008F PICTURE X.
279	02 FILLER REDEFINES SEL0008F.
280	03 SEL0008A PICTURE X.
281	02 FILLER PICTURE X(4).
282	02 SEL0008I PIC X(1).
283	02 TRNID08L COMP PIC S9(4).
284	02 TRNID08F PICTURE X.
285	02 FILLER REDEFINES TRNID08F.
286	03 TRNID08A PICTURE X.
287	02 FILLER PICTURE X(4).
288	02 TRNID08I PIC X(16).
289	02 TDATE08L COMP PIC S9(4).
290	02 TDATE08F PICTURE X.
291	02 FILLER REDEFINES TDATE08F.
292	03 TDATE08A PICTURE X.
293	02 FILLER PICTURE X(4).
294	02 TDATE08I PIC X(8).
295	02 TDESC08L COMP PIC S9(4).
296	02 TDESC08F PICTURE X.
297	02 FILLER REDEFINES TDESC08F.
298	03 TDESC08A PICTURE X.
299	02 FILLER PICTURE X(4).
300	02 TDESC08I PIC X(26).
301	02 TAMT008L COMP PIC S9(4).
302	02 TAMT008F PICTURE X.
303	02 FILLER REDEFINES TAMT008F.
304	03 TAMT008A PICTURE X.
305	02 FILLER PICTURE X(4).
306	02 TAMT008I PIC X(12).
307	02 SEL0009L COMP PIC S9(4).
308	02 SEL0009F PICTURE X.
309	02 FILLER REDEFINES SEL0009F.
310	03 SEL0009A PICTURE X.
311	02 FILLER PICTURE X(4).
312	02 SEL0009I PIC X(1).
313	02 TRNID09L COMP PIC S9(4).
314	02 TRNID09F PICTURE X.
315	02 FILLER REDEFINES TRNID09F.
316	03 TRNID09A PICTURE X.
317	02 FILLER PICTURE X(4).
318	02 TRNID09I PIC X(16).
319	02 TDATE09L COMP PIC S9(4).
320	02 TDATE09F PICTURE X.
321	02 FILLER REDEFINES TDATE09F.
322	03 TDATE09A PICTURE X.
323	02 FILLER PICTURE X(4).
324	02 TDATE09I PIC X(8).
325	02 TDESC09L COMP PIC S9(4).
326	02 TDESC09F PICTURE X.
327	02 FILLER REDEFINES TDESC09F.
328	03 TDESC09A PICTURE X.
329	02 FILLER PICTURE X(4).
330	02 TDESC09I PIC X(26).
331	02 TAMT009L COMP PIC S9(4).
332	02 TAMT009F PICTURE X.
333	02 FILLER REDEFINES TAMT009F.
334	03 TAMT009A PICTURE X.
335	02 FILLER PICTURE X(4).
336	02 TAMT009I PIC X(12).
337	02 SEL0010L COMP PIC S9(4).
338	02 SEL0010F PICTURE X.
339	02 FILLER REDEFINES SEL0010F.
340	03 SEL0010A PICTURE X.
341	02 FILLER PICTURE X(4).
342	02 SEL0010I PIC X(1).
343	02 TRNID10L COMP PIC S9(4).
344	02 TRNID10F PICTURE X.
345	02 FILLER REDEFINES TRNID10F.
346	03 TRNID10A PICTURE X.
347	02 FILLER PICTURE X(4).
348	02 TRNID10I PIC X(16).
349	02 TDATE10L COMP PIC S9(4).
350	02 TDATE10F PICTURE X.
351	02 FILLER REDEFINES TDATE10F.
352	03 TDATE10A PICTURE X.
353	02 FILLER PICTURE X(4).
354	02 TDATE10I PIC X(8).
355	02 TDESC10L COMP PIC S9(4).
356	02 TDESC10F PICTURE X.
357	02 FILLER REDEFINES TDESC10F.
358	03 TDESC10A PICTURE X.
359	02 FILLER PICTURE X(4).
360	02 TDESC10I PIC X(26).
361	02 TAMT010L COMP PIC S9(4).
362	02 TAMT010F PICTURE X.
363	02 FILLER REDEFINES TAMT010F.
364	03 TAMT010A PICTURE X.
365	02 FILLER PICTURE X(4).
366	02 TAMT010I PIC X(12).
367	02 ERRMSGL COMP PIC S9(4).
368	02 ERRMSGF PICTURE X.
369	02 FILLER REDEFINES ERRMSGF.
370	03 ERRMSGA PICTURE X.
371	02 FILLER PICTURE X(4).
372	02 ERRMSGI PIC X(78).
373	01 COTRN0AO REDEFINES COTRN0AI.
374	02 FILLER PIC X(12).
375	02 FILLER PICTURE X(3).
376	02 TRNNAMEC PICTURE X.
377	02 TRNNAMEP PICTURE X.
378	02 TRNNAMEH PICTURE X.
379	02 TRNNAMEV PICTURE X.
380	02 TRNNAMEO PIC X(4).
381	02 FILLER PICTURE X(3).
382	02 TITLE01C PICTURE X.
383	02 TITLE01P PICTURE X.
384	02 TITLE01H PICTURE X.
385	02 TITLE01V PICTURE X.
386	02 TITLE01O PIC X(40).
387	02 FILLER PICTURE X(3).
388	02 CURDATEC PICTURE X.
389	02 CURDATEP PICTURE X.
390	02 CURDATEH PICTURE X.
391	02 CURDATEV PICTURE X.
392	02 CURDATEO PIC X(8).
393	02 FILLER PICTURE X(3).
394	02 PGMNAMEC PICTURE X.
395	02 PGMNAMEP PICTURE X.
396	02 PGMNAMEH PICTURE X.
397	02 PGMNAMEV PICTURE X.
398	02 PGMNAMEO PIC X(8).
399	02 FILLER PICTURE X(3).
400	02 TITLE02C PICTURE X.
401	02 TITLE02P PICTURE X.
402	02 TITLE02H PICTURE X.
403	02 TITLE02V PICTURE X.
404	02 TITLE02O PIC X(40).
405	02 FILLER PICTURE X(3).
406	02 CURTIMEC PICTURE X.
407	02 CURTIMEP PICTURE X.
408	02 CURTIMEH PICTURE X.
409	02 CURTIMEV PICTURE X.
410	02 CURTIMEO PIC X(8).
411	02 FILLER PICTURE X(3).
412	02 PAGENUMC PICTURE X.
413	02 PAGENUMP PICTURE X.
414	02 PAGENUMH PICTURE X.
415	02 PAGENUMV PICTURE X.
416	02 PAGENUMO PIC X(8).
417	02 FILLER PICTURE X(3).
418	02 TRNIDINC PICTURE X.
419	02 TRNIDINP PICTURE X.
420	02 TRNIDINH PICTURE X.
421	02 TRNIDINV PICTURE X.
422	02 TRNIDINO PIC X(16).
423	02 FILLER PICTURE X(3).
424	02 SEL0001C PICTURE X.
425	02 SEL0001P PICTURE X.
426	02 SEL0001H PICTURE X.
427	02 SEL0001V PICTURE X.
428	02 SEL0001O PIC X(1).
429	02 FILLER PICTURE X(3).
430	02 TRNID01C PICTURE X.
431	02 TRNID01P PICTURE X.
432	02 TRNID01H PICTURE X.
433	02 TRNID01V PICTURE X.
434	02 TRNID01O PIC X(16).
435	02 FILLER PICTURE X(3).
436	02 TDATE01C PICTURE X.
437	02 TDATE01P PICTURE X.
438	02 TDATE01H PICTURE X.
439	02 TDATE01V PICTURE X.
440	02 TDATE01O PIC X(8).
441	02 FILLER PICTURE X(3).
442	02 TDESC01C PICTURE X.
443	02 TDESC01P PICTURE X.
444	02 TDESC01H PICTURE X.
445	02 TDESC01V PICTURE X.
446	02 TDESC01O PIC X(26).
447	02 FILLER PICTURE X(3).
448	02 TAMT001C PICTURE X.
449	02 TAMT001P PICTURE X.
450	02 TAMT001H PICTURE X.
451	02 TAMT001V PICTURE X.
452	02 TAMT001O PIC X(12).
453	02 FILLER PICTURE X(3).
454	02 SEL0002C PICTURE X.
455	02 SEL0002P PICTURE X.
456	02 SEL0002H PICTURE X.
457	02 SEL0002V PICTURE X.
458	02 SEL0002O PIC X(1).
459	02 FILLER PICTURE X(3).
460	02 TRNID02C PICTURE X.
461	02 TRNID02P PICTURE X.
462	02 TRNID02H PICTURE X.
463	02 TRNID02V PICTURE X.
464	02 TRNID02O PIC X(16).
465	02 FILLER PICTURE X(3).
466	02 TDATE02C PICTURE X.
467	02 TDATE02P PICTURE X.
468	02 TDATE02H PICTURE X.
469	02 TDATE02V PICTURE X.
470	02 TDATE02O PIC X(8).
471	02 FILLER PICTURE X(3).
472	02 TDESC02C PICTURE X.
473	02 TDESC02P PICTURE X.
474	02 TDESC02H PICTURE X.
475	02 TDESC02V PICTURE X.
476	02 TDESC02O PIC X(26).
477	02 FILLER PICTURE X(3).
478	02 TAMT002C PICTURE X.
479	02 TAMT002P PICTURE X.
480	02 TAMT002H PICTURE X.
481	02 TAMT002V PICTURE X.
482	02 TAMT002O PIC X(12).
483	02 FILLER PICTURE X(3).
484	02 SEL0003C PICTURE X.
485	02 SEL0003P PICTURE X.
486	02 SEL0003H PICTURE X.
487	02 SEL0003V PICTURE X.
488	02 SEL0003O PIC X(1).
489	02 FILLER PICTURE X(3).
490	02 TRNID03C PICTURE X.
491	02 TRNID03P PICTURE X.
492	02 TRNID03H PICTURE X.
493	02 TRNID03V PICTURE X.
494	02 TRNID03O PIC X(16).
495	02 FILLER PICTURE X(3).
496	02 TDATE03C PICTURE X.
497	02 TDATE03P PICTURE X.
498	02 TDATE03H PICTURE X.
499	02 TDATE03V PICTURE X.
500	02 TDATE03O PIC X(8).
501	02 FILLER PICTURE X(3).
502	02 TDESC03C PICTURE X.
503	02 TDESC03P PICTURE X.
504	02 TDESC03H PICTURE X.
505	02 TDESC03V PICTURE X.
506	02 TDESC03O PIC X(26).
507	02 FILLER PICTURE X(3).
508	02 TAMT003C PICTURE X.
509	02 TAMT003P PICTURE X.
510	02 TAMT003H PICTURE X.
511	02 TAMT003V PICTURE X.
512	02 TAMT003O PIC X(12).
513	02 FILLER PICTURE X(3).
514	02 SEL0004C PICTURE X.
515	02 SEL0004P PICTURE X.
516	02 SEL0004H PICTURE X.
517	02 SEL0004V PICTURE X.
518	02 SEL0004O PIC X(1).
519	02 FILLER PICTURE X(3).
520	02 TRNID04C PICTURE X.
521	02 TRNID04P PICTURE X.
522	02 TRNID04H PICTURE X.
523	02 TRNID04V PICTURE X.
524	02 TRNID04O PIC X(16).
525	02 FILLER PICTURE X(3).
526	02 TDATE04C PICTURE X.
527	02 TDATE04P PICTURE X.
528	02 TDATE04H PICTURE X.
529	02 TDATE04V PICTURE X.
530	02 TDATE04O PIC X(8).
531	02 FILLER PICTURE X(3).
532	02 TDESC04C PICTURE X.
533	02 TDESC04P PICTURE X.
534	02 TDESC04H PICTURE X.
535	02 TDESC04V PICTURE X.
536	02 TDESC04O PIC X(26).
537	02 FILLER PICTURE X(3).
538	02 TAMT004C PICTURE X.
539	02 TAMT004P PICTURE X.
540	02 TAMT004H PICTURE X.
541	02 TAMT004V PICTURE X.
542	02 TAMT004O PIC X(12).
543	02 FILLER PICTURE X(3).
544	02 SEL0005C PICTURE X.
545	02 SEL0005P PICTURE X.
546	02 SEL0005H PICTURE X.
547	02 SEL0005V PICTURE X.
548	02 SEL0005O PIC X(1).
549	02 FILLER PICTURE X(3).
550	02 TRNID05C PICTURE X.
551	02 TRNID05P PICTURE X.
552	02 TRNID05H PICTURE X.
553	02 TRNID05V PICTURE X.
554	02 TRNID05O PIC X(16).
555	02 FILLER PICTURE X(3).
556	02 TDATE05C PICTURE X.
557	02 TDATE05P PICTURE X.
558	02 TDATE05H PICTURE X.
559	02 TDATE05V PICTURE X.
560	02 TDATE05O PIC X(8).
561	02 FILLER PICTURE X(3).
562	02 TDESC05C PICTURE X.
563	02 TDESC05P PICTURE X.
564	02 TDESC05H PICTURE X.
565	02 TDESC05V PICTURE X.
566	02 TDESC05O PIC X(26).
567	02 FILLER PICTURE X(3).
568	02 TAMT005C PICTURE X.
569	02 TAMT005P PICTURE X.
570	02 TAMT005H PICTURE X.
571	02 TAMT005V PICTURE X.
572	02 TAMT005O PIC X(12).
573	02 FILLER PICTURE X(3).
574	02 SEL0006C PICTURE X.
575	02 SEL0006P PICTURE X.
576	02 SEL0006H PICTURE X.
577	02 SEL0006V PICTURE X.
578	02 SEL0006O PIC X(1).
579	02 FILLER PICTURE X(3).
580	02 TRNID06C PICTURE X.
581	02 TRNID06P PICTURE X.
582	02 TRNID06H PICTURE X.
583	02 TRNID06V PICTURE X.
584	02 TRNID06O PIC X(16).
585	02 FILLER PICTURE X(3).
586	02 TDATE06C PICTURE X.
587	02 TDATE06P PICTURE X.
588	02 TDATE06H PICTURE X.
589	02 TDATE06V PICTURE X.
590	02 TDATE06O PIC X(8).
591	02 FILLER PICTURE X(3).
592	02 TDESC06C PICTURE X.
593	02 TDESC06P PICTURE X.
594	02 TDESC06H PICTURE X.
595	02 TDESC06V PICTURE X.
596	02 TDESC06O PIC X(26).
597	02 FILLER PICTURE X(3).
598	02 TAMT006C PICTURE X.
599	02 TAMT006P PICTURE X.
600	02 TAMT006H PICTURE X.
601	02 TAMT006V PICTURE X.
602	02 TAMT006O PIC X(12).
603	02 FILLER PICTURE X(3).
604	02 SEL0007C PICTURE X.
605	02 SEL0007P PICTURE X.
606	02 SEL0007H PICTURE X.
607	02 SEL0007V PICTURE X.
608	02 SEL0007O PIC X(1).
609	02 FILLER PICTURE X(3).
610	02 TRNID07C PICTURE X.
611	02 TRNID07P PICTURE X.
612	02 TRNID07H PICTURE X.
613	02 TRNID07V PICTURE X.
614	02 TRNID07O PIC X(16).
615	02 FILLER PICTURE X(3).
616	02 TDATE07C PICTURE X.
617	02 TDATE07P PICTURE X.
618	02 TDATE07H PICTURE X.
619	02 TDATE07V PICTURE X.
620	02 TDATE07O PIC X(8).
621	02 FILLER PICTURE X(3).
622	02 TDESC07C PICTURE X.
623	02 TDESC07P PICTURE X.
624	02 TDESC07H PICTURE X.
625	02 TDESC07V PICTURE X.
626	02 TDESC07O PIC X(26).
627	02 FILLER PICTURE X(3).
628	02 TAMT007C PICTURE X.
629	02 TAMT007P PICTURE X.
630	02 TAMT007H PICTURE X.
631	02 TAMT007V PICTURE X.
632	02 TAMT007O PIC X(12).
633	02 FILLER PICTURE X(3).
634	02 SEL0008C PICTURE X.
635	02 SEL0008P PICTURE X.
636	02 SEL0008H PICTURE X.
637	02 SEL0008V PICTURE X.
638	02 SEL0008O PIC X(1).
639	02 FILLER PICTURE X(3).
640	02 TRNID08C PICTURE X.
641	02 TRNID08P PICTURE X.
642	02 TRNID08H PICTURE X.
643	02 TRNID08V PICTURE X.
644	02 TRNID08O PIC X(16).
645	02 FILLER PICTURE X(3).
646	02 TDATE08C PICTURE X.
647	02 TDATE08P PICTURE X.
648	02 TDATE08H PICTURE X.
649	02 TDATE08V PICTURE X.
650	02 TDATE08O PIC X(8).
651	02 FILLER PICTURE X(3).
652	02 TDESC08C PICTURE X.
653	02 TDESC08P PICTURE X.
654	02 TDESC08H PICTURE X.
655	02 TDESC08V PICTURE X.
656	02 TDESC08O PIC X(26).
657	02 FILLER PICTURE X(3).
658	02 TAMT008C PICTURE X.
659	02 TAMT008P PICTURE X.
660	02 TAMT008H PICTURE X.
661	02 TAMT008V PICTURE X.
662	02 TAMT008O PIC X(12).
663	02 FILLER PICTURE X(3).
664	02 SEL0009C PICTURE X.
665	02 SEL0009P PICTURE X.
666	02 SEL0009H PICTURE X.
667	02 SEL0009V PICTURE X.
668	02 SEL0009O PIC X(1).
669	02 FILLER PICTURE X(3).
670	02 TRNID09C PICTURE X.
671	02 TRNID09P PICTURE X.
672	02 TRNID09H PICTURE X.
673	02 TRNID09V PICTURE X.
674	02 TRNID09O PIC X(16).
675	02 FILLER PICTURE X(3).
676	02 TDATE09C PICTURE X.
677	02 TDATE09P PICTURE X.
678	02 TDATE09H PICTURE X.
679	02 TDATE09V PICTURE X.
680	02 TDATE09O PIC X(8).
681	02 FILLER PICTURE X(3).
682	02 TDESC09C PICTURE X.
683	02 TDESC09P PICTURE X.
684	02 TDESC09H PICTURE X.
685	02 TDESC09V PICTURE X.
686	02 TDESC09O PIC X(26).
687	02 FILLER PICTURE X(3).
688	02 TAMT009C PICTURE X.
689	02 TAMT009P PICTURE X.
690	02 TAMT009H PICTURE X.
691	02 TAMT009V PICTURE X.
692	02 TAMT009O PIC X(12).
693	02 FILLER PICTURE X(3).
694	02 SEL0010C PICTURE X.
695	02 SEL0010P PICTURE X.
696	02 SEL0010H PICTURE X.
697	02 SEL0010V PICTURE X.
698	02 SEL0010O PIC X(1).
699	02 FILLER PICTURE X(3).
700	02 TRNID10C PICTURE X.
701	02 TRNID10P PICTURE X.
702	02 TRNID10H PICTURE X.
703	02 TRNID10V PICTURE X.
704	02 TRNID10O PIC X(16).
705	02 FILLER PICTURE X(3).
706	02 TDATE10C PICTURE X.
707	02 TDATE10P PICTURE X.
708	02 TDATE10H PICTURE X.
709	02 TDATE10V PICTURE X.
710	02 TDATE10O PIC X(8).
711	02 FILLER PICTURE X(3).
712	02 TDESC10C PICTURE X.
713	02 TDESC10P PICTURE X.
714	02 TDESC10H PICTURE X.
715	02 TDESC10V PICTURE X.
716	02 TDESC10O PIC X(26).
717	02 FILLER PICTURE X(3).
718	02 TAMT010C PICTURE X.
719	02 TAMT010P PICTURE X.
720	02 TAMT010H PICTURE X.
721	02 TAMT010V PICTURE X.
722	02 TAMT010O PIC X(12).
723	02 FILLER PICTURE X(3).
724	02 ERRMSGC PICTURE X.
725	02 ERRMSGP PICTURE X.
726	02 ERRMSGH PICTURE X.
727	02 ERRMSGV PICTURE X.
728	02 ERRMSGO PIC X(78).