Discussion:
Netview Submit JCL
Add Reply
venkat kulkarni
2018-05-12 14:45:50 UTC
Reply
Permalink
Raw Message
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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
Bulent Dulger
2018-05-12 15:42:22 UTC
Reply
Permalink
Raw Message
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-***@LISTSERV.UA.EDU] On Behalf Of venkat kulkarni
Sent: Saturday, May 12, 2018 17:47
To: IBM-***@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.

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 ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Steve Horein
2018-05-12 15:56:35 UTC
Reply
Permalink
Raw Message
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
Post by venkat kulkarni
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,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lucas Rosalen
2018-05-12 16:12:54 UTC
Reply
Permalink
Raw Message
Try changing FDIREXX script to the following:

/* REXX */

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


-------------------------------------------------------------------------------------------------------------------------------
*Lucas Rosalen*
***@gmail.com / ***@ibm.com
http://br.linkedin.com/in/lrosalen
Post by 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
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
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,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
venkat kulkarni
2018-05-13 17:05:17 UTC
Reply
Permalink
Raw Message
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.
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by 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
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
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,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Mike Beer
2018-05-13 17:56:36 UTC
Reply
Permalink
Raw Message
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-***@LISTSERV.UA.EDU> Im Auftrag von venkat kulkarni
Gesendet: 13 May, 2018 19:07
An: IBM-***@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.
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by 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
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
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
message: INFO IBM-MAIN
--------------------------------------------------------------------
-- For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
venkat kulkarni
2018-05-13 18:08:24 UTC
Reply
Permalink
Raw Message
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
Post by Mike Beer
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 venkat kulkarni
Gesendet: 13 May, 2018 19:07
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.
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by 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
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
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
message: INFO IBM-MAIN
--------------------------------------------------------------------
-- For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Chris Hoelscher
2018-05-13 18:16:00 UTC
Reply
Permalink
Raw Message
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-***@LISTSERV.UA.EDU] On Behalf Of venkat kulkarni
Sent: Sunday, May 13, 2018 2:10 PM
To: IBM-***@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
Post by Mike Beer
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-----
Auftrag von venkat kulkarni
Gesendet: 13 May, 2018 19:07
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
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by 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
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
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
message: INFO IBM-MAIN
------------------------------------------------------------------
--
-- For IBM-MAIN subscribe / signoff / archive access instructions,
--------------------------------------------------------------------
-- For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN

The information transmitted is intended only for the person or entity to which it is addressed
and may contain CONFIDENTIAL material. If you receive this material/information in error,
please contact the sender and delete or destroy the material/information.

Humana Inc. and its subsidiaries comply with applicable Federal civil rights laws and
do not discriminate on the basis of race, color, national origin, age, disability or
sex. Humana Inc. and its subsidiaries do not exclude people or treat them differently
because of race, color, national origin, age, disability or sex.

English: ATTENTION: If you do not speak English, language assistance services, free
of charge, are available to you. Call 1‐877‐320‐1235 (TTY: 711).

Español (Spanish): ATENCIÓN: Si habla español, tiene a su disposición servicios
gratuitos de asistencia lingüística. Llame al 1‐877‐320‐1235 (TTY: 711).

繁體中文(Chinese):注意:如果您使用繁體中文,您可以免費獲得語言援助
服務。請致電 1‐877‐320‐1235 (TTY: 711)。

Kreyòl Ayisyen (Haitian Creole): ATANSION: Si w pale Kreyòl Ayisyen, gen sèvis èd
pou lang ki disponib gratis pou ou. Rele 1‐877‐320‐1235 (TTY: 711).

Polski (Polish): UWAGA: Jeżeli mówisz po polsku, możesz skorzystać z bezpłatnej
pomocy językowej. Zadzwoń pod numer 1‐877‐320‐1235 (TTY: 711).

한국어 (Korean): 주의: 한국어를 사용하시는 경우, 언어 지원 서비스를 무료로
이용하실 수 있습니다. 1‐877‐320‐1235 (TTY: 711)번으로 전화해 주십시오.


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Steve Horein
2018-05-13 18:49:20 UTC
Reply
Permalink
Raw Message
And the man ate fish for a day

On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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.
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by 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
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving one msg id
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lucas Rosalen
2018-05-13 20:20:14 UTC
Reply
Permalink
Raw Message
Hi Venkat,

What about using the syntax below?

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


-------------------------------------------------------------------------------------------------------------------------------
*Lucas Rosalen*
***@gmail.com / ***@ibm.com
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by venkat kulkarni
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.
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
SUBMIT is a native NetView command, and you don't need (or want) to
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving one msg id
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
venkat kulkarni
2018-05-14 04:25:48 UTC
Reply
Permalink
Raw Message
Hello,

This command didn't worked for me and getting same issue.
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
-------------------------------------------------------------------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by venkat kulkarni
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 <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
SUBMIT is a native NetView command, and you don't need (or want) to
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving one msg id
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
----------------------------------------------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Steve Horein
Post by venkat kulkarni
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-05-14 16:28:34 UTC
Reply
Permalink
Raw Message
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.
Post by 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*
http://br.linkedin.com/in/lrosalen
Hello Venkat,
/*********************************************************************/
/* 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-----
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
Betreff: Re: Netview Submit JCL
Hello,
This command didn't worked for me and getting same issue.
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------------------------------------
-------------------------------------------------------------------
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
SUBMIT is a native NetView command, and you don't need (or
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving one msg
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
----------------------------------------------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Steve Horein
Post by venkat kulkarni
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Steve Horein
2018-05-15 01:16:17 UTC
Reply
Permalink
Raw Message
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 <
Post by venkat kulkarni
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.
Post by 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*
http://br.linkedin.com/in/lrosalen
Hello Venkat,
/***********************************************************
**********/
Post by Lucas Rosalen
/* FUNCTION: submits job */
/***********************************************************
**********/
Post by Lucas Rosalen
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT
Just one apostrophe at the beginning and one at the end. No ADDRESS
TSO.
Post by Lucas Rosalen
Member JCLMBR contains the JCL.
Hth,
Werner
-----Ursprüngliche Nachricht-----
Im
Post by Lucas Rosalen
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
Betreff: Re: Netview Submit JCL
Hello,
This command didn't worked for me and getting same issue.
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------------------------------------
-------------------------------------------------------------------
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
Post by Lucas Rosalen
in
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-12 12:57 GMT-03:00 Steve Horein <
Post by Steve Horein
SUBMIT is a native NetView command, and you don't need (or
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving one
msg
Post by Lucas Rosalen
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
------------------------------
------------------------------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
IBM-MAIN
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Steve Horein
Post by venkat kulkarni
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-05-16 05:11:55 UTC
Reply
Permalink
Raw Message
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.
Post by Steve Horein
First suggestion: Read and understand the documents found at the links
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
https://groups.yahoo.com/neo/groups/NetView/info
There is a complimentary System Automation Yahoo group as well (but SA
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
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
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()
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm
'PIPE SAFE *',
'|VAR MTXT'
'PIPE SAFE *',
'|STEM MTXT.'
Which leads to the contents of FDIREXX -
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
& 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
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".
To make FDIREXX more flexible relating to the target of the SEND command,
'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 <
Post by venkat kulkarni
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
Post by venkat kulkarni
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
Post by venkat kulkarni
AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 UNIT(S) 050
FOR
Post by venkat kulkarni
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
Post by venkat kulkarni
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.
Post by 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*
http://br.linkedin.com/in/lrosalen
Hello Venkat,
/***********************************************************
**********/
Post by Lucas Rosalen
/* FUNCTION: submits job
*/
Post by venkat kulkarni
Post by Lucas Rosalen
/***********************************************************
**********/
Post by Lucas Rosalen
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT
Just one apostrophe at the beginning and one at the end. No ADDRESS
TSO.
Post by Lucas Rosalen
Member JCLMBR contains the JCL.
Hth,
Werner
-----Ursprüngliche Nachricht-----
Im
Post by Lucas Rosalen
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
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 <
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------------------------------------
-------------------------------------------------------------------
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
Post by Lucas Rosalen
in
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-12 12:57 GMT-03:00 Steve Horein <
Post by Steve Horein
SUBMIT is a native NetView command, and you don't need (or
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
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 <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving one
msg
Post by Lucas Rosalen
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
------------------------------
------------------------------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
IBM-MAIN
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
IBM-MAIN
Post by Steve Horein
Post by venkat kulkarni
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Steve Horein
2018-05-16 14:20:22 UTC
Reply
Permalink
Raw Message
I'll repeat the previous response for this problem, but change 'END OF' to '
USR54LST'

You need to use placeholders described here to allow 'USR54LST' 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

Do you not have access to the documentation links?
I will assist in pointing you in the right direction to accomplish your
task.
I will NOT write the code to do so.

I also believe you will not get the expected results in FDIREXXO when
(re)assigning:
MTXT = DSET

...but that is part of learning.




On Wed, May 16, 2018 at 12:13 AM, saurabh khandelwal <
Post by saurabh khandelwal
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.
Post by Steve Horein
First suggestion: Read and understand the documents found at the links
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
https://groups.yahoo.com/neo/groups/NetView/info
There is a complimentary System Automation Yahoo group as well (but SA
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
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
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
Post by Steve Horein
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
Post by Steve Horein
SAFE stage or message functions, such as MSGID(), JOBNAME(), JOBNUM()
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm
'PIPE SAFE *',
'|VAR MTXT'
'PIPE SAFE *',
'|STEM MTXT.'
Which leads to the contents of FDIREXX -
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
Post by Steve Horein
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
Post by Steve Horein
done in the AT, such as a condition that sets a variable that is passed
to
Post by Steve Horein
& 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.
Post by Steve Horein
After parsing MSGTXT to obtain DSET, you set the variable name MSGTX to
the
Post by Steve Horein
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',
Post by Steve Horein
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
Post by Steve Horein
literal processing, followed by single quote and the remainder of the
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
Post by Steve Horein
the above be "corrected".
To make FDIREXX more flexible relating to the target of the SEND command,
'PIPE EDIT AUTHUSER 1',
'|VAR USERID'
I encourage you to take the time and READ the documentation provided by
the
Post by Steve Horein
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 <
Post by venkat kulkarni
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
Post by venkat kulkarni
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
Post by venkat kulkarni
AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 UNIT(S) 050
FOR
Post by venkat kulkarni
STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF
IEF877E
Post by Steve Horein
Post by venkat kulkarni
FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in netview
as
Post by Steve Horein
Post by venkat kulkarni
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
Post by venkat kulkarni
to operator using send command upon getting msgid IEF878I and text
"END
Post by Steve Horein
Post by venkat kulkarni
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 <
Post by 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*
http://br.linkedin.com/in/lrosalen
2018-05-14 9:28 GMT+02:00 Werner Kuehnel <
Hello Venkat,
/***********************************************************
**********/
Post by Lucas Rosalen
/* FUNCTION: submits job
*/
Post by venkat kulkarni
Post by Lucas Rosalen
/***********************************************************
**********/
Post by Lucas Rosalen
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT
Just one apostrophe at the beginning and one at the end. No ADDRESS
TSO.
Post by Lucas Rosalen
Member JCLMBR contains the JCL.
Hth,
Werner
-----Ursprüngliche Nachricht-----
EDU]
Post by Steve Horein
Post by venkat kulkarni
Im
Post by Lucas Rosalen
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
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 <
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
below
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
Post by Lucas Rosalen
in
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-12 12:57 GMT-03:00 Steve Horein <
Post by Steve Horein
SUBMIT is a native NetView command, and you don't need
(or
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving
one
Post by Steve Horein
Post by venkat kulkarni
msg
Post by Lucas Rosalen
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
netview
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Can you please help.
------------------------------
------------------------------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
IBM-MAIN
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
IBM-MAIN
Post by Steve Horein
Post by venkat kulkarni
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Steve Horein
Post by venkat kulkarni
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-05-16 16:35:19 UTC
Reply
Permalink
Raw Message
Hello Steve,

I understood the meaning of placeholder and will use it to over come this
issue

But I couldn't understand how to solve issue in rexx code

also believe you will not get the expected results in FDIREXXO when
(re)assigning:
MTXT = DSET

Can you please explain this once.
I am really sorry for asking basic query and thank you so much for help
Post by Steve Horein
I'll repeat the previous response for this problem, but change 'END OF' to '
USR54LST'
You need to use placeholders described here to allow 'USR54LST' to be found
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm
Do you not have access to the documentation links?
I will assist in pointing you in the right direction to accomplish your
task.
I will NOT write the code to do so.
I also believe you will not get the expected results in FDIREXXO when
MTXT = DSET
...but that is part of learning.
On Wed, May 16, 2018 at 12:13 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello Steve,
hanks for your response and guiding me on this. I use Netview forum
before
Post by saurabh khandelwal
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-
Post by saurabh khandelwal
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
Post by saurabh khandelwal
syslog.
But I don’t see any message related to this even in netview log
(netloga) .
Post by saurabh khandelwal
This indicate that we are unable to trap this message and nothing getting
displayed to operator.
Can you please help me correcting this.
Post by Steve Horein
First suggestion: Read and understand the documents found at the links
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
https://groups.yahoo.com/neo/groups/NetView/info
There is a complimentary System Automation Yahoo group as well (but SA
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
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
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
of
Post by Steve Horein
TEXT is fine as written, but ultimately not required.
An automation procedure called from the AT has access to the default
SAFE
Post by saurabh khandelwal
Post by Steve Horein
named "*", which contains all attributes of the message triggering the
action.
The information contained in the SAFE can be accessed either through a
PIPE
Post by Steve Horein
SAFE stage or message functions, such as MSGID(), JOBNAME(), JOBNUM()
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm
'PIPE SAFE *',
'|VAR MTXT'
'PIPE SAFE *',
'|STEM MTXT.'
Which leads to the contents of FDIREXX -
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
Post by Steve Horein
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
Post by saurabh khandelwal
be
Post by Steve Horein
done in the AT, such as a condition that sets a variable that is passed
to
Post by Steve Horein
& 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.
Post by Steve Horein
After parsing MSGTXT to obtain DSET, you set the variable name MSGTX to
the
Post by Steve Horein
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',
Post by Steve Horein
until a closing double quote is encountered.
To correct that, you need to place a double quote after the first
single
Post by saurabh khandelwal
Post by Steve Horein
quote to expose the variable to Rexx, followed by a double quote to
resume
Post by Steve Horein
literal processing, followed by single quote and the remainder of the
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
Post by saurabh khandelwal
Post by Steve Horein
be a null value, which I believe will return a SEND syntax error should
all
Post by Steve Horein
the above be "corrected".
To make FDIREXX more flexible relating to the target of the SEND
command,
Post by saurabh khandelwal
Post by Steve Horein
'PIPE EDIT AUTHUSER 1',
'|VAR USERID'
I encourage you to take the time and READ the documentation provided by
the
Post by Steve Horein
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 <
Post by venkat kulkarni
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
Post by saurabh khandelwal
Post by Steve Horein
this
Post by venkat kulkarni
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
-
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TIME=13.18.16 IEF244I OP117603 STEP1 GO - UNABLE TO ALLOCATE 1
UNIT(S)
Post by saurabh khandelwal
Post by Steve Horein
049
Post by venkat kulkarni
AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 UNIT(S)
050
Post by saurabh khandelwal
Post by Steve Horein
FOR
Post by venkat kulkarni
STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF
IEF877E
Post by Steve Horein
Post by venkat kulkarni
FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in netview
as
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OP117603 STEP1 GO DLMTOKEN But now, my aim is to display this whole
message
Post by venkat kulkarni
to operator using send command upon getting msgid IEF878I and text
"END
Post by Steve Horein
Post by venkat kulkarni
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 <
Post by 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*
http://br.linkedin.com/in/lrosalen
2018-05-14 9:28 GMT+02:00 Werner Kuehnel <
Hello Venkat,
/***********************************************************
**********/
Post by Lucas Rosalen
/* FUNCTION: submits job
*/
Post by venkat kulkarni
Post by Lucas Rosalen
/***********************************************************
**********/
Post by Lucas Rosalen
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT
Just one apostrophe at the beginning and one at the end. No
ADDRESS
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TSO.
Post by Lucas Rosalen
Member JCLMBR contains the JCL.
Hth,
Werner
-----Ursprüngliche Nachricht-----
EDU]
Post by Steve Horein
Post by venkat kulkarni
Im
Post by Lucas Rosalen
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
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 <
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-13 20:50 GMT+02:00 Steve Horein <
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
below
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
)
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
+++ RC(-3) +++
I am unable to find correct syntax for this. I didnt find
anything
Post by Lucas Rosalen
in
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-12 12:57 GMT-03:00 Steve Horein <
Post by Steve Horein
SUBMIT is a native NetView command, and you don't need
(or
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon receiving
one
Post by Steve Horein
Post by venkat kulkarni
msg
Post by Lucas Rosalen
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
in
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
netview
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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)'
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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.
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Can you please help.
------------------------------
------------------------------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
IBM-MAIN
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
IBM-MAIN
------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
----------------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
Post by Steve Horein
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lucas Rosalen
2018-05-16 17:19:45 UTC
Reply
Permalink
Raw Message
In order to trap the message properly:

1. Make sure IEF403I does not have AUTO(NO) in MPFLSTxx

2. The condition below will never be satisfied because TEXT is the COMPLETE
message, not only part of it

IF MSGID = 'IEF403I' & TEXT = 'USR54LST' & TEXT = MTXT THEN
EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y);

You may want to change it to something like:

IF MSGID = 'IEF403I' & TEXT = .'USR54LST'. & TEXT = MTXT THEN
EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y);
(here the dots are placeholders for text before and after string USR54LST)

Or something like:

IF MSGID = 'IEF403I' & TOKEN(2) = 'USR54LST' & TEXT = MTXT THEN
EXEC(CMD('FDIREXXO' MTXT)) NETLOG(Y) SYSLOG(Y);
(here the TOKEN(2) is used to check for the 2nd word in the entire message
- TOKEN(1) is the message ID)



Then, after you trapped the message:

1. In FDIREXXO, you are parsing MTXT (which only contains the message text,
not the MSGID) to MSGID and DSET variables, so the parsing does not look
good

In current script, you will have:
MSGID = USR54LST
DSET = - STARTED - TIME=07.54.54
MTXT = - STARTED - TIME=07.54.54


Maybe something like the following script would work better:

/* rexx */
trace i
parse arg mtxt
SAY 'DATASET NAME IS' MTXT
MVS "SEND '"MTXT"' USER(USR54) NOW"
exit

Here you would have:
MSGID =
DSET =
MTXT = USR54LST - STARTED - TIME=07.54.54


Good luck!

-------------------------------------------------------------------------------------------------------------------------------
*Lucas Rosalen*
***@gmail.com / ***@ibm.com
http://br.linkedin.com/in/lrosalen
Post by saurabh khandelwal
Hello Steve,
I understood the meaning of placeholder and will use it to over come this
issue
But I couldn't understand how to solve issue in rexx code
also believe you will not get the expected results in FDIREXXO when
MTXT = DSET
Can you please explain this once.
I am really sorry for asking basic query and thank you so much for help
Post by Steve Horein
I'll repeat the previous response for this problem, but change 'END OF'
to
Post by Steve Horein
'
USR54LST'
You need to use placeholders described here to allow 'USR54LST' to be
found
Post by Steve Horein
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm
Do you not have access to the documentation links?
I will assist in pointing you in the right direction to accomplish your
task.
I will NOT write the code to do so.
I also believe you will not get the expected results in FDIREXXO when
MTXT = DSET
...but that is part of learning.
On Wed, May 16, 2018 at 12:13 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello Steve,
hanks for your response and guiding me on this. I use Netview forum
before
Post by saurabh khandelwal
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-
Post by Steve Horein
Post by saurabh khandelwal
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
Post by Steve Horein
Post by saurabh khandelwal
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
Post by Steve Horein
Post by saurabh khandelwal
and display to operator once we see MSGID = IEF403I and TEXT =USR54LST
in
Post by saurabh khandelwal
syslog.
But I don’t see any message related to this even in netview log
(netloga) .
Post by saurabh khandelwal
This indicate that we are unable to trap this message and nothing
getting
Post by Steve Horein
Post by saurabh khandelwal
displayed to operator.
Can you please help me correcting this.
Post by Steve Horein
First suggestion: Read and understand the documents found at the
links
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
https://groups.yahoo.com/neo/groups/NetView/info
There is a complimentary System Automation Yahoo group as well (but
SA
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
'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
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
of
Post by Steve Horein
TEXT is fine as written, but ultimately not required.
An automation procedure called from the AT has access to the default
SAFE
Post by saurabh khandelwal
Post by Steve Horein
named "*", which contains all attributes of the message triggering
the
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
action.
The information contained in the SAFE can be accessed either through
a
Post by Steve Horein
Post by saurabh khandelwal
PIPE
Post by Steve Horein
SAFE stage or message functions, such as MSGID(), JOBNAME(), JOBNUM()
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm
'PIPE SAFE *',
'|VAR MTXT'
'PIPE SAFE *',
'|STEM MTXT.'
Which leads to the contents of FDIREXX -
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
Post by Steve Horein
Post by saurabh khandelwal
to
Post by Steve Horein
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
Post by saurabh khandelwal
be
Post by Steve Horein
done in the AT, such as a condition that sets a variable that is
passed
Post by Steve Horein
Post by saurabh khandelwal
to
Post by Steve Horein
& 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)
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
I don't believe your final message to the user will be as expected
either.
Post by Steve Horein
After parsing MSGTXT to obtain DSET, you set the variable name MSGTX
to
Post by Steve Horein
Post by saurabh khandelwal
the
Post by Steve Horein
value of DSET, and (attempt) to pass that to the user.
Due to the initial opening quote is double quote, everything inside
is
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
interpreted by Rexx as a literal, including the presumed variable
'MSGTX',
Post by Steve Horein
until a closing double quote is encountered.
To correct that, you need to place a double quote after the first
single
Post by saurabh khandelwal
Post by Steve Horein
quote to expose the variable to Rexx, followed by a double quote to
resume
Post by Steve Horein
literal processing, followed by single quote and the remainder of the
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
Post by saurabh khandelwal
Post by Steve Horein
be a null value, which I believe will return a SEND syntax error
should
Post by Steve Horein
Post by saurabh khandelwal
all
Post by Steve Horein
the above be "corrected".
To make FDIREXX more flexible relating to the target of the SEND
command,
Post by saurabh khandelwal
Post by Steve Horein
'PIPE EDIT AUTHUSER 1',
'|VAR USERID'
I encourage you to take the time and READ the documentation provided
by
Post by Steve Horein
Post by saurabh khandelwal
the
Post by Steve Horein
vendor. They provide it for a reason.
You will undoubtedly encounter discrepancies between documentation
and
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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 <
Post by venkat kulkarni
Hello Lucas,
This code worked for me
but I had to remove Address TSO from this rexx code to make it
work .
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
Post by Steve Horein
this
Post by venkat kulkarni
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OP117603 STARTED - INIT A - CLASS A - SYS IEF403I OP117603 -
STARTED
Post by Steve Horein
-
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TIME=13.18.16 IEF244I OP117603 STEP1 GO - UNABLE TO ALLOCATE 1
UNIT(S)
Post by saurabh khandelwal
Post by Steve Horein
049
Post by venkat kulkarni
AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 UNIT(S)
050
Post by saurabh khandelwal
Post by Steve Horein
FOR
Post by venkat kulkarni
STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF
IEF877E
Post by Steve Horein
Post by venkat kulkarni
FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in
netview
Post by Steve Horein
Post by saurabh khandelwal
as
Post by Steve Horein
Post by venkat kulkarni
below 3:59:36 C BR NETLOGA 4:01:11 " IEF877E OP117603 NEEDS 1
UNIT(S)
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
4:01:11 " FOR STEP1 GO DLMTOKEN 4:01:11 " FOR VOLUME BFL603
4:01:11 "
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OFFLINE 4:01:11 " 0FBF 4:01:11 " : 4:01:11 E IEF878I END OF IEF877E
FOR
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OP117603 STEP1 GO DLMTOKEN But now, my aim is to display this whole
message
Post by venkat kulkarni
to operator using send command upon getting msgid IEF878I and text
"END
Post by Steve Horein
Post by venkat kulkarni
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
trigger.
Can anybody help.
On Mon, May 14, 2018 at 11:11 AM, Lucas Rosalen <
Post by 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
==========================================
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-14 9:28 GMT+02:00 Werner Kuehnel <
Hello Venkat,
/***********************************************************
**********/
Post by Lucas Rosalen
/* FUNCTION: submits job
*/
Post by venkat kulkarni
Post by Lucas Rosalen
/***********************************************************
**********/
Post by Lucas Rosalen
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT
Just one apostrophe at the beginning and one at the end. No
ADDRESS
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TSO.
Post by Lucas Rosalen
Member JCLMBR contains the JCL.
Hth,
Werner
-----Ursprüngliche Nachricht-----
EDU]
Post by Steve Horein
Post by venkat kulkarni
Im
Post by Lucas Rosalen
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
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 <
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-13 20:50 GMT+02:00 Steve Horein <
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Steve Horein
Post by saurabh khandelwal
as
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
below
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
Post by Steve Horein
)
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
+++ RC(-3) +++
I am unable to find correct syntax for this. I didnt find
anything
Post by Lucas Rosalen
in
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-12 12:57 GMT-03:00 Steve Horein <
Post by Steve Horein
SUBMIT is a native NetView command, and you don't
need
Post by Steve Horein
Post by saurabh khandelwal
(or
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon
receiving
Post by Steve Horein
Post by saurabh khandelwal
one
Post by Steve Horein
Post by venkat kulkarni
msg
Post by Lucas Rosalen
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
in
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
netview
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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)'
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
**********
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
//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.
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Can you please help.
------------------------------
------------------------------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
IBM-MAIN
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
IBM-MAIN
------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
----------------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
Post by Steve Horein
------------------------------------------------------------
----------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Steve Horein
Post by saurabh khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Steve Horein
2018-05-16 17:43:01 UTC
Reply
Permalink
Raw Message
Actually, there will probably not be any issues after all.
I believe I was hung up from the earlier IEF878I message.

PARSE VAR is deconstructing the variable named MTXT into two items: MSGID
and DSET.
In this case, MSGID will be assigned value 'IEF403I' and DSET will be
assigned value 'USR54LST - STARTED - TIME=07.54.54'
MTXT = DSET will reassign the value of MTXT to the value of DSET.

It just seems redundant to reassign the variable MTXT to the value of an
already established variable DSET.
PARSE VAR MTXT MSGID MTXT
...would accomplish the same thing, and eliminate the need for DSET
altogether.

If the value of MSGID is not required for later use, this would be more
efficient:
PARSE VAR MTXT . MTXT
... leveraging the PARSE placeholder described here:
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ikja300/placeh.htm


Passing the value of MTXT via the SEND command should be fine, *after*
adding a comma between USER() and NOW.
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.ieag100/s1mess1.htm



On Wed, May 16, 2018 at 11:36 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello Steve,
I understood the meaning of placeholder and will use it to over come this
issue
But I couldn't understand how to solve issue in rexx code
also believe you will not get the expected results in FDIREXXO when
MTXT = DSET
Can you please explain this once.
I am really sorry for asking basic query and thank you so much for help
Post by Steve Horein
I'll repeat the previous response for this problem, but change 'END OF'
to
Post by Steve Horein
'
USR54LST'
You need to use placeholders described here to allow 'USR54LST' to be
found
Post by Steve Horein
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm
Do you not have access to the documentation links?
I will assist in pointing you in the right direction to accomplish your
task.
I will NOT write the code to do so.
I also believe you will not get the expected results in FDIREXXO when
MTXT = DSET
...but that is part of learning.
On Wed, May 16, 2018 at 12:13 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello Steve,
hanks for your response and guiding me on this. I use Netview forum
before
Post by saurabh khandelwal
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-
Post by Steve Horein
Post by saurabh khandelwal
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
Post by Steve Horein
Post by saurabh khandelwal
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
Post by Steve Horein
Post by saurabh khandelwal
and display to operator once we see MSGID = IEF403I and TEXT =USR54LST
in
Post by saurabh khandelwal
syslog.
But I don’t see any message related to this even in netview log
(netloga) .
Post by saurabh khandelwal
This indicate that we are unable to trap this message and nothing
getting
Post by Steve Horein
Post by saurabh khandelwal
displayed to operator.
Can you please help me correcting this.
Post by Steve Horein
First suggestion: Read and understand the documents found at the
links
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
https://groups.yahoo.com/neo/groups/NetView/info
There is a complimentary System Automation Yahoo group as well (but
SA
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
'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
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
of
Post by Steve Horein
TEXT is fine as written, but ultimately not required.
An automation procedure called from the AT has access to the default
SAFE
Post by saurabh khandelwal
Post by Steve Horein
named "*", which contains all attributes of the message triggering
the
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
action.
The information contained in the SAFE can be accessed either through
a
Post by Steve Horein
Post by saurabh khandelwal
PIPE
Post by Steve Horein
SAFE stage or message functions, such as MSGID(), JOBNAME(), JOBNUM()
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm
'PIPE SAFE *',
'|VAR MTXT'
'PIPE SAFE *',
'|STEM MTXT.'
Which leads to the contents of FDIREXX -
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
Post by Steve Horein
Post by saurabh khandelwal
to
Post by Steve Horein
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
Post by saurabh khandelwal
be
Post by Steve Horein
done in the AT, such as a condition that sets a variable that is
passed
Post by Steve Horein
Post by saurabh khandelwal
to
Post by Steve Horein
& 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)
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
I don't believe your final message to the user will be as expected
either.
Post by Steve Horein
After parsing MSGTXT to obtain DSET, you set the variable name MSGTX
to
Post by Steve Horein
Post by saurabh khandelwal
the
Post by Steve Horein
value of DSET, and (attempt) to pass that to the user.
Due to the initial opening quote is double quote, everything inside
is
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
interpreted by Rexx as a literal, including the presumed variable
'MSGTX',
Post by Steve Horein
until a closing double quote is encountered.
To correct that, you need to place a double quote after the first
single
Post by saurabh khandelwal
Post by Steve Horein
quote to expose the variable to Rexx, followed by a double quote to
resume
Post by Steve Horein
literal processing, followed by single quote and the remainder of the
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
Post by saurabh khandelwal
Post by Steve Horein
be a null value, which I believe will return a SEND syntax error
should
Post by Steve Horein
Post by saurabh khandelwal
all
Post by Steve Horein
the above be "corrected".
To make FDIREXX more flexible relating to the target of the SEND
command,
Post by saurabh khandelwal
Post by Steve Horein
'PIPE EDIT AUTHUSER 1',
'|VAR USERID'
I encourage you to take the time and READ the documentation provided
by
Post by Steve Horein
Post by saurabh khandelwal
the
Post by Steve Horein
vendor. They provide it for a reason.
You will undoubtedly encounter discrepancies between documentation
and
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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 <
Post by venkat kulkarni
Hello Lucas,
This code worked for me
but I had to remove Address TSO from this rexx code to make it
work .
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
Post by Steve Horein
this
Post by venkat kulkarni
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OP117603 STARTED - INIT A - CLASS A - SYS IEF403I OP117603 -
STARTED
Post by Steve Horein
-
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TIME=13.18.16 IEF244I OP117603 STEP1 GO - UNABLE TO ALLOCATE 1
UNIT(S)
Post by saurabh khandelwal
Post by Steve Horein
049
Post by venkat kulkarni
AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1 UNIT(S)
050
Post by saurabh khandelwal
Post by Steve Horein
FOR
Post by venkat kulkarni
STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF
IEF877E
Post by Steve Horein
Post by venkat kulkarni
FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in
netview
Post by Steve Horein
Post by saurabh khandelwal
as
Post by Steve Horein
Post by venkat kulkarni
below 3:59:36 C BR NETLOGA 4:01:11 " IEF877E OP117603 NEEDS 1
UNIT(S)
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
4:01:11 " FOR STEP1 GO DLMTOKEN 4:01:11 " FOR VOLUME BFL603
4:01:11 "
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OFFLINE 4:01:11 " 0FBF 4:01:11 " : 4:01:11 E IEF878I END OF IEF877E
FOR
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OP117603 STEP1 GO DLMTOKEN But now, my aim is to display this whole
message
Post by venkat kulkarni
to operator using send command upon getting msgid IEF878I and text
"END
Post by Steve Horein
Post by venkat kulkarni
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
trigger.
Can anybody help.
On Mon, May 14, 2018 at 11:11 AM, Lucas Rosalen <
Post by 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
==========================================
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-14 9:28 GMT+02:00 Werner Kuehnel <
Hello Venkat,
/***********************************************************
**********/
Post by Lucas Rosalen
/* FUNCTION: submits job
*/
Post by venkat kulkarni
Post by Lucas Rosalen
/***********************************************************
**********/
Post by Lucas Rosalen
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT
Just one apostrophe at the beginning and one at the end. No
ADDRESS
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TSO.
Post by Lucas Rosalen
Member JCLMBR contains the JCL.
Hth,
Werner
-----Ursprüngliche Nachricht-----
EDU]
Post by Steve Horein
Post by venkat kulkarni
Im
Post by Lucas Rosalen
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
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 <
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-13 20:50 GMT+02:00 Steve Horein <
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Steve Horein
Post by saurabh khandelwal
as
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
below
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
Post by Steve Horein
)
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
+++ RC(-3) +++
I am unable to find correct syntax for this. I didnt find
anything
Post by Lucas Rosalen
in
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-12 12:57 GMT-03:00 Steve Horein <
Post by Steve Horein
SUBMIT is a native NetView command, and you don't
need
Post by Steve Horein
Post by saurabh khandelwal
(or
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon
receiving
Post by Steve Horein
Post by saurabh khandelwal
one
Post by Steve Horein
Post by venkat kulkarni
msg
Post by Lucas Rosalen
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
in
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
netview
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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)'
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
**********
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
//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.
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Can you please help.
------------------------------
------------------------------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
IBM-MAIN
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
IBM-MAIN
------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
----------------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
Post by Steve Horein
------------------------------------------------------------
----------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Steve Horein
Post by saurabh khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Lucas Rosalen
2018-05-16 20:14:47 UTC
Reply
Permalink
Raw Message
Ooops! Very right, first variable passed to the REXX is the MSGID...
So, my fixed suggestion for the REXX would be the same as Steve's => parse
arg mtxt . mtxt
Sorry for the confusion here.


I think SEND without the commas works (at least is has worked for me for at
least a year now), but following the manuals is always a good idea.


-------------------------------------------------------------------------------------------------------------------------------
*Lucas Rosalen*
***@gmail.com / ***@ibm.com
http://br.linkedin.com/in/lrosalen
Post by Steve Horein
Actually, there will probably not be any issues after all.
I believe I was hung up from the earlier IEF878I message.
PARSE VAR is deconstructing the variable named MTXT into two items: MSGID
and DSET.
In this case, MSGID will be assigned value 'IEF403I' and DSET will be
assigned value 'USR54LST - STARTED - TIME=07.54.54'
MTXT = DSET will reassign the value of MTXT to the value of DSET.
It just seems redundant to reassign the variable MTXT to the value of an
already established variable DSET.
PARSE VAR MTXT MSGID MTXT
...would accomplish the same thing, and eliminate the need for DSET
altogether.
If the value of MSGID is not required for later use, this would be more
PARSE VAR MTXT . MTXT
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/
com.ibm.zos.v2r2.ikja300/placeh.htm
Passing the value of MTXT via the SEND command should be fine, *after*
adding a comma between USER() and NOW.
https://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/
com.ibm.zos.v2r2.ieag100/s1mess1.htm
On Wed, May 16, 2018 at 11:36 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello Steve,
I understood the meaning of placeholder and will use it to over come this
issue
But I couldn't understand how to solve issue in rexx code
also believe you will not get the expected results in FDIREXXO when
MTXT = DSET
Can you please explain this once.
I am really sorry for asking basic query and thank you so much for help
Post by Steve Horein
I'll repeat the previous response for this problem, but change 'END OF'
to
Post by Steve Horein
'
USR54LST'
You need to use placeholders described here to allow 'USR54LST' to be
found
Post by Steve Horein
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqa_ata_place.htm
Do you not have access to the documentation links?
I will assist in pointing you in the right direction to accomplish your
task.
I will NOT write the code to do so.
I also believe you will not get the expected results in FDIREXXO when
MTXT = DSET
...but that is part of learning.
On Wed, May 16, 2018 at 12:13 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello Steve,
hanks for your response and guiding me on this. I use Netview forum
before
Post by saurabh khandelwal
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-
Post by Steve Horein
Post by saurabh khandelwal
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
Post by Steve Horein
Post by saurabh khandelwal
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
Post by Steve Horein
Post by saurabh khandelwal
and display to operator once we see MSGID = IEF403I and TEXT
=USR54LST
Post by saurabh khandelwal
Post by Steve Horein
in
Post by saurabh khandelwal
syslog.
But I don’t see any message related to this even in netview log
(netloga) .
Post by saurabh khandelwal
This indicate that we are unable to trap this message and nothing
getting
Post by Steve Horein
Post by saurabh khandelwal
displayed to operator.
Can you please help me correcting this.
On Tue, May 15, 2018 at 4:17 AM, Steve Horein <
Post by Steve Horein
First suggestion: Read and understand the documents found at the
links
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
https://groups.yahoo.com/neo/groups/NetView/info
There is a complimentary System Automation Yahoo group as well (but
SA
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
be
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
'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
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
Post by Steve Horein
message IEF878I always includes 'END OF' as part of the message
text,
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
according to MVS System Messages documentation.
The other condition, resulting in the variable MTXT containing the
value
Post by saurabh khandelwal
of
Post by Steve Horein
TEXT is fine as written, but ultimately not required.
An automation procedure called from the AT has access to the
default
Post by saurabh khandelwal
Post by Steve Horein
SAFE
Post by saurabh khandelwal
Post by Steve Horein
named "*", which contains all attributes of the message triggering
the
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
action.
The information contained in the SAFE can be accessed either
through
Post by saurabh khandelwal
a
Post by Steve Horein
Post by saurabh khandelwal
PIPE
Post by Steve Horein
SAFE stage or message functions, such as MSGID(), JOBNAME(),
JOBNUM()
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqsmst.htm
https://www.ibm.com/support/knowledgecenter/SSZJDU_6.2.1/
com.ibm.itnetviewforzos.doc_6.2.1/dqg_anv_msgprocinfo.htm
'PIPE SAFE *',
'|VAR MTXT'
'PIPE SAFE *',
'|STEM MTXT.'
Which leads to the contents of FDIREXX -
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
Post by Steve Horein
Post by saurabh khandelwal
to
Post by Steve Horein
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
Post by saurabh khandelwal
Post by Steve Horein
can
Post by saurabh khandelwal
be
Post by Steve Horein
done in the AT, such as a condition that sets a variable that is
passed
Post by Steve Horein
Post by saurabh khandelwal
to
Post by Steve Horein
& 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)
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
I don't believe your final message to the user will be as expected
either.
Post by Steve Horein
After parsing MSGTXT to obtain DSET, you set the variable name
MSGTX
Post by saurabh khandelwal
to
Post by Steve Horein
Post by saurabh khandelwal
the
Post by Steve Horein
value of DSET, and (attempt) to pass that to the user.
Due to the initial opening quote is double quote, everything inside
is
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
interpreted by Rexx as a literal, including the presumed variable
'MSGTX',
Post by Steve Horein
until a closing double quote is encountered.
To correct that, you need to place a double quote after the first
single
Post by saurabh khandelwal
Post by Steve Horein
quote to expose the variable to Rexx, followed by a double quote to
resume
Post by Steve Horein
literal processing, followed by single quote and the remainder of
the
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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
Post by saurabh khandelwal
Post by Steve Horein
will
Post by saurabh khandelwal
Post by Steve Horein
be a null value, which I believe will return a SEND syntax error
should
Post by Steve Horein
Post by saurabh khandelwal
all
Post by Steve Horein
the above be "corrected".
To make FDIREXX more flexible relating to the target of the SEND
command,
Post by saurabh khandelwal
Post by Steve Horein
'PIPE EDIT AUTHUSER 1',
'|VAR USERID'
I encourage you to take the time and READ the documentation
provided
Post by saurabh khandelwal
by
Post by Steve Horein
Post by saurabh khandelwal
the
Post by Steve Horein
vendor. They provide it for a reason.
You will undoubtedly encounter discrepancies between documentation
and
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
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 <
Post by venkat kulkarni
Hello Lucas,
This code worked for me
but I had to remove Address TSO from this rexx code to make it
work .
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
Post by Steve Horein
this
Post by venkat kulkarni
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OP117603 STARTED - INIT A - CLASS A - SYS IEF403I OP117603 -
STARTED
Post by Steve Horein
-
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TIME=13.18.16 IEF244I OP117603 STEP1 GO - UNABLE TO ALLOCATE 1
UNIT(S)
Post by saurabh khandelwal
Post by Steve Horein
049
Post by venkat kulkarni
AT LEAST 1 OFFLINE UNIT(S) NEEDED. IEF877E OP117603 NEEDS 1
UNIT(S)
Post by saurabh khandelwal
Post by Steve Horein
050
Post by saurabh khandelwal
Post by Steve Horein
FOR
Post by venkat kulkarni
STEP1 GO DLMTOKEN FOR VOLUME BFL603 OFFLINE 0FBF : IEF878I END OF
IEF877E
Post by Steve Horein
Post by venkat kulkarni
FOR OP117603 STEP1 GO DLMTOKEN and now I am getting output in
netview
Post by Steve Horein
Post by saurabh khandelwal
as
Post by Steve Horein
Post by venkat kulkarni
below 3:59:36 C BR NETLOGA 4:01:11 " IEF877E OP117603 NEEDS 1
UNIT(S)
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
4:01:11 " FOR STEP1 GO DLMTOKEN 4:01:11 " FOR VOLUME BFL603
4:01:11 "
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OFFLINE 4:01:11 " 0FBF 4:01:11 " : 4:01:11 E IEF878I END OF
IEF877E
Post by saurabh khandelwal
Post by Steve Horein
FOR
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
OP117603 STEP1 GO DLMTOKEN But now, my aim is to display this
whole
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
message
Post by venkat kulkarni
to operator using send command upon getting msgid IEF878I and
text
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
"END
Post by Steve Horein
Post by venkat kulkarni
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
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
trigger.
Can anybody help.
On Mon, May 14, 2018 at 11:11 AM, Lucas Rosalen <
Post by 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
==========================================
------------------------------------------------------------
------------------------------------------------------------
-------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-14 9:28 GMT+02:00 Werner Kuehnel <
Hello Venkat,
/***********************************************************
**********/
Post by Lucas Rosalen
/* FUNCTION: submits job
*/
Post by venkat kulkarni
Post by Lucas Rosalen
/***********************************************************
**********/
Post by Lucas Rosalen
'SUBMIT NETV.CNM01.USER.CLIST(JCLMBR)'
EXIT
Just one apostrophe at the beginning and one at the end. No
ADDRESS
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
TSO.
Post by Lucas Rosalen
Member JCLMBR contains the JCL.
Hth,
Werner
-----Ursprüngliche Nachricht-----
EDU]
Post by Steve Horein
Post by venkat kulkarni
Im
Post by Lucas Rosalen
Auftrag von venkat kulkarni
Gesendet: Montag, 14. Mai 2018 06:27
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 <
Post by Lucas Rosalen
Hi Venkat,
What about using the syntax below?
"MVS SEND 'your_message' USER(user) NOW"
------------------------------
------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
-------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-13 20:50 GMT+02:00 Steve Horein <
Post by Steve Horein
And the man ate fish for a day
On Sun, May 13, 2018 at 12:06 PM, venkat kulkarni <
Post by 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
Post by Steve Horein
Post by saurabh khandelwal
as
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
below
Post by Lucas Rosalen
Post by Steve Horein
using
Post by venkat kulkarni
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
Post by Steve Horein
)
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
+++ RC(-3) +++
I am unable to find correct syntax for this. I didnt
find
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
anything
Post by Lucas Rosalen
in
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
manual . Can you please help.
On Sat, May 12, 2018 at 7:14 PM, Lucas Rosalen <
Post by Lucas Rosalen
/* REXX */
"SUBMIT 'USR1.REXX.CNTL(REXXJCL)'"
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------
------------------------------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
-------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-05-12 12:57 GMT-03:00 Steve Horein <
Post by Steve Horein
SUBMIT is a native NetView command, and you don't
need
Post by Steve Horein
Post by saurabh khandelwal
(or
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
want)
to
Post by Lucas Rosalen
Post by Steve Horein
use
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
ADDRESS TSO.
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqc_submit.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqgmst.htm
https://www.ibm.com/support/
knowledgecenter/SSZJDU_6.2.1/
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
com.ibm.itnetviewforzos.doc_6.2.1/dqamst.htm
On Sat, May 12, 2018 at 9:46 AM, venkat kulkarni <
Post by venkat kulkarni
Hello Group,
We have requirement to trigger one Job upon
receiving
Post by Steve Horein
Post by saurabh khandelwal
one
Post by Steve Horein
Post by venkat kulkarni
msg
Post by Lucas Rosalen
id
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
like
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
Post by saurabh khandelwal
in
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
netview
Post by Lucas Rosalen
Post by Steve Horein
log
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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)'
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
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
**********
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
//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.
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Can you please help.
------------------------------
------------------------------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
----------
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
IBM-MAIN
------------------------------
------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by venkat kulkarni
Post by Lucas Rosalen
Post by Lucas Rosalen
IBM-MAIN
------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
----------
Post by Lucas Rosalen
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
Post by Steve Horein
------------------------------
------------------------------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
----------
Post by Lucas Rosalen
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
IBM-MAIN
Post by Lucas Rosalen
------------------------------
------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
----------
Post by Lucas Rosalen
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
IBM-MAIN
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access
instructions,
INFO
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
IBM-MAIN
Post by venkat kulkarni
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by Steve Horein
Post by venkat kulkarni
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
----------------------------------------------------------------------
Post by saurabh khandelwal
Post by Steve Horein
Post by venkat kulkarni
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
Post by Steve Horein
------------------------------------------------------------
----------
Post by Steve Horein
Post by saurabh khandelwal
Post by Steve Horein
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Steve Horein
Post by saurabh khandelwal
------------------------------------------------------------
----------
Post by saurabh khandelwal
Post by Steve Horein
Post by saurabh khandelwal
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
Post by Steve Horein
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Dale R. Smith
2018-05-14 17:23:23 UTC
Reply
Permalink
Raw Message
Post by venkat kulkarni
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 ***@listserv.ua.edu with the message: INFO IBM-MAIN
Loading...