It's crude, but I have a similar goal, I just threw this D R,R and System Rexx
parse together.
/* rexx */
CmdResult=AXRCMD('D R,R','v.',10);
/* do i = 1 to v.0 */
/* say i v.i */
/* end */
if v.3 <> "NO MESSAGES OUTSTANDING" then do
parse var v.1 iee112i_key iee112i_time iee112i_pending_requests_idr
/* say iee112i_key iee112i_time iee112i_pending_requests_idr
*/
parse var v.2 iee112i_rm iee112i_im iee112i_cem iee112i_em iee112i_ir
iee112i_amrf
/* say iee112i_rm iee112i_im iee112i_cem em iee112i_ir iee112i_amrf
*/
parse var v.3 iee112i_id iee112i_ts iee112i_sys iee112i_jb iee112i_idd
iee112i_msg iee112i_txt
/* say iee112i_id iee112i_ts iee112i_sys iee112i_jb iee112i_idd
iee112i_msg iee112i_txt */
r = 1
do i = 4 to v.0
/* say i v.i
*/
r.0 = r
parse var v.i iee112i_reply_id.r iee112i_type.r iee112i_system.r
iee112i_job.r iee112i_msg_txt.r
say r iee112i_reply_id.r iee112i_type.r iee112i_system.r
iee112i_job.r iee112i_msg_txt.r
r = r + 1
end
end
else
say 'No outstanding replies'
say 'exiting'
exit(0)
> -----Original Message-----
> From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On
> Behalf Of Tony Thigpen
> Sent: Tuesday, February 11, 2020 5: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
