Re: Wanna see something scary?

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

Actually, I'm not on an iSeries, I'm on an IBM i!  We just upgraded to 
7.1. :)

Joe


> 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.
>