Multiple Occurence Data Structure losing occurences on pass

I am attempting to pass a Multiple occurence data structurre from one
program to another, but when it gets to the destination program, I only
have the first occurence, all others are lost.

Here is the code from the calling program:

0005.00 DEdtCstRtn PR ExtPgm('@EDTCSTRTN')
0006.00 D SubParm Like(MyStruct)
0007.00 D SubParm1 Like(Struct1)

0002.00 Dmystruct e ds ExtName(EDTCSTPF)
occurs(500)
0003.00 DStruct1 e ds ExtName(EDTCSTHDR)

I fill the structure and then call the second program

0031.00 Callp EdtCstRtn(MyStruct:Struct1);

Here is the code from the Called program:

0012.00 DCstRtnParm PR ExtPgm('@EDTCSTRTN')
0013.00 DPlistPR Like(PlistParm)
0014.00 DPlist1PR Like(Plist1)
0015.00 DCstRtnParm PI
0016.00 DPlistPI Like(PlistParm)
0017.00 DPlist1PI Like(Plist1)

0019.00 DPlistParm e ds ExtName(EDTCSTPF)
occurs(500)
0020.00 DPlist1 e ds ExtName(EDTCSTHDR)


First line in Main is PListParm = PListPI;

Howver, if I check the occurences for PListPI it only has one occurence
and that is before the eval statement.

Suggestions on what I may or may not be doing correctly
This transmission may contain information that is privileged, confidential
and/or exempt from disclosure under applicable law. If you are not the
intended recipient, you are hereby notified that any disclosure, copying,
distribution, or use of the information contained herein (including any
reliance thereon) is STRICTLY PROHIBITED. If you received this
transmission in error, please immediately contact the sender and destroy
the material in its entirety, whether in electronic or hard copy format.
Thank you.