to read multiple member PF

FQRPGLE1   IF   E           K DISK    USROPN EXTMBR('*ALL')                    
C                   OPEN      QRPGLE1                                          
C                   READ      QRPGLE                                           
C                   DOW       NOT %EOF(QRPGLE1)                                
C                   MOVEL     SRCDTA        TEST1            20                
C     TEST1         DSPLY                                                      
C                   READ      QRPGLE                                           
C                   ENDDO                                                      
C                   CLOSE     QRPGLE1                                          
C                   SETON                                        LR