copybook · 200 lines · sha256 3e099c4a1857986d · guides at columns 7 and 72app/cpy-bms/COCRDSL.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 CCRDSLAI.
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 ACCTSIDL COMP PIC S9(4).
56	02 ACCTSIDF PICTURE X.
57	02 FILLER REDEFINES ACCTSIDF.
58	03 ACCTSIDA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 ACCTSIDI PIC X(11).
61	02 CARDSIDL COMP PIC S9(4).
62	02 CARDSIDF PICTURE X.
63	02 FILLER REDEFINES CARDSIDF.
64	03 CARDSIDA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 CARDSIDI PIC X(16).
67	02 CRDNAMEL COMP PIC S9(4).
68	02 CRDNAMEF PICTURE X.
69	02 FILLER REDEFINES CRDNAMEF.
70	03 CRDNAMEA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 CRDNAMEI PIC X(50).
73	02 CRDSTCDL COMP PIC S9(4).
74	02 CRDSTCDF PICTURE X.
75	02 FILLER REDEFINES CRDSTCDF.
76	03 CRDSTCDA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 CRDSTCDI PIC X(1).
79	02 EXPMONL COMP PIC S9(4).
80	02 EXPMONF PICTURE X.
81	02 FILLER REDEFINES EXPMONF.
82	03 EXPMONA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 EXPMONI PIC X(2).
85	02 EXPYEARL COMP PIC S9(4).
86	02 EXPYEARF PICTURE X.
87	02 FILLER REDEFINES EXPYEARF.
88	03 EXPYEARA PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 EXPYEARI PIC X(4).
91	02 INFOMSGL COMP PIC S9(4).
92	02 INFOMSGF PICTURE X.
93	02 FILLER REDEFINES INFOMSGF.
94	03 INFOMSGA PICTURE X.
95	02 FILLER PICTURE X(4).
96	02 INFOMSGI PIC X(40).
97	02 ERRMSGL COMP PIC S9(4).
98	02 ERRMSGF PICTURE X.
99	02 FILLER REDEFINES ERRMSGF.
100	03 ERRMSGA PICTURE X.
101	02 FILLER PICTURE X(4).
102	02 ERRMSGI PIC X(80).
103	02 FKEYSL COMP PIC S9(4).
104	02 FKEYSF PICTURE X.
105	02 FILLER REDEFINES FKEYSF.
106	03 FKEYSA PICTURE X.
107	02 FILLER PICTURE X(4).
108	02 FKEYSI PIC X(75).
109	01 CCRDSLAO REDEFINES CCRDSLAI.
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 ACCTSIDC PICTURE X.
149	02 ACCTSIDP PICTURE X.
150	02 ACCTSIDH PICTURE X.
151	02 ACCTSIDV PICTURE X.
152	02 ACCTSIDO PIC X(11).
153	02 FILLER PICTURE X(3).
154	02 CARDSIDC PICTURE X.
155	02 CARDSIDP PICTURE X.
156	02 CARDSIDH PICTURE X.
157	02 CARDSIDV PICTURE X.
158	02 CARDSIDO PIC X(16).
159	02 FILLER PICTURE X(3).
160	02 CRDNAMEC PICTURE X.
161	02 CRDNAMEP PICTURE X.
162	02 CRDNAMEH PICTURE X.
163	02 CRDNAMEV PICTURE X.
164	02 CRDNAMEO PIC X(50).
165	02 FILLER PICTURE X(3).
166	02 CRDSTCDC PICTURE X.
167	02 CRDSTCDP PICTURE X.
168	02 CRDSTCDH PICTURE X.
169	02 CRDSTCDV PICTURE X.
170	02 CRDSTCDO PIC X(1).
171	02 FILLER PICTURE X(3).
172	02 EXPMONC PICTURE X.
173	02 EXPMONP PICTURE X.
174	02 EXPMONH PICTURE X.
175	02 EXPMONV PICTURE X.
176	02 EXPMONO PIC X(2).
177	02 FILLER PICTURE X(3).
178	02 EXPYEARC PICTURE X.
179	02 EXPYEARP PICTURE X.
180	02 EXPYEARH PICTURE X.
181	02 EXPYEARV PICTURE X.
182	02 EXPYEARO PIC X(4).
183	02 FILLER PICTURE X(3).
184	02 INFOMSGC PICTURE X.
185	02 INFOMSGP PICTURE X.
186	02 INFOMSGH PICTURE X.
187	02 INFOMSGV PICTURE X.
188	02 INFOMSGO PIC X(40).
189	02 FILLER PICTURE X(3).
190	02 ERRMSGC PICTURE X.
191	02 ERRMSGP PICTURE X.
192	02 ERRMSGH PICTURE X.
193	02 ERRMSGV PICTURE X.
194	02 ERRMSGO PIC X(80).
195	02 FILLER PICTURE X(3).
196	02 FKEYSC PICTURE X.
197	02 FKEYSP PICTURE X.
198	02 FKEYSH PICTURE X.
199	02 FKEYSV PICTURE X.
200	02 FKEYSO PIC X(75).