Getting Started with TRANSACT (32247-90007)

Chapter 3 73
Using VPLUS and IMAGE
Setting Up a Menu-Driven System
Figure 3-20. VPLUS Menu-Driven Program
1 system ex30,base=orders,vpls=formfile;
2 list(auto) customer;
3 level;
4 get(form) mainmenu,f1=add-customer
,f2=update-customer
,f3=report-customer;
5 end;
6 add-customer:
7 get(form) vcustomer;
8 put customer;
9 end;
10 update-customer:
11 get(form) vcustno;
12 set(key) list (cust-no);
13 get customer;
14 put(form) vcustomer;
15 get(form) vcustomer;
16 update customer;
17 end;
18 report-customer:
19 get(form) vcustno;
20 set(key)list (cust-no);
21 get customer;
22 put(form) vcustomer,wait=
23 ,window=("press f1-f7 to continue");
24 set(form) vcustomer,window=(" ");
25 end;