Figure 10. Moving list entry pointer to the next entry

/* Set list pointer to first list entry----------------------*/
             CHGVAR     VAR(%OFS(&QuslobjPtr)) VALUE(%OFS(&HeaderPtr) + &ListOffset)

/* Move data structure through the list entries by moving the pointer*/
             DOFOR      VAR(&Count) FROM(1) TO(&EntryCount)

               CALLSUBR   SUBR(SrListEnt)
 
               CHGVAR     VAR(%OFS(&QuslobjPtr)) VALUE(%OFS(&QuslobjPtr) + &EntrySize)

             ENDDO