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

Additional NetView Pipeline Examples
END
/***********************************/
/* Use parm1 to create a joblist */
/***********************************/
i = LENGTH(jobname)
IF SUBSTR(jobname,i,1) = ’*’ THEN
DO
/* If using wildcard */
jobname = STRIP(jobname,T,’*’) /* Remove ’*’ from jobname.*/
i=i-1
END
ELSE
/*Decrement removed ’*’ from leng.*/
DO
jobname = jobname || ’ ’
/* If not using wildcard */
/*Add’’tojobname so we do not */
/* match other jobs that start with*/
/* the characters of our jobname. */
i=i+1
END
/*Increment added ’’tolength. */
/* Issue MVS $DA command on the */
/* NETVIEW stage to get info about */
/* active batch jobs and jobs */
/* waiting for resources. The cmd */
’PIPE NETV MVS $DA,ALL,L=Z’, /* results will come back to the */
, /* pipeline as 1 MLWTO (L=Z). */
’ | CORR 30’, /* Wait 30 seconds for $DA output. */
’ | TAKE 1’, /* Terminate wait when response */
, /* received. */
’ | SEP’, /* Split up lines of MLWTO. */
’ | DROP FIRST 1’, /* Discard the first line. */
’ | LOC 10.’i+10’ \’jobname’\’, /* Locate msgs containing jobname. */
’ | STEM jobline.’ /* Store matching lines in */
/* stem variable named jobline */
/* */
/* */
/* Issue MVS $DN command on the */
/* NETVIEW stage to get info about */
/* jobs waiting for execution. The */
’PIPE NETV MVS $DN,ALL,L=Z’, /* results will come back to the */
, /* pipeline as 1 MLWTO (L=Z). */
’ | CORR 30’, /* Wait 30 seconds for $DN output. */
’ | TAKE 1’, /* Terminate wait when response */
, /* received. */
’ | SEP’, /* Split up lines of MLWTO. */
’ | DROP FIRST 1’, /* Discard the first line & last */
’ | DROP LAST 2’, /* 2 lines of $DN,ALL response. */
’ | LOC 10.’i+10’ \’jobname’\’, /* Locate msgs containing jobname. */
’ | STEM jobline. APPEND’ /* Append matching lines to con- */
/* tents of stem variable jobline. */
IF jobline.0 = 0 THEN /* if no matches, say so and exit */
DO
SAY ’No jobs found’
SIGNAL GETOUT
END
/***********************************/
/* Info on matching jobs creating */
/***********************************/
/***********************************/
/* Display output */
/***********************************/
/* Use STEM stage to read matched */
’PIPE STEM jobline.’, /* output into pipeline. */
’ | COL’, /* Gather all output into 1 MLWTO. */
’ | CONS ONLY’ /* Display. Do not automate or log.*/
/*******************************************************************/
Appendix. Additional NetView Pipeline Examples 359