RE: editc and leading minus sign

["Bob Cozzi" <cozzi@xxxxxxxxx>]

You can't do what you want with an edit code. Some might suggest using "X" edit
code, but that's not what you want.
If you have RPG xTools, you could do it using the EditCode() subprocedure, or
possible the NumToZoned() subprocedure. Otherwise, you might want to try using
an Edit Word with %EditW() instead of an edit code.


-Bob Cozzi
www.iSeriesTV.com
iPod your industry news instead of reading it.
Coming July 18, 2006
Ask your friends to tune into iSeriesTV.com

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of BSchwar@xxxxxxxx
Sent: Monday, July 03, 2006 9:25 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: editc and leading minus sign

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!

Bob Schwartz
Southeast Georgia Health System, Brunswick Campus
email    bschwar@xxxxxxxx