Tso Rexx question

Thom Stone

unread,

Oct 21, 2010, 11:55:14 AM10/21/10

to

Can anyone tell me how to send a WTO to the operator console from a TSO Rexx? Maybe a small example. I'm guessing an ATTCHPGM or something like bt so far no joy. I am trying like so, but am getting RC -3 and am stuck. I've tried several different combinations and no luck so far. I'm off trying to find out what a RC-3 is now.

Thanks.

MESG=ARG(1)
CONSNAME='DX9701'
MCSFLAG = '00000000'
ADDRESS LINKPGM "WTO '"MESG"',MCSFLAG="MCSFLAG",CONSNAME="CONSNAME
EXIT

6 *-* ADDRESS LINKPGM "WTO '"MESG"',MCSFLAG="MCSFLAG",CONSNAME="CONSNAME
>L> "WTO '"
>V> "this is a test"
>O> "WTO 'this is a test"
>L> "',MCSFLAG="
>O> "WTO 'this is a test',MCSFLAG="
>V> "00000000"
>O> "WTO 'this is a test',MCSFLAG=00000000"
>L> ",CONSNAME="
>O> "WTO 'this is a test',MCSFLAG=00000000,CONSNAME="
>V> "TS62547"
>O> "WTO 'this is a test',MCSFLAG=00000000,CONSNAME=TS62547"
+++ RC(-3) +++

Thanks,
Thom Stone

----------------------------------------------------------------------
For TSO-REXX subscribe / signoff / archive access instructions,
send email to LIST...@VM.MARIST.EDU with the message: INFO TSO-REXX

Binyamin Dissen

unread,

Oct 21, 2010, 12:06:34 PM10/21/10

to

On Thu, 21 Oct 2010 10:24:54 -0500 Thom Stone <ston...@MCHSI.COM> wrote:

:>Can anyone tell me how to send a WTO to the operator console from a TSO Rexx? Maybe a small example. I'm guessing an ATTCHPGM or something like bt so far no joy. I am trying like so, but am getting RC -3 and am stuck. I've tried several different combinations and no luck so far. I'm off trying to find out what a RC-3 is now.

ADDRESS TSO "SEND '"mesg"' CN("consname")"

:>Thanks.

:>MESG=ARG(1)
:>CONSNAME='DX9701'
:>MCSFLAG = '00000000'
:>ADDRESS LINKPGM "WTO '"MESG"',MCSFLAG="MCSFLAG",CONSNAME="CONSNAME
:>EXIT

:>6 *-* ADDRESS LINKPGM "WTO '"MESG"',MCSFLAG="MCSFLAG",CONSNAME="CONSNAME
:> >L> "WTO '"
:> >V> "this is a test"
:> >O> "WTO 'this is a test"
:> >L> "',MCSFLAG="
:> >O> "WTO 'this is a test',MCSFLAG="
:> >V> "00000000"
:> >O> "WTO 'this is a test',MCSFLAG=00000000"
:> >L> ",CONSNAME="
:> >O> "WTO 'this is a test',MCSFLAG=00000000,CONSNAME="
:> >V> "TS62547"
:> >O> "WTO 'this is a test',MCSFLAG=00000000,CONSNAME=TS62547"
:> +++ RC(-3) +++

--
Binyamin Dissen <bdi...@dissensoftware.com>
http://www.dissensoftware.com

Director, Dissen Software, Bar & Grill - Israel

Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.

I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.

Robert Zenuk

unread,

Oct 21, 2010, 12:10:03 PM10/21/10

to

Aside from the TSO SEND command for a quick and dirty way to do it, it
looks like you have your own WTO program. The easiest way is to include all
the parms in one variable.

MESG=ARG(1)
CONSNAME='DX9701'
MCSFLAG = '00000000'

PARMS = MESG',MCSFLAG='MCSFLAG',CONSNAME='CONSNAME
ADDRESS LINKPGM "WTO PARMS"
EXIT

Rob

In a message dated 10/21/2010 8:54:13 A.M. US Mountain Standard Time,
ston...@MCHSI.COM writes:

Can anyone tell me how to send a WTO to the operator console from a TSO
Rexx? Maybe a small example. I'm guessing an ATTCHPGM or something like bt
so far no joy. I am trying like so, but am getting RC -3 and am stuck.
I've tried several different combinations and no luck so far. I'm off trying
to find out what a RC-3 is now.

Thanks.

MESG=ARG(1)
CONSNAME='DX9701'
MCSFLAG = '00000000'
ADDRESS LINKPGM "WTO '"MESG"',MCSFLAG="MCSFLAG",CONSNAME="CONSNAME
EXIT

6 *-* ADDRESS LINKPGM "WTO '"MESG"',MCSFLAG="MCSFLAG",CONSNAME="CONSNAME
>L> "WTO '"
>V> "this is a test"
>O> "WTO 'this is a test"
>L> "',MCSFLAG="
>O> "WTO 'this is a test',MCSFLAG="
>V> "00000000"
>O> "WTO 'this is a test',MCSFLAG=00000000"
>L> ",CONSNAME="
>O> "WTO 'this is a test',MCSFLAG=00000000,CONSNAME="
>V> "TS62547"
>O> "WTO 'this is a test',MCSFLAG=00000000,CONSNAME=TS62547"
+++ RC(-3) +++

Thanks,
Thom Stone

Thom Stone

unread,

Oct 21, 2010, 12:27:55 PM10/21/10

to

Actually I am trying to use what I believe to be the IBM WTO MACRO. Of course where it falls in the search sequence only IEHGOD knows.

.***START OF SPECIFICATIONS********************************************
.* @G64DPSS
.* MACRO NAME= WTO @G860PSS
.* @G860PSS
.* DESCRIPTIVE NAME= WRITE TO OPERATOR (WTO) @G860PSS
.* @G860PSS
.* EXTERNAL CLASSIFICATION: PI @L7C
.* END OF EXTERNAL CLASSIFICATION:
.*
.**01* PROPRIETARY STATEMENT= *
.* **PROPRIETARY_STATEMENT*********************************************
.* *
.* *
.* LICENSED MATERIALS - PROPERTY OF IBM *
.* 5694-A01 COPYRIGHT IBM CORP. 1981, 2008 *

.
.
.

I tried using the info you provided and I am still getting RC -3. No Joy. The TSOSEND gets me there, but it's like kissing your sister when you wanted the big date. If I have to work with it I will , but I am going to continue to pursue WTO. WTO works with NetView, so I suspect there has to be a way over this hump.
Thanks.

Robert Zenuk

unread,

Oct 21, 2010, 12:39:51 PM10/21/10

to

You can not use the WTO macro from REXX... You must have a program that
issues a WTO. There are a few freeware WTO programs on _www.cbttape.org_
(http://www.cbttape.org) . If you want free and can't install any freeware or
RYO then TSO SEND is as good as it gets...

If you can install stuff from the CBTTAPE, then check out file 386. It
has a REXX function package that has a WTO feature (and a bunch of other
stuff).

Rob

In a message dated 10/21/2010 9:27:50 A.M. US Mountain Standard Time,

Hardee, Charles H

unread,

Oct 21, 2010, 12:42:57 PM10/21/10

to

Thom,

The -3 return code from the "WTO...." statement is REXX's way of telling you it couldn't find the command processor or program indicated in the statement. In this case, the command or program "WTO". As Robert already indicated, you can't use the WTO macro, you must have a program of some sort to handle the function you are trying to implement.

Chuck

Charles Hardee
CA technologies
Sr Sustaining Engineer
Tel: +1-952-838-1039
Charles...@ca.com

Thom Stone

unread,

Oct 21, 2010, 2:52:05 PM10/21/10

to

Thank you so much for the information about the Macro. As it happens we do have our own WTO program.
After lunch, a walk for the heart, a discusion with the group that needed the WTO call, and a fire drill, and another look at the TSO/E Rexx manual, I'm back.

It was simple matter to call it either way as so:

ADDRESS TSO "CALL *(WTOPARM) '#### TESTING WTOS'"
PARMS = "'#### TESTING WTOS'"
ADDRESS TSO "CALL *(WTOPARM) "PARMS

This group is the best place to get useful information.

----- Original Message -----
From: "Robert Zenuk" <Robz...@AOL.COM>
To: TSO-...@VM.MARIST.EDU
Sent: Thursday, October 21, 2010 11:38:36 AM GMT -06:00 US/Canada Central
Subject: Re: [TSO-REXX] Tso Rexx question

You can not use the WTO macro from REXX... You must have a program that
issues a WTO. There are a few freeware WTO programs on _www.cbttape.org_
(http://www.cbttape.org) . If you want free and can't install any freeware or
RYO then TSO SEND is as good as it gets...

If you can install stuff from the CBTTAPE, then check out file 386. It
has a REXX function package that has a WTO feature (and a bunch of other
stuff).

Rob

In a message dated 10/21/2010 9:27:50 A.M. US Mountain Standard Time,