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

The arrays is not a problem. If i dont dont pass information from p_ to Ds
thr fiels dont assume the information send by the caller. The solution im
looking for , is do not have the information from p_. In the fix the parm
entry is the same DS declare.

But now on program interface cannot use the same name i declare

<dlclark@xxxxxxxxxxxxxxxx> escreveu em qua, 4/03/2020 às 17:59 :

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/04/2020
12:49:30 PM:

i do not want to replicate the arrays, but the information send by

caller

is on P_ER6005DS and not in the ER6005DS.

and i use the fields from the ER6005DS on the code and for the overlay

in

the arrays. If i not declare
DCL-DS ER6005DS extname('ER6005DS') inz;

i cannot use the name of the fields of ER6005DS on the program.

Through the use of the QUALIFIED keyword and the LIKEDS keyword
that would give you all the subfield names in the PI definition. The
place where you're stuck is the number of dimensions for your arrays. You
would have to create a local definition and use a pointer to map the local
definition over the top of the PI definition. For example:

dcl-s ptr_wrtprba pointer;
dcl-s lcl_wrtprba char(4) dim(50) based(ptr_wrtprba);

ptr_wrtprba = %addr(p_er6005ds.wrtprba);

From there you would use lcl_wrtprba(x) to reference elements of
the array in the PI definiiton.

Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331





*********************************************************************************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message and all
copies. All unauthorized direct or indirect use or disclosure of this
message is strictly prohibited. No right to confidentiality or privilege
is waived or lost by any error in transmission.

*********************************************************************************************
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com