MFmainframe-rea
WS carddemo · 26f629ef

copybook · 26 lines · sha256 a8fa31077ee1c72e · guides at columns 7 and 72app/app-authorization-ims-db2-mq/cpy/PAUTBPCB.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 PAUTBPCB.
18 05 PAUT-DBDNAME PIC X(08).
19 05 PAUT-SEG-LEVEL PIC X(02).
20 05 PAUT-PCB-STATUS PIC X(02).
21 05 PAUT-PCB-PROCOPT PIC X(04).
22 05 FILLER PIC S9(05) COMP.
23 05 PAUT-SEG-NAME PIC X(08).
24 05 PAUT-KEYFB-NAME PIC S9(05) COMP.
25 05 PAUT-NUM-SENSEGS PIC S9(05) COMP.
26 05 PAUT-KEYFB PIC X(255).