AS400中判断文件锁定

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