Re: How to calculate maximun value within fields

[Frans Houweling]

Hi Carlos, as no one seems to answer, here is my go at it.

DATA LIST FREE / A B C D.
BEGIN DATA
0.1 0.5 0.4 0.0
0.2 0.2 0.1 0.5
0.9 0.1 0.0 0.0
END DATA.

COMPUTE HiVar = 0.
COMPUTE #HiVal = -1.
VECTOR val = A TO D.
LOOP #i = 1 TO 4.
+ DO IF val(#i) GT #HiVal.
+  COMPUTE #HiVal = val(#i).
+  COMPUTE HiVar = #i.
+ END IF.
END LOOP.
EXE.
VALUE LABELS HiVar 0 "X" 1 "A" 2 "B" 3 "C" 4 "D".

* And if you really want a string:.
STRING HiName (A1).
DO REPEAT val = 0 1 2 3 4 /name = "X" "A" "B" "C" "D".
+ IF (HiVar EQ val) HiName = name.
END REPEAT
EXE.
LIST VARIABLES = A TO HiName.


Have fun
frans