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

"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