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

Hi,

First of all, tkans for your answer and all the help from the other all who
have spent your time sending me solutions.

The first i didtoday was trying the solution that someone have send and was
to use the keyword *qualified on the declaration but the program dont
compile. *

The keyword QUALIFIED ITS NOT ALLOWED to use in external data structure
definition
( I may be wrong but I got this idea after what I read on the web)
In external
data structure).

Joe You right, is very similar and as you said and well, I'm avoiding. but
I will end up accepting that it is the only solution and pray that the
company accepts


Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx> escreveu em qui, 5/03/2020 às 23:45 :

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 :

--
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