1$ Verif = F$Verify(0)
2$ ! OpenVMS command file to emulate behavior of:
3$ !
4$ !      Define the command for deleting multiple files / patterns
5$ !
6$ DELETE="DELETE$$$/LOG"
7$ IF F$SEARCH("''P1'") .NES. "" THEN DELETE 'P1';*
8$ IF F$SEARCH("''P2'") .NES. "" THEN DELETE 'P2';*
9$ IF F$SEARCH("''P3'") .NES. "" THEN DELETE 'P3';*
10$ IF F$SEARCH("''P4'") .NES. "" THEN DELETE 'P4';*
11$ IF F$SEARCH("''P5'") .NES. "" THEN DELETE 'P5';*
12$ IF F$SEARCH("''P6'") .NES. "" THEN DELETE 'P6';*
13$ IF F$SEARCH("''P7'") .NES. "" THEN DELETE 'P7';*
14$ IF F$SEARCH("''P8'") .NES. "" THEN DELETE 'P8';*
15$ xxx = F$Verify(Verif)
16