Re: Common routines and optional parameters

Thanks, Dave.  I think I have a handle on *OMIT and will possibly use it internally in the service program; I just don't want application programmers to have to use it.  That defeats the purpose of encapsulating the common method in convenience methods.  So the problem comes when I try to go from the convenience function to the common function.  But I think I can use the select statement.

On 4/2/2019 3:47 PM, dlclark@xxxxxxxxxxxxxxxx wrote:

"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