Re: CL Optional Parameter Question

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.