Getting Started with TRANSACT (32247-90007)

124 Chapter8
Special Topics
Interface to Report/V
Figure 8-7. Using Report/V Without the Dictionary
1 report ex65r;
2 option nohead;
2.1 define(item) cust-no 9(4):
2.2 part-number x(8):
2.3 order-no x(8):
2.4 order-date x(6):
2.5 line-no 9(2):
2.6 quantity i(6):
2.7 back-order i(6);
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";