| 2 |
- |
1 |
$ Verif = F$Verify(0)
|
|
|
2 |
$ ! OpenVMS command file to emulate behavior of:
|
|
|
3 |
$ !
|
|
|
4 |
$ ! Appending a string to the end of a new or existing file
|
|
|
5 |
$ !
|
|
|
6 |
$ OPEN="OPEN"
|
|
|
7 |
$ WRITE="WRITE"
|
|
|
8 |
$ CLOSE="CLOSE"
|
|
|
9 |
$ IF F$SEARCH("''P1'") .EQS. "" THEN OPEN/WRITE TEXT_FILE 'P1'
|
|
|
10 |
$ IF F$SEARCH("''P1'") .NES. "" THEN OPEN/APPEND TEXT_FILE 'P1'
|
|
|
11 |
$ IF P2 .NES. "" THEN WRITE TEXT_FILE "''P2'"
|
|
|
12 |
$ IF P3 .NES. "" THEN WRITE TEXT_FILE "''P3'"
|
|
|
13 |
$ IF P4 .NES. "" THEN WRITE TEXT_FILE "''P4'"
|
|
|
14 |
$ IF P5 .NES. "" THEN WRITE TEXT_FILE "''P5'"
|
|
|
15 |
$ IF P6 .NES. "" THEN WRITE TEXT_FILE "''P6'"
|
|
|
16 |
$ IF P7 .NES. "" THEN WRITE TEXT_FILE "''P7'"
|
|
|
17 |
$ IF P8 .NES. "" THEN WRITE TEXT_FILE "''P8'"
|
|
|
18 |
$ CLOSE TEXT_FILE
|
|
|
19 |
$ xxx = F$Verify(Verif)
|