Hello Steve,
hanks for your response and guiding me on this. I use Netview forum before
but nobody responded. So, I assumed that its inactive now.
Basically, I want to capture below message for testing from syslog
--6----+----7----+----8----+----9----+----0----+----1----+----2----+----3-
IEF403I USR54LST - STARTED - TIME=07.54.54
635022 OTHWLD 0 0 0 0
IEF404I USR54LST - ENDED - TIME=07.55.23
-USR54LST ENDED. NAME- TOTAL TCB CPU TIME= .04
TOTAL ELAPSED TIME= .4 SUBSYS=JES2
$HASP395 USR54LST ENDED
For this I coded automation table as below.
IF MSGID = 'IEF403I' & TEXT = 'USR54LST' & TEXT = MTXT THEN
EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y);
And in FDIREXXO rexx looks as below.
/* REXX */
TRACE I
ARG MTXT
PARSE VAR MTXT MSGID DSET
DSET = STRIP(DSET)
MTXT = DSET
SAY 'DATASET NAME IS' DSET
MVS "SEND '"MTXT"' USER(USR54) NOW"
Basically I want to capture “USR54LST - STARTED - TIME=07.54.54” string
and display to operator once we see MSGID = IEF403I and TEXT =USR54LST in
syslog.
But I don’t see any message related to this even in netview log (netloga) .
This indicate that we are unable to trap this message and nothing getting
displayed to operator.
Can you please help me correcting this.
On Tue, May 15, 2018 at 4:17 AM, Steve Horein <[email protected]>
wrote:
> First suggestion: Read and understand the documents found at the links
> provided earlier:
>
> Specifics to NetView Rexx can be found here:
> https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
>
> Specifics to NetView Automation can be found here:
> https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
>
> Next suggestion, join the Tivoli NetView Yahoo group:
> https://groups.yahoo.com/neo/groups/NetView/info
>
> There is a complimentary System Automation Yahoo group as well (but SA
> hasn't entered the conversation):
> https://groups.yahoo.com/neo/groups/SAUsers/info
>
>
> Now, about your post...
>
> The Automation Table (AT) entry will likely not fire due to the second
> condition looking for literal text "END OF":
>
> IF MSGID = 'IEF878I'
> & TEXT = 'END OF'
> & TEXT = MTXT
> THEN
> EXEC(CMD('FDIREXX' MTXT))
> NETLOG(Y) SYSLOG(Y)
> ;
>
> The test as written is looking for the entirety of the TEXT value to be
> 'END OF' and nothing more.
> This is impossible because TEXT also includes MSGID.
>
> You need to use placeholders described here to allow 'END OF' to be found
> anywhere in the message:
> https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm
>
>
> This however is about as useful of testing condition IF "1" = "1", since
> message IEF878I always includes 'END OF' as part of the message text,
> according to MVS System Messages documentation.
>
> The other condition, resulting in the variable MTXT containing the value of
> TEXT is fine as written, but ultimately not required.
> An automation procedure called from the AT has access to the default SAFE
> named "*", which contains all attributes of the message triggering the
> action.
> The information contained in the SAFE can be accessed either through a PIPE
> SAFE stage or message functions, such as MSGID(), JOBNAME(), JOBNUM()
>
> PIPE information:
> https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm
>
>
> Message functions:
> https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm
>
>
> I would likely construct FDIREXX to include:
>
> 'PIPE SAFE *',
> '|VAR MTXT'
>
> ...or if a MLWTO:
>
> 'PIPE SAFE *',
> '|STEM MTXT.'
>
> Which leads to the contents of FDIREXX -
> As written, I don't see much happening there, either:
>
> ARG MSGTXT
> PARSE VAR MSGTXT MSGID 'TO 'DSET
> DSET = STRIP(DSET)
> MSGTX = DSET
> SAY 'DATASET NAME IS' DSET
> MVS "SEND 'MSGTX ' USER(OP117) NOW"
>
> The PARSE VAR statement will likely not produce the desire results, due to
> explicit delimiter of the literal 'TO '.
> I do not see the word (or string ending in) 'TO' anywhere in the
> IEF878I message.
>
> If you want to isolate a specific word or token of the message, that can be
> done in the AT, such as a condition that sets a variable that is passed to
> your procedure (similar to your existing MTXT processing):
> & TOKEN(8) = DSET
>
> Or if using the default SAFE inside FDIREXX,
> DSET = MSGITEM(7)
>
> (TOKEN counts the MSGID as word 1, MSGITEM counts the MSGID as word 0)
>
> I don't believe your final message to the user will be as expected either.
> After parsing MSGTXT to obtain DSET, you set the variable name MSGTX to the
> value of DSET, and (attempt) to pass that to the user.
>
> Due to the initial opening quote is double quote, everything inside is
> interpreted by Rexx as a literal, including the presumed variable 'MSGTX',
> until a closing double quote is encountered.
> To correct that, you need to place a double quote after the first single
> quote to expose the variable to Rexx, followed by a double quote to resume
> literal processing, followed by single quote and the remainder of the
> string:
>
> MVS "SEND '"MSGTX"' USER(OP117) NOW"
>
> (double, single, double,<variable>, double, single, double)
>
> However, since MSGTX was set to DSET, which was set to the literal
> following 'TO ' in the IEF878I message, it is more than likely DSET will
> be a null value, which I believe will return a SEND syntax error should all
> the above be "corrected".
>
> I'll give you this one:
> To make FDIREXX more flexible relating to the target of the SEND command,
> PIPE EDIT can be used to extract the ID of the job "owner":
>
> 'PIPE EDIT AUTHUSER 1',
> '|VAR USERID'
>
> I encourage you to take the time and READ the documentation provided by the
> vendor. They provide it for a reason.
> You will undoubtedly encounter discrepancies between documentation and
> reality from time to time, but most vendors have support portals or
> feedback forms that you use to identify such discrepancies.
>
>
>
> On Mon, May 14, 2018 at 11:29 AM, saurabh khandelwal <
> [email protected]> wrote:
>
> > Hello Lucas,
> >
> > This code worked for me
> >
> > but I had to remove Address TSO from this rexx code to make it work .
> >
> > MVS "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW"
> >
> > I am really thankful to you and other group member to help me to solve
> this
> > issue.
> >
> > Now, I setup my netview auto table
> >
> > IF MSGID = 'IEF878I' & TEXT = 'END OF' & TEXT = MTXT THEN
> > EXEC(CMD('FDIREXX' MTXT)) NETLOG(Y) SYSLOG(Y);
> > So, basically i am trying to trap the message like below from
> > IEF878I END OF IEF877E FOR OP117603 STEP1 GO DLMTOKEN
> >
> > full message Message is
> >
> > ICH70001I OP117 LAST ACCESS AT 13:13:42 ON MONDAY, MAY 14, $HASP373
> > OP117603 STARTED - INIT A - CLASS A - SYS IEF403I OP117603 - STARTED -
> > TIME=13.18.16 IEF244I OP117603 STEP1 GO - UNABLE TO ALLOCATE 1 UNIT(S)
> 049
> > AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 UNIT(S) 050
> FOR
> > STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF IEF877E
> > FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in netview as
> > below 3:59:36 C BR NETLOGA 4:01:11 " IEF877E OP117603 NEEDS 1 UNIT(S)
> > 4:01:11 " FOR STEP1 GO DLMTOKEN 4:01:11 " FOR VOLUME BFL603 4:01:11 "
> > OFFLINE 4:01:11 " 0FBF 4:01:11 " : 4:01:11 E IEF878I END OF IEF877E FOR
> > OP117603 STEP1 GO DLMTOKEN But now, my aim is to display this whole
> message
> > to operator using send command upon getting msgid IEF878I and text "END
> > OF"
> > Now, I coded rexx like below.
> >
> > ARG MSGTXT PARSE VAR MSGTXT MSGID 'TO 'DSET DSET = STRIP(DSET)
> > MSGTX = DSET
> > SAY 'DATASET NAME IS' DSET MVS "SEND 'MSGTX ' USER(OP117) NOW"
> > But I am unable to see this message on my tso screen after this event
> > trigger.
> >
> > Can anybody help.
> >
> > On Mon, May 14, 2018 at 11:11 AM, Lucas Rosalen <[email protected]
> >
> > wrote:
> >
> > > Hi Venkat,
> > >
> > > Could you try with the following code?
> > >
> > > ==========================================
> > > /* REXX */
> > >
> > > SAY 'HELLO WORLD!'
> > >
> > > "SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW"
> > >
> > > EXIT
> > > ==========================================
> > >
> > >
> > > ------------------------------------------------------------
> > > -------------------------------------------------------------------
> > > *Lucas Rosalen*
> > > [email protected] / [email protected]
> > > http://br.linkedin.com/in/lrosalen
> > >
> > >
> > > 2018-05-14 9:28 GMT+02:00 Werner Kuehnel <[email protected]
> >:
> > >
> > > > Hello Venkat,
> > > > this is how it works at our site:
> > > >
> > > > /***********************************************************
> > **********/
> > > > /* FUNCTION: submits job
> */
> > > > /***********************************************************
> > **********/
> > > > 'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
> > > > EXIT
> > > >
> > > > Just one apostrophe at the beginning and one at the end. No ADDRESS
> > TSO.
> > > > Member JCLMBR contains the JCL.
> > > >
> > > > Hth,
> > > > Werner
> > > >
> > > > -----Ursprüngliche Nachricht-----
> > > > Von: IBM Mainframe Discussion List [mailto:[email protected]]
> > Im
> > > > Auftrag von venkat kulkarni
> > > > Gesendet: Montag, 14. Mai 2018 06:27
> > > > An: [email protected]
> > > > Betreff: Re: Netview Submit JCL
> > > >
> > > > Hello,
> > > >
> > > > This command didn't worked for me and getting same issue.
> > > >
> > > > On Sun, May 13, 2018, 11:21 PM Lucas Rosalen <
> [email protected]>
> > > > wrote:
> > > >
> > > > > Hi Venkat,
> > > > >
> > > > > What about using the syntax below?
> > > > >
> > > > > "MVS SEND 'your_message' USER(user) NOW"
> > > > >
> > > > >
> > > > >
> > > > > ------------------------------------------------------------
> > > > -------------------------------------------------------------------
> > > > > *Lucas Rosalen*
> > > > > [email protected] / [email protected]
> > > > > http://br.linkedin.com/in/lrosalen
> > > > >
> > > > >
> > > > > 2018-05-13 20:50 GMT+02:00 Steve Horein <[email protected]>:
> > > > >
> > > > > > And the man ate fish for a day
> > > > > >
> > > > > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > > > > > [email protected]> wrote:
> > > > > >
> > > > > > > Hello Lucas,
> > > > > > >
> > > > > > > Your solution worked for me
> > > > > > >
> > > > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'" .
> > > > > > >
> > > > > > > Now, I am trying to issue tso send command using this rexx as
> > > below
> > > > > > using
> > > > > > > netview but i am getting below errror
> > > > > > >
> > > > > > >
> > > > > > > /* REXX */
> > > > > > >
> > > > > > > ADDRESS TSO
> > > > > > >
> > > > > > > SAY 'HELLO WORLD!'
> > > > > > >
> > > > > > > "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > Error
> > > > > > >
> > > > > > > EF404I USR54 LC - ENDED - TIME=14.29.07
> > > > > > >
> > > > > > > HELLO WORLD!
> > > > > > >
> > > > > > > 4 *-* "SEND ''FDI FILE HAS BEEN RECEIVED' USER( USR54 )
> > > > > > >
> > > > > > > +++ RC(-3) +++
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > I am unable to find correct syntax for this. I didnt find
> > anything
> > > in
> > > > > > > manual . Can you please help.
> > > > > > >
> > > > > > >
> > > > > > >
> > > > > > > On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
> > > > > [email protected]>
> > > > > > > wrote:
> > > > > > >
> > > > > > > > Try changing FDIREXX script to the following:
> > > > > > > >
> > > > > > > > /* REXX */
> > > > > > > >
> > > > > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> > > > > > > >
> > > > > > > >
> > > > > > > > ------------------------------------------------------------
> > > > > > > > ------------------------------------------------------------
> > > > -------
> > > > > > > > *Lucas Rosalen*
> > > > > > > > [email protected] / [email protected]
> > > > > > > > http://br.linkedin.com/in/lrosalen
> > > > > > > >
> > > > > > > >
> > > > > > > > 2018-05-12 12:57 GMT-03:00 Steve Horein <
> > [email protected]
> > > >:
> > > > > > > >
> > > > > > > > > SUBMIT is a native NetView command, and you don't need (or
> > > want)
> > > > to
> > > > > > use
> > > > > > > > > ADDRESS TSO.
> > > > > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
> > > > > > > > >
> > > > > > > > > Specifics to NetView Rexx can be found here:
> > > > > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > Specifics to NetView Automation can be found here:
> > > > > > > > > https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
> > > > > > > > > com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
> > > > > > > > >
> > > > > > > > >
> > > > > > > > > On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
> > > > > > > > > [email protected]
> > > > > > > > > > wrote:
> > > > > > > > >
> > > > > > > > > > Hello Group,
> > > > > > > > > >
> > > > > > > > > > We have requirement to trigger one Job upon receiving one
> > msg
> > > > id
> > > > > > > like
> > > > > > > > > > below in
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > netview automation table.
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > IF MSGID = 'IEF404I' THEN
> > > > > > > > > >
> > > > > > > > > > EXEC(CMD('FDIREXX')) NETLOG(Y) SYSLOG(Y);
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > in CNMCLST, we have FDIREXX member as below.
> > > > > > > > > >
> > > > > > > > > > sssssssssssssssssssssssssssssssssssssssssssssss
> > > > > > > > > >
> > > > > > > > > > BROWSE NETVIEW.CNMCLST(FDIREXX) - 01.08
> > > > > > > > > >
> > > > > > > > > > ********************************* Top of Data **
> > > > > > > > > >
> > > > > > > > > > /* REXX */
> > > > > > > > > >
> > > > > > > > > > ADDRESS TSO
> > > > > > > > > >
> > > > > > > > > > SUBMIT 'USR1.REXX.CNTL(REXXJCL)'
> > > > > > > > > >
> > > > > > > > > > ******************************** Bottom of Data
> > > > > > > > > >
> > > > > > > > > > On this event trigger,I am getting below error message in
> > > > netview
> > > > > > log
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > 13:35:50 - CNM493I DSITBL01 : #0000241 : FDIREXX
> > > > > > > > > >
> > > > > > > > > > 13:35:50 E IEF404I USR1LC - ENDED - TIME=13.35.50
> > > > > > > > > >
> > > > > > > > > > 13:35:50 C 3 *-* SUBMIT 'USR1.REXX.CNTL(REXXJCL)'
> > > > > > > > > >
> > > > > > > > > > 13:35:50 C +++ RC(-3) +++
> > > > > > > > > >
> > > > > > > > > > 13:35:57 C BR NETLOGA
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > and JCL as below.
> > > > > > > > > >
> > > > > > > > > > USR1.REXX.CNTL(REXXJCL) - 01.04
> > > > > > > > > >
> > > > > > > > > > ***************************** Top of Data **********
> > > > > > > > > >
> > > > > > > > > > //USRSYS JOB (660),VENKAT,CLASS=A,NOTIFY=&SYSUID
> > > > > > > > > >
> > > > > > > > > > //STEP010 EXEC PGM=IKJEFT01,REGION=0M
> > > > > > > > > >
> > > > > > > > > > //SYSEXEC DD DSN=USR1.REXX.CNTL,DISP=SHR
> > > > > > > > > >
> > > > > > > > > > //SYSTSPRT DD SYSOUT=*
> > > > > > > > > >
> > > > > > > > > > //SYSTSIN DD *
> > > > > > > > > >
> > > > > > > > > > %SAMPLE
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > and rexx as below
> > > > > > > > > >
> > > > > > > > > > USR1.REXX.CNTL(SAMPLE) - 01.01
> > > > > > > > > >
> > > > > > > > > > ***************************** Top of Dat
> > > > > > > > > >
> > > > > > > > > > /* REXX */
> > > > > > > > > >
> > > > > > > > > > SAY 'HELLO WORLD!'
> > > > > > > > > >
> > > > > > > > > > **************************** Bottom of D
> > > > > > > > > >
> > > > > > > > > >
> > > > > > > > > > I am not sure, where I made any mistake in this process.
> > > > > > > > > >
> > > > > > > > > > Can you please help.
> > > > > > > > > >
> > > > > > > > > > ------------------------------
> > ------------------------------
> > > > > > > ----------
> > > > > > > > > > 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
> > > > > > > >
> > > > > > >
> > > > > > > ------------------------------------------------------------
> > > > ----------
> > > > > > > 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
> > > > >
> > > >
> > > > ------------------------------------------------------------
> ----------
> > > > 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
> > >
> >
> > ----------------------------------------------------------------------
> > 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
