hsyx3952501
18 lines
724 B
COBOL
18 lines
724 B
COBOL
01 TX-RECORD.
|
|
05 TX-CARD-NO PIC 9(16).
|
|
05 TX-DATE PIC 9(8).
|
|
05 TX-TYPE PIC X.
|
|
88 TX-PURCHASE VALUE 'P'.
|
|
88 TX-CASH VALUE 'C'.
|
|
88 TX-REFUND VALUE 'R'.
|
|
05 TX-AMOUNT PIC S9(9)V99.
|
|
05 TX-CURRENCY PIC X(3).
|
|
05 TX-MERCHANT PIC X(20).
|
|
05 TX-DETAIL.
|
|
10 TX-DETAIL-PURCHASE.
|
|
15 TX-MCC PIC 9(4).
|
|
15 TX-INSTALL PIC 9(2).
|
|
10 TX-DETAIL-CASH REDEFINES TX-DETAIL-PURCHASE.
|
|
15 TX-ATM-ID PIC X(10).
|
|
15 TX-FEE-RATE PIC 9(1)V99.
|