Difference between revisions of "OptionalParameters"
From MidrangeWiki
(New page: ILE CL programs can accept optional parameters. One must use the CEETSTA procedure to know if the parameter has been passed. <nowiki> PGM PARM(&PARM1 &PARM2) ...) |
|||
| Line 2: | Line 2: | ||
One must use the CEETSTA procedure to know if the parameter has been passed. | One must use the CEETSTA procedure to know if the parameter has been passed. | ||
| − | + | PGM PARM(&PARM1 &PARM2) | |
DCL VAR(&PARM1) TYPE(*CHAR) LEN(3) | DCL VAR(&PARM1) TYPE(*CHAR) LEN(3) | ||
| Line 19: | Line 19: | ||
ENDPGM | ENDPGM | ||
| − | |||
Revision as of 15:23, 27 September 2007
ILE CL programs can accept optional parameters.
One must use the CEETSTA procedure to know if the parameter has been passed.
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
