IBM 5110 User Manual page 105

100
At this point there is not enough information available to complete the
report. The reorder flag is needed to indicate the parts with a
combined in-stock and on-order quantity that is less than the reorder
quantity. The following user-defined function might be used to place
asterisks
(*)
in the reorder flag column when the in-stock plus
on·-order quantity is less than the reorder quantity:
v
r:
:1.:]
[:~
:t
VREDR[tERFLAD[[]JV
RF~REOR[tERFLAG;I;X
I~" (DATA[; 1 J+DATA[; 2J) <[tATA£:; I.~J
X~M\
(:LtpDATA)
[~~J
I
in
I / X •
Selects the rows where the condition
[If]
RF
f- ( (
1 t
pDATA)
I
!':j) p •
specified in statement 1 is true
[~;J RF
r:
I ; J ~ .. ·
* ·
V
" Places the reorder flag ( ••••• ) in the appropriate rows
Now, the following statement can be used to add the reorder flag the
report data:
BO[tYf-BODY,REORDERFLAG
The body of the report now looks like this:
BODY
:3921.1·01 SCREW
~~92402
NUT
3921~. () 3
WASHE: R
39240
1
4. CONTACT
:3924· () 5 LEAD
39240t') POST
392'+07
CRT
:I. ()
0 0
1000
5000
()
20
1.1·00
~)O 0
o
o
2000
()
500
o
200
.02
.01
.01
.50
1.03
2.72
136.59
1000
1000
2000
2000->f****
~j() 0
500**')f**
200
The third step is to edit the data. In this example, a dollar ($) is to be
placed before each cost per part.
E<O[lY
r: ;
36]
f- •
$ •