RE: %DEC

["Bob Cozzi" <cozzi@xxxxxxxxx>]

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.