Chapter 3 63
Using VPLUS and IMAGE
Adding Data to a Dataset
Figure 3-7. Preventing a Blank Record
1 system ex24,base=orders,vpls=formfile;
2 list(auto) customer;
3 repeat
4 do
5 get(form) vcustomer,init;
6 if (cust-no)
0
7 then put customer;
8 doend
9 until (cust-no) = 0;
10 exit;
