It's funny, I guess, that I document everything but didn't pull off the code that I used to download from the mainframe.

I know it was to generate a set of RECEIVE ..   in a member of the PDS using
@DIR macro,  transporting it to the PC using RECEIVE.   Invoking the set of RECEIVE populating a corresponding file structure on the PC and then using ZIP for each group of files.


a:  is on mainframe   userid.SPF2.MACROS
c: in on PC

dir c:\SPFMACRO\*.* > c:\SPFMACRO\ddd.dir
dir c:\SPFpc30\*.spf >> c:\SPFMACRO\ddd.dir
dir c:\SPFpc30\*.doc >> c:\SPFMACRO\ddd.dir
send c:\SPFMACRO\ddd.dir   a:spf2.macros($dirDOS)     ascii crlf
pause "waiting on pause*/
send C:\SPFMACRO\@C.SPF             a:spf2.macros(@C)       ascii crlf
send C:\SPFMACRO\@CMD.SPF           a:spf2.macros(@CMD)     ascii crlf
send C:\SPFMACRO\@COMPARE.SPF       a:spf2.macros(@COMPARE) ascii crlf
send C:\SPFMACRO\@DATE.SPF          a:spf2.macros(@DATE)    ascii crlf
send C:\SPFMACRO\@DIRSTAT.SPF       a:spf2.macros(@DIRSTAT) ascii crlf
send C:\SPFMACRO\@ICOPY.SPF         a:spf2.macros(@ICOPY)   ascii crlf
send C:\SPFMACRO\@PRINT.SPF         a:spf2.macros(@PRINT)   ascii crlf


To send to the PC  -- i'm not sure which is on left or right below
a:  is on mainframe   userid.SPF2.MACROS
c: in on PC


edit an empty member (z$)  in mainframe dataset

@DIR listmem
REFORMAT "RECEIVE c:\spfmacro\"  s 1 8  ".spf   a:spf2.macros(" s 1 8 " ascii crlf"

on the pc in a DOS session
receive c:\batch\xover.bat    a:spf2.macros(z$) ascii crlf
xover
cd spfmacro
pkzip spfmacro  *.spf

actually for multiple nodes would have been something like
cd \n1\n2\n3
xover
pkzip ..\spfmacro *.spf
del *.spf


See
   http://www.geocities.com/davemcritchie/htm/reformat.htm
and
   http://www.geocities.com/davemcritchie/htm/refmt01.htm