Number of Parametesrs in CL program

[rpgdude]

Hi, I was wondering if there is an API/BIF or any other method that I can check the number of parameters passed in to a CL program ?
Basically I'm looking for something that will give me the same effect as %PARMS in RPG.

Thanks in advance.

[B.Hauser]

Re: Number of Parametesrs in CL program

AFAIK there is nothing comparable with %PARMS in CL. The only way I'm aware of to check passed or not passed parameters is to use MONMSG to check for MCH3601.

Birgitta

[Mercury]

Re: Number of Parametesrs in CL program

Not sure if it makes sense and works as it does in RPG but if you're running V6R1 you should give a try to the CL's new *NULL special value support. I'm in a painful doubt though and can't test.

pgm parm(&Parm1 &Parm2 ...)
...
dcl  &ptrParm  type(*ptr)
chgvar  var(&ptrParm) value(%addr(&Parm1))
if cond(&ptrParm = *NULL ) then(do)
 /* Parm1 not passed ? */
enddo
chgvar  var(&ptrParm) value(%addr(&Parm2))
if cond(&ptrParm = *NULL ) then(do)
 /* Parm2 not passed ? */
... 

[Mercury]

Re: Number of Parametesrs in CL program

Hello people in V6, would you please let me know whether my previous post here makes sense, I am curious ? Thanks a bunch.

[Mercury]

Re: Number of Parametesrs in CL program

I could do a test and it rocks as expected. Thanks myself.

[jamief]

Re: Number of Parametesrs in CL program

Mercury.... I like you half as much as you like yourself...and thats still 10 times
more than one of your x-girlfriends.... Have a great weekend

jamie

[Mercury]

Re: Number of Parametesrs in CL program

Thanks Jamie, I like your sense of irish humor

[gcraill]

Re: Number of Parametesrs in CL program

I could do a test and it rocks as expected. Thanks myself.

Thanks for helping Phillipe out and testing that - good work !!!

[Mercury]

Re: Number of Parametesrs in CL program

Thanks for the support Greg