Dear All,
Thank you for your response.Problem has been resolved by using below code
If Strip(comp_vol) = TOvolume Then
Do
"MVS R "MsgID",NO"
End
Really sorry for delay in response as i was not well so couldnt able to
reply you on time.
Thank you once again.
On Sat, Dec 12, 2020 at 8:19 AM Brian Westerman <
brian_wester...@syzygyinc.com> wrote:
> Using SyzMPF/z you would only need to code 3 lines in the script for
> message IEF455D:
>
> IF WORD 02 = SP5145 | SP5146 | SP5147 | SP5149
> Reply nnnn,NO
> ENDIF
>
>
> We count the words of a message starting with zero as the messageid and
> (in this case) the message itself is:
> IEF455D MOUNT ser ON dev FOR jobname stepname OR REPLY ‘NO’
> w0 w1 w2 w3 w4 w5 w6 w7 w8 w9 w10
>
> So the word you want to check for is word 2 (the ser in the above). The
> "nnnn" is automagically filled in with the outstanding replyID presented in
> the IEF455D message.
>
> Not only are Syzygy automation products MUCH less expensive than any of
> the other automation vendors, it's also a lot easier to use.
>
> Brian
>
> On Mon, 30 Nov 2020 11:15:20 +0300, saurabh khandelwal <
> sourabhkhandelwal...@gmail.com> wrote:
>
> >Dear Group ,
> >
> >
> >
> >We have requirement to automate below manual reply comes in console every
> >time, when we don’t find volume in our system and the standard reply to
> >these message is *Reply id, NO.*
> >
> >
> >10.14.03 JOB09020 *29 *IEF455D* MOUNT *SP5145* ON 0FAA FOR CASPLPRO SARBCH
> >OR REPLY 'NO'l
> >
> >In this above message, whenever we get message id *IEF455D *on SDSF
> console
> >and on 4th place in this line, we get volume name* SP5145 or SP5146 ,
> >SP5147, SP5149 *then immediately using automation we should reply
> >
> >With* reply id, no.*
> >
> >
> >
> >In order to do this, we created
> >
> >
> >
> >IF MSGID = 'IEF455D'
> >THEN
> >
> >EXEC(CMD('AUTREXX')) NETLOG(Y) SYSLOG(Y);
> >
> >
> >
> >
> >
> >Then into *'AUTREXX'* REXX side,
> >
> >
> >
> >
> >
> >
> >
> >/* REXX */
> >
> >trace r
> >
> >'PIPE SAFE * | STEM MSG.'
> >
> >TOvolume = Word( Msg,4 )
> >
> >MsgID = Word( Msg,1 )
> >
> >MsgID1 = substr(MsgID,2,2)
> >
> >
> >
> >volume = 'SP5145 ' ,
> >
> > 'SP5146 ' ,
> >
> > 'SP5147 '
> >
> >
> >
> >Do i = 1 to Words(volume)
> >
> >comp_vol = Word(volume,i)
> >
> > If Strip(comp_vol) = TOvolume Then
> >
> >
> >
> >But unable to complete this logic in to REXX. Can you please help in
> >building this REXX, which can help in replying on console once the above
> >mentioned criteria matches.
> >
> >
> >
> >*Regards*
> >
> >*Saurabh*
> >
> >----------------------------------------------------------------------
> >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
>
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
