Problem with moving Data Structures

Sorry for not replying yesterday I was out of office. The Inz does not
work since the data structures are part of the *entry plist. The extract
subroutine fills the data structures out1_prm, out2_prm, and out3_prm
properly. The problem occurs when I move them to the data structures in
the plist. I rechecked by the debug and found that after clearing
out1_prm@, the ds was correct, but then the clear of out2_prm@, already
put some garbage in the first ds, out1_prm@.
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