subject:"Re\: Netview Submit JCL"

Re: Netview Submit JCL

2018-05-16 Thread Lucas Rosalen

 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 <
> > > > > venkatkulkarn...@gmail.com> 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 <
> > > > rosalen.lu...@gmail.com
> > > > > >
> > > > > > 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*
> > > > > > > rosalen.lu...@gmail.com / lucas.

Re: Netview Submit JCL

2018-05-16 Thread Steve Horein

; 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,, 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 <
> > > > venkatkulkarn...@gmail.com> 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 "

Re: Netview Submit JCL

2018-05-16 Thread Lucas Rosalen

 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,, 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 <
> > > > venkatkulkarn...@gmail.com> 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)

Re: Netview Submit JCL

2018-05-16 Thread saurabh khandelwal

 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 <
> > > venkatkulkarn...@gmail.com> 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 <
> > rosalen.lu...@gmail.com
> > > >
> > > > 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*
> > > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > > http://br.linkedin.com/in/lrosalen
> > > > >
> > > > >
> > > > > 2018-05-14 9:28 GMT+02:00 Werner Kuehnel <
> > werner.kueh...@mannheimer.de
> > > >:
> > > > >
> > > > > > Hello Venkat,
> > > > > > this is how it works at our site:
> > > > > >
> > > > > > /***
> > > > **/
> > > > > > /*  FUNCTION: submits job
> > > */
> > > > > > /***
> > > > ***

Re: Netview Submit JCL

2018-05-16 Thread Steve Horein

g 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 <
> rosalen.lu...@gmail.com
> > >
> > > 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*
> > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > http://br.linkedin.com/in/lrosalen
> > > >
> > > >
> > > > 2018-05-14 9:28 GMT+02:00 Werner Kuehnel <
> werner.kueh...@mannheimer.de
> > >:
> > > >
> > > > > 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:ibm-m...@listserv.ua.
> EDU]
> > > Im
> > > > > Auftrag von venkat kulkarni
> > > > > Gesendet: Montag, 14. Mai 2018 06:27
> > > > > An: IBM-MAIN@LISTSERV.UA.EDU
> > > > > 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 <
> > rosalen.lu...@gmail.com>
> > > > > wrote:
> > > > >
> > > > > > Hi Venkat,
> > > > > >
> > > > > > What about using the syntax below?
> > > > > >
> > > > > > "MVS SEND 'your_message' USER(user) NOW"
> > > > > >
> > > > > >
> > > > > >
> > > > > > 
> > > > > 
> ---
> > > > > > *Lucas Rosalen*
> > > > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > > > http://br.linkedin.com/in/lrosalen
> > > > > >
> > > > > >
> > > > > > 2018-05-13 20:50 GMT+02:00 Steve Horein <steve.hor...@gmail.com
> >:
> > > > > >
> > > > > > > And the man ate fish for a day
> > > > > > >
> > > > > > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > > > > > > venkatkulkarn...@gmail.com> wrote:
> > > > > > >
> > > > > > > > Hello Luc

Re: Netview Submit JCL

2018-05-15 Thread saurabh khandelwal

GITEM 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,, 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 <
> venkatkulkarn...@gmail.com> 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 <rosalen.lu...@gmail.com
> >
> > 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*
> > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > http://br.linkedin.com/in/lrosalen
> > >
> > >
> > > 2018-05-14 9:28 GMT+02:00 Werner Kuehnel <werner.kueh...@mannheimer.de
> >:
> > &g

Re: Netview Submit JCL

2018-05-14 Thread Steve Horein

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 <rosalen.lu...@gmail.com>
> 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*
> > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > http://br.linkedin.com/in/lrosalen
> >
> >
> > 2018-05-14 9:28 GMT+02:00 Werner Kuehnel <werner.kueh...@mannheimer.de>:
> >
> > > 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:IBM-MAIN@LISTSERV.UA.EDU]
> Im
> > > Auftrag von venkat kulkarni
> > > Gesendet: Montag, 14. Mai 2018 06:27
> > > An: IBM-MAIN@LISTSERV.UA.EDU
> > > 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 <rosalen.lu...@gmail.com>
> > > wrote:
> > >
> > > > Hi Venkat,
> > > >
> > > > What about using the syntax below?
> > > >
> > > > "MVS SEND 'your_message' USER(user) NOW"
> > > >
> > > >
> > > >
> > > > 
> > > ---
> > > > *Lucas Rosalen*
> > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > http://br.linkedin.com/in/lrosalen
> > > >
> > > >
> > > > 2018-05-13 20:50 GMT+02:00 Steve Horein <steve.hor...@gmail.com>:
> > > >
> > > > > And the man ate fish for a day
> > > > >
> > > > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > > > > venkatkulkarn...@gmail.com> wrote:
> > > > >
> > > > > > Hello Lucas,
> > > > > >
> > > > > > Your solution worked for me
> > > > > >
> > > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'

Re: Netview Submit JCL

2018-05-14 Thread Dale R. Smith

On Mon, 14 May 2018 19:29:36 +0300, saurabh khandelwal 
 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.

Netview does not run under TSO so it does not support the "Address TSO" command 
environment.  It does support "Address MVS" and some other environments.  

See the following:  
https://www.ibm.com/support/knowledgecenter/en/SSZJDU_6.1.0/com.ibm.itnetviewforzos.doc_6.1/dqgl2mst68.htm

You need to review the Netview documentation to see what Netview commands are 
available for use.

-- 
Dale R. Smith

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

2018-05-14 Thread saurabh khandelwal

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 <rosalen.lu...@gmail.com>
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*
> rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> http://br.linkedin.com/in/lrosalen
>
>
> 2018-05-14 9:28 GMT+02:00 Werner Kuehnel <werner.kueh...@mannheimer.de>:
>
> > 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:IBM-MAIN@LISTSERV.UA.EDU] Im
> > Auftrag von venkat kulkarni
> > Gesendet: Montag, 14. Mai 2018 06:27
> > An: IBM-MAIN@LISTSERV.UA.EDU
> > 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 <rosalen.lu...@gmail.com>
> > wrote:
> >
> > > Hi Venkat,
> > >
> > > What about using the syntax below?
> > >
> > > "MVS SEND 'your_message' USER(user) NOW"
> > >
> > >
> > >
> > > 
> > ---
> > > *Lucas Rosalen*
> > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > http://br.linkedin.com/in/lrosalen
> > >
> > >
> > > 2018-05-13 20:50 GMT+02:00 Steve Horein <steve.hor...@gmail.com>:
> > >
> > > > And the man ate fish for a day
> > > >
> > > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > > > venkatkulkarn...@gmail.com> 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
> > > > &

Re: Netview Submit JCL

2018-05-14 Thread Lucas Rosalen

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*
rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
http://br.linkedin.com/in/lrosalen


2018-05-14 9:28 GMT+02:00 Werner Kuehnel <werner.kueh...@mannheimer.de>:

> 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:IBM-MAIN@LISTSERV.UA.EDU] Im
> Auftrag von venkat kulkarni
> Gesendet: Montag, 14. Mai 2018 06:27
> An: IBM-MAIN@LISTSERV.UA.EDU
> 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 <rosalen.lu...@gmail.com>
> wrote:
>
> > Hi Venkat,
> >
> > What about using the syntax below?
> >
> > "MVS SEND 'your_message' USER(user) NOW"
> >
> >
> >
> > 
> ---
> > *Lucas Rosalen*
> > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > http://br.linkedin.com/in/lrosalen
> >
> >
> > 2018-05-13 20:50 GMT+02:00 Steve Horein <steve.hor...@gmail.com>:
> >
> > > And the man ate fish for a day
> > >
> > > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > > venkatkulkarn...@gmail.com> 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 <
> > rosalen.lu...@gmail.com>
> > > > wrote:
> > > >
> > > > > Try changing FDIREXX script to the following:
> > > > >
> > > > > /* REXX */
> > > > >
> > > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> > > > >
> > > > >
> > > > > 
> > > > > 
> ---
> > > > > *Lucas Rosalen*
> > > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > > http://br.linkedin.com/in/lrosalen
> > > > >
> > > > >
> > > > > 2018-05-12 12:57 GMT-03:00 Steve Horein <steve.hor...@gmail.com>:
> > > > >
> > > > > > 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 her

Re: Netview Submit JCL

2018-05-13 Thread venkat kulkarni

Hello,

This command didn't worked for me and getting same issue.

On Sun, May 13, 2018, 11:21 PM Lucas Rosalen 
wrote:

> Hi Venkat,
>
> What about using the syntax below?
>
> "MVS SEND 'your_message' USER(user) NOW"
>
>
>
> ---
> *Lucas Rosalen*
> rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> http://br.linkedin.com/in/lrosalen
>
>
> 2018-05-13 20:50 GMT+02:00 Steve Horein :
>
> > And the man ate fish for a day
> >
> > On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> > venkatkulkarn...@gmail.com> 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 <
> rosalen.lu...@gmail.com>
> > > wrote:
> > >
> > > > Try changing FDIREXX script to the following:
> > > >
> > > > /* REXX */
> > > >
> > > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> > > >
> > > >
> > > > 
> > > > ---
> > > > *Lucas Rosalen*
> > > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > > http://br.linkedin.com/in/lrosalen
> > > >
> > > >
> > > > 2018-05-12 12:57 GMT-03:00 Steve Horein :
> > > >
> > > > > 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 <
> > > > > venkatkulkarn...@gmail.com
> > > > > > 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.
> > > > > >
> > > > > > sss
> > > > > >
> > > > > > BROWSENETVIEW.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 : #241 : 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=
> > > > > >
> > > > > > //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

Re: Netview Submit JCL

2018-05-13 Thread Lucas Rosalen

Hi Venkat,

What about using the syntax below?

"MVS SEND 'your_message' USER(user) NOW"


---
*Lucas Rosalen*
rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
http://br.linkedin.com/in/lrosalen


2018-05-13 20:50 GMT+02:00 Steve Horein :

> And the man ate fish for a day
>
> On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
> venkatkulkarn...@gmail.com> 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 
> > wrote:
> >
> > > Try changing FDIREXX script to the following:
> > >
> > > /* REXX */
> > >
> > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> > >
> > >
> > > 
> > > ---
> > > *Lucas Rosalen*
> > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > http://br.linkedin.com/in/lrosalen
> > >
> > >
> > > 2018-05-12 12:57 GMT-03:00 Steve Horein :
> > >
> > > > 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 <
> > > > venkatkulkarn...@gmail.com
> > > > > 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.
> > > > >
> > > > > sss
> > > > >
> > > > > BROWSENETVIEW.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 : #241 : 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=
> > > > >
> > > > > //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 lists...@listserv.ua.edu with the message: INFO
> > IBM-MAIN
> > > > >
> > > >
> > > > 
> --
> > > > For IBM-MAIN subscribe / signoff /

Re: Netview Submit JCL

2018-05-13 Thread Steve Horein

And the man ate fish for a day

On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
venkatkulkarn...@gmail.com> 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 
> wrote:
>
> > Try changing FDIREXX script to the following:
> >
> > /* REXX */
> >
> > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> >
> >
> > 
> > ---
> > *Lucas Rosalen*
> > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > http://br.linkedin.com/in/lrosalen
> >
> >
> > 2018-05-12 12:57 GMT-03:00 Steve Horein :
> >
> > > 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 <
> > > venkatkulkarn...@gmail.com
> > > > 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.
> > > >
> > > > sss
> > > >
> > > > BROWSENETVIEW.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 : #241 : 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=
> > > >
> > > > //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 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
> >
>
> --
> 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

Re: Netview Submit JCL

2018-05-13 Thread venkat kulkarni

"SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"

in this, " started with SEND and then two single quote start with FD and
then one closed after received and then one single and one double quote
ended after NOW.


Can you please help to correct this .


On Sun, May 13, 2018 at 9:17 PM, Chris Hoelscher <choelsc...@humana.com>
wrote:

> Well I see 3 double quotes and 2 single quotes .
>
> Chris Hoelscher
> Technology Architect, Database Infrastructure Services
> Technology Solution Services
> Humana Inc.
> 123 East Main Street
> Louisville, KY 40202
> Humana.com
> (502) 476-2538 or 407-7266
>
> -Original Message-
> From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On
> Behalf Of venkat kulkarni
> Sent: Sunday, May 13, 2018 2:10 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> Subject: Re: [IBM-MAIN] Netview Submit JCL
>
> Hello Mike,
>
> I dont have uneven number ob " and ' . If you notice
>
>  "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"
>
> I also tried
>
>  SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW
>
> but all the time i get error
>
>
>
> On Sun, May 13, 2018 at 8:57 PM, Mike Beer <m...@beer.at> wrote:
>
> > Hi,
> > You have an uneven number of " and ' in your command.
> > " or ' have to be in pairs. They can be nested, if necessary.
> >
> > Best regards
> > Mike
> >
> > -Ursprüngliche Nachricht-----
> > Von: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Im
> > Auftrag von venkat kulkarni
> > Gesendet: 13 May, 2018 19:07
> > An: IBM-MAIN@LISTSERV.UA.EDU
> > Betreff: Re: Netview Submit JCL
> >
> > 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
> > <rosalen.lu...@gmail.com>
> > wrote:
> >
> > > Try changing FDIREXX script to the following:
> > >
> > > /* REXX */
> > >
> > > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> > >
> > >
> > > 
> > > ---
> > > *Lucas Rosalen*
> > > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > > http://br.linkedin.com/in/lrosalen
> > >
> > >
> > > 2018-05-12 12:57 GMT-03:00 Steve Horein <steve.hor...@gmail.com>:
> > >
> > > > 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 <
> > > > venkatkulkarn...@gmail.com
> > > > > 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);
> > > &

Re: Netview Submit JCL

2018-05-13 Thread Chris Hoelscher

Well I see 3 double quotes and 2 single quotes . 

Chris Hoelscher
Technology Architect, Database Infrastructure Services
Technology Solution Services
Humana Inc.
123 East Main Street
Louisville, KY 40202
Humana.com
(502) 476-2538 or 407-7266

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of venkat kulkarni
Sent: Sunday, May 13, 2018 2:10 PM
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: [IBM-MAIN] Netview Submit JCL

Hello Mike,

I dont have uneven number ob " and ' . If you notice

 "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"

I also tried

 SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW

but all the time i get error



On Sun, May 13, 2018 at 8:57 PM, Mike Beer <m...@beer.at> wrote:

> Hi,
> You have an uneven number of " and ' in your command.
> " or ' have to be in pairs. They can be nested, if necessary.
>
> Best regards
> Mike
>
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Im 
> Auftrag von venkat kulkarni
> Gesendet: 13 May, 2018 19:07
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: Netview Submit JCL
>
> 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 
> <rosalen.lu...@gmail.com>
> wrote:
>
> > Try changing FDIREXX script to the following:
> >
> > /* REXX */
> >
> > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> >
> >
> > 
> > ---
> > *Lucas Rosalen*
> > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com 
> > http://br.linkedin.com/in/lrosalen
> >
> >
> > 2018-05-12 12:57 GMT-03:00 Steve Horein <steve.hor...@gmail.com>:
> >
> > > 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 < 
> > > venkatkulkarn...@gmail.com
> > > > 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.
> > > >
> > > > sss
> > > >
> > > > BROWSENETVIEW.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 : #241 : FDIREXX
> > > >
> > > > 13:35:50 E IEF404I USR1LC - ENDED - TIME=13.35.50
> >

Re: Netview Submit JCL

2018-05-13 Thread venkat kulkarni

Hello Mike,

I dont have uneven number ob " and ' . If you notice

 "SEND ''FD FILE HAS BEEN RECEIVED' USER(USR54) NOW'"

I also tried

 SEND 'FD FILE HAS BEEN RECEIVED' USER(USR54) NOW

but all the time i get error



On Sun, May 13, 2018 at 8:57 PM, Mike Beer <m...@beer.at> wrote:

> Hi,
> You have an uneven number of " and ' in your command.
> " or ' have to be in pairs. They can be nested, if necessary.
>
> Best regards
> Mike
>
> -Ursprüngliche Nachricht-
> Von: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> Im Auftrag
> von venkat kulkarni
> Gesendet: 13 May, 2018 19:07
> An: IBM-MAIN@LISTSERV.UA.EDU
> Betreff: Re: Netview Submit JCL
>
> 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 <rosalen.lu...@gmail.com>
> wrote:
>
> > Try changing FDIREXX script to the following:
> >
> > /* REXX */
> >
> > "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
> >
> >
> > 
> > ---
> > *Lucas Rosalen*
> > rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> > http://br.linkedin.com/in/lrosalen
> >
> >
> > 2018-05-12 12:57 GMT-03:00 Steve Horein <steve.hor...@gmail.com>:
> >
> > > 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 <
> > > venkatkulkarn...@gmail.com
> > > > 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.
> > > >
> > > > sss
> > > >
> > > > BROWSENETVIEW.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 : #241 : 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 **
> > > >
> >

Re: Netview Submit JCL

2018-05-13 Thread venkat kulkarni

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 
wrote:

> Try changing FDIREXX script to the following:
>
> /* REXX */
>
> "SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
>
>
> 
> ---
> *Lucas Rosalen*
> rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
> http://br.linkedin.com/in/lrosalen
>
>
> 2018-05-12 12:57 GMT-03:00 Steve Horein :
>
> > 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 <
> > venkatkulkarn...@gmail.com
> > > 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.
> > >
> > > sss
> > >
> > > BROWSENETVIEW.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 : #241 : 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=
> > >
> > > //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 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
>

--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Netview Submit JCL

2018-05-12 Thread Lucas Rosalen

Try changing FDIREXX script to the following:

/* REXX */

"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"


---
*Lucas Rosalen*
rosalen.lu...@gmail.com / lucas.rosal...@ibm.com
http://br.linkedin.com/in/lrosalen


2018-05-12 12:57 GMT-03:00 Steve Horein :

> 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 <
> venkatkulkarn...@gmail.com
> > 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.
> >
> > sss
> >
> > BROWSENETVIEW.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 : #241 : 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=
> >
> > //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 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: Netview Submit JCL

2018-05-12 Thread Steve Horein

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  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.
>
> sss
>
> BROWSENETVIEW.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 : #241 : 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=
>
> //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 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: Netview Submit JCL

2018-05-12 Thread Bulent Dulger

Hello Venkart,

You should actually be able to do that. User submitting that jcl needs to 
submit jcl and some TSO authorizations. Have you given right permission for 
that user? If not, please give them and try again? You can take help from your 
security administrators for them.

Best Regards

Bülent Dülger
Mainframe IT Specialist

ServiZ Information Technologies Inc.

-Original Message-
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf 
Of venkat kulkarni
Sent: Saturday, May 12, 2018 17:47
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Netview Submit JCL

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.

sss

BROWSENETVIEW.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 : #241 : 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=

//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 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: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

Re: Netview Submit JCL

20 matches

Site Navigation

Mail list logo

Footer information