MPE CI Programming for 7.5

July 22, 2008
Page 47
hp e3000
strategy
else
# read listfile names into a variable
setvar cntr setvar(eof, finfo(hpstdin, "eof"))
while setvar(cntr,cntr-1) >= 0 and setvar(rec, input()) <>
chr(1) do
endwhile
return
endif
:readntry
90 msecs to read 24 records.
---> Almost 3 times faster than MSG files
---> 8 times faster than the PRINT method!
:readntry @.pub.sys
2400 msecs to read 1515 records.
---> Over 6 times faster than MSG files
---> 31 times faster than using PRINT!
file i/o - entry points (cont)