copybook · 164 lines · sha256 a263a33ce46ea0b5 · guides at columns 7 and 72app/cpy-bms/COUSR01.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 COUSR1AI.
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 FNAMEL COMP PIC S9(4).
56	02 FNAMEF PICTURE X.
57	02 FILLER REDEFINES FNAMEF.
58	03 FNAMEA PICTURE X.
59	02 FILLER PICTURE X(4).
60	02 FNAMEI PIC X(20).
61	02 LNAMEL COMP PIC S9(4).
62	02 LNAMEF PICTURE X.
63	02 FILLER REDEFINES LNAMEF.
64	03 LNAMEA PICTURE X.
65	02 FILLER PICTURE X(4).
66	02 LNAMEI PIC X(20).
67	02 USERIDL COMP PIC S9(4).
68	02 USERIDF PICTURE X.
69	02 FILLER REDEFINES USERIDF.
70	03 USERIDA PICTURE X.
71	02 FILLER PICTURE X(4).
72	02 USERIDI PIC X(8).
73	02 PASSWDL COMP PIC S9(4).
74	02 PASSWDF PICTURE X.
75	02 FILLER REDEFINES PASSWDF.
76	03 PASSWDA PICTURE X.
77	02 FILLER PICTURE X(4).
78	02 PASSWDI PIC X(8).
79	02 USRTYPEL COMP PIC S9(4).
80	02 USRTYPEF PICTURE X.
81	02 FILLER REDEFINES USRTYPEF.
82	03 USRTYPEA PICTURE X.
83	02 FILLER PICTURE X(4).
84	02 USRTYPEI PIC X(1).
85	02 ERRMSGL COMP PIC S9(4).
86	02 ERRMSGF PICTURE X.
87	02 FILLER REDEFINES ERRMSGF.
88	03 ERRMSGA PICTURE X.
89	02 FILLER PICTURE X(4).
90	02 ERRMSGI PIC X(78).
91	01 COUSR1AO REDEFINES COUSR1AI.
92	02 FILLER PIC X(12).
93	02 FILLER PICTURE X(3).
94	02 TRNNAMEC PICTURE X.
95	02 TRNNAMEP PICTURE X.
96	02 TRNNAMEH PICTURE X.
97	02 TRNNAMEV PICTURE X.
98	02 TRNNAMEO PIC X(4).
99	02 FILLER PICTURE X(3).
100	02 TITLE01C PICTURE X.
101	02 TITLE01P PICTURE X.
102	02 TITLE01H PICTURE X.
103	02 TITLE01V PICTURE X.
104	02 TITLE01O PIC X(40).
105	02 FILLER PICTURE X(3).
106	02 CURDATEC PICTURE X.
107	02 CURDATEP PICTURE X.
108	02 CURDATEH PICTURE X.
109	02 CURDATEV PICTURE X.
110	02 CURDATEO PIC X(8).
111	02 FILLER PICTURE X(3).
112	02 PGMNAMEC PICTURE X.
113	02 PGMNAMEP PICTURE X.
114	02 PGMNAMEH PICTURE X.
115	02 PGMNAMEV PICTURE X.
116	02 PGMNAMEO PIC X(8).
117	02 FILLER PICTURE X(3).
118	02 TITLE02C PICTURE X.
119	02 TITLE02P PICTURE X.
120	02 TITLE02H PICTURE X.
121	02 TITLE02V PICTURE X.
122	02 TITLE02O PIC X(40).
123	02 FILLER PICTURE X(3).
124	02 CURTIMEC PICTURE X.
125	02 CURTIMEP PICTURE X.
126	02 CURTIMEH PICTURE X.
127	02 CURTIMEV PICTURE X.
128	02 CURTIMEO 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 USERIDC PICTURE X.
143	02 USERIDP PICTURE X.
144	02 USERIDH PICTURE X.
145	02 USERIDV PICTURE X.
146	02 USERIDO PIC X(8).
147	02 FILLER PICTURE X(3).
148	02 PASSWDC PICTURE X.
149	02 PASSWDP PICTURE X.
150	02 PASSWDH PICTURE X.
151	02 PASSWDV PICTURE X.
152	02 PASSWDO PIC X(8).
153	02 FILLER PICTURE X(3).
154	02 USRTYPEC PICTURE X.
155	02 USRTYPEP PICTURE X.
156	02 USRTYPEH PICTURE X.
157	02 USRTYPEV PICTURE X.
158	02 USRTYPEO PIC X(1).
159	02 FILLER PICTURE X(3).
160	02 ERRMSGC PICTURE X.
161	02 ERRMSGP PICTURE X.
162	02 ERRMSGH PICTURE X.
163	02 ERRMSGV PICTURE X.
164	02 ERRMSGO PIC X(78).