RE: editc and leading minus sign

["Troy Foster" <tfoster@xxxxxxxxxx>]

Works if you do it like this

D YARD            S              4  0 INZ(-0604)
D YARDC           S              8
C                   EVAL      YARDC = %EDITW(YARD:'0-     ')

C     YARDC         DSPLY

*********** REPLY SEPARATOR  ***********

On 7/3/2006 at 11:02 AM Joe Pluta wrote:

> In my tests on V5R3, %EDITW does not work with leading negative signs. 
> That
> means you'll need to roll your own.  I'd try using the following (with Work
> being a VARYING field):
>
>  // FIVE blanks after the zero!
>  Work = %trim(%editc(v1contamt: '0     .  '));
>  If v1contamt < 0;
>    Work = '-' + Work;
>  Endif
>
> Joe
>
> P.S. This will NOT have a leading blank for positive numbers.  If you want
> a
> leading blank for positive numbers, then do the %editc without the %trim,
> and if the original value is negative, set the first character to '-' using
> %subst.
>
>
> > From: BSchwar@xxxxxxxx
> >
> > Hello, I need to format a 7,2 numeric field (vlcontamt) to 7 alpha with
> > leading zeros and a left hand minus sign.
> > I've searched the archives and found references to the 'N' edit code, but
> > that suppresses leading zeros.
> >
> > eval      wrk11a     = %editc(vlcontamt:'P')
> >
> > Results when running program is in debug mode:
> >
> > positive amount   WRK11A = '    61.10  '
> > negative amount         WRK11A = '    -8.6710  '
> >
> > I thought the "P" edit code was supposed to provide leading zeors?
> >
> >
> > Thank You and happy 4th of July!
>
>
> -- 
> 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.