Re: Editing numeric values

charVal = %editc(numericVal : 'X');

Johnny Johnson
Hub Group, Inc.



                                                                           
             "Douglas Palme"                                               
             <dpalme@xxxxxxxxx                                             
             om>                                                        To 
             Sent by:                  <rpg400-l@xxxxxxxxxxxx>             
             rpg400-l-bounces@                                          cc 
             midrange.com                                                  
                                                                   Subject 
                                       Editing numeric values              
             11/08/2006 02:46                                              
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           




I have a variable which contains say a value of 01  I need to convert it to
a character data type but I need to include any leading zeros..



So in this particular case, I have a numeric field which can hold a 6 digit
numeric value: 000001  I need to convert it to a char type but retain all
leading zeros.



I thought I could use %editw() but it does not seem to work.  %editc()
drops
leading zeros so that won't work for this particular problem.



Suggestions?





****************************************************************************

This transmission may contain information that is privileged,
Confidential and/or exempt from disclosure under applicable law.
If you are not the intended recipient, you are hereby notified that
any disclosure, copying, distribution, or use of the information
contained herein (including any reliance thereon) is STRICTLY
PROHIBITED. If you received this transmission in error, please
immediately contact the sender and destroy the material in its
entirety, whether in electronic or hard copy format. Thank you.
****************************************************************************

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.