Discussion:
Issue WTO message using MVS SEND command
Add Reply
saurabh khandelwal
2018-06-22 04:31:46 UTC
Reply
Permalink
Raw Message
Hello Group,


/* REXX */

'PIPE SAFE * | STEM MSG.'



TODataset = Word( Msg.3,3 )

mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"

exit


We used CN operand with send command to send message to operator console
and now i receive output as required.

But this message is visible in green color which get disappeared as other
message comes on console.

But, I would like to have these message in white color ( not sure if we can
say as WTO), so that until operator intervention, these message will be on
console itself.


Can you please suggest, how can i achieve this

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Tom Marchant
2018-06-22 12:13:02 UTC
Reply
Permalink
Raw Message
Post by saurabh khandelwal
We used CN operand with send command to send message to operator console
and now i receive output as required.
Why do you want to do that?

IMO, on systems today with several dozen to hundreds of jobs running, along
with thousands of TSO users the operators have plenty to do without seeing
messages from application programs. Indeed, when I started as an application
programmer in 1970, on an MVT system with only three regions, I was told not
to use DISPLAY UPON CONSOLE.
Post by saurabh khandelwal
But this message is visible in green color which get disappeared as other
message comes on console.
You want your messages to be action messages? What action does the
operator need to take for your message?
--
Tom Marchant

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Carmen Vitullo
2018-06-22 12:34:13 UTC
Reply
Permalink
Raw Message
There is a way to do this, but not by specifying a console name, check the TSO HELP on the SEND command and it's options.
with the fast processors and the amount of work process, and design of your complex, being a single system monoplex or a large scale sysplex you should take care on how you proceed. my .002 cents



Carmen Vitullo

----- Original Message -----

From: "saurabh khandelwal" <***@GMAIL.COM>
To: IBM-***@LISTSERV.UA.EDU
Sent: Thursday, June 21, 2018 11:31:38 PM
Subject: Issue WTO message using MVS SEND command

Hello Group,


/* REXX */

'PIPE SAFE * | STEM MSG.'



TODataset = Word( Msg.3,3 )

mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"

exit


We used CN operand with send command to send message to operator console
and now i receive output as required.

But this message is visible in green color which get disappeared as other
message comes on console.

But, I would like to have these message in white color ( not sure if we can
say as WTO), so that until operator intervention, these message will be on
console itself.


Can you please suggest, how can i achieve this

----------------------------------------------------------------------
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
Charles Mills
2018-06-22 13:20:14 UTC
Reply
Permalink
Raw Message
Do you actually have "operators" who sit waiting for instructions to appear on the console?

Charles


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Carmen Vitullo
Sent: Friday, June 22, 2018 5:34 AM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: Issue WTO message using MVS SEND command

There is a way to do this, but not by specifying a console name, check the TSO HELP on the SEND command and it's options.
with the fast processors and the amount of work process, and design of your complex, being a single system monoplex or a large scale sysplex you should take care on how you proceed. my .002 cents

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Carmen Vitullo
2018-06-22 13:33:49 UTC
Reply
Permalink
Raw Message
Good point ! I know we have operators, but all our console are in roll mode, they watch a GUI that alerts them to 'call someone' :(



Carmen Vitullo

----- Original Message -----

From: "Charles Mills" <***@MCN.ORG>
To: IBM-***@LISTSERV.UA.EDU
Sent: Friday, June 22, 2018 8:20:08 AM
Subject: Re: Issue WTO message using MVS SEND command

Do you actually have "operators" who sit waiting for instructions to appear on the console?

Charles


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Carmen Vitullo
Sent: Friday, June 22, 2018 5:34 AM
To: IBM-***@LISTSERV.UA.EDU
Subject: Re: Issue WTO message using MVS SEND command

There is a way to do this, but not by specifying a console name, check the TSO HELP on the SEND command and it's options.
with the fast processors and the amount of work process, and design of your complex, being a single system monoplex or a large scale sysplex you should take care on how you proceed. my .002 cents

----------------------------------------------------------------------
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
Lucas Rosalen
2018-06-22 14:15:26 UTC
Reply
Permalink
Raw Message
Right tool for the right job.

Read about WTO (REXX) command in Netview commands manual.

-------------------------------------------------------------------------------------------------------------------------------
*Lucas Rosalen*
***@gmail.com / ***@ibm.com
http://br.linkedin.com/in/lrosalen
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator console
and now i receive output as required.
But this message is visible in green color which get disappeared as other
message comes on console.
But, I would like to have these message in white color ( not sure if we can
say as WTO), so that until operator intervention, these message will be on
console itself.
Can you please suggest, how can i achieve this
----------------------------------------------------------------------
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-06-22 14:53:01 UTC
Reply
Permalink
Raw Message
Hello All,

We have requirement of displaying dataset name to operator console upon
receiving SVTM052I msg id like below.

SVTM052I message is a multiline message, so the message is 1 message of 4
lines.

In the automationtable you can just code:



IF MSGID = 'SVTM052I' THEN

EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);



In your rexx you can retrieve the full messge via:



'PIPE SAFE * | STEM MSG.'



Stem variable Msg.1 to Msg.4 will contain all 4 lines of the SVTM052I
message.

So if you would want the TO-dataset, then you could take the 3th word of
Msg.3:



TODataset = Word( Msg.3,3 )

mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR"


Now, my problem is, once these dataset name getting displayed on operator
console. He is over looking it because as soon as other message comes, this
dataset message scroll up and then eventually disappear from screen.


My requirement is, once this dataset message display on operator console,
it should be there and should not be scroll up with other message until
operator press enter on that message which is indication of the looked at
this dataset for further processing.


I hope, i am able to explain my requirement. Thank you all for reply.
Post by Lucas Rosalen
Right tool for the right job.
Read about WTO (REXX) command in Netview commands manual.
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator console
and now i receive output as required.
But this message is visible in green color which get disappeared as other
message comes on console.
But, I would like to have these message in white color ( not sure if we
can
Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will be
on
Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
----------------------------------------------------------------------
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-06-22 18:15:24 UTC
Reply
Permalink
Raw Message
Thanks for reply.

I looked at netview command manual and found "WTO.TEXT" can be used for
this purpose. But I am not sure, how do I incorporate this into this case.

Netview table code.

IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);



In our rexx we retrieve the full messge via:

/* REXX */

'PIPE SAFE * | STEM MSG.'

TODataset = Word( Msg.3,3 )
mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR"

in this rexx, where do I need to add WTO.TEXT to display TODataset as WTO
message on operator console.

Can anybody suggest to implement this change.
Post by Lucas Rosalen
Right tool for the right job.
Read about WTO (REXX) command in Netview commands manual.
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator console
and now i receive output as required.
But this message is visible in green color which get disappeared as other
message comes on console.
But, I would like to have these message in white color ( not sure if we
can
Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will be
on
Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Steve Horein
2018-06-23 00:35:56 UTC
Reply
Permalink
Raw Message
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME = ' '
WTO.DESC = '0010000000100000' /* RED */
WTO.DESC = '0100010000000000' /* WHITE */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'OPSMSG01 FIB DATASET NAME IS' TODataset
WTO.
EXIT

On Fri, Jun 22, 2018 at 1:15 PM saurabh khandelwal <
Post by saurabh khandelwal
Thanks for reply.
I looked at netview command manual and found "WTO.TEXT" can be used for
this purpose. But I am not sure, how do I incorporate this into this case.
Netview table code.
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR"
in this rexx, where do I need to add WTO.TEXT to display TODataset as WTO
message on operator console.
Can anybody suggest to implement this change.
Post by Lucas Rosalen
Right tool for the right job.
Read about WTO (REXX) command in Netview commands manual.
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator
console
Post by Lucas Rosalen
Post by saurabh khandelwal
and now i receive output as required.
But this message is visible in green color which get disappeared as
other
Post by Lucas Rosalen
Post by saurabh khandelwal
message comes on console.
But, I would like to have these message in white color ( not sure if we
can
Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will be
on
Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
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-06-23 04:35:19 UTC
Reply
Permalink
Raw Message
Hello Steve,
In below example, how do we make sure which console, this output should go.
Don't we need to put console name in this rexx and will i be getting these
message in white color or red color. to operator console.


/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME = ' '
WTO.DESC = '0010000000100000' /* RED */
WTO.DESC = '0100010000000000' /* WHITE */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'OPSMSG01 FIB DATASET NAME IS' TODataset
WTO.
EXIT
Post by saurabh khandelwal
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME = ' '
WTO.DESC = '0010000000100000' /* RED */
WTO.DESC = '0100010000000000' /* WHITE */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'OPSMSG01 FIB DATASET NAME IS' TODataset
WTO.
EXIT
On Fri, Jun 22, 2018 at 1:15 PM saurabh khandelwal <
Post by saurabh khandelwal
Thanks for reply.
I looked at netview command manual and found "WTO.TEXT" can be used for
this purpose. But I am not sure, how do I incorporate this into this
case.
Post by saurabh khandelwal
Netview table code.
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR"
in this rexx, where do I need to add WTO.TEXT to display TODataset as
WTO
Post by saurabh khandelwal
message on operator console.
Can anybody suggest to implement this change.
Post by Lucas Rosalen
Right tool for the right job.
Read about WTO (REXX) command in Netview commands manual.
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-06-22 6:31 GMT+02:00 saurabh khandelwal <
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator
console
Post by Lucas Rosalen
Post by saurabh khandelwal
and now i receive output as required.
But this message is visible in green color which get disappeared as
other
Post by Lucas Rosalen
Post by saurabh khandelwal
message comes on console.
But, I would like to have these message in white color ( not sure if
we
Post by saurabh khandelwal
Post by Lucas Rosalen
can
Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will
be
Post by saurabh khandelwal
Post by Lucas Rosalen
on
Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
------------------------------------------------------------
----------
Post by saurabh khandelwal
Post by Lucas Rosalen
Post by saurabh khandelwal
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
Post by Lucas Rosalen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-06-23 08:16:29 UTC
Reply
Permalink
Raw Message
Hello,

I trigger event and below rexx should have been executed

/* REXX */

parse arg mtxt . mtxt

WTO.CONSNAME = 'CNDVMSTR'

WTO.DESC = '0100010000000000' /* WHITE */

WTO.DESC = '0010000000100000' /* RED */

WTO.MCSFLAG = '00000000'

WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt

WTO.

exit

But, I checked with operator and they didn't receive any message on their
console. Are we missing anything in this.


On Sat, Jun 23, 2018 at 7:35 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello Steve,
In below example, how do we make sure which console, this output should
go. Don't we need to put console name in this rexx and will i be getting
these message in white color or red color. to operator console.
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME = ' '
WTO.DESC = '0010000000100000' /* RED */
WTO.DESC = '0100010000000000' /* WHITE */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'OPSMSG01 FIB DATASET NAME IS' TODataset
WTO.
EXIT
Post by saurabh khandelwal
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME = ' '
WTO.DESC = '0010000000100000' /* RED */
WTO.DESC = '0100010000000000' /* WHITE */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'OPSMSG01 FIB DATASET NAME IS' TODataset
WTO.
EXIT
On Fri, Jun 22, 2018 at 1:15 PM saurabh khandelwal <
Post by saurabh khandelwal
Thanks for reply.
I looked at netview command manual and found "WTO.TEXT" can be used for
this purpose. But I am not sure, how do I incorporate this into this
case.
Post by saurabh khandelwal
Netview table code.
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR"
in this rexx, where do I need to add WTO.TEXT to display TODataset as
WTO
Post by saurabh khandelwal
message on operator console.
Can anybody suggest to implement this change.
Post by Lucas Rosalen
Right tool for the right job.
Read about WTO (REXX) command in Netview commands manual.
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-06-22 6:31 GMT+02:00 saurabh khandelwal <
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator
console
Post by Lucas Rosalen
Post by saurabh khandelwal
and now i receive output as required.
But this message is visible in green color which get disappeared as
other
Post by Lucas Rosalen
Post by saurabh khandelwal
message comes on console.
But, I would like to have these message in white color ( not sure
if we
Post by saurabh khandelwal
Post by Lucas Rosalen
can
Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message
will be
Post by saurabh khandelwal
Post by Lucas Rosalen
on
Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
------------------------------------------------------------
----------
Post by saurabh khandelwal
Post by Lucas Rosalen
Post by saurabh khandelwal
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
Post by Lucas Rosalen
------------------------------------------------------------
----------
Post by saurabh khandelwal
Post by Lucas Rosalen
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by saurabh khandelwal
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-06-24 12:40:12 UTC
Reply
Permalink
Raw Message
Hello All,

I still have same issue when i use pipe command in rexx and I don't get
message on console. But when I don't use pipe command on console, then I
get message on console.

Details are below.

1) Doesnt work. It means that we don't get messages on console.


****************Netview automation table ******************************
*******

IF MSGID = 'SVTM052I' THEN

EXEC(CMD('FDIREXX')) NETLOG(Y) SYSLOG(Y);





BROWSE NETVIEW.CNMCLST(FDIREXX) - 01.17 Line 00000000

********************************* Top of Data **********************

/* REXX */

trace i

'PIPE SAFE * | STEM MSG.'

TODataset = Word( Msg.3,3 )

WTO.CONSNAME ='CNDVMSTR'

WTO.DESC = '0100010000000000' /* WHITE */

WTO.DESC = '0010000000100000' /* RED */

WTO.MCSFLAG = '00000000'

WTO.TEXT = 'FDI' TODataset

WTO

mvs "send 'FDI DATAST NAME IS "TODataset"',user=(TS06,OP117),LOGON"

exit





Netview Log


2) Solution works .It means that we get messages on console.


****************Netview automation table ******************************
*******

IF MSGID = 'IEF403I' & TEXT = .'OP117LST'. & TEXT = MTXT THEN

EXEC(CMD('FDIREXX1 'MTXT)) NETLOG(Y) SYSLOG(Y);



/* REXX */

trace i

parse arg mtxt . mtxt

WTO.CONSNAME = ' '

WTO.DESC = '0100010000000000' /* WHITE */

WTO.DESC = '0010000000100000' /* RED */

WTO.MCSFLAG = '00000000'

WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt

WTO

exit





Netview log



- CNM493I DSITBL01 : #0000250 : FDIREXX1 IEF403I AB54LST -

E IEF403I AB54LST - STARTED - TIME=07.19.45

C 3 *-* parse arg mtxt . mtxt

C >>> "IEF403I"

C >.> "AB54LST"

C >>> "- STARTED - TIME=07.19.45"

C 4 *-* /* say 'AB54LST Job STARTED at' mtxt */

C 5 *-* /* mvs "send 'AB54LST JOB "mtxt"',user=(AB54)

C 6 *-* /* mvs "send 'CONSOLE OUTPUT DISPLAY "mtxt"',C

C 7 *-* WTO.CONSNAME = 'CNDVMSTR'

C >L> "CNDVMSTR"

C 8 *-* WTO.DESC = '0100010000000000' /* WHITE */

C >L> "0100010000000000"

C 9 *-* WTO.DESC = '0010000000100000' /* RED */

C >L> "0010000000100000"

C 10 *-* WTO.MCSFLAG = '00000000'

C >L> "00000000"

C 11 *-* WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt

C >L> "CONSOLE TEST MSG IS"

C >V> "- STARTED - TIME=07.19.45"

C >O> "CONSOLE TEST MSG IS - STARTED - TIME=07.19.4

C 12 *-* WTO

C >L> "WTO"

C 13 *-* exit
CONSOLE TEST MSG IS - STARTED - TIME=07.19.45
On Fri, Jun 22, 2018 at 9:15 PM, saurabh khandelwal <
Thanks for reply.
I looked at netview command manual and found "WTO.TEXT" can be used for
this purpose. But I am not sure, how do I incorporate this into this case.
Netview table code.
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR"
in this rexx, where do I need to add WTO.TEXT to display TODataset as
WTO message on operator console.
Can anybody suggest to implement this change.
Post by Lucas Rosalen
Right tool for the right job.
Read about WTO (REXX) command in Netview commands manual.
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator
console
Post by saurabh khandelwal
and now i receive output as required.
But this message is visible in green color which get disappeared as
other
Post by saurabh khandelwal
message comes on console.
But, I would like to have these message in white color ( not sure if we
can
Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will be
on
Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Eric Jackson
2018-06-25 03:12:47 UTC
Reply
Permalink
Raw Message
Console names being different is one glaring difference.
Post by saurabh khandelwal
1) Doesnt work. It means that we don't get messages on console.
WTO.CONSNAME ='CNDVMSTR'
2) Solution works .It means that we get messages on console.
WTO.CONSNAME = ' '
Hobart Spitz
2018-06-28 13:29:20 UTC
Reply
Permalink
Raw Message
I'm not sure which message(s) you are looking for, and I'm not familiar
with PIPElines in NetView.

That said, this should get you closer. In PIPElines environment with which
I am familiar, this would be my first recommendation:

"pipe (listerr) SAFE * | STEM MSG. | cons"

"... | cons" writes the stream data to the console. Unlike *NIX piping,
the default is not to write to the console.
LISTERR allows PIPE to display error messages.

OREXXMan
JCL is the buggy whip of 21st century computing. Stabilize it.
Put Pipelines in the z/OS base. Would you rather process data one
character at a time (Unix/C style), or one record at a time?
IBM has been looking for an HLL for program products; REXX is that language.

On Sun, Jun 24, 2018 at 8:40 AM, saurabh khandelwal <
Post by saurabh khandelwal
Hello All,
I still have same issue when i use pipe command in rexx and I don't get
message on console. But when I don't use pipe command on console, then I
get message on console.
Details are below.
1) Doesnt work. It means that we don't get messages on console.
****************Netview automation table ******************************
*******
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FDIREXX')) NETLOG(Y) SYSLOG(Y);
BROWSE NETVIEW.CNMCLST(FDIREXX) - 01.17 Line 00000000
********************************* Top of Data **********************
/* REXX */
trace i
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME ='CNDVMSTR'
WTO.DESC = '0100010000000000' /* WHITE */
WTO.DESC = '0010000000100000' /* RED */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'FDI' TODataset
WTO
mvs "send 'FDI DATAST NAME IS "TODataset"',user=(TS06,OP117),LOGON"
exit
Netview Log
2) Solution works .It means that we get messages on console.
****************Netview automation table ******************************
*******
IF MSGID = 'IEF403I' & TEXT = .'OP117LST'. & TEXT = MTXT THEN
EXEC(CMD('FDIREXX1 'MTXT)) NETLOG(Y) SYSLOG(Y);
/* REXX */
trace i
parse arg mtxt . mtxt
WTO.CONSNAME = ' '
WTO.DESC = '0100010000000000' /* WHITE */
WTO.DESC = '0010000000100000' /* RED */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt
WTO
exit
Netview log
- CNM493I DSITBL01 : #0000250 : FDIREXX1 IEF403I AB54LST -
E IEF403I AB54LST - STARTED - TIME=07.19.45
C 3 *-* parse arg mtxt . mtxt
C >>> "IEF403I"
C >.> "AB54LST"
C >>> "- STARTED - TIME=07.19.45"
C 4 *-* /* say 'AB54LST Job STARTED at' mtxt */
C 5 *-* /* mvs "send 'AB54LST JOB "mtxt"',user=(AB54)
C 6 *-* /* mvs "send 'CONSOLE OUTPUT DISPLAY "mtxt"',C
C 7 *-* WTO.CONSNAME = 'CNDVMSTR'
C >L> "CNDVMSTR"
C 8 *-* WTO.DESC = '0100010000000000' /* WHITE */
C >L> "0100010000000000"
C 9 *-* WTO.DESC = '0010000000100000' /* RED */
C >L> "0010000000100000"
C 10 *-* WTO.MCSFLAG = '00000000'
C >L> "00000000"
C 11 *-* WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt
C >L> "CONSOLE TEST MSG IS"
C >V> "- STARTED - TIME=07.19.45"
C >O> "CONSOLE TEST MSG IS - STARTED - TIME=07.19.4
C 12 *-* WTO
C >L> "WTO"
C 13 *-* exit
CONSOLE TEST MSG IS - STARTED - TIME=07.19.45
On Fri, Jun 22, 2018 at 9:15 PM, saurabh khandelwal <
Thanks for reply.
I looked at netview command manual and found "WTO.TEXT" can be used for
this purpose. But I am not sure, how do I incorporate this into this
case.
Netview table code.
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'FIB DATASET NAME IS "TODataset"',CON=CNDVMSTR"
in this rexx, where do I need to add WTO.TEXT to display TODataset as
WTO message on operator console.
Can anybody suggest to implement this change.
Post by Lucas Rosalen
Right tool for the right job.
Read about WTO (REXX) command in Netview commands manual.
------------------------------------------------------------
-------------------------------------------------------------------
*Lucas Rosalen*
http://br.linkedin.com/in/lrosalen
2018-06-22 6:31 GMT+02:00 saurabh khandelwal <
Post by saurabh khandelwal
Hello Group,
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"
exit
We used CN operand with send command to send message to operator
console
Post by saurabh khandelwal
and now i receive output as required.
But this message is visible in green color which get disappeared as
other
Post by saurabh khandelwal
message comes on console.
But, I would like to have these message in white color ( not sure if
we
Post by Lucas Rosalen
can
Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will
be
Post by Lucas Rosalen
on
Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
------------------------------------------------------------
----------
Post by Lucas Rosalen
Post by saurabh khandelwal
For IBM-MAIN subscribe / signoff / archive access instructions,
IBM-MAIN
Post by Lucas Rosalen
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
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
Seymour J Metz
2018-06-22 15:43:42 UTC
Reply
Permalink
Raw Message
1. The TSO SEND command has very limited control over the WTO; for what you're doing,
you should read up on console areas and multi-line WTO, and code a REXX-aware
external function in assembler. Or use the support in NetView.

2. You should seriously consider whether a non-scrollable message is an acceptable
solution for your application. The operators have enough to do.

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Friday, June 22, 2018 12:31 AM
To: IBM-***@listserv.ua.edu
Subject: Issue WTO message using MVS SEND command

Hello Group,


/* REXX */

'PIPE SAFE * | STEM MSG.'



TODataset = Word( Msg.3,3 )

mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"

exit


We used CN operand with send command to send message to operator console
and now i receive output as required.

But this message is visible in green color which get disappeared as other
message comes on console.

But, I would like to have these message in white color ( not sure if we can
say as WTO), so that until operator intervention, these message will be on
console itself.


Can you please suggest, how can i achieve this

----------------------------------------------------------------------
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
Jesse 1 Robinson
2018-06-22 17:21:25 UTC
Reply
Permalink
Raw Message
I suppose it's rude to advise OP that the goal is of dubious value. It's not 1978.

We can however state that the goal is not achievable within the scope of the mechanism(s) proposed. Some kind of automation tool is called for. The 'cheapest' would be an RYO WTO exit that changes the message attributes to non-rolling. OTOH if an automation product is already available, it should be easy to accomplish the same result with little coding.

.
.
J.O.Skip Robinson
Southern California Edison Company
Electric Dragon Team Paddler
SHARE MVS Program Co-Manager
323-715-0595 Mobile
626-543-6132 Office ⇐=== NEW
***@sce.com


-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-***@LISTSERV.UA.EDU] On Behalf Of Seymour J Metz
Sent: Friday, June 22, 2018 8:42 AM
To: IBM-***@LISTSERV.UA.EDU
Subject: (External):Re: Issue WTO message using MVS SEND command

1. The TSO SEND command has very limited control over the WTO; for what you're doing,
you should read up on console areas and multi-line WTO, and code a REXX-aware
external function in assembler. Or use the support in NetView.

2. You should seriously consider whether a non-scrollable message is an acceptable
solution for your application. The operators have enough to do.

--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3

________________________________________
From: IBM Mainframe Discussion List <IBM-***@listserv.ua.edu> on behalf of saurabh khandelwal <***@GMAIL.COM>
Sent: Friday, June 22, 2018 12:31 AM
To: IBM-***@listserv.ua.edu
Subject: Issue WTO message using MVS SEND command

Hello Group,


/* REXX */

'PIPE SAFE * | STEM MSG.'



TODataset = Word( Msg.3,3 )

mvs "send 'My console name is "TODataset"',CN=CNDVMSTR"

exit


We used CN operand with send command to send message to operator console and now i receive output as required.

But this message is visible in green color which get disappeared as other message comes on console.

But, I would like to have these message in white color ( not sure if we can say as WTO), so that until operator intervention, these message will be on console itself.


Can you please suggest, how can i achieve this


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
Dale R. Smith
2018-06-23 17:02:51 UTC
Reply
Permalink
Raw Message
Post by saurabh khandelwal
Hello,
I trigger event and below rexx should have been executed
/* REXX */
parse arg mtxt . mtxt
WTO.CONSNAME = 'CNDVMSTR'
WTO.DESC = '0100010000000000' /* WHITE */
WTO.DESC = '0010000000100000' /* RED */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt
WTO.
exit
But, I checked with operator and they didn't receive any message on their
console. Are we missing anything in this.
Remove the period from the last WTO before the EXIT. "WTO" is a command, "WTO." is not a command.

A simple Google search for NETVIEW WTO found this as the first entry: https://www.ibm.com/support/knowledgecenter/en/SSZJDU_5.3.0/com.ibm.itnetviewforzos.doc_5.3/dqcl2ms2171.htm

Not sure if the NETVIEW manuals document what the DESC and MCSFLAG settings are. They are documented in the WTO MACRO definition: https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.ieaa400/iea3a4_Description14.htm

WTO.DESC is a variable that will be read by the WTO command. Since you have two of them in your REXX program, only the last one set will be used. In the description for WTO.DESC, it shows that you can code it as decimal numbers instead of binary, which would be more readable!

Instead of coding WTO.DESC = '0100010000000000' you could code WTO.DESC = '(2,6)'. 2 and 6 mean "Immediate Action Required" and "Job Status". I don't know if that means the message will be displayed in "white".

Instead of coding WTO.DESC = '0010000000100000' you could code WTO.DESC = '(3,11)'. 3 and 11 mean "Eventual Action Required" and "Critical Eventual Action Required". I don't know if that means the message will be displayed in "red".

Instead of coding WTO.MCSFLAG = '00000000' you could code WTO.MCSFLAG = '(NOCPY)'

If you have not done so already, please download and read, (or read online), the NETVIEW manuals!
--
Dale R. Smith



----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-06-24 06:30:42 UTC
Reply
Permalink
Raw Message
Hello,

Thanks for your input. But I am surprised that I am still unable to see
required message on console. I started trace to isolate this and I didnt
find any issues but somehow its not working.

Netview table code.

IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);



In our rexx we retrieve the full messge via:


/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )

WTO.CONSNAME = 'CNDVMSTR'

WTO.DESC = '0100010000000000' /* WHITE */

WTO.DESC = '0010000000100000' /* RED */

WTO.MCSFLAG = '00000000'

WTO.TEXT = 'CONSOLE TEST MSG IS' TODataset

WTO

MVS "send 'FDI DATAST NAME IS "TODataset"',user=(AB55,AB54),logon"

exit


and output from netview log is

CNM493I DSITBL01 : #0000247 : FDIREXX

" SVTM052I STEP01 COPY TDNBK001( 31,976) PNODE=SIG.BA
<http://sig.ba/>

" SVTM052I FROM E2CP.ARDLY4M.ATCHNB.NBK.PS.G3971V00

" SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G0610V00

" SVTM052I COMPLETED 00000000/SCPA000I

C 3 *-* 'PIPE SAFE * | STEM MSG.'

C >L> "PIPE SAFE * | STEM MSG."

C 4 *-* TODataset = Word( Msg.3,3 )

C >V> "SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G06

C >L> "3"

C >F> "FDNBT.DATA.VPLUS.ATCH.G0610V00"

C 5 *-* WTO.CONSNAME ='CNDVMSTR'

C >L> "CNDVMSTR"

C 6 *-* WTO.DESC ='0010000000100000' /* RED */

C >L> "0010000000100000"

C 7 *-* WTO.DESC ='0100010000000000' /* WHITE */

C >L> "0100010000000000"

C 8 *-* WTO.MCSFLAG = '00000000'

C >L> "00000000"

C 9 *-* WTO.TEXT ='FDI CONSOLE DATASET IS' TODataset

C >L> "FDI CONSOLE DATASET IS"

C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"

C >O> "FDI CONSOLE DATASET IS FDNBT.DATA.VPLUS.ATCH

C 10 *-* WTO

C >L> "WTO"

C 11 *-* mvs "send 'FDI DATAST NAME IS "TODataset"',user

C >L> "MVS"

C >L> "send 'FDI DATAST NAME IS "

C >O> "MVS send 'FDI DATAST NAME IS "

C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"

C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU

C >L> "',user=(AB55,AB54),LOGON"

C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU

C 12 *-* exit


Please suggest, where I am missing to generate correct output.
On Sat, 23 Jun 2018 11:16:15 +0300, saurabh khandelwal <
Post by saurabh khandelwal
Hello,
I trigger event and below rexx should have been executed
/* REXX */
parse arg mtxt . mtxt
WTO.CONSNAME = 'CNDVMSTR'
WTO.DESC = '0100010000000000' /* WHITE */
WTO.DESC = '0010000000100000' /* RED */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt
WTO.
exit
But, I checked with operator and they didn't receive any message on their
console. Are we missing anything in this.
Remove the period from the last WTO before the EXIT. "WTO" is a command,
"WTO." is not a command.
https://www.ibm.com/support/knowledgecenter/en/SSZJDU_5.3.
0/com.ibm.itnetviewforzos.doc_5.3/dqcl2ms2171.htm
Not sure if the NETVIEW manuals document what the DESC and MCSFLAG
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.
0/com.ibm.zos.v2r1.ieaa400/iea3a4_Description14.htm
WTO.DESC is a variable that will be read by the WTO command. Since you
have two of them in your REXX program, only the last one set will be used.
In the description for WTO.DESC, it shows that you can code it as decimal
numbers instead of binary, which would be more readable!
Instead of coding WTO.DESC = '0100010000000000' you could code WTO.DESC =
'(2,6)'. 2 and 6 mean "Immediate Action Required" and "Job Status". I
don't know if that means the message will be displayed in "white".
Instead of coding WTO.DESC = '0010000000100000' you could code WTO.DESC =
'(3,11)'. 3 and 11 mean "Eventual Action Required" and "Critical Eventual
Action Required". I don't know if that means the message will be displayed
in "red".
Instead of coding WTO.MCSFLAG = '00000000' you could code WTO.MCSFLAG = '(NOCPY)'
If you have not done so already, please download and read, (or read
online), the NETVIEW manuals!
--
Dale R. Smith
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to ***@listserv.ua.edu with the message: INFO IBM-MAIN
saurabh khandelwal
2018-06-24 12:06:11 UTC
Reply
Permalink
Raw Message
Hello Steve,

Still didnt work. I think something should be taken care while having pipe
command in rexx.

Below are two example, in first one this process is working and another one
is not..

The only difference between two is pipe commands

Please suggest.

1) Working.

CNM493I DSITBL01 : #0000250 : FDIREXX1 IEF403I AB54LST -

E IEF403I AB54LST - STARTED - TIME=07.19.45

C 3 *-* parse arg mtxt . mtxt

C >>> "IEF403I"

C >.> "AB54LST"

C >>> "- STARTED - TIME=07.19.45"

C 4 *-* /* say 'AB54LST Job STARTED at' mtxt */

C 5 *-* /* mvs "send 'AB54LST JOB "mtxt"',user=(AB54)

C 6 *-* /* mvs "send 'CONSOLE OUTPUT DISPLAY "mtxt"',C

C 7 *-* WTO.CONSNAME = 'CNDVMSTR'

C >L> "CNDVMSTR"

C 8 *-* WTO.DESC = '0100010000000000' /* WHITE */

C >L> "0100010000000000"

C 9 *-* WTO.DESC = '0010000000100000' /* RED */

C >L> "0010000000100000"

C 10 *-* WTO.MCSFLAG = '00000000'

C >L> "00000000"

C 11 *-* WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt

C >L> "CONSOLE TEST MSG IS"

C >V> "- STARTED - TIME=07.19.45"

C >O> "CONSOLE TEST MSG IS - STARTED - TIME=07.19.4

C 12 *-* WTO

C >L> "WTO"

C 13 *-* exit
CONSOLE TEST MSG IS - STARTED - TIME=07.19.45
2) Not working



- CNM493I DSITBL01 : #0000247 : FDIREXX

" SVTM052I STEP01 COPY TDNBK001( 31,976) PNODE=SIG.BA
<http://sig.ba/>

" SVTM052I FROM E2CP.ARDLY4M.ATCHNB.NBK.PS.G3971V00

" SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G0610V00

" SVTM052I COMPLETED 00000000/SCPA000I

C 3 *-* 'PIPE SAFE * | STEM MSG.'

C >L> "PIPE SAFE * | STEM MSG."

C 4 *-* TODataset = Word( Msg.3,3 )

C >V> "SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G06

C >L> "3"

C >F> "FDNBT.DATA.VPLUS.ATCH.G0610V00"

C 5 *-* WTO.CONSNAME ='CNDVMSTR'

C >L> "CNDVMSTR"

C 6 *-* WTO.DESC ='0010000000100000' /* RED */

C >L> "0010000000100000"

C 7 *-* WTO.DESC ='0100010000000000' /* WHITE */

C >L> "0100010000000000"

C 8 *-* WTO.MCSFLAG = '00000000'

C >L> "00000000"

C 9 *-* WTO.TEXT ='FDI CONSOLE DATASET IS' TODataset

C >L> "FDI CONSOLE DATASET IS"

C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"

C >O> "FDI CONSOLE DATASET IS FDNBT.DATA.VPLUS.ATCH

C 10 *-* WTO

C >L> "WTO"

C 11 *-* mvs "send 'FDI DATAST NAME IS "TODataset"',user

C >L> "MVS"

C >L> "send 'FDI DATAST NAME IS "

C >O> "MVS send 'FDI DATAST NAME IS "

C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"

C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU

C >L> "',user=(AB55,AB54),LOGON"

C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU

C 12 *-* exit


On Sun, Jun 24, 2018 at 1:03 PM, saurabh khandelwal <
You mean, console name should be blank.
Post by Steve Horein
Set
WTO.CONSNAME = ' '
On Sun, Jun 24, 2018 at 1:30 AM saurabh khandelwal <
Post by saurabh khandelwal
Hello,
Thanks for your input. But I am surprised that I am still unable to see
required message on console. I started trace to isolate this and I didnt
find any issues but somehow its not working.
Netview table code.
IF MSGID = 'SVTM052I' THEN
EXEC(CMD('FIBREXX')) NETLOG(Y) SYSLOG(Y);
/* REXX */
'PIPE SAFE * | STEM MSG.'
TODataset = Word( Msg.3,3 )
WTO.CONSNAME = 'CNDVMSTR'
WTO.DESC = '0100010000000000' /* WHITE */
WTO.DESC = '0010000000100000' /* RED */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'CONSOLE TEST MSG IS' TODataset
WTO
MVS "send 'FDI DATAST NAME IS "TODataset"',user=(AB55,AB54),logon"
exit
and output from netview log is
CNM493I DSITBL01 : #0000247 : FDIREXX
" SVTM052I STEP01 COPY TDNBK001( 31,976) PNODE=SIG.BA
<http://sig.ba/>
" SVTM052I FROM E2CP.ARDLY4M.ATCHNB.NBK.PS.G3971V00
" SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G0610V00
" SVTM052I COMPLETED 00000000/SCPA000I
C 3 *-* 'PIPE SAFE * | STEM MSG.'
C >L> "PIPE SAFE * | STEM MSG."
C 4 *-* TODataset = Word( Msg.3,3 )
C >V> "SVTM052I TO FDNBT.DATA.VPLUS.ATCH.G06
C >L> "3"
C >F> "FDNBT.DATA.VPLUS.ATCH.G0610V00"
C 5 *-* WTO.CONSNAME ='CNDVMSTR'
C >L> "CNDVMSTR"
C 6 *-* WTO.DESC ='0010000000100000' /* RED */
C >L> "0010000000100000"
C 7 *-* WTO.DESC ='0100010000000000' /* WHITE */
C >L> "0100010000000000"
C 8 *-* WTO.MCSFLAG = '00000000'
C >L> "00000000"
C 9 *-* WTO.TEXT ='FDI CONSOLE DATASET IS' TODataset
C >L> "FDI CONSOLE DATASET IS"
C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"
C >O> "FDI CONSOLE DATASET IS FDNBT.DATA.VPLUS.ATCH
C 10 *-* WTO
C >L> "WTO"
C 11 *-* mvs "send 'FDI DATAST NAME IS "TODataset"',user
C >L> "MVS"
C >L> "send 'FDI DATAST NAME IS "
C >O> "MVS send 'FDI DATAST NAME IS "
C >V> "FDNBT.DATA.VPLUS.ATCH.G0610V00"
C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU
C >L> "',user=(AB55,AB54),LOGON"
C >O> "MVS send 'FDI DATAST NAME IS FDNBT.DATA.VPLU
C 12 *-* exit
Please suggest, where I am missing to generate correct output.
On Sat, Jun 23, 2018 at 8:02 PM, Dale R. Smith <
On Sat, 23 Jun 2018 11:16:15 +0300, saurabh khandelwal <
Post by saurabh khandelwal
Hello,
I trigger event and below rexx should have been executed
/* REXX */
parse arg mtxt . mtxt
WTO.CONSNAME = 'CNDVMSTR'
WTO.DESC = '0100010000000000' /* WHITE */
WTO.DESC = '0010000000100000' /* RED */
WTO.MCSFLAG = '00000000'
WTO.TEXT = 'CONSOLE TEST MSG IS' mtxt
WTO.
exit
But, I checked with operator and they didn't receive any message on
their
Post by saurabh khandelwal
console. Are we missing anything in this.
Remove the period from the last WTO before the EXIT. "WTO" is a
command, "WTO." is not a command.
https://www.ibm.com/support/knowledgecenter/en/SSZJDU_5.3.
0/com.ibm.itnetviewforzos.doc_5.3/dqcl2ms2171.htm
Not sure if the NETVIEW manuals document what the DESC and MCSFLAG
https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.
0/com.ibm.zos.v2r1.ieaa400/iea3a4_Description14.htm
WTO.DESC is a variable that will be read by the WTO command. Since you
have two of them in your REXX program, only the last one set will be used.
In the description for WTO.DESC, it shows that you can code it as decimal
numbers instead of binary, which would be more readable!
Instead of coding WTO.DESC = '0100010000000000' you could code WTO.DESC
= '(2,6)'. 2 and 6 mean "Immediate Action Required" and "Job Status". I
don't know if that means the message will be displayed in "white".
Instead of coding WTO.DESC = '0010000000100000' you could code
WTO.DESC = '(3,11)'. 3 and 11 mean "Eventual Action Required" and
"Critical Eventual Action Required". I don't know if that means the
message will be displayed in "red".
Instead of coding WTO.MCSFLAG = '00000000' you could code WTO.MCSFLAG = '(NOCPY)'
If you have not done so already, please download and read, (or read
online), the NETVIEW manuals!
--
Dale R. Smith
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
--
Thanks & Regards
Saurabh Khandelwal
--
Thanks & Regards
Saurabh Khandelwal

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