| 1 | ***************************************************************** |
| 2 | * Data-structure for Customer entity (RECLN 500) |
| 3 | ***************************************************************** |
| 4 | 01 CUSTOMER-RECORD. |
| 5 | 05 CUST-ID PIC 9(09). |
| 6 | 05 CUST-FIRST-NAME PIC X(25). |
| 7 | 05 CUST-MIDDLE-NAME PIC X(25). |
| 8 | 05 CUST-LAST-NAME PIC X(25). |
| 9 | 05 CUST-ADDR-LINE-1 PIC X(50). |
| 10 | 05 CUST-ADDR-LINE-2 PIC X(50). |
| 11 | 05 CUST-ADDR-LINE-3 PIC X(50). |
| 12 | 05 CUST-ADDR-STATE-CD PIC X(02). |
| 13 | 05 CUST-ADDR-COUNTRY-CD PIC X(03). |
| 14 | 05 CUST-ADDR-ZIP PIC X(10). |
| 15 | 05 CUST-PHONE-NUM-1 PIC X(15). |
| 16 | 05 CUST-PHONE-NUM-2 PIC X(15). |
| 17 | 05 CUST-SSN PIC 9(09). |
| 18 | 05 CUST-GOVT-ISSUED-ID PIC X(20). |
| 19 | 05 CUST-DOB-YYYYMMDD PIC X(10). |
| 20 | 05 CUST-EFT-ACCOUNT-ID PIC X(10). |
| 21 | 05 CUST-PRI-CARD-HOLDER-IND PIC X(01). |
| 22 | 05 CUST-FICO-CREDIT-SCORE PIC 9(03). |
| 23 | 05 FILLER PIC X(168). |
| 24 | * |
| 25 | * Ver: CardDemo_v1.0-15-g27d6c6f-68 Date: 2022-07-19 23:15:59 CDT |
| 26 | * |