I know you said you didn't want to use System Rexx, but this quick-n-dirty
will display the request:

CMD = 'D R,MSG=EZY0960I,SYS=&SYSNAME.'
CmdResult = AXRCMD(CMD,'OUTPUTVAR.',10)
DO I = 1 TO OUTPUTVAR.0
  SAY OutputVar.I
END;

Doesn't seem like it would take much to parse the reply from the result.


On Tue, Feb 11, 2020 at 1:14 PM Tony Thigpen <t...@vse2pdf.com> wrote:

> The shutdown is authorized to do anything it wants. :-)
>
> Tony Thigpen
>
> Seymour J Metz wrote on 2/11/20 11:47 AM:
> > Are you authorized to use the CONSOLE service to issue commands and
> retrieve output?
> >
> >
> > --
> > Shmuel (Seymour J.) Metz
> > http://mason.gmu.edu/~smetz3
> >
> >
> > ________________________________________
> > From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on
> behalf of Tony Thigpen <t...@vse2pdf.com>
> > Sent: Tuesday, February 11, 2020 8:31 AM
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Subject: Finding and replying to outstanding reply
> >
> > We have an in-house written automated shutdown program that does
> > everything but shutdown NPF. That is because NPF leaves an open reply
> > message during start-up to which I must replay xx,STOP to make it
> > shutdown. Within our shutdown program, I would like it to
> > programmatically find the outstanding reply number so that it can issue
> > the correct response.
> >
> > Can someone point me to any doc or examples that will help me get
> > started on this?
> >
> > Some items:
> > The shutdown program is assembler.
> > I have SysREXX running with a valid MPF exit to call it.
> > I would prefer to do it all within the assembler program instead of
> > using MPF/SysREXX.
> >
> > Thoughts?
> >
> > --
> > Tony Thigpen
> >
> > ----------------------------------------------------------------------
> > 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
> >
> >
>
> ----------------------------------------------------------------------
> 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

Reply via email to