I HAVE A FIELD THAT IS AN A4000 TH VALUES STORED ARE TYPICALLY $19, $50, $200 ETC OR NULL. I NEED TO STRIP THE $ AND CONVERT TO A NUMERIC D20:2 OR EVEN PACKED WOULD WORK.

i SUPECT IT MIGHT TAKE MULTIPLE STEPS

This message has been edited. Last edited by: Geoff Fish,

THANKS

Strip the $ then use ATODBL function:

DEFINE FILE CAR
ALPHA/A4000 MISSING ON = IF COUNTRY EQ 'ENGLAND' THEN MISSING ELSE '$200';
END

TABLE FILE CAR
PRINT
ALPHA
COMPUTE ALPHAB/A4000 = SUBSTR(4000, ALPHA, 2, 4000, 3999, 'A4000');
COMPUTE NUMERIC/D20.2 = ATODBL(ALPHAB, '4000', 'D20.2');

BY COUNTRY
END

Francis had to fiddle a little but this is what worked.

TABLE FILE AWVPREV
PRINT
AWVPREV.AWVPREV.AWVPREV_PIDM_KEY
AWVPREV.AWVPREV.AWVPREV_SUM_AMT_TOT
COMPUTE STRIP/A4000 = STRIP(4000, AWVPREV.AWVPREV.AWVPREV_SUM_AMT_TOT, '$', STRIP);
COMPUTE CALC2/D20.2 = ATODBL(STRIP, '4000', CALC2);
WHERE RECORDLIMIT EQ 100
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
END