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
