See SYS1.PARMLIB(AUTORxx) ITschak Mugzach *|** IronSphere Platform* *|* *Information Security Continuous Monitoring for z/OS, x/Linux & IBM I **| z/VM coming soon *
On Mon, Nov 30, 2020 at 10:39 AM Itschak Mugzach <[email protected]> wrote: > See SYS1.PARMLIB(AUTORxx) > > *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere > Platform* *|* *Information Security Continuous Monitoring for Z/OS, > zLinux and IBM I **| * > > *|* *Email**: [email protected] **|* *Mob**: +972 522 986404 **|* > *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|* > > > > > > On Mon, Nov 30, 2020 at 10:15 AM saurabh khandelwal < > [email protected]> 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 [email protected] with the message: INFO IBM-MAIN >> > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
