Sample Program to List Lock Information for IFS Objects

https://www.ibm.com/support/pages/sample-program-list-lock-information-ifs-objects

Command source: Command name WRKLCK.

CMD

PARM       KWD(PATH) TYPE(*CHAR) LEN(500)            

RPGLE source: Program name WRKLCK

Dspaceloc         S              3P 0                                                          

 DPATH             S            500                                                            

 DCMD              S           1024    INZ(' ')                                                

 DQUOTE            S              1    INZ('''')                                                

 DCMDL             S             15  0 INZ(1024)                                                

 DQCMDEXC          PR                  EXTPGM('QCMDEXC')                                        

 DCMD                          1024A   OPTIONS(*VARSIZE) CONST                                  

 DCMDL                           15p 5 CONST                                                    

 C     *ENTRY        PLIST                                                                      

 C                   PARM                    PATH                                              

 C*                  PARM                    RTN                                                

  /FREE                                                                                        

     spaceloc = %scan(' ':path);                                                                

     path = %subst(path:1:spaceloc);                                                            

     cmd='CALL QP0FPTOS PARM(*LSTOBJREF '+ QUOTE + %trim(path) + QUOTE + ' +                    

            *FORMAT2)';                                                                        

    QCMDEXC (CMD : %SIZE(CMD));                              

    *INLR = *ON;                                              

 /END-FREE