read file with RRn

FTABLE00F  IF   E             DISK    RECNO(RRNO)                        
DRRNO             S              9P 0 INZ(0)                             
C                   EVAL      RRNO = 3734                                
C*    RRNO          CHAIN     TABLER                             30      
C     RRNO          SETLL     TABLER                                     
C                   READ      TABLER                                 30  
C                   DO        10                                         
C  N30KEY           DSPLY                                                
C                   READ      TABLER                                 30  
C                   ENDDO                                                
C                   SETON                                        LR