Getting Started with TRANSACT (32247-90007)

32 Chapter1
Getting Started
Reporting from Multiple Datasets
Figure 1-19. Program to Create a Report with DISPLAY(TABLE)
1 system ex7,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 (cust-no);
10 list(auto) customer;
11 get customer,list=(@);
12 set(key) list (order-no);
13 list(auto) orderline;
14 find(chain) orderline,list=(@)
,perform=displayit;
15 end(level);
16 return;
17 displayit:
18 display(table) name:
order-no:
line-no:
part-number:
quantity;
19 return;