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