how to use %edtcde in rpg4

[jadec]

Hi Guys,

I want to convert a number 00.2100 to char. The result should be exact like : '00.2100'. What function should I use? How do I code them? Anyone can help me please !

Thank You !

 

[flapeyre]

/free

evalr charfield = %editw(00.2100:'0  .    ')

/end-free

(The evalr is needed if you want the field to be right justified).

De mortuis nihil nisi bonum.

 

[flapeyre]

I meant to add - what you need to do requires an edit word; there is no edit code (unless you have defined one system-wide) that will do what you want. You need to use an edit word (%EDITW instead of %EDITC).

De mortuis nihil nisi bonum.

 

[jadec]

Hi flapeyre,

I tried your code. It gave me '00.002'. Any idea?

Thanks!

 

[flapeyre]

Do you have four spaces to the right of the decimal point, and two spaces to the left of it? And is your result character field at least 7 bytes long?

De mortuis nihil nisi bonum.

 

[jadec]

Got it. flapeyre. Thank you very much!

 

[iSeriesCodePoet]

Another option to try is

charfield = %editc(00.2100:'X')

I don't know if this works with decimals, but I know it works with whole numbers.

iSeriesCodePoet
iSeries Programmer/Lawson Software Administrator

http://www.koldark.net

 

[flapeyre]

iSeriesCodePoet:

I had thought that edit code 'X' does not show the decimal point - that's why I suggested using the edit word instead.

See this table in the RPGLE manual.

De mortuis nihil nisi bonum.

 

[jadec]

Thanks guys! I used edit word. It works fine.