Blog Archive

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 !