Re: Auto Reply on SDSF Console
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 ,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 w9w10
>
> So the word you want to check for is word 2 (the ser in the above). The
> "" 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
Re: Auto Reply on SDSF Console
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 ,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 w9w10
So the word you want to check for is word 2 (the ser in the above). The ""
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
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
Re: Auto Reply on SDSF Console
On Mon, 30 Nov 2020, at 23:21, Steve Horein wrote:
> This guy gets it - "TOKEN" is useful, so long as the vendor doesn't change
> the message layout.
You say that, but wait until someone runs a job whose name includes any
of those volser values, and needs some other volume mounted.
Running a rexx exec is an overhead, but it can do more sophisticated
checks of what's being asked for.
> On Mon, Nov 30, 2020 at 11:47 AM Cieri, Anthony <
> 02d7f4ec1fff-dmarc-requ...@listserv.ua.edu> 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!!!
--
Jeremy Nicoll - my opinions are my own.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
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 ,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 w9w10
So the word you want to check for is word 2 (the ser in the above). The ""
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
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
Re: Auto Reply on SDSF Console
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 <
02d7f4ec1fff-dmarc-requ...@listserv.ua.edu> 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 On Behalf
> Of saurabh khandelwal
> Sent: Monday, November 30, 2020 3:15 AM
> To: IBM-MAIN@LISTSERV.UA.EDU
> 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 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
>
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
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 On Behalf Of
saurabh khandelwal
Sent: Monday, November 30, 2020 3:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
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
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
Re: Auto Reply on SDSF Console
On Mon, 30 Nov 2020, at 14:42, Barkow, Eileen wrote: > All I know is that in the past I was not able to use the STRIP function > in NETVIEW - I remember researching the issue at the time and > comparing TSO REXX to NETVIEW REXX. Even if STRIP worked in native > NETVIEW, it did not work with automation. It DID work in netview clists. I ran an SA/390 automation team, until about 2000, and the code I looked at a few minutes ago was in production use. You must be thinking of something else, or maybe there was a bug. Have a look at this NV manual, copyright 1997, 2007. ftp://public.dhe.ibm.com/software/tivoli/netview/dqgl2mst.pdf Look at the last few lines of the sample ACTAPPLS exec, on p188. -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
All I know is that in the past I was not able to use the STRIP function in NETVIEW - I remember researching the issue at the time and comparing TSO REXX to NETVIEW REXX. Even if STRIP worked in native NETVIEW, it did not work with automation. -Original Message- From: IBM Mainframe Discussion List On Behalf Of Seymour J Metz Sent: Monday, November 30, 2020 9:36 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Auto Reply on SDSF Console That appears to refer to native NetView EXECs, not to REXX NetView EXECs. -- Shmuel (Seymour J.) Metz https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7Cebarkow%40doitt.nyc.gov%7Cf41932c3f1b34c1dd85808d8953d50b4%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423437879873577%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=sUAJNNMIBNm56iEACV%2Fz2oO2tM4PQksfPl3CHq6ImiA%3D&reserved=0 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu] Sent: Monday, November 30, 2020 9:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Auto Reply on SDSF Console APAR Identifier .. OA36757 Last Changed 11/09/02 STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS FROM A VARIABLE VALUE Symptom .. NF NEWFUNCTION Status ... CLOSED UR1 Severity ... 3 Date Closed . 11/08/01 Component .. 5697NV600 Duplicate of Reported Release . 10B Fixed Release 999 Component Name NETVIEW FOR Z/O Special Notice ATTENTION Current Target Date ..11/08/15 Flags SCP ...NEW FUNCTION Platform Status Detail: SHIPMENT - Packaged solution is available for shipment. PE PTF List: PTF List: Release 10B : UA61616 available 11/08/16 (F108 ) Parent APAR:OA35722 Child APAR list: ERROR DESCRIPTION: New function, called STRIP, that would strip off leading and trailing blanks from a variable value. This function could only be specified in the CMD string in an EXEC, and would specify the variable that would be stripped of blanks. LOCAL FIX: PROBLEM SUMMARY: * USERS AFFECTED: All users ot Tivoli NetView for z/OS.* * PROBLEM DESCRIPTION: When a command is executed as a result * * of an automation table EXEC statement, * * if any variable values contain leading * * or trailing blanks, the resulting * * command may fail, for example, if a * * blank signifies the end of the command * * string. * * RECOMMENDATION: * After NetView automation table processing constructs a command from constant strings (in quotation marks) and variables defined in the automation table (not in quotation marks), there is no way to ensure that the resulting command does not contain blanks. If a variable value contains blanks, and the resulting command does not work properly because of those blanks, NetView does not provide a way to strip off those blanks to allow the command to work. PROBLEM CONCLUSION: TEMPORARY FIX: COMMENTS: A new function, called STRIP, is being provided in automation table processing which can be specified in the command string in an EXEC statement. When specified, the variable value, without leading or trailing blanks or hex zeroes will be used instead of the variable value as specified. The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00) should be changed as follows: In Chapter 15, The Automation Table, in the section named Actions, in the description of the EXEC action, in the description of 'cmdstring', the following should be added after the first paragraph: Because variable values could contain leading or trailing blanks which could cause the command to fail, you can use the STRIP function to strip off leading and trailing blanks or hexadecimal zeroes. Syntax: STRIP(varname) where 'varname' is the variable name whose value without leading and trailing blanks and hexadecimal zeroes is to be inserted into the command. MODULES/MACROS: DSIAMCMD DSIMACTN DSIMCT DSIMPRS SRLS: SC27284600 RTN CODES: CIRCUMVENTION: Instead of invoking the n
Re: Auto Reply on SDSF Console
On Mon, 30 Nov 2020, at 14:35, Seymour J Metz wrote: > That appears to refer to native NetView EXECs, not to REXX NetView EXECs. No, it's describing the Message Automation Table syntax, where one tells netview how to match messages it might see, and for selected messages invoke specific clists/execs, possibly passing tokens from those messages to the execs. It's allowing one to guarantee that those tokens (or parts) of messages are stripped before being passed, I think. Even if an exec is invoked and passed just part of a message, so far as I remember the exec can then read the whole message if it needs to. -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
On Mon, 30 Nov 2020, at 14:30, Barkow, Eileen wrote: > APAR Identifier .. OA36757 Last Changed 11/09/02 > STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS This isn't a Netview REXX issue. It's describing use in a message automation table, in the EXEC command that invokes a NV clist. > COMMENTS: > A new function, called STRIP, is being provided in automation > table processing which can be specified in the command string in > an EXEC statement. When specified, the variable value, without > leading or trailing blanks or hex zeroes will be used instead of > the variable value as specified. > > The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00) > should be changed as follows: >In Chapter 15, The Automation Table, in the section named >Actions, in the description of the EXEC action, in the >description of 'cmdstring', the following should be added after >the first paragraph: > > Because variable values could contain leading or trailing > blanks which could cause the command to fail, you can use the > STRIP function to strip off leading and trailing blanks or > hexadecimal zeroes. > >Syntax: STRIP(varname) > where 'varname' is the variable name whose value without > leading and trailing blanks and hexadecimal zeroes is to > be inserted into the command. -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
That appears to refer to native NetView EXECs, not to REXX NetView EXECs. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu] Sent: Monday, November 30, 2020 9:30 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Auto Reply on SDSF Console APAR Identifier .. OA36757 Last Changed 11/09/02 STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS FROM A VARIABLE VALUE Symptom .. NF NEWFUNCTION Status ... CLOSED UR1 Severity ... 3 Date Closed . 11/08/01 Component .. 5697NV600 Duplicate of Reported Release . 10B Fixed Release 999 Component Name NETVIEW FOR Z/O Special Notice ATTENTION Current Target Date ..11/08/15 Flags SCP ...NEW FUNCTION Platform Status Detail: SHIPMENT - Packaged solution is available for shipment. PE PTF List: PTF List: Release 10B : UA61616 available 11/08/16 (F108 ) Parent APAR:OA35722 Child APAR list: ERROR DESCRIPTION: New function, called STRIP, that would strip off leading and trailing blanks from a variable value. This function could only be specified in the CMD string in an EXEC, and would specify the variable that would be stripped of blanks. LOCAL FIX: PROBLEM SUMMARY: * USERS AFFECTED: All users ot Tivoli NetView for z/OS.* * PROBLEM DESCRIPTION: When a command is executed as a result * * of an automation table EXEC statement, * * if any variable values contain leading * * or trailing blanks, the resulting * * command may fail, for example, if a * * blank signifies the end of the command * * string. * * RECOMMENDATION: * After NetView automation table processing constructs a command from constant strings (in quotation marks) and variables defined in the automation table (not in quotation marks), there is no way to ensure that the resulting command does not contain blanks. If a variable value contains blanks, and the resulting command does not work properly because of those blanks, NetView does not provide a way to strip off those blanks to allow the command to work. PROBLEM CONCLUSION: TEMPORARY FIX: COMMENTS: A new function, called STRIP, is being provided in automation table processing which can be specified in the command string in an EXEC statement. When specified, the variable value, without leading or trailing blanks or hex zeroes will be used instead of the variable value as specified. The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00) should be changed as follows: In Chapter 15, The Automation Table, in the section named Actions, in the description of the EXEC action, in the description of 'cmdstring', the following should be added after the first paragraph: Because variable values could contain leading or trailing blanks which could cause the command to fail, you can use the STRIP function to strip off leading and trailing blanks or hexadecimal zeroes. Syntax: STRIP(varname) where 'varname' is the variable name whose value without leading and trailing blanks and hexadecimal zeroes is to be inserted into the command. MODULES/MACROS: DSIAMCMD DSIMACTN DSIMCT DSIMPRS SRLS: SC27284600 RTN CODES: CIRCUMVENTION: Instead of invoking the necessary command string from the EXEC statement in the automation table, specify a CLIST to be executed, passing the appropriate parameters, which will itself use the REXX STRIP() function and execute the desired command. MESSAGE TO SUBMITTER: -Original Message- From: IBM Mainframe Discussion List On Behalf Of Jeremy Nicoll Sent: Monday, November 30, 2020 9:15 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Auto Reply on SDSF Console On Mon, 30 Nov 2020, at 14:00, Barkow, Eileen wrote: > Sorry about that. I see that STRIP is available in NETVIEW REXX now. > it was not a few releases ago when I tried to use it. I have a handful of copies of old netview execs here. I'm looking now at one I wrote in 1996 and it uses strip(). -- Jeremy
Re: Auto Reply on SDSF Console
APAR Identifier .. OA36757 Last Changed 11/09/02 STRIP FUNCTION TO STRIP OFF LEADING AND TRAILING BLANKS FROM A VARIABLE VALUE Symptom .. NF NEWFUNCTION Status ... CLOSED UR1 Severity ... 3 Date Closed . 11/08/01 Component .. 5697NV600 Duplicate of Reported Release . 10B Fixed Release 999 Component Name NETVIEW FOR Z/O Special Notice ATTENTION Current Target Date ..11/08/15 Flags SCP ...NEW FUNCTION Platform Status Detail: SHIPMENT - Packaged solution is available for shipment. PE PTF List: PTF List: Release 10B : UA61616 available 11/08/16 (F108 ) Parent APAR:OA35722 Child APAR list: ERROR DESCRIPTION: New function, called STRIP, that would strip off leading and trailing blanks from a variable value. This function could only be specified in the CMD string in an EXEC, and would specify the variable that would be stripped of blanks. LOCAL FIX: PROBLEM SUMMARY: * USERS AFFECTED: All users ot Tivoli NetView for z/OS.* * PROBLEM DESCRIPTION: When a command is executed as a result * * of an automation table EXEC statement, * * if any variable values contain leading * * or trailing blanks, the resulting * * command may fail, for example, if a * * blank signifies the end of the command * * string. * * RECOMMENDATION: * After NetView automation table processing constructs a command from constant strings (in quotation marks) and variables defined in the automation table (not in quotation marks), there is no way to ensure that the resulting command does not contain blanks. If a variable value contains blanks, and the resulting command does not work properly because of those blanks, NetView does not provide a way to strip off those blanks to allow the command to work. PROBLEM CONCLUSION: TEMPORARY FIX: COMMENTS: A new function, called STRIP, is being provided in automation table processing which can be specified in the command string in an EXEC statement. When specified, the variable value, without leading or trailing blanks or hex zeroes will be used instead of the variable value as specified. The Tivoli NetView for z/OS V6R1 Automation Guide (SC27-2846-00) should be changed as follows: In Chapter 15, The Automation Table, in the section named Actions, in the description of the EXEC action, in the description of 'cmdstring', the following should be added after the first paragraph: Because variable values could contain leading or trailing blanks which could cause the command to fail, you can use the STRIP function to strip off leading and trailing blanks or hexadecimal zeroes. Syntax: STRIP(varname) where 'varname' is the variable name whose value without leading and trailing blanks and hexadecimal zeroes is to be inserted into the command. MODULES/MACROS: DSIAMCMD DSIMACTN DSIMCT DSIMPRS SRLS: SC27284600 RTN CODES: CIRCUMVENTION: Instead of invoking the necessary command string from the EXEC statement in the automation table, specify a CLIST to be executed, passing the appropriate parameters, which will itself use the REXX STRIP() function and execute the desired command. MESSAGE TO SUBMITTER: -Original Message- From: IBM Mainframe Discussion List On Behalf Of Jeremy Nicoll Sent: Monday, November 30, 2020 9:15 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Auto Reply on SDSF Console On Mon, 30 Nov 2020, at 14:00, Barkow, Eileen wrote: > Sorry about that. I see that STRIP is available in NETVIEW REXX now. > it was not a few releases ago when I tried to use it. I have a handful of copies of old netview execs here. I'm looking now at one I wrote in 1996 and it uses strip(). -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN This e-mail, including any attachments, may be confidential, privileged or otherwise legally protected. It is intended only for the addressee. If you received this e-mail in error or from someone
Re: Auto Reply on SDSF Console
On Mon, 30 Nov 2020, at 13:57, Seymour J Metz wrote: > Where and how is the code failing? [snip] Sorry to reply to this post, but I've deleted the OP's question. But looking at the part you included at the foot of your mail... > 'PIPE SAFE * | STEM MSG.' > > TOvolume = Word( Msg,4 ) > MsgID = Word( Msg,1 ) > MsgID1 = substr(MsgID,2,2) I don't think I ever used PIPE SAFE... but surely the "STEM MSG." part implies that the first line of the message would be in MSG.1 ? I wouldn't use a loop to test successive values in the 'volume' var. Given volume = 'SP5145 ' , 'SP5146 ' , 'SP5147 ' (though since that's a list of volsers I doubt very much I'd have called that var 'volume' - surely eg 'volslist' would be a better name?) I'd just use if wordpos(TOvolume,volslist) > 0 then ... -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
On Mon, 30 Nov 2020, at 14:00, Barkow, Eileen wrote: > Sorry about that. I see that STRIP is available in NETVIEW REXX now. it > was not a few releases ago when I tried to use it. I have a handful of copies of old netview execs here. I'm looking now at one I wrote in 1996 and it uses strip(). -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
Sorry about that. I see that STRIP is available in NETVIEW REXX now. it was not
a few releases ago when I tried to use it.
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Seymour J Metz
Sent: Monday, November 30, 2020 8:44 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console
Where is that documented? As far as I can tell Netview doesn't have its own
REXX interpreter, but rather uses TSO/E REXX and the REXX compiler product.
--
Shmuel (Seymour J.) Metz
https://gcc02.safelinks.protection.outlook.com/?url=http:%2F%2Fmason.gmu.edu%2F~smetz3&data=04%7C01%7Cebarkow%40doitt.nyc.gov%7C88206f8b4de84177ad8608d8953627b0%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423407115960543%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=c4E8YPua2%2BM31U29JLtIEiH80jY8TxZ8ef%2Bu5MYPT5o%3D&reserved=0
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console
STRIP is not allowed in NETVIEW REXX
You can just do something like this:
V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console
See SYS1.PARMLIB(AUTORxx)
*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and
IBM I **| *
*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**:
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2F&data=04%7C01%7Cebarkow%40doitt.nyc.gov%7C88206f8b4de84177ad8608d8953627b0%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423407115970501%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=lVXwQxGm3Cl9UsJgDw%2Bq5N3TrwHw8V4ylPSAhEa0l1E%3D&reserved=0
**|*
On Mon, Nov 30, 2020 at 10:15 AM 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
This e-mail, including any attachments, may be confidential, privileged or
otherwise legally protected. It is intended only for the addressee. If you
received this e-mail in error or from someone who was not authorized to send it
to you, do not disseminate, copy or otherwise use this e-mail or its
attachments. Please notify the sender immediately by reply e-mail and delete
the e-mail from your system.
Re: Auto Reply on SDSF Console
Where and how is the code failing?
BTW, you don't need the STRIP the output of the WORD function.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
saurabh khandelwal [sourabhkhandelwal...@gmail.com]
Sent: Monday, November 30, 2020 3:15 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Auto Reply on SDSF Console
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
Re: Auto Reply on SDSF Console
Where is that documented? As far as I can tell Netview doesn't have its own
REXX interpreter, but rather uses TSO/E REXX and the REXX compiler product.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Discussion List [IBM-MAIN@LISTSERV.UA.EDU] on behalf of
Barkow, Eileen [02bc504b1642-dmarc-requ...@listserv.ua.edu]
Sent: Monday, November 30, 2020 7:42 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console
STRIP is not allowed in NETVIEW REXX
You can just do something like this:
V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console
See SYS1.PARMLIB(AUTORxx)
*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and
IBM I **| *
*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**:
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2F&data=04%7C01%7Cebarkow%40doitt.nyc.gov%7C81c1ad985d0445fd8ddb08d8950ba0e8%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423224506873215%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=2AQVh%2FozrTHV3zoGnFQrAux5punh39BwcagHjtpchog%3D&reserved=0
**|*
On Mon, Nov 30, 2020 at 10:15 AM 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
This e-mail, including any attachments, may be confidential, privileged or
otherwise legally protected. It is intended only for the addressee. If you
received this e-mail in error or from someone who was not authorized to send it
to you, do not disseminate, copy or otherwise use this e-mail or its
attachments. Please notify the sender immediately by reply e-mail and delete
the e-mail from your system.
--
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
Re: Auto Reply on SDSF Console
On Mon, 30 Nov 2020, at 12:42, Barkow, Eileen wrote: > STRIP is not allowed in NETVIEW REXX Why do you say that? -- Jeremy Nicoll - my opinions are my own. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
STRIP is not allowed in NETVIEW REXX
You can just do something like this:
V = SUBSTR(MSGVAR(4),1,8)
IF V = '*SP5145*' | V='*SP5146*' THEN
R MSGVAR(1),NO
EXIT
EXIT
-Original Message-
From: IBM Mainframe Discussion List On Behalf Of
Itschak Mugzach
Sent: Monday, November 30, 2020 3:40 AM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: Auto Reply on SDSF Console
See SYS1.PARMLIB(AUTORxx)
*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux and
IBM I **| *
*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**:
https://gcc02.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.securiteam.co.il%2F&data=04%7C01%7Cebarkow%40doitt.nyc.gov%7C81c1ad985d0445fd8ddb08d8950ba0e8%7C73d61799c28440228d4154cc4f1929ef%7C0%7C0%7C637423224506873215%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C1000&sdata=2AQVh%2FozrTHV3zoGnFQrAux5punh39BwcagHjtpchog%3D&reserved=0
**|*
On Mon, Nov 30, 2020 at 10:15 AM 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
This e-mail, including any attachments, may be confidential, privileged or
otherwise legally protected. It is intended only for the addressee. If you
received this e-mail in error or from someone who was not authorized to send it
to you, do not disseminate, copy or otherwise use this e-mail or its
attachments. Please notify the sender immediately by reply e-mail and delete
the e-mail from your system.
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
Re: Auto Reply on SDSF Console
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
wrote:
> See SYS1.PARMLIB(AUTORxx)
>
> *| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
> Platform* *|* *Information Security Continuous Monitoring for Z/OS,
> zLinux and IBM I **| *
>
> *|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
> *Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*
>
>
>
>
>
> On Mon, Nov 30, 2020 at 10:15 AM 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
Re: Auto Reply on SDSF Console
See SYS1.PARMLIB(AUTORxx)
*| **Itschak Mugzach | Director | SecuriTeam Software **|** IronSphere
Platform* *|* *Information Security Continuous Monitoring for Z/OS, zLinux
and IBM I **| *
*|* *Email**: i_mugz...@securiteam.co.il **|* *Mob**: +972 522 986404 **|*
*Skype**: ItschakMugzach **|* *Web**: www.Securiteam.co.il **|*
On Mon, Nov 30, 2020 at 10:15 AM 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
Auto Reply on SDSF Console
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
