Re: %dec vs %len

Yes, the named constants do work.  Thanks for the tip.

Rob Berendt
-- 
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)




Hans Boldt <boldt@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/14/2004 11:32 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Fax to

Subject
Re: %dec vs %len






rob@xxxxxxxxx wrote:
>>From the RPG reference I see
>    num1 = 27 + %dec (%float(num1)/num3 : %len(num1) : %decpos(num1));
> 
> So, in my RPGLE program I try:
>      D MyChar          s             15a   inz('  015.7503 ')
>      D MyDec           s             15p 5
>      D
> 
>      C/FREE
>        MyDec=%dec(MyChar : %len(MyDec) : %decpos(MyDec));
> RNF0328S The second parameter for %DEC or %DECH is not valid.
> RNF0329S The third parameter for %DEC or %DECH is not valid.
> 
> Is this a ptf issue or documentation issue?
> 
> Rob Berendt

Documentation issue.

Well, technically it is something that should work but doesn't. But all 
of us in the compiler development team have tried to fix the problem and 
failed. So until some drastic change is made to the architecture of 
expression handling in the compiler, call it a permanent restricton.

By the way, I believe it does work if you specify named constants as the 
2nd and 3rd arguments to %DEC where the named constants are defined as 
%LEN(MYDEC) and %DECPOS(MYDEC).

Cheers! Hans


_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.