Getting Started with TRANSACT (32247-90007)

92 Chapter5
Automatic Error Handling and Prototyping
Figure 5-12. Production Version of Prototype Program
1 system ex40,base=orders,vpls=formfile;
1.1 define(item) lastkey i(4):
1.2 enter i(4),init=0;
1.21 define(item) valid i(4):
1.22 yes i(4),init=1:
1.23 no i(4),init=0;
1.24 list valid:
1.25 yes:
1.26 no;
1.3 list lastkey:
1.4 enter;
2 list(auto) vorderhead;
3 list(auto) vorderline;
3.1 level;
3.2 set(form) vorderhead,init,list=();
3.3 repeat
3.4 do
3.5 let (valid) = (yes);
4 get(form) vorderhead,fkey=lastkey;
4.1 if (lastkey)
(enter)
4.2 then
4.3 do
4.5 end(level);
4.6 end;
4.7 doend;
4.8 set(key) list (order-no);
4.9 find order,list=();
4.901 if status > 0
4.902 then
4.903 do
4.904 set(form) vorderhead,window=(order-no,"order already
exists");
4.905 let (valid) = (no);
4.906 doend;