New FAQ - numeric to text with leading zeros

[iSeriesCodePoet]

I have created a FAQ on how to convert from numeric to text and have leading zeros. Here is the FAQ: faq317-4647

iSeriesCodePoet
iSeries Programmer/Lawson Software Administrator

http://www.koldark.net

See my progress to converting to linux.

http://linux.koldark.net

 

[RedMage1967]

There is another way to do that.

EvalR Result = %TrimR(%EditC(Number:'X'));

RedMage1967
IBM Certifed - RPG IV Progammer

 

[iSeriesCodePoet]

It does? My notes tell me that it removes the plus sign? Hmmm... I will have to try that.

iSeriesCodePoet
iSeries Programmer/Lawson Software Administrator

http://www.koldark.net

See my progress to converting to linux.

http://linux.koldark.net

 

[RedMage1967]

I use it when I have to print a line number on my input files for reformatting.

D Line           S        4S 0
/free

 %Subst(data:90:4) = %EditC(Line:'X');

/End-Free

This prints '0001', in position 90 of field data.

RedMage1967
IBM Certifed - RPG IV Progammer