MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 31
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 22 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)