| 2 |
- |
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)
|