RE: Antwort: Who is locking a document in QDLS

Many thanks Karl and Fiona.  It is one of the system FTP jobs holding
the lock.  I'll end and re-start FTP.

Cheers
Rob

-----Original Message-----
From: midrange-l-admin@midrange.com
[mailto:midrange-l-admin@midrange.com] On Behalf Of k.goergen@ltur.de
Sent: 17 October 2002 14:26
To: midrange-l@midrange.com
Subject: 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




_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@midrange.com To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.