Push the TSO RECEIVE commands (ie. END, DA(), etc.) into the tso stack and
then call RECEIVE.
ITschak
ITschak Mugzach
Z/OS, ISV Products and Application Security & Risk Assessments Professional
On Thu, Nov 19, 2015 at 1:47 PM, Leopold Strauss <
leopold.stra...@isis-papyrus.com> wrote:
> Hi, all
>
> I simply wanted to automize the receiving of a lot of XMIT-files in
> zOS-unix-shell ( not TSO)
>
> Last but not least my problem could be broken down to following
> terminal-input-problem with the RECEIVE-command:
>
> rexx-script:
>
> parse arg indsn outdsn
>
> address tso "PROFILE PROMPT"
> queue "DATASET('"outdsn"')"
> queue "END"
> address tso "RECEIVE INDATASET('"indsn"')"
>
> Result:
>
> MV21:/u/leoplds$ receive.sh 'LEOPLDS.TEST.XMIT' 'LEOPLDS.TEST.TEST'
> INMR901I Dataset SYSC.DOCEXEC.V717.LOADLIB from CHR9255 on ESJES2
> INMR154I The incoming data set is a 'PROGRAM LIBRARY'.
> INMR906A Enter restore parameters or 'DELETE' or 'END' +
> INMR908A The input file attributes are: DSORG=PARTITIONED, RECFM=U,
> BLKSIZE=32760, LRECL=32756, File size=X'0005C3EE'K bytes +
> INMR909A You may enter DSNAME, SPACE, UNIT, VOL, OLD/NEW, or
> RESTORE/COPY/DELETE/END
> INMR800I The RECEIVE command failed. The PUTGET service routine issued
> return code 16.
>
> I googled a lot, read manuals, but I did not find any working sample,
> which I could use.
>
> appreciating all hints and br
>
> --
> Mit freundlichen Gruessen / Kind Regards,
> Leopold Strauss, Team DEV-zOS, T: +43-2236-27551-331
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
