copybook · 260 lines · sha256 ced4c34fdb3fa428 · guides at columns 7 and 72app/cpy-bms/COADM01.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 COADM1AI.
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 OPTN001L COMP PIC S9(4).
56	02 OPTN001F PICTURE X.
57	02 FILLER REDEFINES OPTN001F.
58	03 OPTN001A PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 OPTN001I PIC X(40).
61	02 OPTN002L COMP PIC S9(4).
62	02 OPTN002F PICTURE X.
63	02 FILLER REDEFINES OPTN002F.
64	03 OPTN002A PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 OPTN002I PIC X(40).
67	02 OPTN003L COMP PIC S9(4).
68	02 OPTN003F PICTURE X.
69	02 FILLER REDEFINES OPTN003F.
70	03 OPTN003A PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 OPTN003I PIC X(40).
73	02 OPTN004L COMP PIC S9(4).
74	02 OPTN004F PICTURE X.
75	02 FILLER REDEFINES OPTN004F.
76	03 OPTN004A PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 OPTN004I PIC X(40).
79	02 OPTN005L COMP PIC S9(4).
80	02 OPTN005F PICTURE X.
81	02 FILLER REDEFINES OPTN005F.
82	03 OPTN005A PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 OPTN005I PIC X(40).
85	02 OPTN006L COMP PIC S9(4).
86	02 OPTN006F PICTURE X.
87	02 FILLER REDEFINES OPTN006F.
88	03 OPTN006A PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 OPTN006I PIC X(40).
91	02 OPTN007L COMP PIC S9(4).
92	02 OPTN007F PICTURE X.
93	02 FILLER REDEFINES OPTN007F.
94	03 OPTN007A PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 OPTN007I PIC X(40).
97	02 OPTN008L COMP PIC S9(4).
98	02 OPTN008F PICTURE X.
99	02 FILLER REDEFINES OPTN008F.
100	03 OPTN008A PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 OPTN008I PIC X(40).
103	02 OPTN009L COMP PIC S9(4).
104	02 OPTN009F PICTURE X.
105	02 FILLER REDEFINES OPTN009F.
106	03 OPTN009A PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 OPTN009I PIC X(40).
109	02 OPTN010L COMP PIC S9(4).
110	02 OPTN010F PICTURE X.
111	02 FILLER REDEFINES OPTN010F.
112	03 OPTN010A PICTURE X.
113	02 FILLER PICTURE X(4).
114	02 OPTN010I PIC X(40).
115	02 OPTN011L COMP PIC S9(4).
116	02 OPTN011F PICTURE X.
117	02 FILLER REDEFINES OPTN011F.
118	03 OPTN011A PICTURE X.
119	02 FILLER PICTURE X(4).
120	02 OPTN011I PIC X(40).
121	02 OPTN012L COMP PIC S9(4).
122	02 OPTN012F PICTURE X.
123	02 FILLER REDEFINES OPTN012F.
124	03 OPTN012A PICTURE X.
125	02 FILLER PICTURE X(4).
126	02 OPTN012I PIC X(40).
127	02 OPTIONL COMP PIC S9(4).
128	02 OPTIONF PICTURE X.
129	02 FILLER REDEFINES OPTIONF.
130	03 OPTIONA PICTURE X.
131	02 FILLER PICTURE X(4).
132	02 OPTIONI PIC X(2).
133	02 ERRMSGL COMP PIC S9(4).
134	02 ERRMSGF PICTURE X.
135	02 FILLER REDEFINES ERRMSGF.
136	03 ERRMSGA PICTURE X.
137	02 FILLER PICTURE X(4).
138	02 ERRMSGI PIC X(78).
139	01 COADM1AO REDEFINES COADM1AI.
140	02 FILLER PIC X(12).
141	02 FILLER PICTURE X(3).
142	02 TRNNAMEC PICTURE X.
143	02 TRNNAMEP PICTURE X.
144	02 TRNNAMEH PICTURE X.
145	02 TRNNAMEV PICTURE X.
146	02 TRNNAMEO PIC X(4).
147	02 FILLER PICTURE X(3).
148	02 TITLE01C PICTURE X.
149	02 TITLE01P PICTURE X.
150	02 TITLE01H PICTURE X.
151	02 TITLE01V PICTURE X.
152	02 TITLE01O PIC X(40).
153	02 FILLER PICTURE X(3).
154	02 CURDATEC PICTURE X.
155	02 CURDATEP PICTURE X.
156	02 CURDATEH PICTURE X.
157	02 CURDATEV PICTURE X.
158	02 CURDATEO PIC X(8).
159	02 FILLER PICTURE X(3).
160	02 PGMNAMEC PICTURE X.
161	02 PGMNAMEP PICTURE X.
162	02 PGMNAMEH PICTURE X.
163	02 PGMNAMEV PICTURE X.
164	02 PGMNAMEO PIC X(8).
165	02 FILLER PICTURE X(3).
166	02 TITLE02C PICTURE X.
167	02 TITLE02P PICTURE X.
168	02 TITLE02H PICTURE X.
169	02 TITLE02V PICTURE X.
170	02 TITLE02O PIC X(40).
171	02 FILLER PICTURE X(3).
172	02 CURTIMEC PICTURE X.
173	02 CURTIMEP PICTURE X.
174	02 CURTIMEH PICTURE X.
175	02 CURTIMEV PICTURE X.
176	02 CURTIMEO PIC X(8).
177	02 FILLER PICTURE X(3).
178	02 OPTN001C PICTURE X.
179	02 OPTN001P PICTURE X.
180	02 OPTN001H PICTURE X.
181	02 OPTN001V PICTURE X.
182	02 OPTN001O PIC X(40).
183	02 FILLER PICTURE X(3).
184	02 OPTN002C PICTURE X.
185	02 OPTN002P PICTURE X.
186	02 OPTN002H PICTURE X.
187	02 OPTN002V PICTURE X.
188	02 OPTN002O PIC X(40).
189	02 FILLER PICTURE X(3).
190	02 OPTN003C PICTURE X.
191	02 OPTN003P PICTURE X.
192	02 OPTN003H PICTURE X.
193	02 OPTN003V PICTURE X.
194	02 OPTN003O PIC X(40).
195	02 FILLER PICTURE X(3).
196	02 OPTN004C PICTURE X.
197	02 OPTN004P PICTURE X.
198	02 OPTN004H PICTURE X.
199	02 OPTN004V PICTURE X.
200	02 OPTN004O PIC X(40).
201	02 FILLER PICTURE X(3).
202	02 OPTN005C PICTURE X.
203	02 OPTN005P PICTURE X.
204	02 OPTN005H PICTURE X.
205	02 OPTN005V PICTURE X.
206	02 OPTN005O PIC X(40).
207	02 FILLER PICTURE X(3).
208	02 OPTN006C PICTURE X.
209	02 OPTN006P PICTURE X.
210	02 OPTN006H PICTURE X.
211	02 OPTN006V PICTURE X.
212	02 OPTN006O PIC X(40).
213	02 FILLER PICTURE X(3).
214	02 OPTN007C PICTURE X.
215	02 OPTN007P PICTURE X.
216	02 OPTN007H PICTURE X.
217	02 OPTN007V PICTURE X.
218	02 OPTN007O PIC X(40).
219	02 FILLER PICTURE X(3).
220	02 OPTN008C PICTURE X.
221	02 OPTN008P PICTURE X.
222	02 OPTN008H PICTURE X.
223	02 OPTN008V PICTURE X.
224	02 OPTN008O PIC X(40).
225	02 FILLER PICTURE X(3).
226	02 OPTN009C PICTURE X.
227	02 OPTN009P PICTURE X.
228	02 OPTN009H PICTURE X.
229	02 OPTN009V PICTURE X.
230	02 OPTN009O PIC X(40).
231	02 FILLER PICTURE X(3).
232	02 OPTN010C PICTURE X.
233	02 OPTN010P PICTURE X.
234	02 OPTN010H PICTURE X.
235	02 OPTN010V PICTURE X.
236	02 OPTN010O PIC X(40).
237	02 FILLER PICTURE X(3).
238	02 OPTN011C PICTURE X.
239	02 OPTN011P PICTURE X.
240	02 OPTN011H PICTURE X.
241	02 OPTN011V PICTURE X.
242	02 OPTN011O PIC X(40).
243	02 FILLER PICTURE X(3).
244	02 OPTN012C PICTURE X.
245	02 OPTN012P PICTURE X.
246	02 OPTN012H PICTURE X.
247	02 OPTN012V PICTURE X.
248	02 OPTN012O PIC X(40).
249	02 FILLER PICTURE X(3).
250	02 OPTIONC PICTURE X.
251	02 OPTIONP PICTURE X.
252	02 OPTIONH PICTURE X.
253	02 OPTIONV PICTURE X.
254	02 OPTIONO PIC X(2).
255	02 FILLER PICTURE X(3).
256	02 ERRMSGC PICTURE X.
257	02 ERRMSGP PICTURE X.
258	02 ERRMSGH PICTURE X.
259	02 ERRMSGV PICTURE X.
260	02 ERRMSGO PIC X(78).