Passing multi occurrence DS pointer to procedure - Data out of alignment

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>]

Before I call IBM, I though I'll check to see if anybody has encountered this 
before.
 
---- Some background ---------------------------------------------------------
I've a program that has a multi occurrence DS in the main procedure:  
D Mcradd          Ds                  Occurs(12) likeds(sfAddDS)
 
In this program there is a sub-procedure that accept point of the above DS as a 
parm:
P chkAddingWgrp   B                                             
D                 PI              N                             
D addDSPtr                        *   value                     
                                                                
D addDS           DS                  likeDS(SFAddDS) occurs(12)
D                                     based(addDSPtr)           

---- Problem (Note: This rarely happen.  In most case, it work just fine.) 
-----------------------
When the main procedure does the following 
    chkAddingWgrp(%addr(mcrAdd))

In debug mode:  The 4th occurrence data is out of sync between the Mcradd in 
main procedure and the addDS in sub-procedure:  See below
 
MCRADD.UNLIKESWAP I(4) = ' '       
MCRADD.DSFECINOLD I(4) = ' '       
MCRADD.DSFEC(4) = '   '            
MCRADD.SVID(4) = '          '      
MCRADD.TLA(4) = 000.               
MCRADD.TLNO(4) = 00000000000000000.
MCRADD.TLP(4) = 000.               
MCRADD.TLS(4) = 0000.              
MCRADD.TLX(4) = 0000000.           
MCRADD.PGTR(4) = '   '             
MCRADD.SFRRN(4) = 0000.            
MCRADD.FEARRN(4) = 0000.           
MCRADD.FEC(4,1) = '   '            

 
ADDDS.UNLIKESWAP I(4) = '0'       
ADDDS.DSFECINOLD I(4) = '0'       
ADDDS.DSFEC(4) = '000'            
ADDDS.SVID(4) = '0000000000'      
ADDDS.TLA(4) = 000.               
ADDDS.TLNO(4) = 00000000000000000.
ADDDS.TLP(4) = 000.               
ADDDS.TLS(4) = 0000.              
ADDDS.TLX(4) = 0000000.           
ADDDS.PGTR(4) = '000'             
ADDDS.SFRRN(4) = 000 .            
ADDDS.FEARRN(4) =     .           
ADDDS.FEC(4,1) = '   '