Re: RPG-ILE Service Pgm and Parameter Passing

Use %Parms = 'number of parms passed' to check for the existance of a
parameter.

Mark Walter
Paragon Consulting Services, Inc.
IBM Certified System i Specialist
717-764-7909 Ext. 26
mwalter@xxxxxxxxxxxxxxx
www.paragon-csi.com



Arthur.Marino@xxxxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
03/20/2008 01:59 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RPG-ILE Service Pgm and Parameter Passing






I'm testing the proc in a service pgm that defines 3 parms, all of which
are 10 bytes, alpha and "const". The last 2 have "options(*nopass)". I'm
testing for the presence/absence of the last 2 parms using %addr(parm)
equal/not equal to *null.
I have the main pgm call the proc twice, once with all 3 parms present (x
= proc(p1:p2:p3)), the second time with only the 1st parm present (x =
proc(p1)). In debug, the 2nd invocation of the service pgm proc shows the
2nd and 3rd parms containing the data from the 1st invocation. Since I
didn't pass those parms in the 2nd invocation, shouldn't they be
undefined??? If not, how does one have the proc function differently based

on the number of parms passed? Do I have to check the %parms BIF? If
that's the case, what exactly is %addr(parm) good for?

Arthur J. Marino
Southern Container Corporation
(631) 297 - 2276