Re: Problem Clearing Procedure Parameters

[Charles Wilt <charles.wilt@xxxxxxxxx>]

Robert,

You're missing something somewhere....

As you say, a constant parameter can't be changed (well technically
there are ways to do it, but you have to lie to the compiler which
isn't easy to do.  Particularly when dealing with internal procedures)

Check the cross reference on the compile list to see where FIELDA and
FIELDB are defined and modified.

You you still can't find it, you might consider posting the code on
http://code.midrange.com and posting the link to the list so another
set of eyes can look at it.

Charles


On Thu, Sep 10, 2009 at 3:09 PM, Robert J. Mullis
<robertmullis99@xxxxxxxxxxx> wrote:
> I have a program that has two internally defined procedures.
>
> Procedure #1 has two fields as input parameters, FIELDA and FIELDB, both defined as CONST. In Procedure #1, the two input fields are moved into two fields on a screen called SFIELDA and SFIELDB. If certain conditions are met, Procedure #1 calls Procedure #2. In Procedure #2, the two screen fields, SFIELDA and SFIELDB, are cleared. I noticed that the fields passed into Procedure #1, FIELDA and FIELDB are getting cleared at the same time. I put the program in debug and verified this.
>
> How is this possible? First of all, I thought if a parameter to a procedure was defined as CONST, it couldn't be changed. I have searched through the program to make sure there were no datastructures, etc. that might be overlaying the fields and the DDS for the screen to make sure the procedure parameters are not defined on a screen.
>
> Any advice and/or help would be greatly appreciated.
>
> Thanks,
>
> Robert
> --
> 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.