Re: CONST and VALUE revisited

[Rory Hewitt <roryhewitt@xxxxxxxxx>]

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