Re: external data structure in free rpgle cant be use in DCL-PI ?

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/13/2020
02:59:54 AM:

Using the keyword BASED POINTER on the definion , i justneed to initiale

DCL-DS FR5005DS EXTNAME(FR5005DS) BASED(pFR5005DS);
DCL-PI *N;
p_fr5005ds like(FR5005DS);
END-PI;

Its possivel do this directly on dcl-pi or in DS definition , and no

need

to make this line?

pFR5005DS = %addr(p_fr5005ds);

In some cases there is no need to code that line. However, this
only applies to definitions that are fixed address locations. If the
address can change (as in the case of passed parameters) then this needs
to be determined at run-time rather than compile-time. Thus, that line
would still be needed in the called procedure.

Question - Based(%addr(p_fr5005ds) its valid?

DCL-DS FR5005DS EXTNAME(FR5005DS)BASED(%addr(p_fr5005DS);

DCL-PI *N;
p_fr5005ds;
END-PI;

Syntactically (with an additional closing parenthesis) it is
valid. However, see my above response.


Sincerely,

Dave Clark