Getting Started with TRANSACT (32247-90007)

34 Chapter1
Getting Started
Reporting from Multiple Datasets
Figure 1-21. Program to Select Data by the Conditional Verb IF
1 system ex7a,base=orders;
2 list(auto) orderhead;
3 move (order-status) = "o";
4 set(match) list (order-status);
5 find(serial) orderhead,list=(@)
,perform=get-orderdata;
6 exit;
7 get-orderdata:
8 level;
9 set(key) list (order-no);
10 list(auto) orderline;
11 find(chain) orderline,list=(@)
,perform=select-orderline;
12 end(level);
13 return;
14 select-orderline:
15 level;
16 set(key) list (part-number);
17 list(auto) parts;
18 get parts,list=(@);
19 if [(quantity) * (selling-price)] > 1000 then
20 do
21 set(key) list (cust-no);
22 list(auto) customer;
23 get customer,list=(@);
24 display(table) name:
order-no:
line-no:
part-number:
quantity:
selling-price;
25 doend;
26 end(level);
27 return;