01 RATE-RECORD.
            05 RATE-TYPE         PIC X.
                88 RATE-CASH        VALUE 'C'.
                88 RATE-OVERDUE     VALUE 'O'.
            05 RATE-PCT          PIC 9(1)V9(4) COMP-3.
            05 RATE-EFF-DATE     PIC 9(8).