MPE CI Programming for 7.5

July 22, 2008
Page 34
hp e3000
strategy
filling variables arrays (cont)
• example 2:
setvar j 0
setvar looping true
while looping do
setvar NAME “”
input name, “Enter name “
if name = “” then
setvar looping false
else
setvar j j+1
setvar rec!j name
endif
endwhile
setvar rec0 j
• :xeq exmpl2 <datafile (datafile has 20 text records)
(“enter name” prompt shown 20 times snipped…)
End of file on input. (CIERR 900)
input name, "enter name “
Error executing commands in WHILE loop. (CIERR 10310)