This guy gets it - "TOKEN" is useful, so long as the vendor doesn't change the message layout.
On Mon, Nov 30, 2020 at 11:47 AM Cieri, Anthony < [email protected]> wrote: > > You could try something like this: > > IF (LABEL:IEF455D) MSGID = 'IEF455D' & TEXT(1) = REPLYID . > & (TEXT = .'SP5145'. | TEXT = .'SP5146'. | TEXT = .'SP5147'. | > TEXT = .'SP5149'.) > THEN EXEC(CMD('MVS REPLY ' REPLYID ',NO') > ROUTE(ONE AUTO1)) NETLOG(Y); > > With everything coded in the MAT, there is no need for a rexx!!! > > Hth > Tony > > > -----Original Message----- > From: IBM Mainframe Discussion List <[email protected]> On Behalf > Of saurabh khandelwal > Sent: Monday, November 30, 2020 3:15 AM > To: [email protected] > Subject: Auto Reply on SDSF Console > > [[ SEI WARNING *** This email was sent from an external source. Do not > open attachments or click on links from unknown or suspicious senders. *** > ]] > > > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
