hsyx3952501
16 lines
644 B
COBOL
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).
|