copybook · 140 lines · sha256 a8d1a371182c73b4 · guides at columns 7 and 72app/cpy-bms/COBIL00.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 COBIL0AI.
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 CURBALL COMP PIC S9(4).
62	02 CURBALF PICTURE X.
63	02 FILLER REDEFINES CURBALF.
64	03 CURBALA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 CURBALI PIC X(14).
67	02 CONFIRML COMP PIC S9(4).
68	02 CONFIRMF PICTURE X.
69	02 FILLER REDEFINES CONFIRMF.
70	03 CONFIRMA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 CONFIRMI PIC X(1).
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	01 COBIL0AO REDEFINES COBIL0AI.
80	02 FILLER PIC X(12).
81	02 FILLER PICTURE X(3).
82	02 TRNNAMEC PICTURE X.
83	02 TRNNAMEP PICTURE X.
84	02 TRNNAMEH PICTURE X.
85	02 TRNNAMEV PICTURE X.
86	02 TRNNAMEO PIC X(4).
87	02 FILLER PICTURE X(3).
88	02 TITLE01C PICTURE X.
89	02 TITLE01P PICTURE X.
90	02 TITLE01H PICTURE X.
91	02 TITLE01V PICTURE X.
92	02 TITLE01O PIC X(40).
93	02 FILLER PICTURE X(3).
94	02 CURDATEC PICTURE X.
95	02 CURDATEP PICTURE X.
96	02 CURDATEH PICTURE X.
97	02 CURDATEV PICTURE X.
98	02 CURDATEO PIC X(8).
99	02 FILLER PICTURE X(3).
100	02 PGMNAMEC PICTURE X.
101	02 PGMNAMEP PICTURE X.
102	02 PGMNAMEH PICTURE X.
103	02 PGMNAMEV PICTURE X.
104	02 PGMNAMEO PIC X(8).
105	02 FILLER PICTURE X(3).
106	02 TITLE02C PICTURE X.
107	02 TITLE02P PICTURE X.
108	02 TITLE02H PICTURE X.
109	02 TITLE02V PICTURE X.
110	02 TITLE02O PIC X(40).
111	02 FILLER PICTURE X(3).
112	02 CURTIMEC PICTURE X.
113	02 CURTIMEP PICTURE X.
114	02 CURTIMEH PICTURE X.
115	02 CURTIMEV PICTURE X.
116	02 CURTIMEO PIC X(8).
117	02 FILLER PICTURE X(3).
118	02 ACTIDINC PICTURE X.
119	02 ACTIDINP PICTURE X.
120	02 ACTIDINH PICTURE X.
121	02 ACTIDINV PICTURE X.
122	02 ACTIDINO PIC X(11).
123	02 FILLER PICTURE X(3).
124	02 CURBALC PICTURE X.
125	02 CURBALP PICTURE X.
126	02 CURBALH PICTURE X.
127	02 CURBALV PICTURE X.
128	02 CURBALO PIC X(14).
129	02 FILLER PICTURE X(3).
130	02 CONFIRMC PICTURE X.
131	02 CONFIRMP PICTURE X.
132	02 CONFIRMH PICTURE X.
133	02 CONFIRMV PICTURE X.
134	02 CONFIRMO PIC X(1).
135	02 FILLER PICTURE X(3).
136	02 ERRMSGC PICTURE X.
137	02 ERRMSGP PICTURE X.
138	02 ERRMSGH PICTURE X.
139	02 ERRMSGV PICTURE X.
140	02 ERRMSGO PIC X(78).