Trailing-Edge
-
PDP-10 Archives
-
integ_tools_tops20_v7_30-apr-86_dumper
-
tools/com/check.com
There are 3 other files named check.com in the archive. Click here to see a list.
$ save_Verify := 'F$Verify(0)
$!
$! CHECK file [return] - Checks to see if file exists
$! - if p2 is non-null success or failure is
$! returned in CHECK_ERROR
$ if p1 .eqs. "" Then goto ERROR
$!
$ file := 'p1'
$ if f$locate("+",p1) .ne. f$length(p1) then goto END
$!
$!
$ file := 'f$search(p1,1)' !in case of wild card
$ if file .eqs. "" Then Goto ERROR
$!
$ Open/Read/Error=error temp 'file' !try to open the file
$ Close temp
$!
$END:
$ Check_Error :== 0
$ save_Verify := 'F$Verify(Save_Verify)
$ Exit !return to caller
$!
$!
$ERROR:
$ Check_Error :== 1
$ WRITE sys$output "%Error, File ""''p1'"" not found."
$ save_Verify := 'F$Verify(Save_Verify)
$ If p2 .eqs. "" Then STOP !all levels of command procedures
$ EXIT !give an error return.