RE: editc and leading minus sign

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.