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