Re: Wanna see something scary?

I don't see where your prototype is defined in the sample code just in
Procedure interface. Maybe something is wrong there and being hidden by
CONST.



From:
Joe Pluta<joepluta@xxxxxxxxxxxxxxxxx>
To:
RPG programming on the IBM i / System i<rpg400-l@xxxxxxxxxxxx>
Date:
02/18/2011 04:16 PM
Subject:
Re: Wanna see something scary?
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



MyParm is blanks inside of MyProc. Thus, tempvar gets set to blanks.
As a secondary issue, in debug, EVAL MYCONSTANT always returns
Identifier does not exist. I sort of expect that; constants don't tend
to show up in the debugger.

Joe

Do you see *blanks in temvar before the assignment of MyParm, after the
assignment of MyParm, or both before and after?



----- Original Message ----
From: Joe Pluta<joepluta@xxxxxxxxxxxxxxxxx>
To: RPG programming on the AS400 / iSeries<rpg400-l@xxxxxxxxxxxx>
Sent: Fri, February 18, 2011 1:22:45 PM
Subject: Wanna see something scary?

Take a look at this code:

d MyConstant c 'Data'

/free

DoProc();
*inlr = *on;

/end-free

p DoProc b
d pi
/free
MyProc( MyConstant);
/end-free
p e


p MyProc b
d pi
d MyParm 10 const
d tempvar s 10
/free
tempvar = MyParm;
/end-free
p e

What would you expect tempvar to get set to? I think it would be "Data"
but I would be wrong. It gets blanks, at least on my system.

Joe