On Thu, 1 Dec 2016 10:16:10 -0600, John McKown wrote: >Damn it, forgot to make one change in the command stream. > I wonder, did the OP get secure tn3270 working. Then, much as I hate to recommend it to anyone, would IND$FILE provide a solution? Is IND$FILE UNIX-file-savvy?
Here's my approach, using a POSIX pipe rather than a temp file, with thanks to Peter Farley for suggestions about dealing with PARMDD. (I hate MVS, for reasons that go even beyond EBCDIC.): //* //SET4 SET OPTS='' or '-B' //SET5 SET FILTER='' or 'iconv -f ISO8859-1 -t IBM-1047 |' //SET6 SET LCLFILE='//''SYS1.MACLIB(SPLEVEL)''' //SET7 SET SYMS='SYMBOLS=(JCLONLY,LOGDD)' //* //FIXPARM EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=(,) //SYSIN DD * //SYSUT2 DD DISP=(,PASS),UNIT=SYSALLDA,SPACE=(1,(1,1)) //LOGDD DD SYSOUT=(,) //SYSUT1 DD *,&SYMS Copy LCLFILE to stdout SH set -x; cp &OPTS "&LCLFILE" /dev/fd/1 | //* // DD *,&SYMS Undo EBCDIC-ASCII translation. &FILTER //* // DD *,&SYMS Pipe into ssh. ssh &RMTUSER''@&RMTHOST //* // DD *,&SYMS Copy remote stdout to RMTFILE. "set -x; date; cat >&RMTFILE" //* //STEP EXEC PGM=BPXBATCH,PARMDD=CMDS //STDIN DD PATH='/dev/null' //STDOUT DD SYSOUT=(,) //STDERR DD SYSOUT=(,) //CMDS DD DISP=OLD,DSN=*.FIXPARM.SYSUT2 -- gil ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
