Re: Editing numeric values

charVal = %editw(numericVal : '0bbbbbb');

Where b is a blank.
Six blanks should work for a 6-digit numeric field.
 

Alfred Adjei
719-584-0227
www.pueblowater.org



Johnny Johnson <jjohnson@xxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
11/08/2006 01:57 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
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.