Re: Problem with moving Data Structures

Just to be sure: have you checked the contents of out2_prm@ before you
change out1_prm@? If changing out1_prm@ changes out2_prm@ as well, than
there's a good chance that the definition of out1_prm@ does not match the
definition of the caller.

Joep Beckeringh



rpg400-l-bounces@xxxxxxxxxxxx wrote on 19-10-2009 12:57:27:

Pessach Derdiger

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

--
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.