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

********************************************************************
* Write return code information to console and exit command list **
********************************************************************
&WRITE RETURN CODE IS &RETCODE
&EXIT
Output from PIPEVAR command list follows:
NCCF NETVIEW CNM01 OPER2 02/01/10 10:01
* CNM01 PIPEVAR
| CNM01 PA3 IS:
| CNM01 DSI608I PA3 IMMED,IGNORE RETRIEVE AND EXECUTE
C CNM01 RETURN CODE IS 0
Processing steps for first pipeline:
1. The NETVIEW stage issues the DISPFK command to display function key
information. The messages are not displayed, but are placed in the pipeline.
2. The SEPARATE stage reads the messages, which are in the form of an MLWTO,
and it splits the MLWTO into single-line messages.
3. The LOCATE stage selects any message (in this case, one) that contains the
string PA3.
4. The VAR stage writes the message to the variable named CLVAR1.
Processing steps for second pipeline:
1. The VAR stage reads the variable, CLVAR1, into the pipeline whereupon it
becomes a message.
2. The LITERAL stage inserts the PA3 IS: message in front of the message existing
in the pipeline.
3. The CONSOLE stage reads the messages from the pipeline and displays them.
Reading from or Writing to Variables in a Stemmed Array:
STEM
When used as a first stage, STEM reads stem variables from the command
procedure variable pool. As anything other than the first stage, STEM writes
single-line messages or lines of a MLWTO to stem variables. Stem variables are
available to REXX, HLL, and NetView command list languages.
Example 1: Writing to Variables Using STEM
NetView Pipelines Device Drivers
In this example, a REXX command list named PIPSTEMA shows how to use the
STEM stage to write the output from a command to stem variables:
/* REXX COMMAND LIST PIPSTEMA */
’PIPE VTAM D NET,BFRUSE’, /* Run the D NET,BFRUSE cmd */
’ | CORRWAIT 25’, /* Allow msgs time to return*/
’ | TOSTRING LAST \END\’, /* Process until ’end’ msg */
’ | STEM bfruse. ’ /* Put each line into a
REXX array called bfruse */
/* 0th element has the number
of lines in the pipeline */
/* Display variables */
doi=0tobfruse.0
say ’BFRUSE.’i ’is ’ bfruse.i
end
exit
Chapter 3. NetView Pipelines Device Drivers 297