/*****************************************************************MRB*/
/* Display real time object lock (DRTOBJLCK)                         */
/* Marti Riera 01/10/2001                                            */
/* http://www.recursos-as400.com/                                    */
/* mailto:mrierab@teleline.es                                        */
/*********************************************************************/
/* Display lock state of 52 files with more use of a library.        */
/* Can modify for display of all object type (1)                     */
/* all objects in a library (2)                                      */
/* (1) All object type: Modify WHERE ODOBTP = '*FILE' AND            */
/*                             ODOBAT IN ('PF', 'LF') in DRTOBJLCKQ  */
/*                             and execute CRTQMQRY                  */
/* (2) All object: Modify SFLPAG and SFLSIZ on DRTOBJLP              */
/*********************************************************************/
/* Create CMD with parameter PGM(DRTOBJLCKC)                         */
/*********************************************************************/
             CMD        PROMPT('Display real time object lock')

             PARM       KWD(LIBNAM) TYPE(*NAME) LEN(10) MIN(1) +
                          PROMPT('Library name')