Re: Parameter passing CL to RPGLE

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

Having the caller pass a pointer by reference seems to be just adding
confusion.  Here's (what seems to me to be) a simpler solution:

Caller passes the parameter 'naturally'...


pgm
dcl &p1 *char 25 '1234567890098765432124680'
call t2 &p1
endpgm




Receiver sets basing pointer from %addr()...


     h dftactgrp(*no) actgrp(*new)

     d t2              pr
     d  p1                            1a
     d t2              pi
     d  p1                            1a

     d p1_             s               *

     d p               ds                  based( p1_ )
     d  f1                           10a
     d  f2                           10a
     d  r3                            5a

      /free

       return ;

       begsr *inzsr ;
           p1_ = %addr( p1 ) ;
       endsr ;

      /end-free



The result is debug-able and compatible with SQL precompiler.


On Fri, Oct 7, 2016 at 1:05 PM, Peter Dow <petercdow@xxxxxxxxx> wrote:

> One final note - I didn't use Charles Wilt's simple method
>
> <quote>
> But why wouldn't you just use
> d OB0050AN       pi
> d  @RETURNCODE               2a
> d  @CALLER                  10a
> d  PARMS                             likeds(@PARMS)
> </quote>
>
> because on v5r4 I can't define the template data structure with the
> TEMPLATE keyword, which means it had to be QUALIFIED, and the SQL
> pre-compiler can't handle qualified names as host variables, e.g. for the
> following SQL
>
> UPDATE myTable SET myColumn = :@PARMS.@MODE WHERE ...
>
> the pre-compiler gives two errors, variable @PARMS undefined or unusable
> and variable @MODE undefined or unusable.
>
> I'm not sure if having the TEMPLATE keyword available would have allowed
> me to use unqualified subfield names or not.
>
> --
> *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.