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

BNH031I NETVIEW GLOBAL VARIABLE INFORMATION
BNH103I COMMAND ISSUED AT: 01/21/10 11:52:31
BNH061I
BNH033I TASK GLOBAL VARIABLES FOR MARK
BNH036I GLOBAL VARIABLE NAME: GLOBAL VARIABLE VALUE:
BNH061I --------------------- ----------------------
BNH039I TCPLSOCK *..2206
BNH039I TCPADDR 9.67.50.1
BNH039I TCPUSER NV65
BNH039I TCPSTACK TCP32
BNH035I NUMBER OF VARIABLES FOUND: 4
BNH061I
BNH037I NETVIEW GLOBAL VARIABLE INFORMATION COMPLETE
Example: Update Current Group Members
The following process updates the current group (currGrp) members if the current
group has not been updated by another task.
/* VARLOAD example: Update members for "current group" */
/* */
/* Problem: Value of "currGrp" can be changed at any time */
/* by some other task. */
/* */
’GLOBALV GETC currGrp’
say ’Current group name is’ currGrp
’PIPE (NAME BLDGRP)’, /* Find the members of this group */
’| NETV LIST ASSIGN=GROUP,GROUP=’currGrp, /*LIST members..*/
’| LOCATE 1.6 /DSI640/ 1.6 /DSI641/’,/* isolate data lines*/
’| EDIT 22.* 1’, /* remove "headers" */
’| JOINCONT //’, /* make into one line*/
’| VAR MEMBERS’ /* ...and save */
UpDate.1 = ’/GRPops/’ ││ members /*format of VARLOAD*/
UpDate.2 = ’/currGrp=currGrp/’││ currGrp
UpDate.0 = 2
/* Update.2 contains multiple references to currGrp. */
/* CurrGrp is being used in three ways: the first references*/
/* the common global dictionary (see options on VARLOAD */
/* below) the second references the local dictionsary and */
/* the third is resolved immediately by REXX. */
/* */
/* */
/* Since this is a COMMON GLOBAL, we check to be sure that */
/* other task did not change CURRGRP while we were working. */
/* */
/* COLLECT is important in the following PIPE. */
/* */
/* Updates of variables from a multi-line message are made */
/* together. All comparisons for the lines of the message */
/* are done before nay updates. If any comparison fails, */
/* no updates are done from that MLWTO. Therefore we collect*/
/* related updates into one multi-line message. */
/* */
’PIPE (NAME SETGRP END %)’,
’| STEM UpDate.’,
’| COLLECT’, /* COLLECT IMPORTANT! */
’| A: VARLOAD COMMON’,
’| EDIT "Update successful:" 1 WRITELINE COPY *’,
’| CONSOLE’,
’% A:’,
’| EDIT "Entire update failed:" 1 WRITELINE COPY *’,
PIPE VARLOAD
Chapter 2. Pipeline Stages and Syntax 257