LA    R2,TABLELEN
         LA    R3,LAST
         LA    R4,VIRTORG
         DO    INF
            GET   SYSIN
            JXH   R4,R2,FULL
            ST    R4,COMPARND
            ...
         ENDDO .
FULL     WTO   'TABLE FULL',ROUTCDE=7
EODAD    DS    0H
         ...
         IF    (LT,R3,COMPARND
            LA    R2,TABLELEN
            LA    R4,TABLE
            DO    FROM=(R4),BY=(R2),TO=(R3)
               ...
            ENDDO .
         ENDIF .
         ...
TABLEENT DSECT ,
FOO      DS    F
BAR      DS    CL8
TABLELEN DS    *-TABLEENT
         ...
WORK     DSECT ,
         ...
TABLE    DS    100CL(TABLELEN)
VIRTORG  EQU   TABLE-TABLELEN,TABLEN
LAST     EQU   *-TABLEN,TABLEN
COMPARND DS    A(VIRTORG)

         DO    INF
            GET   SYSIN
            DOEXIT (JXH,R4,R2)
            ST    R4,COMPARND
            ...
         ENDDO .
         WTO   'TABLE FULL',ROUTCDE=7
EODAD    DS    0H