Re: %EditC

[Joel Cochran <jrc@xxxxxxxxxx>]

Try adding %trim() around your %editc():

>    prmTransit = %trim( %editc( InTransit : '1' ) )

Edit code 1 inserts commas, and without the trim it will reserve the
space for them in the string even though it will not insert them, so a
13S 0 field becomes a string like so:

x,xxx,xxx,xxx,x46

where 'x' is a blank.  Commas will only be inserted when the number is
large enough to justify them.

Without %trim(), you are evalling the first 13 characters (the size of
your target field) which in this case are all blank.  By adding %trim()
you will end up with simple '46' in your target string.

HTH,

Joel Cochran
http://www.rpgnext.com


On Wed, 2003-11-26 at 11:58, Fabrice Calmelat wrote:
> Dear All,
> 
> I'm not sure if it is because I am not widely awake yet, but the following
> is puzzling me big time:
> 
> 
> D SQL_Buffer        DS
> D  InTransit                       13S 0
> 
> C                         If              SQLCOD = 0
> C                         Eval          prmInTransit = %EditC(InTransit:'1')
> C                         EndIf
> 
> 
> PrmInTransit is 13a and InTransit is a sum returned by an SQL Statement.
> 
> After the Eval statement, InTransit contains 46, but prmInTransit is Blank.
> 
> 
> There must be something obvious, but I just can't figure it out. Any ideas?
> 
> 
> Fabrice
> 
> 
> 
> 
> _______________________________________________
> 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.