Re: Checking for missing parameters in CL

"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx> wrote on 01/31/2018
11:38:56 AM:

So I tried something similar in CL...

pgm (&parm1)
dcl &parm1 *char (10)
dcl &p1addr *ptr
chgvar &p1addr (%address(&parm1))
if (&p1addr = *null) then(do)
/* do something if parameter wasn't specified */
enddo
else do
/* do something else if the parameter was specified */
endpgm

So far it seems to work as I expect.

Actually, I do this in RPG:

if %parms() < %parmnum(OptRun) // if parm not passed
or %addr(OptRun) = *null // or parm was omitted
or OptRun <= *blanks; // or parm is blank
else; // keep default, else
RunOpt = OptRun; // replace default
endif;

So, I look forward to the day when I can do exactly the same in
CL:

IF COND(%PARMS *LT %PARMNUM(&OPTRUN) +
*OR %ADDR(&OPTRUN) = *NULL +
*OR &OPTRUN *LE *BLANKS) THEN(DO) /* NOT PASSED? */
ENDDO
ELSE CMD(DO) /* KEEP DFLT, ELSE */
CHGVAR VAR(&RUNOPT) VALUE(&OPTRUN) /* REPLACE DEFAULT */
ENDDO


Sincerely,

Dave Clark