Re: CL Optional Parameter Question

["Rory Hewitt" <roryhewitt@xxxxxxxxx>]

Mike,

You can refer to the parameter with a CHGVAR and include a MONMSG
immediately afterwards, checking for MCH0801 ("Argument associated with
external or internal parameter not passed"), e.g.:

PGM PARM(&PARM_P)

DCL &PARM_P *CHAR 1
 DCL &PARM   *CHAR 1

CHGVAR VAR(&PARM) VALUE(&PARM_P)
MONMSG MSGID(MCH0801) EXEC(DO)
   RCVMSG MSGTYPE(*EXCP) RMV(*YES)
    CHGVAR VAR(&PARM) VALUE('N')
ENDDO

IF COND(&PARM = 'Y') THEN(DO)
   ...
ENDDO

HTH,

Rory


On Mon, Jun 16, 2008 at 12:41 PM, Mike <koldark@xxxxxxxxx> wrote:

> Not sure if this is possible. We are on V5R3.
>
> I would like to optionally pass a parameter to a CL program. So
> interatively
> I would CALL AR115CL in batch I would CALL AR115CL PARM('Y').
>
> Is this possible?