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

I would like to thank everyone who took the time to help me find the
solution.

joe said right from the start, i dit have training in FREE and Never has
direct contact with pointers I thought it was not what I intended. In the
last few weeks i have lost nights reading and trying to understand by
myself and ia did stupid questions to all of you.


Using the keyword BASED POINTER on the definion , i justneed to initiale


DCL-DS FR5005DS EXTNAME(FR5005DS) BASED(pFR5005DS);
DCL-PI *N;
p_fr5005ds like(FR5005DS);
END-PI;


Its possivel do this directly on dcl-pi or in DS definition , and no need
to make this line?
pFR5005DS = %addr(p_fr5005ds);



Question - Based(%addr(p_fr5005ds) its valid?

DCL-DS FR5005DS EXTNAME(FR5005DS)BASED(%addr(p_fr5005DS);

DCL-PI *N;
p_fr5005ds;
END-PI;

Jon Paris <jon.paris@xxxxxxxxxxxxxx> escreveu em qui, 12/03/2020 às 15:25 :

So we should create an RFE?

On Mar 12, 2020, at 6:47 AM, Barbara Morris <bmorris@xxxxxxxxxx> wrote:

On 2020-03-11 6:37 p.m., Jon Paris wrote:

To allow a variable (say a DS) referenced in a PI relate to a variable

already defined in the code.

This could be done with *Entry Plist - but you get a variable already

defined if you try to do it in free-form.

That difference was where this thread started.

*slaps forehead*

I have to admit that I don't think that we even thought of allowing a

parameter in the PI to refer to a variable that was already defined.

I think it didn't occur to us was because the PI parameter is more of a

"definition" than a *ENTRY PLIST parameter is. I was going to say
"especially for a LIKEDS definition", but that rule was in place long
before LIKEDS.

You're right, that could be done. I think it would need some kind of

keyword on the non-PI definition though, to indicate the programmer's
intention for it to actually be a PI parameter. Or maybe a special kind of
PI parameter that says the actual parameter is defined elsewhere.

--
Barbara

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

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