ENFORM User's Guide

Selecting Information
Developing an ENFORM Query
058058 Tandem Computers Incorporated 3–25
Figure 3-9. ENFORM Query and Report
Part
Number
Supplier
Number
212
244
1403
2001
2002
1
1
1
1
1
ENFORM Query:
OPEN parts, fromsup;
DECLARE u-var INTERNAL F3.2;
SET u-var TO 0.10;
LIST parts.partnum,
" – ",
partname,
suppnum,
(IF inventory GT 0 THEN inventory ELSE zero)
heading "Stock",
((price + (price * u-var)) – partcost)
heading "New Profit"
AVG(inventory OVER ALL)
heading "AVG/Stock",
WHERE parts.partnum EQ fromsup.partnum;
Report:
PARTNAME Stock
SYSTEM 192KB CORE
SYSTEM 192KB SEMI
PROC 96KB SEMI
DECIMAL ARITH
ENSCRIBE MICRO
7
3
21
0
200
New Profit
AVG
Stock
9200.00
8700.00
2200.00
150.00
100.00
22
Establish Query
Environment
field name
literal
field names
IF/THEN/ELSE expression
Arithmetic expression
Aggregate
Links
parts
to fromsup
• • • • • • • • • • • • • • • • • •
Notice that the value produced by the aggregate AVG only appears on the first line of
the report.