MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 28
PARM fileset=./@
# This script reads LISTFILE,6 output and measures CPU millisecs
# using a MSG file
setvar savecpu hpcpumsecs :readmsg
errclear 259 msecs to read 22 records
file msg=/tmp/LISTFILE.msg; MSG
continue :readmsg @.pub.sys
listfile !fileset,6 >*msg 15845 msecs to read 1515
if hpcierr = 0 then
# read listfile names into a variable
setvar cntr setvar(eof, finfo('*msg', "eof"))
while setvar(cntr, cntr-1) >= 0 do
input rec <*msg
endwhile
endif
echo ![hpcpumsecs - savecpu] msecs to read !eof records.
deletevar cntr, eof, rec
File I/O - MSG file