copybook · 14 lines · sha256 9f1c62ef31b9d541 · guides at columns 7 and 72app/cpy/CVACT02Y.cpy
| 1 | ***************************************************************** |
| 2 | * Data-structure for card entity (RECLN 150) |
| 3 | ***************************************************************** |
| 4 | 01 CARD-RECORD. |
| 5 | 05 CARD-NUM PIC X(16). |
| 6 | 05 CARD-ACCT-ID PIC 9(11). |
| 7 | 05 CARD-CVV-CD PIC 9(03). |
| 8 | 05 CARD-EMBOSSED-NAME PIC X(50). |
| 9 | 05 CARD-EXPIRAION-DATE PIC X(10). |
| 10 | 05 CARD-ACTIVE-STATUS PIC X(01). |
| 11 | 05 FILLER PIC X(59). |
| 12 | * |
| 13 | * Ver: CardDemo_v1.0-15-g27d6c6f-68 Date: 2022-07-19 23:16:00 CDT |
| 14 | * |