MPE/iX - CI Programming for Stability

July 18, 2008 HP World '01 78
Filling variables arrays (cont)
• can we fill arrays (and read files) faster?
• example 4:
setvar rec0 0
setvar limit FINFO (HPSTDIN, ”eof”)
while setvar(rec0, rec0+1) <= limit and &
setvar(rec![rec0+1], input()) <> chr(1) do
endwhile
setvar rec0 rec0-1
• performance (:xeq exmpl4 <datafile):
• 100 records: 185 millisecs (twice as fast!)