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