Files

16 lines
644 B
COBOL

01 MEMBER-RECORD.
05 MEM-ID PIC 9(16).
05 MEM-NAME PIC X(30).
05 MEM-CREDIT-LIMIT PIC 9(9)V99.
05 MEM-TYPE PIC X.
88 MEM-GOLD VALUE 'G'.
88 MEM-PLATINUM VALUE 'P'.
88 MEM-STANDARD VALUE 'S'.
05 MEM-STATUS PIC X.
88 MEM-ACTIVE VALUE 'A'.
88 MEM-FROZEN VALUE 'F'.
88 MEM-CLOSED VALUE 'C'.
05 MEM-BALANCE PIC S9(9)V99.
05 MEM-MIN-PAYMENT PIC 9(9)V99.
05 MEM-ADDRESS PIC X(60).