🚀 go-pugleaf

>...
>in my logout procedure I delete all .JOU files. But if there are none
>I get an error message that there are no .JOU files. If you see the
>text "error..." on the screen you look at it even it isn't a "real"
>error. Is there a way to suppress the error message
>
>%DELETE-W-SEARCHFAIL, error searching for DRB2:[KND...]*.JOU;*
>
>Assigning SYS$ERROR or SYS$OUTPUT to NL: doesn't help neither a
>SET MESSAGE /DELETE. Could anyone help?

There are two things you can do (either one or both of them):

    1.	The first thing you can do (and the one I recommend) is to
    search for the existance of a file matching *.JOU.* with the
    F$SERARCH command.  Use it as follows:

	  FILNAM :== 'F$SEARCH("*.JOU.*")
	  IF FILNAM.NEQ."" THEN $ DELETE/NOLOG/NOCONF *.JOU.*

     If FILNAM is empty, then there are no files with names of the
     form *.JOU.* .

     2.	To turn off error messages, use the following command:

	  SET MESSAGE/NOFACILITY/NOSEVERITY/NOIDENTIFICATION/NOTEXT

     (I am not sure of all those qualifiers, but there are only 4 of
     them (I think)).  To turn error messages back on, use the same
     command, but remnove the NO portion of the qualifier:

	  SET MESSAGE/FACILITY/SEVERITY/IDENTIFICATION/TEXT

Hope this is useful info.

Mark H. Granoff
mhg@mitre-bedford.ARPA