Article 146264 of comp.os.vms:
In article <4lln1r$q7n@news.igc.net>, Carl Couric wrote:
>
>Is there a Zmodem that will handle wildcards? The
>command:
>
>      sz *.*
>
>don't quite make it. I really don't want to go to kermit
>as its slower (I know about C-Kermit) than zmodem.
>
>Thanks!
>Carl
>email:  carlc@igc.net
>

  Hello, this is a small program I wrote to allow wildcard downloads.  I've
found this is a useful driver for operations based on all or some files
in a directory.

$ !-----------------------------------------------------------------------------
$ ! Corey Bateman             cbateman@linden.msvu.ca              Jan 9, 1996
$ ! SZUtility
$ ! This program will download based on users option
$ !-----------------------------------------------------------------------------
$ !
$ Main:
$   write sys$output ""
$   INQUIRE BatDir "Do you want to download by [W]ildcard or the entire [D]irectory? "
$   IF (BatDir .eqs. "D") .OR. (BatDir .eqs. "d") THEN GOTO Zdown
$   IF (BatDir .eqs. "W") .OR. (BatDir .eqs. "w") THEN GOTO Zbatch 
$   GOTO Main
$ !
$ Zbatch:
$   write sys$output ""
$   INQUIRE Search "Enter the file type to search for (example *.jpg;)"
$   DIR/COLUMES=1/OUT=sys$login:Names.tmp 'Search'
$   GOTO Download
$ !
$ Zdown:
$   DIR/COLUMES=1/OUT=sys$login:Names.tmp
$   GOTO Download
$ !    
$ Download:
$   OPEN Name sys$login:Names.tmp;
$   Loop:
$     READ/END_OF_FILE=Exit Name Info
$     Position=F$Locate(";",Info)
$     Length=F$Length(Info)
$     IF ('Length' .eq. 'Position') THEN GOTO Loop
$     Name=F$Extract(0,'Position',Info)
$     sz 'Name'
$     GOTO Loop
$ Exit:
$   CLOSE Name
$   DELETE sys$login:Names.tmp;*
$   EXIT




