MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 30
• PARM fileset=./@, entry="main”
# This script reads a file produced by LISTFILE,6 and measures CPU msecs
# using entry points and script redirection
if "!entry" = "main" then
setvar savecpu hpcpumsecs
errclear
continue
listfile !fileset,6 > lftemp
if hpcierr = 0 then
xeq !hpfile !fileset entry=read <lftemp
endif
echo ![hpcpumsecs - savecpu] msecs to read !eof records.
deletevar cntr,eof,rec
purge lftemp;temp
return
. . . (continued on next slide)
File I/O - entry points