Re: CL Optional Parameter Question

[Mike <koldark@xxxxxxxxx>]

I did something similar to this. I couldn't remember it at first but knew I
did something similar at one time. This does work for me, but might switch
to Scott's example. Looks easier to read.

--
Mike Wills
Midrange Programmer/Analyst

Sick of corporate radio and hungry for something new?
http://thenextgenerationofradio.com

On Mon, Jun 16, 2008 at 3:31 PM, Rory Hewitt <roryhewitt@xxxxxxxxx> wrote:

> 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?
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.