|
There's a special edit code ("X") that will do what you want...
/free
charfld = %editc(numfld:'X');
/end-free
The correct mailing list for this question would be RPG400-L@xxxxxxxxxxxx,
please sign up for that and ask any future RPG questions there.
Good Luck
On Wed, 8 Oct 2003 RJoubert@xxxxxxxxxxxxxxxxxxxx wrote:
> Hi all.
>
> I am using RPG Free. I need to convert a 4 digit numeric to a 4 character
> alpha and KEEP the leading zeros. I know that the BIF "%char" will do the
> numeric to character conversion BUT it also drops the leading zeros.
>
> Can anyone tell me how to do this???
>
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.