Re: Wanna see something scary?

Joe,

All you need is a new iSeries the latest the greatest ! Of course with the latest Operating system.




“If you think education is expensive, try ignorance"
(Derek Bok, pres. of Harvard Univ. 1971-1990)

Date: Fri, 18 Feb 2011 14:22:45 -0600
From: joepluta@xxxxxxxxxxxxxxxxx
To: rpg400-l@xxxxxxxxxxxx
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
--
This is the RPG programming on the IBM i / System i (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.