mhg@MITRE-BEDFORD.ARPA.UUCP (03/13/87)
>... >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