The Display  Object Locks command  is similar  to the system  WRKOBJLCK
command  except that only  display functions  exist.  This  is designed
for  a  user who  should not  be able  to  use CHGJOB  or ENDJOB.   The
QWCLOBJL API is used.

A typical command would be:

             DSPOBJLCK   OBJ(xxxx) OBJTYPE(*xxxx)

A display  similar to  the WRKOBJLCK display  would appear.   The  only
options available provide 'display only' functions.

If one  of the options  is requested (such  as displaying the  job with
the  locks) after  the DSPOBJLCK display  appears, the  job in question
may have released the lock by  the time the option is requested.   This
will result  in some misleading information,  but is the  same approach
as used by WRKOBJLCK.

Similarly,  if   the  job  which  has  the   lock  is  ended,  the  job
information cannot be  displayed.   Any errors on  the DSPJOB  function
will be re-displayed.

TAA9895 escape messages you can monitor for
------------------------------------------

      TAA9895    No locks exist (Optional based on ESCAPE parm)

Escape messages from based on functions will be re-sent.

Command parameters                                    *CMD
------------------

   OBJ           The  qualified  name  of the  object  to  display  the
                 locks  for.   The  library  value  defaults to  *LIBL.
                 *CURLIB may also be used.

   OBJTYPE       The  object  type to  be  displayed.   For  a complete
                 list, prompt for the possible values.

   MBR           The member name for  data base files.  The  default is
                 *NONE  which  must  be  used for  non-data  base  file
                 objects.   If  used for a  data base  file, file level
                 locks are displayed.

                 If a data  base file is  specified, other options  are
                 *ALL=All members,  *FIRST=First member, or  a specific
                 member name.

   ESCAPE        Whether  to send an  escape message if  no locks exist
                 for the object.   The default is  *NO which means  the
                 user  will see  a message  on  the subfile  describing
                 the condition.

                 *YES  may be  specified  to cause  the  escape message
                 TAA9895  to  be sent.   This  is  intended to  allow a
                 menu user  to see a  message on  the menu rather  than
                 seeing an empty subfile with a message.

Restrictions
------------

None.

Prerequisites
-------------

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     FILEFDBCK       File feedback
     SNDESCMSG       Send escape message
     TAAEXC          TAA Execute

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type    Attribute      Src member    Src file
   ------        ----    ---------      ----------    ----------

   DSPOBJLCK     *CMD                   TAAOBKH       QATTCMD
   TAAOBKHC      *PGM       CLP         TAAOBKHC      QATTCL
   TAAOBKHR      *PGM       RPG         TAAOBKHR      QATTRPG
   TAAOBKHR2     *PGM       RPG         TAAOBKHR2     QATTRPG
   TAAOBKHD      *FILE      DSPF        TAAOBKHD      QATTDDS
   TAAOBKHE      *FILE      DSPF        TAAOBKHE      QATTDDS

The  TAAOBKHC  CPP calls  TAAOBKHR  (uses  TAAOBKHD)  if MBR(*NONE)  is
specified or TAAOBKHR2 (uses TAAOBKHE) if it is not MBR(*NONE).