What flavor of universe are you in? I know that LOCATE works
differently in different flavors.
-Dianne
Brutzman, Bill wrote:
With UniVerse, I am trying to sort by descending dollar value using the
following code.
I have tried 'AL' 'DL' 'AR' 'DR'. I see what it is doing...
Suggestions would be appreciated.
R.Valuation = Extended.F : VM
R.Valuation := Part.Nbr : VM
R.Valuation := Bin.Location
locate R.Valuation in Val.Array<1> by 'DR' setting posn
else null
ins R.Valuation before Val.Array<posn>
for R.This = 1 to Total.Items
This.HK.PN = Val.Array<R.This, 2>
This.Ext = Val.Array<R.This, 1>
This.Bin = Val.Array<R.This, 3>
This.Ext.F = field(This.Ext, '.', 1) ;* To remove pennies
Prn.Str = ' '
Prn.Str := This.HK.PN 'L#9'
Prn.Str := This.Ext.F 'R#11' : ' '
Prn.Str := This.Bin 'R#6'
print Prn.Str
next R.This
*---------------------------------------------------------
Output:
103673 22 5H3
101767 20 5C4
103511 19,049 XX3
103387 18 5C4
103556 17,330 FF5
103245 12 4C3
102592 11 WF2
103511 11,525 319
103588 11,252 319
100413 11,125 FF5
--Bill
-------
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
