Re: Subprocedure use of a Global file

I am on V7R4.

I have an ILERPG program that has a file defined in the Global area of the
program. I have a subprocedure in this program that performs a CHAIN to
the globally defined file.

The subprocedure has two parameters in it, a key value (packed(9)) and a
character parameter (char (9)). Both of these parameters are defined as
"LIKE()" corresponding field names in the global file and both parameters
are defined with CONST.

I go in debug and break at the Chain. Before the Chain executes, the
parameters contain the original values passed into the subprocedure. Right
after the Chain, the Packed(9) parameter contains its original value, but
the second parameter becomes blank. It is as if the subprocedure is
overwriting the parameter values with the contents of the Chained record,
I am assuming because of the LIKE().

Am I missing something? Has anyone experienced this? I would not expect
this behavior. I am expecting that the parameter values remain unchanged,
especially since they are being defined with CONST.

Thank you,

Doug



"CONFIDENTIALITY NOTICE: This e-mail transmission (and/or the attachments
accompanying it) contain confidential information belonging to the sender.
The information is intended only for the use of the intended recipient. If
you are not the intended recipient, you are hereby notified that any
disclosure, copying, distribution or the taking of any action in reliance
on the contents of the information is strictly prohibited. Any
unauthorized interception of this transmission is illegal under the law.
If you have received this transmission in error, please promptly notify the
sender by reply e-mail, and then destroy all copies of the transmission."
--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.