Difference between revisions of "OptionalParameters"
From MidrangeWiki
| Line 21: | Line 21: | ||
ENDPGM | ENDPGM | ||
| + | ==Categories== | ||
| + | [[Category:Programming languages]] | ||
| + | [[Category:CLP]] | ||
Revision as of 15:33, 27 September 2007
ILE CL programs can accept optional parameters.
One must use the CEETSTA procedure to know if the parameter has been passed. This can be created using CRTBNDCL since all CEE APIs are bound in by default.
PGM PARM(&PARM1 &PARM2)
DCL VAR(&PARM1) TYPE(*CHAR) LEN(3)
DCL VAR(&PARM2) TYPE(*CHAR) LEN(3)
DCL VAR(&PARMRESULT) TYPE(*INT) LEN(4)
DCL VAR(&PARMNUMBER) TYPE(*INT) LEN(4)
CHGVAR VAR(&PARMNUMBER) VALUE(1)
CALLPRC PRC(CEETSTA) PARM(&PARMRESULT &PARMNUMBER *OMIT)
IF COND(&PARMRESULT *EQ 1) THEN(DO)
CALL PGM(PROGRAM2) PARM(&PARM1 &PARM2)
ENDDO
ELSE CMD(DO)
CALL PGM(PROGRAM2) PARM(&PARM1)
ENDDO
ENDPGM
