This should be easy but I seem to be making it hard.

I have a numeric value described in the MFD like this:

FIELDNAME=TGPA_GPA, ALIAS=TGPA_GPA, USAGE=D20.2, ACTUAL=D8,

The value is 2.986232. I need it to display as 2.98 2.99 seems to be all I can get because I don't know how to suppress the rounding.

I've tried converting to alpha but still can't get it.

Any help would be greatly appreciated.

Steve

This message has been edited. Last edited by: Kerry,

Use INT to truncate:

DEFINE FILE CAR
TGPA_GPA/D20.2=2.986232;

TGPA_GPA2/D12.2=INT(TGPA_GPA*100)/100;

END
TABLE FILE CAR
PRINT TGPA_GPA TGPA_GPA2
BY COUNTRY
END

I was just about to post when my browser refreshed and I saw the EXACT code I was posting in j.gross's post. So I won't repeat. Any format/precision conversion you do is going to automatically round and I don't think there is any way around it except truncating the number as suggested.

An other solution could be

DEFINE FILE CAR
TGPA_GPA/D20.2=2.986232;

TGPA_GPA2/D12.2=TGPA_GPA-0.00499;
END

TABLE FILE CAR
PRINT TGPA_GPA 
TGPA_GPA2
BY COUNTRY
END

Tom

2.983232 minus 0.004999 is 2.978233 presented as D12.2 is 2.98....

I use Frank's way .. works just dandy for me.
Citibank keeps all the extra mils that way.

Thanks to all who replied. True, 2.985232 will properly round to 2.99 but my customer specifically requested two decimal places and no rounding. So, both J.Gross and FrankDutch provided simple one-line working solutions. I actually came up with some code that worked but I'd be embarrassed to post it here! Of course I've only been writing FOCUS at the code level for twenty years so I'm a little new at this. Thanks again.

Steve

Steve, as Susannah said, I would so use Frank's method - that has worked well for me over the years, but if you want 2 decimal places and no rounding here goes:

quote:

DEFINE FILE CAR
ORIG_VALUE/D20.2=2.986232;
FLD0/D20.2 = ORIG_VALUE * 100 ;
IVAL/I4 = IMOD(FLD0, 1000, IVAL);
AVAL/A6=EDIT(IVAL,'$9.99');
DVAL/D20.2=ATODBL(AVAL, '6', DVAL);
END

TABLE FILE CAR
PRINT ORIG_VALUE FLD0 IVAL AVAL DVAL
BY COUNTRY
END
-EXIT

This message has been edited. Last edited by: ira,