× 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.



The way I under stand this and please correct me if I am wrong....

When using *NoPass once the first variable is passed *nopass all others
are required to be no pass, while with *omit you can put the *omit place
holder for the parameter.

As for the error location not set, when using *nopass or *omit if the
parameter is not passed, it is null. You will need to do something like
the following

If %addr(EcisSsn) = *Null;
EcisSsn = *Loval;
EndIf;

So in short you will need to verify that each parameter isn't null before
working with it.

Jeff Davis





"Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/12/2009 01:50 PM
Please respond to
"RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the IBM i / System i" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
How to use *OMIT and or *NOPASS






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


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
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.