copybook · 52 lines · sha256 8efc6b6d79bd46d6 · guides at columns 7 and 72app/cpy/CODATECN.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 CODATECN-REC.
18	05 CODATECN-IN-REC.
19	10 CODATECN-TYPE PIC X.
20	88 YYYYMMDD-IN VALUE "1".
21	88 YYYY-MM-DD-IN VALUE "2".
22	10 CODATECN-INP-DATE PIC X(20).
23	10 CODATECN-1INP REDEFINES CODATECN-INP-DATE.
24	15 CODATECN-1YYYY PIC XXXX.
25	15 CODATECN-1MM PIC XX.
26	15 CODATECN-1DD PIC XX.
27	15 CODATECN-1FIL PIC X(12).
28	10 CODATECN-2INP REDEFINES CODATECN-INP-DATE.
29	15 CODATECN-1O-YYYY PIC XXXX.
30	15 CODATECN-1I-S1 PIC X.
31	15 CODATECN-1MM PIC XX.
32	15 CODATECN-1I-S2 PIC X.
33	15 CODATECN-2YY PIC XX.
34	15 CODATECN-2FIL PIC X(10).
35	05 CODATECN-OUT-REC.
36	10 CODATECN-OUTTYPE PIC X.
37	88 YYYY-MM-DD-OP VALUE "1".
38	88 YYYYMMDD-OP VALUE "2".
39	10 CODATECN-0UT-DATE PIC X(20).
40	10 CODATECN-1OUT REDEFINES CODATECN-0UT-DATE.
41	15 CODATECN-1O-YYYY PIC XXXX.
42	15 CODATECN-1O-S1 PIC X.
43	15 CODATECN-1O-MM PIC XX.
44	15 CODATECN-1O-S2 PIC X.
45	15 CODATECN-1O-DD PIC XX.
46	15 CODATECN-1OFIl PIC X(10).
47	10 CODATECN-2OUT REDEFINES CODATECN-0UT-DATE.
48	15 CODATECN-2O-YYYY PIC XXXX.
49	15 CODATECN-2O-MM PIC XX.
50	15 CODATECN-2O-DD PIC XX.
51	15 CODATECN-2OFIl PIC X(12).
52	05 CODATECN-ERROR-MSG PIC X(38).