home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
clarion
/
tools.zip
/
TOOLS.COM
/
CHKERROR.PRG
< prev
next >
Wrap
Text File
|
1988-10-20
|
988b
|
13 lines
!VERSION 1.C - WED MAY 25,1988-3:24PM
CHKERROR_PRG PROCEDURE(FILENAME)
FILENAME EXTERNAL
CODE
IF ERROR() THEN
STOP('FILE ERROR:' & FILENAME & ' ' & ERROR()) !ERROR WITH FILE STOP
ELSE
RETURN !RETURN NO ERROR
. !END IF