在CHAIN一笔记录先判断该记录是否锁定？

go2show

RT，怎么在CHAIN一笔记录先判断该记录是否锁定！

gto1101

如果锁定了你CHAIN会报错，似乎没有办法提前判断是否锁定？
如果你只是用一下里面记录的话建议用CHAIN(N)，实在要判断就直接CHAIN下用%ERROR似乎可以

first_come

我觉得你可以直接（当你需要操作这条记录的时候），用：
dou    *in38=*off
1   chain     format              7038
        enddo
先锁了它.
在需要的时候来uplock应该就OK乐

q疯哥p

喓，是峰哥吗？

nolater

判断文件已经锁定了，有3种方法，command dsprcdlck or %status=1218, infds我感觉最后一种比较好

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