The  Compare Journal  Attributes command  compares  the CRTJRN  command
parameters of  two Journal objects.   A spooled file is  created of any
differences.

The major attributes which are not compared are:

      - Owner
      - Authorizations
      - Text description
      - Create date and time

A typical command would be:

             CMPJRNA   FROMJRN(xxx) TOJRN(yyy)

A spooled file would be created with any differences shown.

An  option exists to send  an escape message if  differences exist.  An
option exists to delete the spooled file if no differences exist.

Most of  the  attributes (but  not  all) are  compared.   CMPJRNA  uses
RTVJRNA and is limited to the attributes returned on RTVJRNA.

CMPJRNA escape messages you can monitor for
-------------------------------------------

      TAA9895    Differences exist (optional based on ESCAPE parm)

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

Differences with CMPJRNINF
--------------------------

CMPJRNA compares  the attributes  of two journals  on the  same system.
Only  the journal  object attributes of  the journal  are compared (not
the journal receiver attributes).

CMPJRNINF compares  the  attributes  of  two  journals  from  different
systems.   The CVTJRNINF  command must  be run for  each journal  to be
compared.   Both the journal attributes and  the major journal receiver
attributes of the first  attached journal receiver  are compared.   You
may also use CMPJRNINF  to compare the attributes from  two journals on
the same system.

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

   FROMJRN       The  qualified   name  of  the  From   Journal  to  be
                 compared.    The  library  value  defaults  to  *LIBL.
                 *CURLIB may also be used.

   TOJRN         The qualified name of  the To Journal to  be compared.
                 The default  is *FROMJRN  meaning the same  Journal as
                 in   the  FROMJRN   parameter.    The   library  value
                 defaults to blanks.  If  no name is entered, *LIBL  is
                 assumed.  *CURLIB may also be used.

   ESCAPE        Whether  to  send  an escape  message  if  differences
                 exist.   The default  is *NO which  means a completion
                 message is sent.

                 *YES may be specified  to send TAA9895 if  differences
                 exist.

   DLTSPLF       Whether to  delete the  spooled file  if there are  no
                 differences.     The  default  is   *YES  meaning  the
                 spooled  file is deleted if  no differences are found.
                 The spooled  file is  always  retained if  differences
                 exist.

                 *NO  may be specified  to ensure  a spooled  file will
                 exist  regardless  of  whether  differences  exist  or
                 not.

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

Most of  the  attributes (but  not all)  are  compared.   CMPJRNA  uses
RTVJRNA and is limited to the attributes returned on RTVJRNA.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     EDTVAR          Edit variable
     RTVJRNA         Retrieve journal attributes
     RTVSYSVAL3      Retrieve system value 3
     SNDCOMPMSG      Send completion message
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   CMPJRNA       *CMD                   TAAJRNV       QATTCMD
   TAAJRNVC      *PGM       CLP         TAAJRNVC      QATTCL
   TAAJRNVR      *PGM       RPG         TAAJRNVR      QATTRPG