03 STATUS-TABLE                       REDEFINES MTIOAREA.     00000001
              05  DOCD-IOAREA.                                          00000002
                 10  RSTA-KEY-FIELDS.                                   00000003
                  15  XSTATUS-3                       PIC X(03).        00000004
                 10  RSTA-RESULT-FIELDS.                                00000005
                  15  DESCRIPTION-30                  PIC X(30).        00000006
                  15  STATUS-TYPE                     PIC X(01).        00000010
                  15  BID-FLAG                        PIC X(01).        00000100