RE: %DEC

["Chevalier, Rick" <Rick.Chevalier@xxxxxxxxxxxxxxx>]

Try removing the %TRIM when calculating the size.  It will result in a size
value less than the size of your character field.  I don't think %DEC will
accept that.

Rick

 -----Original Message-----
From:   Mike Silvers [mailto:msilvers@HBS-INC.COM]
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.