Re: *NOPASS parameter retaining old value

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Rick,

As Bruce mentions, that's the wrong way to use *NOPASS.

You need

if %parms() > 3;
  wForceRead = ForceRead;
else;
  wForceRead = *OFF;
endif;

// Only chain to the loan master if working on a new loan
If PreviousBank <> Bank or PreviousLoan <> LoanNumber or wForceRead;

HTH,
Charles



On Wed, Jan 27, 2010 at 10:15 AM,  <Rick.Chevalier@xxxxxxxxxxxxxxx> wrote:
> I ran across what I think is strange behavior in a sub-procedure.
>
> I have a procedure with four parameters.  The fourth, ForceRead, being defined with *NOPASS.  Most calls to this procedure do not pass the ForceRead parameter, only those that require the data file be read to get any updated information.  I am seeing a situation where the ForceRead parameter has a value of 1 in the called procedure even though it wasn't passed by the caller.  Because ForceRead isn't being passed I expected to get something like a null pointer message.  Can anyone explain this to me?
>
>
> d GetLoanInformation...
>
> d pi
>
> d Found n
>
> d Bank 3s 0 Const
>
> d LoanNumber 12s 0 Const
>
> d ForceRead n Options(*NoPass) Const
>
>
>
> // Only chain to the loan master if working on a new loan
>
> If (PreviousBank <> Bank or PreviousLoan <> LoanNumber) or
>
> (%Parms > 3 and ForceRead);
>
>
>
>
>
> Rick Chevalier
> IT Software Solutions - Loan Servicing
> [http://www.americredit.com/images/acf_email_sig.gif]
>
>
>
> ________________________________
> Privileged and Confidential. This e-mail, and any attachments there to, is intended only for use by the addressee(s) named herein and may contain privileged or confidential information. If you have received this e-mail in error, please notify me immediately by a return e-mail and delete this e-mail. You are hereby notified that any dissemination, distribution or copying of this e-mail and/or any attachments thereto, is strictly prohibited.
>
> --
> 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.