IBM Tivoli NetView for z/OS Programming: Pipes - IBM notice

PIPE TSO
Examples
242 Programming: Pipes
Example: Discover TSO Stacks Serving a User
In the following example, the TSO stacks serving a TCP user are listed:
/* REXX Example usage of TSO stage. */
/* Purpose: to discover which of several TCP stacks is */
/* serving a given user. */
/* */
/* Input: TCP User ID */
/* */
/* Output: stack name and current state */
/* (multiple lines are shown for user ids using */
/* multiple ports) */
/* */
/* Assumptions: */
/* 1. the TCP stack name or other mnemonic used */
/* as a member name (copy of CNMSJTSO) for */
/* the TSO servers. See help for START TSOSERV.*/
/* */
/* 2. authority has been granted to use any server*/
/* found. (Otherwise, further filtering can */
/* be done. See note 1, below.) */
/* */
/* 3. TSO server has PROFILE MSGID in effect. */
/* ---------------------------------------------------- */
ADDRESS NETVASIS
arg theUser
IF words(theUser) 1 THEN
DO;
say ’User ID requried’
EXIT 12
END;
ELSE theUser = left(theUser,8)
’PIPE (NAME SRVRLIST)’,
’| NETV LIST STATUS=TSOSERV’, /* Obtain list of all servers. */
’| SEPARATE DATA’, /* sep & discard label lines.
*/
’| SORT 21.8’, /* sort on member (= stack name).*/
, /* LOCATE? See NOTE 1, below */
’| DELDUPES KEEPFIRST 21.8’, /* keep one of each. */
’| EDIT WORD 2 NEXT’, /* build record: tso userid and */
’WORD 3 NEXTWORD’, /* member name from each line. */
’| STEM STACKS.’ /* save these to feed TSO stage */
/* on its secondary input, below.*/
’PIPE (NAME MULTSTAT END %)’,
’| LITERAL /NETSTAT/’, /* creating a command */
’| DUP *’, /* make copiesindefinitely: NOTE2*/
’| A: TSO’, /* read destinations from A below*/
’| WAIT 90’, /* wait plenty */
’| SEPARATE’, /* can’t use SEP DATA */
’| LOCATE 1.10 /EZA0185I/’, /* get just the data lines */
’| LOCATE 10.10 /’theUser’/’, /* and lines with our user’s name*/
, /* Now that we have data about our user*/
, /* where did it come from? The answer */
, /* is in the attributes: JOBID */
’| EDIT JOBID 1 ’, /* Build msg with member name, */
’word 2 NW ’, /* user’s name, and */
’word 6 NW ’, /* current state. */
’| CONS’, /* */
’| TAKE LAST 1’, /* IS there a last one? */
’| PIPEND 2’, /* IF so, make rc = 2 */
, /* ------ end of main pipeline ------ */
’% STEM STACKS.’, /* first stage: read server list */
’| A:’ /* feed this to TSO secondary */