RE: How to use *OMIT and or *NOPASS

Thanks Alan and Jeff
That's what I was missing(the checking of the *null)

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of jdavis@xxxxxxxx
Sent: Tuesday, May 12, 2009 3:01 PM
To: RPG programming on the IBM i / System i
Subject: Re: How to use *OMIT and or *NOPASS

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