03 COMM-CLASS-DESC-TBL                REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  CLDE-KEY-FIELDS.                                   00000003
                  15  COMM-CLASS-DESC                 PIC X(60).        00000010
                  15  COMM-CLASS                      PIC X(03).        00000100