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

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/04/2020
03:52:34 PM:

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

Then you need to do what Jon told you to do. Put your external
data structure definition into a copybook and add the QUALIFIED keyword.
Include that copybook in both the calling and the called programs. In the
calling program you can pass the name of your data structure. Then, in
the called program, code the following:

DCL-PI *N;
p_er6005ds LIKEDS(er6005ds);
END-PI;

Then the passed parameter will have all the same subfields as the
passed data structure -- except for the number if array dimensions as I
said.


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