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

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

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 :