Start and browse file resoure definition sample

EXEC CICS INQUIRE FILE START END-EXEC.         
PERFORM UNTIL RESPCODE = DFHRESP(END)           
    EXEC CICS INQUIRE FILE(FILENAME) NEXT       
        OPENSTATUS(OPENSTAT)                   
        RECOVSTAT(RCVRSTAT)                     
        FWDRECSTATUS(FWDSTAT)                   
        RESP(RESPCODE) END-EXEC                 
    IF RESPCODE = DFHRESP(NORMAL)               
        IF OPENSTAT = DFHVALUE(OPEN)           
            CALL RCVY-RTN USING RCVRSTAT FWDSTAT
        END-IF                                 
    ELSE CALL ERROR-RTN END-IF                 
END-PERFORM.                                   
EXEC CICS INQUIRE FILE END END-EXEC.