RE: editc and leading minus sign

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!