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

PIPE VARLOAD
Examples
256 Programming: Pipes
Example: Setting Variables
To set the first five data elements in the 'DATA.' stem to the values A, B, C, D, and
E, run the following REXX COMMAND LIST:
/* REXX COMMAND LIST */
’PIPE < MYDATA’
’| VARLOAD’
Where MYDATA contains:
/DATA.1/A
/DATA.2/B
/DATA.3/C
/DATA.4/D
/DATA.5/E
Example: Comparing and Setting Variables
To set the first five data elements in the 'DATA.' stem to the values A, B, C, D, and
E only when they currently contain the value contained in the variable STATUS,
run the following REXX COMMAND LIST:
/* REXX COMMAND LIST */
’PIPE < MYDATA’
’| VARLOAD’
Where MYDATA contains:
/DATA.1=STATUS/A
/DATA.2=STATUS/B
/DATA.3=STATUS/C
/DATA.4=STATUS/D
/DATA.5=STATUS/E
Example: Copying Task Globals
In the following example, task global values are copied from the target task to the
local dictionary. The copied values are then output to the console.
/* VARLOAD Example: Copy task globals from target task */
arg opid
IF opid = ’’ THEN opid = ’TOM’
’PIPE (NAME COPYTGLB)’,
’| CORRCMD /’opid’: QRYGLOBL TASK VARS=TCP*’, /* "opid"*/
’| SEPARATE’,
’| LOCATE 1.7 /BNH039I/’, /* just the DATA please */
’| EDIT "/" NEXT’, /* change format to suit*/
’WORD 2 NEXT’,
’"/" NEXT’,
’45.* NEXT’,
’| CONSOLE’, /*show the records to the nice folks*/
’| VARLOAD TASK’ /* put them in my dictionary*/
’QRYGLOBL TASK VARS=TCP* /* confirm update*/
exit
The console output might look like this:
* NTV7E COPYTCP TOM
’ NTV7E /TCPLSOCK/*..2206
’ NTV7E /TCPADDR/9.67.50.1
’ NTV7E /TCPUSER/NV65
’ NTV7E
’ NTV7E
/TCPSTACK/TCP32