RE: Editing leading zeroes

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

Run this code and look at the results. Edit Code X and the good old MOVE
operation produce identical results, in this situation. The EditW to a
9-position field truncates on byte due to the inclusion of the negative
sign (so you'll need 10 bytes if you prefer EDITW).
     D SSN             S              9P 0 Inz(023456789)
     D SSNAlpha1       S              9A
     D SSNAlpha2       S              9A
     D SSNAlpha3       S              9A
     C                   eval      ssnAlpha1 = %EditW(ssn : '0
')
     C                   eval      ssnAlpha2 = %editc(ssn : 'X')
     C                   MOVE      SSN           ssnAlpha3
     C                   EVAL      *INLR  = *ON

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 Peter Dow
> Sent: Friday, August 17, 2001 3:22 PM
> To: rpg400-l@midrange.com
> Subject: Re: Editing leading zeroes
> 
> Use edit code X.
> 
>     c            eval     charfld = %editc(numfld:'X')
> 
> hth,
> Peter Dow
> Dow Software Services, Inc.
> 909 425-0194 voice
> 909 425-0196 fax
> 
> ----- Original Message -----
> From: <saustad@deltadentalwi.com>
> To: <rpg400-l@midrange.com>
> Sent: Friday, August 17, 2001 1:08 PM
> 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
> 
> 
> _________________________________________________________
> Do You Yahoo!?
> Get your free @yahoo.com address at http://mail.yahoo.com
> 
> _______________________________________________
> 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