Re: How to use *OMIT and or *NOPASS

[jdavis@xxxxxxxx]

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