MPE/iX - CI Programming for Stability

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