RE: Editing leading zeroes

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

What you might want to do is to use %EDITW and put the Zero as the first
edit word character and leave the rest of the edit word blank.
The "trick" if there is one, is to make sure you have enough spaces in
the edit word to include the full set of digits (e.g., 9 for SS#) plus
one more for the sign (which will always show up as blank. The following
code produces:
'_023456789' (where the underscore is a blank) in the SSNAlpha field.

     D SSN             S              9P 0 Inz(023456789)
     D SSNAlpha        S             10A
     C                   eval      ssnAlpha = %EditW(ssn : '0        ')
     C                   EVAL      *INLR  = *ON

If you want to eliminate the extra leading blank, the use the %TRIML()
operation on the result or wrap %EditW in %TRIML itself.
Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of saustad@deltadentalwi.com
> Sent: Friday, August 17, 2001 3:08 PM
> To: rpg400-l@midrange.com
> Subject: Editing leading zeroes
> 
> Is there a way to use %CHAR (or %EDITC or %EDITW) to NOT strip off the
> leading zeroes?  We have a need to keep the zeroes for zip codes,
social
> security nbrs, dates, and master file key fields.
> 
> Thanks in advance for any help.
> 
> 
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com