Re: CONST and VALUE revisited

["M. Lazarus" <mlazarus@xxxxxxxx>]

Rory,

 That's pretty neat.  Offhand I can't think of a reason I'd want to 
do it for a CONST variable, especially since there's no guarantee to 
callee that the variable is not a temporary variable.  But it's good 
to know that there's a way to accomplish it if I should need it.

 -mark


At 1/28/09 05:17 PM, you wrote:
> Mark,
>
> I know the basic stuff won't work. For instance, this won't compile:
>
> P myproc        S
> D                    PI
> D parm1                                10A   Const
>  D temp1          S                     10A   Based(temp1ptr)
>
>  /free
>    temp1ptr = %addr( parm1 );
>    temp1 = 'NEWVALUE';
>  /end-free
>
> The only sure-fire method I know of is using the NPM_PARMLIST_ADDR MI
> builtin (
> http://publib.boulder.ibm.com/iseries/v5r1/ic2924/tstudio/tech_ref/mi/NPMPARM.htm).
> See this thread for details:
> http://forums.systeminetwork.com/isnetforums/showthread.php?t=45802 - post
> #14 contains my code for doing this. Once you have the array of argument
> pointers, you can play with them to your hearts content.
>
> Rory
> On Wed, Jan 28, 2009 at 12:56 PM, M. Lazarus <mlazarus@xxxxxxxx> wrote:
>
> > Doug,
> >
> >  I recall playing a bit and trying to fool the compiler on a CONST
> > variable using a DS.  Has someone tried this recently?  I'd like to
> > see a working sample that the compiler won't catch.  I think that
> > Scott had posted something, but it was a lot more involved than just
> > overlaying with a DS.
> >
> >  VALUE is only really valid when calling a procedure, not a program,
> > so it might be more difficult to retrofit older systems.
> >
> >  -mark
> >
> --
> 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.