Piper's Pit BBS/FTP: ibm 0010 - 0019/ibm0010-0019/ibm0010.tar/ibm0010/REFLECT.ZIP/VAXDIR.DCL

Text File | 1989-02-14 | 1.6 KB | 48 lines

$!
$! Invoke the BACKDIR.EXE program, passing on parameters.
$!
$! Syntax for executing BACKDIR is:
$!
$!   BACKDIR <pc-file-spec> [ <backup-file-name> ] [ /S ] [ /N ]
$!
$!     <pc-file-spec> is the file template. May contain "?" and "*"
$!     wild-card characters. Must begin with directory. \A*.B??,
$!     \MYDIR\WHATSIT.WHO, and \*.* are valid examples.
$!     <backup-file-name> is name of the file on the VAX which is
$!     the "container" for all the individual PC files. BACKUP is
$!     the default.
$!     /S is a parameter which indicates that you want all sub-
$!     directories of the directory specified in <pc-file-spec> to
$!     be searched. For example, BACKDIR \*.* /s requests a list
$!     of all files in the root directory and all of its sub-
$!     directories - or all of the files contained in the backup
$!     file.
$!     /N is a parameter which indicates that you want the
$!     condensed listing, with only the names of the files found
$!     printed. The default is an expanded listing, containing
$!     file name, file size, create/modification date and time,
$!     and backup date and time.
$!
$!
$! concatenate parameters
$!
$ parms = ""
$ if P1 .eqs. "" then goto endparms
$ parms = P1
$ if P2 .eqs. "" then goto endparms
$ parms = parms + " " + P2
$ if P3 .eqs. "" then goto endparms
$ parms = parms + " " + P3
$ if P4 .eqs. "" then goto endparms
$ parms = parms + " " + P4
$ endparms:
$!
$! define foreign command
$!
$ fcmdstr = "$" + f$environment("default") + "BACKDIR.EXE"
$ backdir := 'fcmdstr'
$!
$! invoke the program
$!
$ backdir 'parms'