Re: Parameter passing CL to RPGLE

[Peter Dow <petercdow@xxxxxxxxx>]

Because it's passed by reference. My understanding (apparently 
incorrect) is that when passed by reference, a pointer is passed to the 
called program.

When you talk about how the 111th byte is set, are you referring to how 
1-byte indicators are passed?


On 10/6/2016 1:59 PM, Bruce Vining wrote:
> As you are passing &PARMS as a character string, why would you expect it to
> show up as a pointer in OB0050AN? And just changing the third parameter of
> the RPG program to 111a may or may not work as expected based on how the
> 111th byte is set in the CLLE program.
>
> On Thu, Oct 6, 2016 at 3:41 PM, Peter Dow <petercdow@xxxxxxxxx> wrote:
>
> > On a v5r4 system I have a CLLE program with
> >
> > DCL &RC *CHAR 2
> > DCL &CALLER *CHAR 10
> > DCL &PARMS *CHAR 111
> > CALL PGM(OB0050AN) PARM(&RC &CALLER &PARMS)
> >
> > And an SQLRPGLE program that has
> >
> > d OB0050AN       pi
> > d  @RETURNCODE               2a
> > d  @CALLER                  10a
> > d  ptrPARMS                   *
> >
> > d @PARMS        e ds              extname(OB0050PR) based(ptrPARMS)
> >
> > When I debug the SQLRPGLE program, I can see the values passed for
> > @RETURNCODE and @CALLER, but for ptrPARMS it shows SPP:*NULL.
> >
> > What am I missing?
> >
> > --
> > *Peter Dow* /
> > Dow Software Services, Inc.
> > 909 793-9050
> > petercdow@xxxxxxxxx <mailto:petercdow@xxxxxxxxx>
> > pdow@xxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxx> /
> >
> >
> > --
> > 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.