      *
      *        ********************************************************
      *        *  DMS STATUS CHECK SECTION                           *
      *        ********************************************************
      *
       DMS-STATUS         SECTION.
       STATUS-PARA.
      *
               IF          ERROR-STATUS EQUAL TO ZEROS
                 PERFORM DMS-SUCCESS GO TO ISABEX.
               DISPLAY     '** DMS/90 RUN-UNIT TERMINATED BY DML ERROR'
                           UPON THE-CONSOLE.
               DISPLAY     '   PROGRAM NAME ------ ' PROGRAM-NAME
                           UPON THE-CONSOLE.
               DISPLAY     '   ERROR STATUS ------ ' ERROR-STATUS
                           UPON THE-CONSOLE.
               DISPLAY     '   ERROR RECORD ------ ' ERROR-RECORD
                           UPON THE-CONSOLE.
               DISPLAY     '** EXECUTE DBBAR IF DATA BASE WAS UPDATED'
                           UPON THE-CONSOLE.
               DISPLAY     '** DMS/90 RUN-UNIT TERMINATED BY DML ERROR'
                           UPON THE-PRINTER.
               DISPLAY     '  PROGRAM NAME ------ ' PROGRAM-NAME
                           UPON THE-PRINTER.
               DISPLAY     '  ERROR STATUS ------ ' ERROR-STATUS
                           UPON THE-PRINTER.
               DISPLAY     '  ERROR RECORD ------ ' ERROR-RECORD
                           UPON THE-PRINTER.
               DISPLAY     '  ERROR SET --------- ' ERROR-SET
                           UPON THE-PRINTER.
               DISPLAY     '  ERROR AREA -------- ' ERROR-AREA
                           UPON THE-PRINTER.
               DISPLAY     '  LAST GOOD RECORD -- ' RECORD-NAME
                           UPON THE-PRINTER.
               DISPLAY     '  LAST GOOD AREA ---- ' AREA-NAME
                           UPON THE-PRINTER.
               DISPLAY     '** EXECUTE DBBAR IF DATA BASE WAS UPDATED'
                           UPON THE-PRINTER.
               PERFORM     DMS-ABORT.
      *        CLOSE ALL AREAS.
               ENTER LINKAGE.
               CALL 'XR7DMS' USING IDBMSCOM (02).
               ENTER COBOL.
               STOP RUN.
      *
       ISABEX. EXIT.
      *
               NOTE
               THIS IS THE END
                  OF THE DMS STATUS CHECK SECTION.
