RPGLE convert numeric to alpha string with leading ZEROS

Its very easy to do using %editc() BIF. Here is how
alpha_string = %editc($numeric_value:'X')

In just RPG program without the %edit() BIF you will just do a MOVE or MOVEL !

No comments:

Post a Comment

NO JUNK, Please try to keep this clean and related to the topic at hand.
Comments are for users to ask questions, collaborate or improve on existing.