Re: CL Optional Parameter Question

["Rory Hewitt" <roryhewitt@xxxxxxxxx>]

Bruce,

Ah yes - my example incorrectly used MCH0801. And I thought I was being so
clever......

Rory

On Mon, Jun 16, 2008 at 1:27 PM, Bruce Vining <bvining@xxxxxxxxxxxxxxx>
wrote:

> Sure.  But it does need to be a *PGM.
>
>  PGM        PARM(&PARM1)
> DCL        VAR(&PARM1) TYPE(*CHAR) LEN(1)
> DCL        VAR(&TEST) TYPE(*CHAR) LEN(1)
> CHGVAR     VAR(&TEST) VALUE(&PARM1)
>           MONMSG MSGID(MCH3601) EXEC(DO)
>                  RCVMSG MSGTYPE(*LAST)
>                  SNDPGMMSG MSG('Not sent') TOPGMQ(*EXT)
>                  RETURN
>                  ENDDO
> IF         COND(&PARM1 = Y) +
>           THEN(SNDPGMMSG MSG('Sent') TOPGMQ(*EXT))
> ELSE       CMD(SNDPGMMSG MSG('Sent but no Y') +
>             TOPGMQ(*EXT))
> ENDPGM
>
>  Bruce Vining