Antwort: Who is locking a document in QDLS

Hello Rob,

here's a little programm we used to display the user who locked a document :

CL


    PGM        PARM(&DOC &FLR)

    DCL        VAR(&FLR) TYPE(*CHAR) LEN(63)
    DCL        VAR(&DOC) TYPE(*CHAR) LEN(12)
    DCL        VAR(&SYSOBJNAM) TYPE(*CHAR) LEN(10)

    RTVDLONAM  DLO(&DOC) FLR(&FLR) SYSOBJNAM(*NONE) +
                 RTNOBJNAM(&SYSOBJNAM)
    MONMSG     MSGID(CPF8A82) EXEC(DO)
    RTVDLONAM  DLO(&DOC) FLR(&FLR) SYSOBJNAM(*NONE) +
                 OBJCLS(*FLR) RTNOBJNAM(&SYSOBJNAM)
    ENDDO

    WRKOBJLCK  OBJ(QDOC/&SYSOBJNAM) OBJTYPE(*DOC)
    MONMSG     MSGID(CPF0939) EXEC(DO)
       WRKOBJLCK  OBJ(QDOC/&SYSOBJNAM) OBJTYPE(*FLR)
       ENDDO

       ENDPGM


CMD



 /*           CRTCMD     CMD(*LIBL/WRKDOCLCK) +                     */
 /*                      PGM(LTURPGM/WRKDOCLCK) +                   */
 /*                      SRCFILE(LTURPGM/QCMDSRC) +                 */
 /*                      SRCMBR(WRKDOCLCK) +                        */
 /*                      TEXT('Display document Locks') +      */
 /*                      MODE( +                                    */
 /*                        *ALL) +                                  */
 /*                      ALLOW( +                                   */
 /*                        *ALL) +                                  */
 /*                      MAXPOS(2)                                  */

              CMD        PROMPT('Display Document Locks')

              PARM       KWD(DOC) TYPE(*CHAR) LEN(12) MIN(1) +
                           ALWUNPRT(*NO) ALWVAR(*NO) EXPR(*YES) +
                           VARY(*NO) CHOICE('Name') +
                           PROMPT('document name')

              PARM       KWD(FLR) +
                         TYPE(*CHAR) +
                         LEN(63) +
                         DFT(*NONE) +
                         SPCVAL( +
                           (*NONE )) +
                         EXPR(*YES) +
                         VARY(*NO) +
                         PROMPT('Folder')


Cheers

Karl