copybook · 152 lines · sha256 e0bb6cff954a736c · guides at columns 7 and 72app/cpy-bms/COUSR03.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 COUSR3AI.
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 USRIDINL COMP PIC S9(4).
56	02 USRIDINF PICTURE X.
57	02 FILLER REDEFINES USRIDINF.
58	03 USRIDINA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 USRIDINI PIC X(8).
61	02 FNAMEL COMP PIC S9(4).
62	02 FNAMEF PICTURE X.
63	02 FILLER REDEFINES FNAMEF.
64	03 FNAMEA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 FNAMEI PIC X(20).
67	02 LNAMEL COMP PIC S9(4).
68	02 LNAMEF PICTURE X.
69	02 FILLER REDEFINES LNAMEF.
70	03 LNAMEA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 LNAMEI PIC X(20).
73	02 USRTYPEL COMP PIC S9(4).
74	02 USRTYPEF PICTURE X.
75	02 FILLER REDEFINES USRTYPEF.
76	03 USRTYPEA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 USRTYPEI PIC X(1).
79	02 ERRMSGL COMP PIC S9(4).
80	02 ERRMSGF PICTURE X.
81	02 FILLER REDEFINES ERRMSGF.
82	03 ERRMSGA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 ERRMSGI PIC X(78).
85	01 COUSR3AO REDEFINES COUSR3AI.
86	02 FILLER PIC X(12).
87	02 FILLER PICTURE X(3).
88	02 TRNNAMEC PICTURE X.
89	02 TRNNAMEP PICTURE X.
90	02 TRNNAMEH PICTURE X.
91	02 TRNNAMEV PICTURE X.
92	02 TRNNAMEO PIC X(4).
93	02 FILLER PICTURE X(3).
94	02 TITLE01C PICTURE X.
95	02 TITLE01P PICTURE X.
96	02 TITLE01H PICTURE X.
97	02 TITLE01V PICTURE X.
98	02 TITLE01O PIC X(40).
99	02 FILLER PICTURE X(3).
100	02 CURDATEC PICTURE X.
101	02 CURDATEP PICTURE X.
102	02 CURDATEH PICTURE X.
103	02 CURDATEV PICTURE X.
104	02 CURDATEO PIC X(8).
105	02 FILLER PICTURE X(3).
106	02 PGMNAMEC PICTURE X.
107	02 PGMNAMEP PICTURE X.
108	02 PGMNAMEH PICTURE X.
109	02 PGMNAMEV PICTURE X.
110	02 PGMNAMEO PIC X(8).
111	02 FILLER PICTURE X(3).
112	02 TITLE02C PICTURE X.
113	02 TITLE02P PICTURE X.
114	02 TITLE02H PICTURE X.
115	02 TITLE02V PICTURE X.
116	02 TITLE02O PIC X(40).
117	02 FILLER PICTURE X(3).
118	02 CURTIMEC PICTURE X.
119	02 CURTIMEP PICTURE X.
120	02 CURTIMEH PICTURE X.
121	02 CURTIMEV PICTURE X.
122	02 CURTIMEO PIC X(8).
123	02 FILLER PICTURE X(3).
124	02 USRIDINC PICTURE X.
125	02 USRIDINP PICTURE X.
126	02 USRIDINH PICTURE X.
127	02 USRIDINV PICTURE X.
128	02 USRIDINO PIC X(8).
129	02 FILLER PICTURE X(3).
130	02 FNAMEC PICTURE X.
131	02 FNAMEP PICTURE X.
132	02 FNAMEH PICTURE X.
133	02 FNAMEV PICTURE X.
134	02 FNAMEO PIC X(20).
135	02 FILLER PICTURE X(3).
136	02 LNAMEC PICTURE X.
137	02 LNAMEP PICTURE X.
138	02 LNAMEH PICTURE X.
139	02 LNAMEV PICTURE X.
140	02 LNAMEO PIC X(20).
141	02 FILLER PICTURE X(3).
142	02 USRTYPEC PICTURE X.
143	02 USRTYPEP PICTURE X.
144	02 USRTYPEH PICTURE X.
145	02 USRTYPEV PICTURE X.
146	02 USRTYPEO PIC X(1).
147	02 FILLER PICTURE X(3).
148	02 ERRMSGC PICTURE X.
149	02 ERRMSGP PICTURE X.
150	02 ERRMSGH PICTURE X.
151	02 ERRMSGV PICTURE X.
152	02 ERRMSGO PIC X(78).