Return to the Systems Tips
Find out who has the document locked
Here's a simple Command and CL to help you find that out:
Command:
/************************************************/
/* */
/* Command Name: UTUDLOLCK */
/* System Name: UTILITY */
/* Creator: Mary C. Milliron */
/*********************************************/
CD: CMD PROMPT('Display Document Locks')
PARM KWD(DOCUMENT) TYPE(*CHAR) LEN(12) +
PROMPT('Document Name:')
PARM KWD(FOLDER) TYPE(*CHAR) LEN(80) +
PROMPT('Folder:')
CL:
/***********************************************/
/* */
/* SYSTEM: UTILITY */
/* PROGRAM: UTJDLOLCK */
/* AUTHOR: Mary C. Milliron */
/* */
/* FUNCTION: CLP to display who has a lock on a document. */
/* */
/* Program Modification History: */
/************************************************/
PGM PARM(&DOCUMENT &FOLDER)
DCL VAR(&DOCUMENT) TYPE(*CHAR) LEN(12)
DCL VAR(&FOLDER) TYPE(*CHAR) LEN(80)
DCL VAR(&DLONAM) TYPE(*CHAR) LEN(10)
RTVDLONAM DLO(&DOCUMENT) FLR(&FOLDER) RTNOBJNAM(&DLONAM)
WRKOBJLCK OBJ(QDOC/&DLONAM) OBJTYPE(*DOC)
ENDPGM
Of course, you'll want to add MONMSGs to the CL to handle any errors.
[report a broken link by clicking here]