Ok, now one step further. I have e rexx exec that uses piped instead of the Stack. I write out a line, but what I need is the records that contain the values CICS, DOSVSE and COMP be prefaced with the x'05' also between the CICS, DOSVSE or COMP and the numbers.
Example:
/*VMC INTERFACE FOR MONITOR CPU */
rundate = date(weekday)
tab = '05'x
parse arg where
I = 1
parse arg where
if where = '' then where = 'PERFSVM '
'PIPE (end ?) VMC ' where ' USER ',
'|O: Fanout', /* Make a second copy of the data */
'| all /CICS/ ! /DOSVSE/ ! /COMP/' ,
'| SPECS 1-16 1',
'| LITERAL' rundate DATE() TIME(),
'| >> CPUUTIL LOG B '
EXIT
Generates this file
Tuesday 16 Dec 2008 15:22:25
CICS 9.37
DOSVSE .25
COMP .18
Tuesday 16 Dec 2008 15:26:43
CICS 19.5
DOSVSE .25
COMP .19
I need a tab before CICS, DOSVSE or COMP and the numbers.
