× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



You just have to check the *OMIT for *NULL

If %Addr(ECISSSN) = *Null;


On Tue, May 12, 2009 at 12:50 PM, 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 is the RPG programming on the IBM i / System i (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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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

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