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

Introduction and Concepts
WISHCLST CLIST
&CONTROL ERR
*
*********************************************************************
** THIS CLIST USES THREE PIPE COMMANDS. **
** - THE FIRST WRITES A MESSAGE TO A CLEARED SCREEN. **
** - THE SECOND WRITES A MESSAGE TO A CLIST VARIABLE. **
** - THE THIRD READS THE VARIABLE AND DISPLAYS THE RESULTS. **
*********************************************************************
*
*********************************************************************
** WRITE MESSAGE TO TERMINAL USING PIPE COMMAND **
*********************************************************************
PIPE LITERAL /WISHCLST IS PROCESSING/ +
| CONSOLE CLEAR
*********************************************************************
** CHOOSE A VACATION DESTINATION USING THE PIPE COMMAND TO **
** READ RECORDS FROM A DISK FILE INTO THE PIPELINE, **
** MANIPULATE THEM AND STORE ONE RESULTING MESSAGE IN THE **
** VARIABLE NAMED VACVAR. **
*********************************************************************
PIPE < WISHLIST +
| LOCATE /RIVER/ /PARK/ +
| NLOCATE /AFRICA/ /ASIA/ /AUSTRALIA/ +
| TAKE FIRST 1 +
| VAR VACVAR
*********************************************************************
** READ VARIABLE NAMED VACVAR INTO THE PIPELINE AND ADD **
** ’VACATION CHOICE’ TEXT AHEAD OF IT, THEN DISPLAY. **
*********************************************************************
PIPE VAR VACVAR +
| LITERAL /VACATION CHOICE/ +
| COLLECT +
| CONSOLE
*********************************************************************
** WRITE RETURN CODE INFORMATION TO TERMINAL AND EXIT CLIST **
*********************************************************************
&WRITE RETURN CODE = &RETCODE
&EXIT
*************************** BOTTOM OF DATA **************************
Figure 12. A Pipeline Invoked from a Command Procedure Called WISHCLST
Chapter 1. NetView Pipelines Introduction and General Concepts 17