20 lines
870 B
COBOL
20 lines
870 B
COBOL
*****************************************************************
|
|
* COPYBOOK: TRANSREC - Transaction Record Layout
|
|
*****************************************************************
|
|
01 TRANSACTION-RECORD.
|
|
05 TXN-HEADER.
|
|
10 TXN-TYPE PIC X(4).
|
|
10 TXN-VERSION PIC 9(2).
|
|
05 TXN-CARD-DATA.
|
|
10 TXN-CARD-NUMBER PIC X(16).
|
|
10 TXN-CARD-EXPIRY PIC 9(4).
|
|
05 TXN-AMOUNT-DATA.
|
|
10 TXN-AMOUNT PIC 9(11)V99.
|
|
10 TXN-CURRENCY PIC X(3).
|
|
05 TXN-MERCHANT-DATA.
|
|
10 TXN-MERCHANT-ID PIC X(15).
|
|
10 TXN-MERCHANT-NAME PIC X(40).
|
|
05 TXN-RESPONSE.
|
|
10 TXN-RESP-CODE PIC 9(2).
|
|
10 TXN-RESP-MESSAGE PIC X(50).
|