check record lock

JmLei

于 2013-10-15 19:34:57 发布

阅读量939

点赞数

分类专栏： AS400/RPGLE/CL

AS400/RPGLE/CL 专栏收录该内容

69 篇文章

订阅专栏

本文深入探讨了用于文件管理、任务调度和系统监控的特定命令，包括如何使用它们进行高效操作和故障排查。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

use dsprcdlck or wrkobjlck

rpg code

Ffile01  UF   E           K DISK    USROPN             
F                                     COMMIT             
F                                     INFDS(INFD2)       

 
 
D                SDS                   
D  $NRPAR           *PARMS             
D  @FPGNM                 1     10     
D  VMSGDTA               91    170     
D  VUSRNM               254    263     
D  JOBNBR               264    269  0  
D  @JOBID               244    269     

 
 
D INFD2           DS            
D FILESTATUS2       *STATUS     

 
 
DRECORDLOCK       C                   CONST(01218)  

 
 
C     Key01         CHAIN     file01                              9998 

 
 
C                    IF        *in98 = *on                       
C                              and FILESTATUS2 = RECORDLOCK      
C* dsply VMSGDTA : Record 355560 in use by job 593967/xxx/xxx.
C                    ENDIF