FSRBNAM UF E K DISK infds(SRWNAM) D SRWNAM DS D Status *Status C DOU Status <> 1218 C EVAL EVENT = 1 C EVAL FMCUST = '000016' C* C* Read the Customer Master Record C FMCUST CHAIN(E) SRBNAM 99 C* C* Check the File Status, if record was locked, execute subroutine C* IF %Status(SRBNAM) = 1218 C* Execute Subroutine to handle record lock C EXSR SR90 C* ENDIF C* C ENDDO