Can this be written as a table of expression. For example declare accountclass = table of (...).
01 Interest-Rate-Table.
05 InterestRateValues.
10 pic x(11) value "PC075080078".
10 pic x(11) value "RC065070068".
10 pic x(11) value "MC055060058".
05 SavingsInterestTable redefines InterestRateValues.
10 SavingsInterestArea occurs 3 times indexed by intcode-index.
15 SavingsInterestCode pic x(2).
15 InterestRateEntry occurs 3 times indexed by intrate-index.
20 InterestRate pic V9(3).



