Getting Started with TRANSACT (32247-90007)

120 Chapter8
Special Topics
Interface to Report/V
Figure 8-4. Transact Program to Create Backlog Report
1 system ex65,base=orders,file=shortage(update)
2 ,file=temp(sort);
3 define(item) tot-inv i(6):
4 inv-part x(8):
5 inv-quantity i(6),alias=(quantity(inventory));
6 list part-number:
7 cust-no:
8 order-date:
9 order-no:
10 line-no:
11 quantity:
12 back-order:
13 tot-inv:
14 inv-part:
15 inv-quantity;
16 find(serial) orderline,list=(part-number,order-no,line-no,quantity
17 ,perform=each-orderline;
18 find(serial) temp,list=(part-number:quantity)
19 ,sort=(part-number,order-date)
20 ,perform=each-temp-orderline;
21 call ex65r,report;
22 exit;
23
24 each-orderline:
25
26 set(key) list (order-no);
27 find(chain) orderhead,list=(cust-no,order-date);
28 put temp,list=(part-number:quantity);
29 return;