Re: editc and leading minus sign

[Ganesh Chandrasekaran <Ganesh.Chandrasekaran@xxxxxxxxxxxxxxx>]

Its 'X' . 
replace 'P' with 'X' , you will get  leading zeros.

Regards,
Ganesh.C




BSchwar@xxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03-07-06 07:55 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

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