Getting Started with TRANSACT (32247-90007)

Chapter 8 121
Special Topics
Interface to Report/V
Figure 8-5. Transact Program to Create Backlog Report (Continued)
31 each-temp-orderline:
32
33 if (part-number) <> (inv-part)
34 then perform each-inv-part;
35 let (tot-inv) = (tot-inv) - (quantity);
36 if (tot-inv) < 0
37 then
38 do
39 let (back-order) = 0 - (tot-inv);
40 let (tot-inv) = 0;
41 doend
42 else let (back-order) = 0;
43 put shortage,list=(cust-no,part-number,order-no,order-date,
44 line-no,quantity,back-order);
45 return;
46
47 each-inv-part:
48
49 move (inv-part) = (part-number);
50 set(key) list (part-number);
51 let (tot-inv) = 0;
52 find(chain) inventory,list=(inv-quantity)
53 ,perform=accum-inv;
54 return;
55
56 accum-inv:
57
58 let (tot-inv) = (tot-inv) + (inv-quantity);
59 return;