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

Monica, I believe you are correct.  I have never been able to use an externally described data structure in a parameter list UNLESS it was qualified.  And then, all the fields must be accessed using the qualified syntax dsname.field, which you're trying to avoid.

So the easiest way around it is to do the move.  Ugly, but functional.  Here's a second way, using a pointer:


dcl-ds er5005ds extname('ER5005DS') based(per5005ds) end-ds;

dcl-pi *n;
  i_er5005ds like(er5005ds);
end-pi;

per5005ds = %addr(i_er5005ds);


I'm not a fan of this approach, either, but it works.



On 3/5/2020 5:03 PM, Mónica Anastácio wrote:

Im starting to program in FREE and im creating an example of what the
structure of a FREE program should be, and must be identical as what has
been done for over 30 years by the company in fixed. and one of my problems
is this one! My problem is not the arrays. I just want do now if its
possible to have the same parm entry in free like we have in fixed.

Entry
Parm. er5005ds

And ew use in program the fields name from that ds #xxxxrcode

And now
DCL-PI;
P_waapids like(ER5005DS);
END-PI;

Ok i have the same fields name like ER5005DS.
But in have to use p_waapids.#xxxxrcode = 2.

But we just want to use #xxxxrcode = 2 and only possible if in the
$pcpgm routine i have
Er5005ds = p_waapids

Do u understand ? In the past few weeks i've been using google looking for
an answer. I've been reading everything about external data structure in
free. Im starting to think that Is not allowed like MOVEA does not exist
for FREE

<dlclark@xxxxxxxxxxxxxxxx> escreveu em qui, 5/03/2020 às 22:08 :