DSPOBJLCK       DISPLAY OBJECT LOCKS                   TAAOBKH

 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).

Added to TAA Productivity Tools February 28, 2000


Home Page

Last modified on March 10, 2014 © 1995, 2014 - TAA Tools, Inc.