Is this not a thing nowadays? //SYMBOLS EXPORT SYMLIST=* //* //FTP EXEC PGM=FTP,PARM='(EXIT' //SYSPRINT DD SYSOUT=(,) //NETRC DD DISP=SHR,DSN=SH71167.NETRC //OUTPUT DD SYSOUT=(,) //INPUT DD *,SYMBOLS=EXECSYS <arbitrary host> put 'SH71167.SRCHFOR.STMTS' + /local/netview/&LYR4..&LMON..&LDAY..&LHR..&LMIN..&LSEC..text.txt QUIT /*
EZA1460I Command: EZA1736I put 'SH71167.SRCHFOR.STMTS' + EZA1736I /local/netview/2017.11.13.18.18.15.text.txt EZA1701I >>> SITE FIXrecfm 80 LRECL=80 RECFM=FB BLKSIZE=27920 200 SITE command was accepted EZA1701I >>> PORT 192,43,66,90,112,37 200 Port request OK. EZA1701I >>> STOR /local/netview/2017.11.13.18.18.15.text.txt 125 Storing data set /local/netview/2017.11.13.18.18.15.text.txt 250 Transfer completed successfully. EZA1617I 47 bytes transferred in 0.005 seconds. Transfer rate 9.40 Kbytes/sec. EZA1460I Command: EZA1736I QUIT EZA1701I >>> QUIT 221 Quit command received. Goodbye. Seems to be. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN