RE: %editc an expression

Kurt,
%EDITC always returns the same length character value, regardless of the value
of the input numeric value.
When you had a 9S2 value with the 'J' edit code, it could return:
'9,999,999.99-'
If I counted right, that means 13 possible characters are always returned.
However, by adding the '$' to the mix, an additional character is included:
'$9,999,999.99-'
Thus 14-positions are always returned.

Now, when you added a multiplication, the best case scenario would be for it to
return 15-position. Why? Because A*B cold produce a 10-digit value. The code for
%EDITC is generated at compile-time, therefore it has to do a best guess as to
the size.  

You can determine the size the compiler is using, but doing this:
D myTest   S          50A

 myTest = 'X' + %editc(Amt * -1: 'J': '$') + 'X';

Then look at myTest in debug and count the characters between the "X...X". 
That length is always returned.
Obviously if you MOVE-RIGHT using EVALR, you get the status/minus sign, however
you have the possibility of stripping off the leading dollar sign. 


-Bob Cozzi
www.iSeriesTV.com
Ask your Manager to watch iSeriesTV.com


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Kurt Anderson
Sent: Monday, September 11, 2006 1:17 PM
To: RPG programming on the AS400 / iSeries
Subject: %editc an expression

Amt is 9s,2 

ExtPrice$ is 14a

Amt = 50

C Eval Amt *= -1

C Eval ExtPrice$ = %editc( Amt: 'J': '$' ) 

Results as $50.00-.  Which is what I want to see.

 

C Eval ExtPrice$ = %editc(Amt * -1: 'J': '$') 

Results as $50.00.  (no minus sign)

Why is this?  What am I missing?  Something about the intermediate
result of the expression?

Thanks,
 
Kurt Anderson
Application Developer
Highsmith Inc.
W5527 State Road 106, P.O. Box 800
Fort Atkinson, WI 53538-0800
TEL (920) 563-9571  FAX (920) 563-7395
EMAIL kjanderson@xxxxxxxxxxxxx