The  Retrieve   Journal   Object  Counts   command  retrieves   summary
information for  different object types  that are being  journaled to a
named  journal.   The API  QjoRetrieveJournalInformation is  used.  The
counts are  kept by the  system (the  individual object information  is
not read).

A typical series of commands would be:

             DCL        &DBF *DEC LEN(10 0)
              .
             RTVJRNOBJC JRN(xxx) DBF(&DBF)

The number  of data base files  being journaled would  be retrieved for
the named journal.

RTVJRNOBJC escape messages you can monitor for
----------------------------------------------

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

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

   JRN           The  qualified name of the  journal object to retrieve
                 information from.    The  library  value  defaults  to
                 *LIBL.   A  specific library  or *CURLIB  may also  be
                 used.

   DBF           The number  of data base files  being journaled.  This
                 is an  optional  return value  that  if used  must  be
                 declared as *DEC LEN(10 0).

   MBR           The  number  of  physical  data   base  members  being
                 journaled.   This is an optional return  value that if
                 used must be declared as *DEC LEN(10 0).

   ACCPTH        The  number of access paths  being journaled.  This is
                 an  optional  return  value  that  if   used  must  be
                 declared as *DEC LEN(10 0).

   DTAARA        The  number of data  areas being  journaled.   This is
                 an  optional   return  value  that  if  used  must  be
                 declared as *DEC LEN(10 0).

   DTAQ          The number of  data queues being  journaled.  This  is
                 an  optional  return  value  that   if  used  must  be
                 declared as *DEC LEN(10 0).

   IFS           The  number of IFS  objects being journaled.   This is
                 an  optional  return  value  that  if  used  must   be
                 declared as *DEC LEN(10 0).

   CMTDEF        The  number of  Commitment  Control definitions  being
                 journaled.   This is an optional return  value that if
                 used must be declared as *DEC LEN(10 0).

   LIB           The  number of library objects  being journaled.  This
                 is an  optional  return value  that  if used  must  be
                 declared as *DEC LEN(10 0).

   JRNRCV        The  number  of  Journal  receivers  being  journaled.
                 This  is an  optional return  value that if  used must
                 be declared as *DEC LEN(10 0).

   TOTOBJS       The total  number  of objects  being journaled.    The
                 value  may   include  objects   that  are   implicitly
                 journaled  by  the  system.   The  value  should agree
                 with that  shown  on WRKJRNA.    This is  an  optional
                 return value  that if  used must  be declared as  *DEC
                 LEN(10 0).


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

Because RTVJRNOBJC  returns values, the  command may only be  used in a
CL type program.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVJRNOBJC    *CMD                   TAAJROU       QATTCMD
   TAAJROUC      *PGM       CLP         TAAJROUC      QATTCL
   TAAJROUR      *PGM       RPGLE       TAAJROUR      QATTRPG