1$ Verif = F$Verify(0) 2$ ! OpenVMS command file to emulate behavior of: 3$ ! 4$ ! Define the command for copying one file to another 5$ ! 6$ COPY="COPY/LOG" 7$ FILE = F$SEARCH(P1) 8$ IF P2 .EQS. "." THEN P2 = "[]" 9$ IF FILE .NES. "" 10$ THEN 11$ FFILE = F$ELEMENT(0, ";", FILE) 12$ COPY 'FFILE' 'P2' 13$ ENDIF 14$ xxx = F$Verify(Verif) 15