RE: RPG Free question

[G Armour <garmour400m@xxxxxxxxx>]

Try using edit code 'X':

     c             Eval   Alpha = %editc( Number : 'X' )

Not sure what happens to negative numbers or numbers with decimal
positions.  But for whole positive numbers, it works as you've asked.

GA

> -----Original Message-----
> From: RJoubert@xxxxxxxxxxxxxxxxxxxx
> [mailto:RJoubert@xxxxxxxxxxxxxxxxxxxx] 
> Sent: Wednesday, October 08, 2003 2:44 PM
> To: midrange-l@xxxxxxxxxxxx
> Subject: RPG Free question
> 
> 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???
>  
> Thanks.
> 
> Rob Joubert
> Authentic Fitness Corporation
> (323) 837-6486 


__________________________________
Do you Yahoo!?
The New Yahoo! Shopping - with improved product search
http://shopping.yahoo.com