Re: RPG ILE *VARSIZE issue?

[Brian Johnson <brian.johnson.mn@xxxxxxxxx>]

In #test_test wouldn't the assignment of '?' to parameter named input be
padding with 65534K blanks and overwriting who-knows-what in memory?






On Fri, Feb 12, 2016 at 6:57 PM, Bradley Stone <bvstone@xxxxxxxxx> wrote:

> I was having an issue with a program that calls a subprocedure where a
> parameter is *Varsize.
>
> I put together a sample module and program to recreate this (it's on V5R4,
> I will test on V7R2 later tomorrow as well but I just wanted to get an idea
> if there's something I'm missing.
>
> Here's the module:
>
>      H NOMAIN
>       ****************************************************************
>       * Prototypes                                                   *
>       ****************************************************************
>      D #test_test      PR            10I 0
>      D   input                    65535A   options(*varsize)
>      D   inputSize                   10U 0 value
>       *//////////////////////////////////////////////////////////////*
>       *  test
>       *//////////////////////////////////////////////////////////////*
>      P #test_test      B                   Export
>       *--------------------------------------------------------------*
>      D #test_test      PI            10I 0
>      D   input                    65535A   options(*varsize)
>      D   inputSize                   10U 0 value
>       *--------------------------------------------------------------*
>      D inSize          S             10U 0
>       *--------------------------------------------------------------*
>       /free
>        input = '?';
>        inSize = inputSize;
>        return inSize;
>       /end-free
>       *--------------------------------------------------------------*
>      P #test_test      E
>
> Here's the program:
>      D #test_test      PR            10I 0
>      D   input                    65535A   options(*varsize)
>      D   inputSize                   10U 0 value
>       *
>      D input1          S            257
>      D input2          S              1
>      D size            S             10i 0
>      D rc              S             10i 0
>       /free
>        input1 = '*';
>        input2 = '*';
>        size = %len(%trimr(input1));
>        rc = #test_test(input1:size);
>        size = %len(%trimr(input2));
>        rc = #test_test(input2:size);
>
>        *inlr = *on;
>       /end-free
>
> When the first call to #test_test is done with a variable of 257 or larger,
> it works as it should
>
> When the second call to #test_test is done with a variable of 256 or lower,
> it bombs with:
> MCH3601    Escape                  40   02/12/16  18:49:14.932384  QRNXIE
>     QSYS        *STMT    QRNXIE      QSYS        *STMT
>                                      From module . . . . . . . . :
> QRNXMSG
>                                      From procedure  . . . . . . :
> _QRNX_SIGNAL_EXCP
>                                      Statement . . . . . . . . . :   1
>
>                                      To module . . . . . . . . . :
> QRNXMSG
>                                      To procedure  . . . . . . . :
> _QRNX_SIGNAL_EXCP
>                                      Statement . . . . . . . . . :   1
>
>                                      Message . . . . :   Pointer not set
> for location referenced.
>                                      Cause . . . . . :   A pointer was
> used, either directly or as a basing
>                                        pointer, that has not been set to an
> address.
>
> Any ideas why this would be?  I did a quick PTF search and came up with
> nothing.
>
> Brad
> www.bvstools.com
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.