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