RE: editc and leading minus sign

["Joe Pluta" <joepluta@xxxxxxxxxxxxxxxxx>]

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!