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