Incrementing pointer doesn't change field values

I am working with the QjoRetrieveJournalEntries API using an example from 
Carsten I found on the web.  I believe the API call is working correctly 
because I can see the returned entries in my receiver variable.  My problem is 
in walking through the returned entries.  The same sequence number is displayed 
every time.  Using DSPJRN to display the entries all the sequence numbers are 
different.  I've spent about 3 hours looking at this and comparing with 
Carsten's example without any luck.

I have these data structures defined for the returned information:

 // Parameters for call to RtvJrnEnt                                            
               
d RtnInf          ds                  Align                                     
               
d RtnInfHdr                                                                     
               
d  rihBytesRet                  10i 0 Overlay(RtnInfHdr :1)                
Bytes returned      
d  rihEntHdr1                   10i 0 Overlay(RtnInfHdr :*Next)            
Entry 1 header loc  
d  rihNbrEnt                    10i 0 Overlay(RtnInfHdr :*Next)            Nbr 
entries returned
d  rihCont                       1    Overlay(RtnInfHdr :*Next)            
Continuation ind.   
d  rihContRcvr                  10    Overlay(RtnInfHdr :*Next)            
Continue receiver   
d  rihContLib                   10    Overlay(RtnInfhdr :*Next)            
Continue library    
d  rihContSeq                   20s 0 Overlay(RtnInfHdr :*Next)            
Continue seq number 
d  rihReserved                  11    Overlay(RtnInfHdr :*Next)            
Reserved            
d RtnInfDta                  65000                                              
               

 // Format of returned journal entry header information                         
               
d RtnEntHdr@      s               *                                             
               
d RtnEntHdr       ds                  Based(RtnEntHdr@)                         
               
d  rehNxtEntOff                 10u 0                                      Next 
entry offset   
d  rehNullValInd                10u 0                                      Null 
ind. offset    
d  rehJrnEntDta                 10u 0                                      
Entry data offset   
d  rehTranID                    10u 0                                      
Transaction ID      
d  rehLUW                       10u 0                                      
Logical unit of work
d  rehRcvInf                    10u 0                                      
Receiver information
d  rehSeqNbr                    20u 0                                      
Sequence number     
        .
        .
        .

And this logic to display the sequence numbers as a test of the API call.

 RtvJrnEnt(RtnInf :RtnInfLen :QualJrn :RtnFmt :EntToRtv :apiError); 
                                                                    
 If apiErrAval = 0;                                                 
    RtnEntHdr@ = %Addr(RtnInf) + rihEntHdr1;                        
                                                                    
    // For Ctr = 1 to rihNbrEnt;                                    
    For Ctr = 1 to 20;                                              
       Dsply rehSeqNbr;                                             
                                                                    
       RtnEntHdr@ = RtnEntHdr@ + rehNxtEntOff;                      
    EndFor;                                                         
                                                                    
 EndIf;                                                             

Field rehSeqNbr doesn't change.  The pointer changes so I think the increment 
is working but the same value is displayed every time.  I would appreciate any 
suggestions about what I'm missing.

Rick Chevalier
 <<ole0.bmp>> 
Enterprise Solutions
Ext. 57178