/*----------------------------------------------------------------MRB*/
/* DRTOBJLCK - Display Real Time Object Lock                         */
/*-------------------------------------------------------------------*/
/* CRTQMQRY QMQRY(RIERAM/DRTOBJLCKQ) SRCFILE(RIERAM/QMRBSRC)         */
/*-------------------------------------------------------------------*/
             PGM        PARM(&LIBNAM)
             DCL        VAR(&LIBNAM) TYPE(*CHAR) LEN(10)
             DCL        VAR(&EOF) TYPE(*LGL) VALUE('0')
             DCL        VAR(&OBJ) TYPE(*LGL) VALUE('0')
             DCLF       FILE(DRTUSEL)

             CHKOBJ     OBJ(&LIBNAM) OBJTYPE(*LIB)
             MONMSG     MSGID(CPF2110) EXEC(GOTO END)

             CHKOBJ     OBJ(QTEMP/DRTUSEL) OBJTYPE(*FILE)
             MONMSG     MSGID(CPF9801) EXEC(DO)
             CHGVAR     VAR(&OBJ) VALUE('1')
             ENDDO

             IF         COND(&OBJ *EQ '0') THEN(DO)
               RCVF
               MONMSG    MSGID(CPF0864) EXEC(CHGVAR VAR(&EOF) VALUE('1'))
               CLOF       OPNID(DRTUSEL)
             ENDDO

             IF         COND((&LIBNAM *NE &ODLBNM) *OR +
                             (&OBJ *EQ '1')) THEN(DO)
               DSPOBJD    OBJ(&LIBNAM/*ALL) OBJTYPE(*ALL) +
                          OUTPUT(*OUTFILE) OUTFILE(QTEMP/DRTUSEL)
               STRQMQRY   QMQRY(DRTOBJLCKQ) OUTPUT(*OUTFILE) +
                            OUTFILE(QTEMP/DRTOBJL)
             ENDDO

             CALL       PGM(DRTOBJLCKR) PARM(&LIBNAM)

 END:        RETURN
             ENDPGM