MFmainframe-rea
WS carddemo · 26f629ef

copybook · 13 lines · sha256 7828fae489c59944 · guides at columns 7 and 72app/cpy/CVTRA02Y.cpy

1 *****************************************************************
2 * Data-structure for disclosure group (RECLN = 50)
3 *****************************************************************
4 01 DIS-GROUP-RECORD.
5 05 DIS-GROUP-KEY.
6 10 DIS-ACCT-GROUP-ID PIC X(10).
7 10 DIS-TRAN-TYPE-CD PIC X(02).
8 10 DIS-TRAN-CAT-CD PIC 9(04).
9 05 DIS-INT-RATE PIC S9(04)V99.
10 05 FILLER PIC X(28).
11 *
12 * Ver: CardDemo_v1.0-15-g27d6c6f-68 Date: 2022-07-19 23:16:00 CDT
13 *