In article <1995Jan5.153236.36465@miavx1>, [log in to unmask] (Aaron
D. Yonka) writes:
> In article <1995Jan1.223134.36342@miavx1>, [log in to unmask]
(Kent Covert) writes:
>> In article <1994Dec30.235508.36309@miavx1>, [log in to unmask]
writes:
> I think the problem the user is experiencing is as follows:
>
> Let's assume I have a bunch of files in my directory that I want to download,
> say ONE.TXT TWO.ZIP THREE.EXE FOUR.GIF and I want to download them using
> Z-modem.  Let's also assume these are the only files in that directory. The
> obvious solution should be
>
> $ SZ *.*
>
> but the Z-modem program does not accept the * wildcard, so it would seem.
The
> only solution I've been able to use is
>
> $ SZ ONE.TXT TWO.ZIP THREE.EXE FOUR.GIF
>
> On Phoenix and on the NeXT's, UNIX allows us to
>
> sz *
>
> But is there a way to do this on the VMS version?
>
> (Even if this is not what the user is wondering, I would love to know the
> answer too!)
 
This works on Unix because anytime the shell sees a *, it automatically
expands it into matching filenames.  VMS's shell (DCL) doesn't do this,
though.
 
I thought that someone wrote a program a while ago that would do this (Ryan
"Goz" Collins, maybe?), but I don't know what became of it.
 
The following piece of code should do it, though:
 
$checkP1:
$   if p1 .nes. "" then goto validP1
$   read sys$command p1/prompt="Filelist: "
$   goto checkP1
$!
$validP1:
$   filesSent = 0
$sendFile:
$   filespec = f$search(p1,1)
$   if filespec .eqs. "" then goto sendFile_end
$   SZ 'filespec'
$   filesSent = filesSent + 1
$   goto sendFile
$!
$sendFile_end:
$   write sys$output "Files sent: ''filesSent'"
$   exit
 
 
--
                                     Kent Covert, Software Coordinator
                                     Miami Computing and Information Services
                                     Miami University, Oxford, OH
                                     [log in to unmask]  (internet)
                                     kacovert@miavx1                 (bitnet)