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).