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

PIPE INSTORE
Examples
142 Programming: Pipes
Note: Do not prohibit LOCAL access to the DSIOPEN and CNMPNL1 DDs.
Example: Loading a Member from Disk into Storage, without
Comments or Trailing Blanks
’PIPE < CNMPNL1.MEMXYZ’,
’| NLOCATE 1.1 /*/’,
’| STRIP TRAILING’,
’| INSTORE CNMPNL1.MEMXYZ COMMON REPLACE’,
’| APPEND NETV BR CNMPNL1.MEMXYZ’
Attention: NLOCATE 1.1 /*/ must be used with caution. An asterisk might not
indicate a comment in every member and stripping these lines can invalidate the
instore version.
Example: Unloading a Member from Storage (with a Return
Code)
’PIPE (END ;) A: INSTORE CNMPNL1.MEMXYZ COMMON;’,
’A: | CONS’
Example: Hiding a Member within a Procedure Family
’PIPE HOLE|INSTORE DSICLD.C1 LOCAL|APPEND NETV BR DSICLD.C1|CONS’
Example: Managing Member Loading
See CLIST CNME1054 (MEMSTORE).
Example: Ending the INSTORE if 'END' is Found at the Start of
an Input Line
ARG MEM
’PIPE (END ;) < ’MEM, /*Read mem in */
’| A: NLOC 1.3 /END/’, /*If not END line, send to INSTORE*/
’| B: INSTORE DSIPARM.TEST7 COMMON REPLACE’,/*Load COMMON */
’| HOLE’, /*End pipe 1 */
’; A: ’, /*END comes here... */
’| B:’, /*back to INSTORE secondary-input */
’| CONS’ /*Output INSTORE’s return code */