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

Surely the whole point of changing is to get to use better methods. And
the methods available in free-form are much better and more flexible. So
why penalize yourself - it makes no sense.

*the reason for changing is: *
*theres no more updates for FIXED format and in a few years it will stop
working on 5250*

the reason that in this initial phase we are trying to keep the and logic
of free programs as identical as possible, is in the sense of facilitating
those who nowadays provide assistance to customers during the night and who
are mostly banking institutions and not can be stopped for a long time be
familiar with the code and quickly identify what is happening

So why penalize yourself - it makes no sense*.-*
*I totally agree. And in aspects I've already managed to improve. At
this moment I already reduce many lines of code using \copy.*

Jon Paris <jon.paris@xxxxxxxxxxxxxx> escreveu em sex, 6/03/2020 às 00:05 :

"and must be identical as what has been done for over 30 years by the
company in fixed. "

Why? In fact if you;'re going to just do the same old same old why
bother to change to free?

Surely the whole point of changing is to get to use better methods. And
the methods available in free-form are much better and more flexible. So
why penalize yourself - it makes no sense.

On Mar 5, 2020, at 6:03 PM, Mónica Anastácio <monicaanastacio@xxxxxxxxx>

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 :

"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

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