Getting Started with TRANSACT (32247-90007)

122 Chapter8
Special Topics
Interface to Report/V
Figure 8-6. Report/V Program to Create Backlog Report
1 report ex65r;
2 option nohead;
3 access shortage,list=(cust-no,part-number,order-no,order-date,
4 line-no,quantity,back-order);
5 sort(1) cust-no:part-number;
6 page heading "BACKLOG DETAIL BY CUSTOMER AND PART",col=25:
7 "CUSTOMER",LINE=2,COL=1:
8 "PART NUMBER",COL=10:
9 "ORDER",COL=22:
10 "DATE",COL=32:
11 "LINE",COL=42:
12 "ORDERED",COL=50:
13 "BACKORDERED",COL=70:
14 " ",line=1;
15 detail cust-no,col=1:
16 part-number,col=10:
17 order-no,col=22:
18 order-date,col=32,edit="^^^^/^^^^/^^^^":
19 line-no,col=43:
20 quantity,col=50,edit="ZZZ,ZZZ":
21 back-order,col=70,edit="ZZZ,ZZZ";
22 group(2) summary cust-no,col=1:
23 part-number,col=10:
24 total(quantity),col=50,edit="ZZZ,ZZZ":
25 total(back-order),col=70,edit="ZZZ,ZZZ":
26 " ",line=1;
27 group(1) summary cust-no,col=1:
28 "TOTAL",col=10:
29 total(quantity),col=50,edit="ZZZ,ZZZ":
30 total(back-order),col=70,edit="ZZZ,ZZZ":
31 " ",line=1;
32 report summary "GRAND TOTAL",col=1:
33 total(quantity),col=50,edit="ZZZ,ZZZ":
34 total(back-order),col=70,edit="ZZZ,ZZZ";