Et voila (I define the ?-char as "end character", then one can code a
multistream pipe:
parse arg where
if where = '' then where = 'PERFSVM '
'PIPE (end ?) VMC ' where ' USER ',
'|O: Fanout', /* Make a second copy of the data */
'| Locate /Interval/' ,
'| specs 35-65 1',
'| Literal' date('Weekday'),
'| >> INTERVAL LOG A ',
'?O:', /* the second copy of the data comes here */
'| all /CICS/ ! /DOSVSE/ ! /COMP/' ,
'| specs 1-16 1',
'| Literal' date('Weekday'),
'| >> CPUUTIL LOG A '
EXIT
Note: if you want a selfstudy for PIPE, get our Telecourse:
http://www.vm.ibm.com/download/packages/descript.cgi?TCVM2
2008/12/12 Wilson, Roger <roger.wil...@milwaukee.gov>
> I want to put rundate as a line, the value of Interval log a as the
> next line then the values from 'PIPE VMC ' where ' USER | all /CICS/ !
> /DOSVSE/ ! /COMP/' into one file, how would I do that?
>
> This is what I have:
>
> rundate = date(weekday)
> say rundate
> parse arg where
> if where = '' then where = 'PERFSVM '
> 'PIPE VMC ' where ' USER | all /Interval' ,
> '| specs 35-65 1',
> '| >> INTERVAL LOG A '
> 'PIPE VMC ' where ' USER | all /CICS/ ! /DOSVSE/ ! /COMP/' ,
> '| specs 1-16 1',
> '| >> CPUUTIL LOG A '
> EXIT
>
--
Kris Buelens,
IBM Belgium, VM customer support
