MPE CI Programming for 7.5

July 22, 2008
Page 35
hp e3000
strategy
filling variables arrays (cont)
• example 3;
setvar j 0
if HPINTERACTIVE then
setvar prompt “’Name = ‘”
setvar limit 2^30
setvar test ‘name= “” ‘
else
setvar prompt “”
setvar limit FINFO (HPSTDIN, ”eof”)
setvar test “false”
endif
while (j < limit) do
setvar name “”
input name , !prompt
if !test then
setvar limit 0 # exit interactive input
else
setvar j j+1
setvar rec!j name
endif
endwhile
setvar rec0 j