MPE CI Programming for 7.5

July 22, 2008
Page 46
hp e3000
strategy
• 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