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
