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

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 :

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/05/2020
04:41:27 PM:

Do u have like this

DCL-PI;
IM02_Inventory_V06 likeds(IM02V06);

?????

No, not like that. Here are a few other examples. After that is
a prototype used by calling programs. After that is the procedure
interface used by the called program. Also, notice that when I pass an
array definition, using LIKE, then I also have to add DIM to get the
number of dimensions -- since LIKE doesn't copy the number of dimensions.

dcl-ds IM02_View1 extname('IM02V01') qualified inz end-ds;
dcl-ds IM02_View2 extname('IM02V02') qualified inz end-ds;
dcl-ds ImIm02_View3 extname('IM02V03') qualified end-ds;
dcl-ds IMIM02_InventoryManagement_V02 extname('IMITEMSV02')
qualified template inz end-ds;

dcl-pr ImIm02_GetTableData like(boolean_t);
pCaller like(PROC_PGM) const;
pTblData likeds(IM02_View1) options(*nopass:*varsize);
pIndArry like(IM02_Ary)
dim(IM02_VCol1) options(*nopass:*varsize);
pBefData likeds(IM02_View1) options(*nopass:*omit:*varsize);
pBefArry like(IM02_Ary)
dim(IM02_VCol1) options(*nopass:*omit:*varsize);
pCount like(bigint_t) options(*nopass:*omit);
pLibrary like(SRC_LIB) const options(*nopass:*omit);
pBefore like(boolean_t) const options(*nopass);
end-pr;

dcl-proc ImIm02_GetTableData export;
dcl-pi *n like(boolean_t);
pCaller like(PROC_PGM) const;
pTblData likeds(IM02_View1) options(*nopass:*varsize);
pIndArry like(IM02_Ary)
dim(IM02_VCol1) options(*nopass:*varsize);
pBefData likeds(IM02_View1) options(*nopass:*omit:*varsize);
pBefArry like(IM02_Ary)
dim(IM02_VCol1) options(*nopass:*omit:*varsize);
pCount like(bigint_t) options(*nopass:*omit);
pLibrary like(SRC_LIB) const options(*nopass:*omit);
pBefore like(boolean_t) const options(*nopass);
end-pi;

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

Because i cannot have the same name i declare on program interface.

I have to use a p_ IM02V06 Thats where the api receive the information

from

caller and because of that i have to do on pcpgm

IM02_Inventory_06 = P_ IM02_Inventory_V06.

In fixed u just put

C *entry
C. parm IM02V06.

Do you use that ext data structure on FREE declare on Program Interface
(DCL-PI) ?

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

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/05/2020
05:37:35 AM:

I tried what you said and i cannot declare the external DS on \copy

with

qualified.

The following is copied from one of our production uses of an
externally-defined data structure. This is in a copybook and we use
/include to insert this copybook into the programs that need it.

Dcl-ds IM02_Inventory_V06
extname('IM02V06') qualified inz end-ds;

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://urldefense.com/v3/__https://lists.midrange.com/

mailman/listinfo/rpg400-l__;!!E0nbmg29qrX0lQ!
JBp5_7VKjwMsbN1W7zzfa9TP32I6KWonmSBFnK0fzattazzhuIijKMx42bJFx8oRpIY$

or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://urldefense.com/v3/__https://archive.midrange.com/

rpg400-l__;!!E0nbmg29qrX0lQ!
JBp5_7VKjwMsbN1W7zzfa9TP32I6KWonmSBFnK0fzattazzhuIijKMx42bJFvjreUOM$ .

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://urldefense.com/v3/__https://amazon.midrange.com__;!!

E0nbmg29qrX0lQ!
JBp5_7VKjwMsbN1W7zzfa9TP32I6KWonmSBFnK0fzattazzhuIijKMx42bJFPqLAugs$

--
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://urldefense.com/v3/__https://lists.midrange.com/
mailman/listinfo/rpg400-l__;!!E0nbmg29qrX0lQ!
JBp5_7VKjwMsbN1W7zzfa9TP32I6KWonmSBFnK0fzattazzhuIijKMx42bJFx8oRpIY$
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://urldefense.com/v3/__https://archive.midrange.com/rpg400-
l__;!!E0nbmg29qrX0lQ!
JBp5_7VKjwMsbN1W7zzfa9TP32I6KWonmSBFnK0fzattazzhuIijKMx42bJFvjreUOM$ .

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link:

https://urldefense.com/v3/__https://amazon.midrange.com__;!!
E0nbmg29qrX0lQ!
JBp5_7VKjwMsbN1W7zzfa9TP32I6KWonmSBFnK0fzattazzhuIijKMx42bJFPqLAugs$

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