RE: Programmatically determine number of parms inprocedureprototype?

Silly me, didn't realize you could specify *NoPass and *Omit at the same
time.
Definitely cool.

Thanks for the response. 

-----Original Message-----
From: rpg400-l-bounces+kjanderson=highsmith.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+kjanderson=highsmith.com@xxxxxxxxxxxx] On
Behalf Of Douglas Handy
Sent: Thursday, November 18, 2004 4:55 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Programmatically determine number of parms
inprocedureprototype?

Kurt,

> If Parm3 does go at the end, and doesn't meet the criteria above, then
> Parm2 must have Options( *NoPass ) removed (and more than likely 
> replace it with Options( *Omit )), and in doing so, all modules that 
> call this procedure that don't pass the 2nd parameter must now pass 
> the parameter or pass *Omit.  And you now have to code this program to

> check for a null address.

In the event a 3rd parm is someday added beyond a Options( *NoPass ),
I'd then change the second to become Options( *NoPass: *Omit ) and the
third to to Options( *NoPass ).

That way existing callers of the service program can continue to still
pass either one or two arguments as they see fit.  No existing program
will require the 3rd argument unless you are making changes anyway, and
then if it needs the 1st and 3rd but not the 2nd, you can pass the
middle one as *Omit.

Only the service program, which is already changing, needs to be revised
to test the second argument for *Omit.

 While you should never say never, there is no good reason to not allow
existing callers to use the previous prototype unless/until they need
changing anyway for passing the new argument.

IMHO,
Doug
--
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.