Re: RDi 9.6 Procedure wizzard

"WDSCI-L" <wdsci-l-bounces@xxxxxxxxxxxx> wrote on 11/30/2017 02:50:38 PM:

Here is an example.


Called program:
/if not defined(PrototypesOnly)
ctl-opt Copyright('(C) Copyright Group Dekko Inc.')
ActGrp(*NEW) ExprOpts(*RESDECPOS) DatFmt(*USA)
OPTION(*SRCSTMT:*NODEBUGIO:*NOUNREF) EXTBININT(*YES)
BndDir('ROUTINES/SRVPGM':'QC2LE');
/endif

dcl-pr GDSMBOM1 extpgm;
INPPart char(15) const;
end-pr;

/if defined(PrototypesOnly)
/eof
/endif

Calling program
/define PrototypesOnly
/include QRPGLESRC,GDSMBOM1
/undefine ProtoTypesOnly

OK, I was envisioning that each prototype (and its related
definitions) could be selectively included by the caller -- rather than
all or nothing as is now the case with the way separate copybooks are
done. Thanks.


Sincerely,

Dave Clark