home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / clarion / tools.zip / CHKERROR.PRG < prev    next >
Text File  |  1988-10-20  |  988b  |  13 lines

  1. !VERSION 1.C - WED MAY 25,1988-3:24PM
  2. CHKERROR_PRG  PROCEDURE(FILENAME)
  3.                                                                                                                                                                                                                                  
  4. FILENAME     EXTERNAL
  5.                                                                                                                                                                                                                                  
  6.  CODE
  7.                                                                                                                                                                                                                                  
  8.    IF ERROR() THEN
  9.      STOP('FILE ERROR:' & FILENAME & ' ' & ERROR()) !ERROR WITH FILE STOP
  10.    ELSE
  11.      RETURN                         !RETURN NO ERROR
  12.    .                                !END IF
  13.