| 1 | ****************************************************************** |
| 2 | * CVEXPORT.cpy - CardDemo Multi-Record Export Layout |
| 3 | * This copybook defines the structure for export records |
| 4 | * stored in the sequential export file for branch migration |
| 5 | * Total Record Length: 500 bytes |
| 6 | * Storage Optimization: COMP/COMP-3 fields for numeric data |
| 7 | * Enhancement: Multiple record types with REDEFINES structure |
| 8 | ****************************************************************** |
| 9 | 01 EXPORT-RECORD. |
| 10 | 05 EXPORT-REC-TYPE PIC X(1). |
| 11 | 05 EXPORT-TIMESTAMP PIC X(26). |
| 12 | 05 EXPORT-TIMESTAMP-R REDEFINES EXPORT-TIMESTAMP. |
| 13 | 10 EXPORT-DATE PIC X(10). |
| 14 | 10 EXPORT-DATE-TIME-SEP PIC X(1). |
| 15 | 10 EXPORT-TIME PIC X(15). |
| 16 | 05 EXPORT-SEQUENCE-NUM PIC 9(9) COMP. |
| 17 | 05 EXPORT-BRANCH-ID PIC X(4). |
| 18 | 05 EXPORT-REGION-CODE PIC X(5). |
| 19 | 05 EXPORT-RECORD-DATA PIC X(460). |
| 20 | |
| 21 | ****************************************************************** |
| 22 | * Customer Record Structure - From CVCUS01Y.cpy |
| 23 | ****************************************************************** |
| 24 | 05 EXPORT-CUSTOMER-DATA REDEFINES EXPORT-RECORD-DATA. |
| 25 | 10 EXP-CUST-ID PIC 9(09) COMP. |
| 26 | 10 EXP-CUST-FIRST-NAME PIC X(25). |
| 27 | 10 EXP-CUST-MIDDLE-NAME PIC X(25). |
| 28 | 10 EXP-CUST-LAST-NAME PIC X(25). |
| 29 | 10 EXP-CUST-ADDR-LINES OCCURS 3 TIMES. |
| 30 | 15 EXP-CUST-ADDR-LINE PIC X(50). |
| 31 | 10 EXP-CUST-ADDR-STATE-CD PIC X(02). |
| 32 | 10 EXP-CUST-ADDR-COUNTRY-CD PIC X(03). |
| 33 | 10 EXP-CUST-ADDR-ZIP PIC X(10). |
| 34 | 10 EXP-CUST-PHONE-NUMS OCCURS 2 TIMES. |
| 35 | 15 EXP-CUST-PHONE-NUM PIC X(15). |
| 36 | 10 EXP-CUST-SSN PIC 9(09). |
| 37 | 10 EXP-CUST-GOVT-ISSUED-ID PIC X(20). |
| 38 | 10 EXP-CUST-DOB-YYYY-MM-DD PIC X(10). |
| 39 | 10 EXP-CUST-EFT-ACCOUNT-ID PIC X(10). |
| 40 | 10 EXP-CUST-PRI-CARD-HOLDER-IND PIC X(01). |
| 41 | 10 EXP-CUST-FICO-CREDIT-SCORE PIC 9(03) COMP-3. |
| 42 | 10 FILLER PIC X(134). |
| 43 | |
| 44 | ****************************************************************** |
| 45 | * Account Record Structure - From CVACT01Y.cpy |
| 46 | ****************************************************************** |
| 47 | 05 EXPORT-ACCOUNT-DATA REDEFINES EXPORT-RECORD-DATA. |
| 48 | 10 EXP-ACCT-ID PIC 9(11). |
| 49 | 10 EXP-ACCT-ACTIVE-STATUS PIC X(01). |
| 50 | 10 EXP-ACCT-CURR-BAL PIC S9(10)V99 COMP-3. |
| 51 | 10 EXP-ACCT-CREDIT-LIMIT PIC S9(10)V99. |
| 52 | 10 EXP-ACCT-CASH-CREDIT-LIMIT PIC S9(10)V99 COMP-3. |
| 53 | 10 EXP-ACCT-OPEN-DATE PIC X(10). |
| 54 | 10 EXP-ACCT-EXPIRAION-DATE PIC X(10). |
| 55 | 10 EXP-ACCT-REISSUE-DATE PIC X(10). |
| 56 | 10 EXP-ACCT-CURR-CYC-CREDIT PIC S9(10)V99. |
| 57 | 10 EXP-ACCT-CURR-CYC-DEBIT PIC S9(10)V99 COMP. |
| 58 | 10 EXP-ACCT-ADDR-ZIP PIC X(10). |
| 59 | 10 EXP-ACCT-GROUP-ID PIC X(10). |
| 60 | 10 FILLER PIC X(352). |
| 61 | |
| 62 | ****************************************************************** |
| 63 | * Transaction Record Structure - From CVTRA05Y.cpy |
| 64 | ****************************************************************** |
| 65 | 05 EXPORT-TRANSACTION-DATA REDEFINES EXPORT-RECORD-DATA. |
| 66 | 10 EXP-TRAN-ID PIC X(16). |
| 67 | 10 EXP-TRAN-TYPE-CD PIC X(02). |
| 68 | 10 EXP-TRAN-CAT-CD PIC 9(04). |
| 69 | 10 EXP-TRAN-SOURCE PIC X(10). |
| 70 | 10 EXP-TRAN-DESC PIC X(100). |
| 71 | 10 EXP-TRAN-AMT PIC S9(09)V99 COMP-3. |
| 72 | 10 EXP-TRAN-MERCHANT-ID PIC 9(09) COMP. |
| 73 | 10 EXP-TRAN-MERCHANT-NAME PIC X(50). |
| 74 | 10 EXP-TRAN-MERCHANT-CITY PIC X(50). |
| 75 | 10 EXP-TRAN-MERCHANT-ZIP PIC X(10). |
| 76 | 10 EXP-TRAN-CARD-NUM PIC X(16). |
| 77 | 10 EXP-TRAN-ORIG-TS PIC X(26). |
| 78 | 10 EXP-TRAN-PROC-TS PIC X(26). |
| 79 | 10 FILLER PIC X(140). |
| 80 | |
| 81 | ****************************************************************** |
| 82 | * Card Cross-Reference Structure - From CVACT03Y.cpy |
| 83 | ****************************************************************** |
| 84 | 05 EXPORT-CARD-XREF-DATA REDEFINES EXPORT-RECORD-DATA. |
| 85 | 10 EXP-XREF-CARD-NUM PIC X(16). |
| 86 | 10 EXP-XREF-CUST-ID PIC 9(09). |
| 87 | 10 EXP-XREF-ACCT-ID PIC 9(11) COMP. |
| 88 | 10 FILLER PIC X(427). |
| 89 | |
| 90 | ****************************************************************** |
| 91 | * Card Record Structure - From CVACT02Y.cpy |
| 92 | ****************************************************************** |
| 93 | 05 EXPORT-CARD-DATA REDEFINES EXPORT-RECORD-DATA. |
| 94 | 10 EXP-CARD-NUM PIC X(16). |
| 95 | 10 EXP-CARD-ACCT-ID PIC 9(11) COMP. |
| 96 | 10 EXP-CARD-CVV-CD PIC 9(03) COMP. |
| 97 | 10 EXP-CARD-EMBOSSED-NAME PIC X(50). |
| 98 | 10 EXP-CARD-EXPIRAION-DATE PIC X(10). |
| 99 | 10 EXP-CARD-ACTIVE-STATUS PIC X(01). |
| 100 | 10 FILLER PIC X(373). |
| 101 | * |
| 102 | * Ver: CardDemo_v2.0-44-gb6e9c27-254 Date: 2025-10-16 14:07:18 CDT |
| 103 | * |