Good News Everybody!
The new search engine is LIVE!
Please report any problems to david (at) midrange.com.
|
midrange.com
Hi Lim,
<snip>
C select
C when %parms() <=2
C callp SndMsg(MsgInId :*omit :*omit :*omit
C :*omit :MsgInQueue)
C when %parms() <=3
C callp SndMsg(MsgInId :MsgInData :*omit :*omit
C :*omit :MsgInQueue)
C when %parms() <=4
C callp SndMsg(MsgInId :MsgInData :MsgInType
C :*omit :*omit :MsgInQueue)
C when %parms() <=5
C callp SndMsg(MsgInId :MsgInData :MsgInType
C :MsgFile :*omit :MsgInQueue)
C when %parms() <=6
C callp SndMsg(MsgInId :MsgInData :MsgInType
C :MsgFile :MsgLib :MsgInQueue)
C endsl
</snip>
If you want to go down this route use %addr instead of %parms. You don't
need to cater for every possible combination then. If a parm is not passed
it's address is null. That's all you need to check.
Cheers
Larry Ducie
This mailing list archive is Copyright 1997-2026 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
