Mike,

If you're only going to pass one of the last 5 parms, why not simply have 4
required parms:

P S#CHKUSR B Export
D S#CHKUSR PI N
D UserProfile 10A
D AppSys 5A
D IDFld 1A
D IDType 1A

and have a SELECT in there to say e.g.

when IDType = 'E';
EcisSSN = IDFld; // IDFld is EcisSSN
when IDType = 'T';
ThrdSsn = IDFld; // IDFld is ThrdSsn
...

and you'd call it as:

C eval retfield = S#chkusr(USR:DEPT:F1:'E'); // 3rd
parm is EcisSsn

or as:

C eval retfield = S#chkusr(USR:DEPT:F1:'B'); //3rd
parm is BnkID

Rory

On Tue, May 12, 2009 at 11:50 AM, Smith, Mike
<Mike_Smith@xxxxxxxxxxxxxxxx>wrote:

I am trying to create a procedure that receives up to 7 parmeters. The
first 2 will always be passed. For the last 5 parms I want to be able
to pass only 1 in any position

So if I have a PR like
P S#CHKUSR B Export
D S#CHKUSR PI N
D UserProfile 10A
D AppSys 5A
D EcisSsn 1A OPTIONS(*OMIT)
D ThrdSsn 1A OPTIONS(*OMIT)
D PrSsn 1A OPTIONS(*OMIT)
D BnkID 1A OPTIONS(*OMIT)
D FedId 1A OPTIONS(*OMIT)


C eval retfield = S#chkusr(USR:DEPT:F1
C :*OMIT:*OMIT:*OMIT:*OMIT)

I might only want to pass BnkID or in my example I only want to pass
ECISSSN.

I have tried combinations of *OMIT, and *NOPASS but I keep getting
pointer not set.
Maybe I can't use *OMIT this way. At any rate, I want to understand it
better.

Thanks
Mike

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].