MFmainframe-rea
WS carddemo · 26f629ef

copybook · 21 lines · sha256 c5c69f1b86c5a101 · guides at columns 7 and 72app/cpy/CVTRA06Y.cpy

1 *****************************************************************
2 * Data-structure for DALYTRANsaction record (RECLN = 350)
3 *****************************************************************
4 01 DALYTRAN-RECORD.
5 05 DALYTRAN-ID PIC X(16).
6 05 DALYTRAN-TYPE-CD PIC X(02).
7 05 DALYTRAN-CAT-CD PIC 9(04).
8 05 DALYTRAN-SOURCE PIC X(10).
9 05 DALYTRAN-DESC PIC X(100).
10 05 DALYTRAN-AMT PIC S9(09)V99.
11 05 DALYTRAN-MERCHANT-ID PIC 9(09).
12 05 DALYTRAN-MERCHANT-NAME PIC X(50).
13 05 DALYTRAN-MERCHANT-CITY PIC X(50).
14 05 DALYTRAN-MERCHANT-ZIP PIC X(10).
15 05 DALYTRAN-CARD-NUM PIC X(16).
16 05 DALYTRAN-ORIG-TS PIC X(26).
17 05 DALYTRAN-PROC-TS PIC X(26).
18 05 FILLER PIC X(20).
19 *
20 * Ver: CardDemo_v1.0-15-g27d6c6f-68 Date: 2022-07-19 23:16:01 CDT
21 *