Issue WTO message using MVS SEND command

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

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

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

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

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

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

can

Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will be

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,

saurabh khandelwal

2018-06-22 18:15:24 UTC

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.

can

Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will be

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

/* 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.

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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,

--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,

saurabh khandelwal

2018-06-23 04:35:19 UTC

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.

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

Post by Lucas Rosalen
can

Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will

Post by Lucas Rosalen
on

Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
------------------------------------------------------------

----------

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
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,

saurabh khandelwal

2018-06-23 08:16:29 UTC

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
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.

WTO

Post by saurabh khandelwal
message on operator console.
Can anybody suggest to implement this change.

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 saurabh khandelwal
For IBM-MAIN subscribe / signoff / archive access instructions,

IBM-MAIN

Post by Lucas Rosalen
------------------------------------------------------------

----------

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

saurabh khandelwal

2018-06-24 12:40:12 UTC

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.

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

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,

--
Thanks & Regards
Saurabh Khandelwal

Eric Jackson

2018-06-25 03:12:47 UTC

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

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.

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

Post by Lucas Rosalen
can

Post by saurabh khandelwal
say as WTO), so that until operator intervention, these message will

Post by Lucas Rosalen
on

Post by saurabh khandelwal
console itself.
Can you please suggest, how can i achieve this
------------------------------------------------------------

----------

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,

Seymour J Metz

2018-06-22 15:43:42 UTC

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

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

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

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 <

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,

saurabh khandelwal

2018-06-24 12:06:11 UTC