Re: Common routines and optional parameters

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 04/02/2019
04:43:02 PM:

*NOPASS works great for the LAST parameters in the list. The problem is

with the earlier parameters which also may be included or not depending
on the situation.

I have no problem with multiple *nopass and *omit parameters with
the way I code the IF statement.

dcl-pr ImLfDt_GetTableData like(boolean_t);
pCaller like(PROC_PGM) const;
pTblData likeds(IMLFDTL_View2) options(*nopass:*varsize);
pIndArry like(IMLFDTL_Ary)
dim(IMLFDTL_VCol2) options(*nopass:*varsize);
pBefData likeds(IMLFDTL_BefV1)
options(*nopass:*omit:*varsize);
pBefArry like(IMLFDTL_BefAry)
dim(IMLFDTL_VCol1) options(*nopass:*omit:*varsize);
pCount like(bigint_t) options(*nopass:*omit);
pSeqCode like(IMLFCMP_View2.EXTSEQCDE)
options(*nopass:*omit);
pLibrary like(SRC_LIB) const options(*nopass:*omit);
pBefore like(boolean_t) const options(*nopass);
end-pr;


Sincerely,

Dave Clark