Re: %DEC

["Mike Silvers" <msilvers@xxxxxxxxxxx>]

I found the problem.  The %DEC is only supported in V5R2.  I brought the
source over to our V5R2 box and it compiled with no problem.  I then
compiled it back to V5R1 and I received the same error as on the V5R1 box.

Mike

----- Original Message -----
From: "Bob Cozzi" <cozzi@rpgiv.com>
To: <rpg400-l@midrange.com>
Sent: Wednesday, December 18, 2002 12:33 PM
Subject: RE: %DEC


> Mike,
>
> You can do this in V5R1 or R2 and later using %DEC, before that, %DEC
> and %INT can only be used to control the intermediate result of an
> equation/expression. They cannot be use to "convert" to packed or
> integer.
>
> The CharToNum procedure in the RPG ToolKit can do this.
> You can read and key in the CharToNum procedure for free by reading my
> article on it at www.mcpressonline.com/midrangedev and looking for the
> "Convert Numeric to Character" article located under the July 31, 2002
> listings.
> The direct link is listed below:
>
> http://www.mcpressonline.com/mc?1@46.0aFoakZV4cI.0@.5bfb8dcf
>
> HTH
>
> Bob Cozzi
>
>
> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
> On Behalf Of Mike Silvers
> Sent: Wednesday, December 18, 2002 10:58 AM
> To: rpg400-l@midrange.com
> Subject: %DEC
>
>
> OK.  It must be the time of day or something, but I am getting
> frustrated with the %DEC BIF.  I keep getting compiler errors stating
> that parm 1 for the %DEC is incorrect.  I am trying to convert a char
> representation of a number to a packed 15/0 number.  Here is what I am
> doing:
>
>   size = %LEN(%TRIM(R2SHTO_NBR));
>   csnohold = %DEC(R2SHTO_NBR:size:0);
>
> The following fields are defined:
> size 2/0 S
> R2SHTO_NBR 15A
> csnohold 15/0 P
>
> I've looked at the docs for this BIF and it looks like it should work.
> I have also tried:
>
>   csnohold = %DEC(R2SHTO_NBR:15:0);
>
> with no luck.
>
> Mike
>
>
> =======================================
> Mike Silvers
> Senior Programmer/Analyst
> IBM Certified Expert
> Hainey Business Systems
> Main Office:  (717) 718-9601 ext 237
> Branch Office:  (410) 397-8739
> http://www.hbs-inc.com
> =======================================
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
> list To post a message email: RPG400-L@midrange.com To subscribe,
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>