Re: How to use *OMIT and or *NOPASS

[Alan Campin <alan0307d@xxxxxxxxx>]

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.