03 CHARGE-CLASS-TABLE                 REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  CHRG-KEY-FIELDS.                                   00000003
                  15  FISC-YEAR.                                        00000004
                   20  FISC-YEAR-CC                   PIC X(02).        00000005
                   20  FISC-YEAR-YY                   PIC X(02).        00000006
                  15  CHARGE-CLASS                    PIC X(3).         00000007
                 10  CHRG-RESULT-FIELDS.                                00000008
                  15  CHARGE-CLASS-NAME               PIC X(30).        00000009
                  15  STANDARD-RATE                   PIC S9(8).        00000010
                  15  ACCOUNT-TYPE                    PIC X(02).        00000011
                  15  ACCOUNT                         PIC X(04).        00000020
                  15  SUB-ACCOUNT                     PIC X(02).        00000100