Re: Calling RPG supProc with *NOPASS parm

Igor.Beslic@xxxxxxxxxxxx wrote:
> 
> I have problem with calling rpg servicePGM subProc that has *NOPASS parm
> in prototype. The problem is in third parameter. If called from other RPG
> program subProcedures %PARMS BIF works as expected. But if I pass
> parameters from Java program, %PARMS bif returns 2 althought  I passed 3
> parameters.

RPG depends on an operational descriptor to get the %PARMS value.  RPG
doesn't pass a _full_ operational descriptor unless OPDESC is coded, but
it always passes a mini operational descriptor, which gives it the
number of parameters.

When you call RPG from other languages, you have to make sure they pass
the operational descriptor.  CLLE always passes a full descriptor, but
you have to tell C and COBOL to pass one.  

Unfortunately, RPG can't always tell that it didn't get an operational
descriptor, so it might give you garbage for %PARMS rather than the -1
value it gives when it knows it didn't get the descriptor.

Even more unfortunately, there's no way to ask Java to pass an
operational descriptor.  If you still want the *NOPASS function for your
non-Java callers, you'll have to create another procedure for Java to
call, maybe with some special "parameter-not-passed" value, or maybe
with an extra (first) parameter giving the number of other parameters. 
Then your other procedure can call through to your real procedure:
   if numparms = 2
        callp otherproc(p1 : p2)
   else
        callp otherproc(p1 : p2 : p3)