Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

REXX and Netview

Status
Not open for further replies.

Xizor76

Technical User
Jul 9, 2008
5
DE
Hi,

I have some old code in which a tso send command was executed. This wrote to the operator console.

Now I want the same messages to be send with a wto to NetView. How can I do this. Any hints would be helpful.

Cheers,
Xi
 
Use Google and look for argumnet: REXX and Netview

Google Found List:

(PDF) Customization: Using REXX and the NetView Command List Language
publib.boulder.ibm.com/tividd/td/TNZOS/SC31.../envl2000.pdf

And other items to look at

Click on PDF entry

IBM Manual: SC31-8862-00
 
I used to do this by having the rexx exec call a small (assembler) program which issued the WTO. It wasn't 'sent to NetView' as such, but the message automation table in NetView then had an entry added to run a NV rexx exec when the WTO was seen. Typically we used this to let TSO/ISPF users request things, eg that a started task might be started, or some MVS command be issued. The NV exec would check the issuer was allowed to make that request before carrying it out.

The program source is simple:

Code:
         PRINT ON,GEN,NODATA                                            00001
*                                                                       00002**2
*        Issue a WTO which NetView will detect and use as a trigger     00003**2
*        for something.                                                 00004**2
*                                                                       00007**2
PQRWTO01 CSECT                                                          00008
         SAVE  (14,12)                                                  00034
         BALR  12,0                                                     00035
         USING *,12                                                     00036
*                                                                       00037
         WTO 'PQRWTO01 Please do something or other',                  *00246
               ROUTCDE=(2),            master console information      *00247
               DESC=(7)                from an application program      00248
*                                                                       00249
         RETURN (14,12),RC=0                                            00260
         DROP  12                                                       00264
*                                                                       00265
         END   PQRWTO01                                                 00394

You'd need to assemble and link that to produce a load module which you'd then use TSO CALL to call inside your rexx exec.


 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top