Re: Local Variable or Bug

[Rory Hewitt <rory.hewitt@xxxxxxxxx>]

Hey Elbert,

That's a feature:
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/topic/books_web/c0925085345.htm#HDRDBASED

"If a based field is defined within a subprocedure, then both the field and
the basing pointer are local."

Rory

On Thu, Mar 24, 2011 at 11:28 AM, Elbert Cook <elbert@xxxxxxxxxxxxxxx>wrote:

> The program snippet below will display to the screen
>
> Message 1
> Message 1
> Message 3
>
> Remove or comment out the "C    s     10a   based(ptr_Msg)" and the program
> displays
>
> Message 1
> Message 2
> Message 3
>
> My best guess is based(ptr_Msg) is spawning a local ptr_Msg unique to
> ProcedureX
>
> Is this effect correct? Is this a bug in the RPG Compiler?
>
> H DFTACTGRP(*NO) ACTGRP(*CALLER)
>  ****************************************************
> D ptr_Msg         s               *
> D Msg             s             10a   based(ptr_Msg)
> D Result          s              3a
>
> D Msg1            s             10a   inz('Message 1')
> D Msg2            s             10a   inz('Message 2')
> D Msg3            s             10a   inz('Message 3')
>  **
> D ProcedureX      pr
>  /Free
>
>   ptr_Msg = %addr(Msg1);
>   Dsply Msg '' Result;
>
>   Procedurex();
>
>   ptr_Msg = %addr(Msg3);
>   Dsply Msg '' Result;
>
>    *inLR = *on;
>
>  /End-Free
>  ****************************************************
>  P ProcedureX      B
>  D                 PI
>  D****Remove or comment out the next line of code and the program will work
>  D C               s             10a   based(ptr_Msg)
>  /Free
>
>    ptr_Msg = %addr(Msg2);
>    Dsply Msg '' Result;
>
>    Return;
>  /End-Free
>  P                 E
>  ****************************************************
>
>
> --
> 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.