Hi all,

I have the following problem...
I have a filed that contains a double values (eg. 1234.55)

I want to print only 1234.

How I can convert/format the field?

Use the INT function.

You can also just equate it to another field defined as integer or a double with no scale. It will truncate anything after the decimal point.

FLDINT/I4=DBLFLD;

Thanks

...and how I can format it like this "1,234"

Do you want to convert it to integer or just print it with a comma and no decimals?

Ginny gave the integer coversion.

I know you are new to the game, but look up the formatting of output on reports.

You can try,

  PRINT FIELD/D6 

the /D6

gives only the whole and no decimals, assuming the field is defined in the master with decimals

Sorry,

here is my case:

I have a field with decimal values and I want to convert it into a alphabetic field that is formated with comma and no decimals...

INT1/A8 = FTOA(decfld,'(D6)','A8');

Thank you very much Alan B

OK, that is clearer.

DEFINE FILE CAR
DBLFLD/D7.2=1234.55;
-* If FLD_NODEC is a D format, rounding will occur.  With an I format, there is no rounding.  Your choice.
FLD_NODEC/I4=DBLFLD;
FLD_ALPHA/A10=FTOA(FLD_NODEC,'(D4)', 'A10');
END
TABLE FILE CAR
PRINT DBLFLD FLD_NODEC FLD_ALPHA
BY COUNTRY
END  

and another question:

I used the example of the Alan B and it works perfect but the alignment of the field is left.

how I can set it to right?

I know this may sound like a broken record, but how are you using this field?

L_G

Alpha are left justified, numeric right. You asked for alpha.

If you want it alpha AND right justified use the style sheet.

As Leah says, how are you using this field?

The output of the report is a text file (it is requirement)

Here is the file otput:

  
*************************
 I          I          I 
 I    GEN   I    FEB   I 
 I          I          I 
=I==========I==========I=
 I  2,153   I          I 
 I  1,525   I          I 
 I          I          I 
 I 13,653   I 14,218   I 

I want to justified like this:

  
*************************
 I          I          I 
 I    GEN   I    FEB   I 
 I          I          I 
=I==========I==========I=
 I    2,153 I          I 
 I    1,525 I          I 
 I          I          I 
 I   13,653 I   14,218 I 

if only the output is a text file you can just say

PRINT FIELD/D6 

no conversion is needed.
maybe some basic training....!

yes but I create one alphanumeric field that is combination other field , for example:

DEFINE FILE somefile
MYFIELD/A100 = '*'|field1|'*';
END

field1 is FTOA(decfld,'(D6)','A8');

The file output is only MYFIELD

Run RJUST function on it after you do the concatenation.

You might want to peruse the functions manual.

After you become familiar with the available functions, you might want to create some of your own functions.

Here's one I created right after I discovered that I could create my own. It's a little crude. But if it isn't broke, don't fix it.

DEFINE FUNCTION TRUNC(NUMBER/D12.2)
NUMBER_100/D12 = NUMBER*100;
NUMBER_100_FTOA/A18 = FTOA(NUMBER_100, '(D12)', 'A18');
NUMBER_100_FTOA_NOCOMMA/A18 = STRIP(18, NUMBER_100_FTOA, ',', 'A18');
NUMBER_100_FTOA_NOSPACE/A18 = STRIP(18, NUMBER_100_FTOA_NOCOMMA, ' ', 'A18');
NUMBER_100_FTOA_ARGLEN/I9 = ARGLEN(18, NUMBER_100_FTOA_NOSPACE, 'I9');
NUMBER_100_FTOA_SUBSTR/A18 = SUBSTR(18, NUMBER_100_FTOA_NOSPACE, 1,
                                    NUMBER_100_FTOA_ARGLEN - 2, NUMBER_100_FTOA_ARGLEN - 2, 'A18');
TRUNC/D12 = EDIT(NUMBER_100_FTOA_SUBSTR);
END

I know there are easier ways to get to what you wanted in this instance, but the funttion above will work when you truly need to truncate a number. Simply save the function and use it like an include.

Good Luck