copybook · 200 lines · sha256 36f1acf35569976b · guides at columns 7 and 72app/app-transaction-type-db2/cpy-bms/COTRTUP.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 CTRTUPAI.
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 TRTYPCDL COMP PIC S9(4).
56	02 TRTYPCDF PICTURE X.
57	02 FILLER REDEFINES TRTYPCDF.
58	03 TRTYPCDA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 TRTYPCDI PIC X(2).
61	02 TRTYDSCL COMP PIC S9(4).
62	02 TRTYDSCF PICTURE X.
63	02 FILLER REDEFINES TRTYDSCF.
64	03 TRTYDSCA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 TRTYDSCI PIC X(50).
67	02 INFOMSGL COMP PIC S9(4).
68	02 INFOMSGF PICTURE X.
69	02 FILLER REDEFINES INFOMSGF.
70	03 INFOMSGA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 INFOMSGI PIC X(45).
73	02 ERRMSGL COMP PIC S9(4).
74	02 ERRMSGF PICTURE X.
75	02 FILLER REDEFINES ERRMSGF.
76	03 ERRMSGA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 ERRMSGI PIC X(78).
79	02 FKEYSL COMP PIC S9(4).
80	02 FKEYSF PICTURE X.
81	02 FILLER REDEFINES FKEYSF.
82	03 FKEYSA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 FKEYSI PIC X(21).
85	02 FKEY04L COMP PIC S9(4).
86	02 FKEY04F PICTURE X.
87	02 FILLER REDEFINES FKEY04F.
88	03 FKEY04A PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 FKEY04I PIC X(9).
91	02 FKEY05L COMP PIC S9(4).
92	02 FKEY05F PICTURE X.
93	02 FILLER REDEFINES FKEY05F.
94	03 FKEY05A PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 FKEY05I PIC X(8).
97	02 FKEY06L COMP PIC S9(4).
98	02 FKEY06F PICTURE X.
99	02 FILLER REDEFINES FKEY06F.
100	03 FKEY06A PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 FKEY06I PIC X(6).
103	02 FKEY12L COMP PIC S9(4).
104	02 FKEY12F PICTURE X.
105	02 FILLER REDEFINES FKEY12F.
106	03 FKEY12A PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 FKEY12I PIC X(10).
109	01 CTRTUPAO REDEFINES CTRTUPAI.
110	02 FILLER PIC X(12).
111	02 FILLER PICTURE X(3).
112	02 TRNNAMEC PICTURE X.
113	02 TRNNAMEP PICTURE X.
114	02 TRNNAMEH PICTURE X.
115	02 TRNNAMEV PICTURE X.
116	02 TRNNAMEO PIC X(4).
117	02 FILLER PICTURE X(3).
118	02 TITLE01C PICTURE X.
119	02 TITLE01P PICTURE X.
120	02 TITLE01H PICTURE X.
121	02 TITLE01V PICTURE X.
122	02 TITLE01O PIC X(40).
123	02 FILLER PICTURE X(3).
124	02 CURDATEC PICTURE X.
125	02 CURDATEP PICTURE X.
126	02 CURDATEH PICTURE X.
127	02 CURDATEV PICTURE X.
128	02 CURDATEO PIC X(8).
129	02 FILLER PICTURE X(3).
130	02 PGMNAMEC PICTURE X.
131	02 PGMNAMEP PICTURE X.
132	02 PGMNAMEH PICTURE X.
133	02 PGMNAMEV PICTURE X.
134	02 PGMNAMEO PIC X(8).
135	02 FILLER PICTURE X(3).
136	02 TITLE02C PICTURE X.
137	02 TITLE02P PICTURE X.
138	02 TITLE02H PICTURE X.
139	02 TITLE02V PICTURE X.
140	02 TITLE02O PIC X(40).
141	02 FILLER PICTURE X(3).
142	02 CURTIMEC PICTURE X.
143	02 CURTIMEP PICTURE X.
144	02 CURTIMEH PICTURE X.
145	02 CURTIMEV PICTURE X.
146	02 CURTIMEO PIC X(8).
147	02 FILLER PICTURE X(3).
148	02 TRTYPCDC PICTURE X.
149	02 TRTYPCDP PICTURE X.
150	02 TRTYPCDH PICTURE X.
151	02 TRTYPCDV PICTURE X.
152	02 TRTYPCDO PIC X(2).
153	02 FILLER PICTURE X(3).
154	02 TRTYDSCC PICTURE X.
155	02 TRTYDSCP PICTURE X.
156	02 TRTYDSCH PICTURE X.
157	02 TRTYDSCV PICTURE X.
158	02 TRTYDSCO PIC X(50).
159	02 FILLER PICTURE X(3).
160	02 INFOMSGC PICTURE X.
161	02 INFOMSGP PICTURE X.
162	02 INFOMSGH PICTURE X.
163	02 INFOMSGV PICTURE X.
164	02 INFOMSGO PIC X(45).
165	02 FILLER PICTURE X(3).
166	02 ERRMSGC PICTURE X.
167	02 ERRMSGP PICTURE X.
168	02 ERRMSGH PICTURE X.
169	02 ERRMSGV PICTURE X.
170	02 ERRMSGO PIC X(78).
171	02 FILLER PICTURE X(3).
172	02 FKEYSC PICTURE X.
173	02 FKEYSP PICTURE X.
174	02 FKEYSH PICTURE X.
175	02 FKEYSV PICTURE X.
176	02 FKEYSO PIC X(21).
177	02 FILLER PICTURE X(3).
178	02 FKEY04C PICTURE X.
179	02 FKEY04P PICTURE X.
180	02 FKEY04H PICTURE X.
181	02 FKEY04V PICTURE X.
182	02 FKEY04O PIC X(9).
183	02 FILLER PICTURE X(3).
184	02 FKEY05C PICTURE X.
185	02 FKEY05P PICTURE X.
186	02 FKEY05H PICTURE X.
187	02 FKEY05V PICTURE X.
188	02 FKEY05O PIC X(8).
189	02 FILLER PICTURE X(3).
190	02 FKEY06C PICTURE X.
191	02 FKEY06P PICTURE X.
192	02 FKEY06H PICTURE X.
193	02 FKEY06V PICTURE X.
194	02 FKEY06O PIC X(6).
195	02 FILLER PICTURE X(3).
196	02 FKEY12C PICTURE X.
197	02 FKEY12P PICTURE X.
198	02 FKEY12H PICTURE X.
199	02 FKEY12V PICTURE X.
200	02 FKEY12O PIC X(10).