$PAGEWIDTH(80) PAGELENGTH(50)


FILES:
DO;
   DECLARE 
      IS LITERALLY 'LITERALLY',
      DCL   IS     'DECLARE',
      PROC  IS 'PROCEDURE',
      FALSE IS '0',
      TRUE  IS ' NOT FALSE ',
      CR    IS '0DH',
      LF    IS '0AH';

EXIT: PROCEDURE EXTERNAL;
END EXIT;

ERROR$MSG: PROCEDURE(ERROR) EXTERNAL;
   DECLARE ERROR ADDRESS;
END ERROR$MSG;

   /*
      *****************************
      *                           *
      *    CHECK$STATUS           *
      *                           *
      *****************************
                                     */

   /* 
      IF STATUS<>0 THEN PRINT A MASSAGE & EXIT
                                               */


   CHECK$STATUS:  PROCEDURE(STATUS) PUBLIC;

      DECLARE STATUS ADDRESS;
      
      IF STATUS<>0 THEN
      DO;

         CALL ERROR$MSG(STATUS);
         CALL EXIT;

      END;

   END CHECK$STATUS;

END FILES;