RE: Problem with moving Data Structures

Pessach,

You saw this in a debug session? I wonder if this could be an issue
with optimization...

From help (CRTBNDRPG):

------------------------
Optimization level (OPTIMIZE) - Help

Specifies the level of optimization, if any, of the
module.

*NONE
Generated code is not optimized. This is the fastest
in terms of translation time. It allows variables to
be displayed and modified while in debug mode.

*BASIC
Some optimization is performed on the generated code.
This allows user variables to be displayed but not
modified while in debug mode.

*FULL
Optimization which generates the most efficient code.
Translation time is the longest. User variables may
not be modified but may be displayed, although the
presented values may not be the current values.
------------------------

Try this to see what optimization was specified...
DSPPGM PGM(thepgm) DETAIL(*MODULE)

hth
-Eric DeLong

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Pessach Derdiger
Sent: Monday, October 19, 2009 5:57 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: Problem with moving Data Structures

I am having a problem with populating some data structures. In the below
code after executing "eval out1_prm@ = out1_prm" I find that I
have values in the second data structure "out2_prm@". Can anyone tell
me why this is happening?

Thanks,

Pessach

d out1_prm ds


d teur@ 60


d cols@ 5 0


d rows@ 5 0


d out1_more 1


d out1_prm@ ds likeds(out1_prm)


d out2_prm ds qualified dim(50)


D BMETEURAMD@ 24


D BMEORHSD@ 2 0


d out2_prm@ ds likeds(out2_prm) dim(50)


d out2_tmp ds qualified dim(50)


D BMEposit@ 2 0


D BMESHURa@ 2 0


d BMESHADE@ 10A


d out3_prm ds qualified dim(50)


D bmpsugtr@ 1 288 dim(12)


d out3_prm@ ds likeds(out3_prm) dim(50)


C *entry plist


C parm in_spk@


C parm out1_prm@


C parm out2_prm@

C parm out3_prm@

c clear out1_prm

c clear out2_prm

c clear out3_prm

c clear out2_tmp

c clear out1_prm@

c clear out2_prm@

c clear out3_prm@

c eval mone=0

c eval out1_more='0'

c exsr extract

C eval out1_prm@ = out1_prm

C eval out2_prm@ = out2_prm

C eval out3_prm@ = out3_prm

c eval *inlr=*on