User guide

Selecting Information
Developing an ENFORM Query
3–28 058058 Tandem Computers Incorporated
Figure 3-10. DDL Record Description, ENFORM Query, and FIND File
partnum suppnum
0212
0244
1403
2001
2002
001
001
001
001
001
DDL Record Description:
Record profit.
file is "profit".
02 partnum
02 suppnum
02 partname
02 stock
02 new-prof
02 avg-stock
end
ENFORM Query:
OPEN parts,fromsup,profit;
DECLARE u-var INTERNAL F3.2;
SET u-var TO 0.10;
FIND profit
( parts.partnum,
parts.partname,
fromsup.suppnum,
stock := (IF inventory GT 0 THEN inventory ELSE zero),
new-prof:= ((price + (price * u-var)) - partcost),
avg-stock := AVG(inventory OVER ALL),)
WHERE parts.partnum EQ fromsup.partnum;
Logical Diagram of FIND File:
partname stock
SYSTEM 192KB CORE
SYSTEM 192KB SEMI
PROC 96KB SEMI
DECIMAL ARITH
ENSCRIBE MICRO
0007
0003
0021
0000
0200
new-prof avg-stock
00920000
00870000
00220000
00015000
00010000
0022
PIC 9(4).
PIC 9(3).
PIC X(18).
PIC 9(4).
PIC 999999V99.
PIC 9(4).
• • • • • • • • • • • • • • •
Notice in Figure 3-10, avg-stock is blank except in the first record.