The Compare Data  Base Formats command compares the  format information
between  two  data  base  files.    If  the formats  differ,  a  detail
comparison  of each field  occurs.  This  can be helpful  when you have
created a program using one  file and execute against a  different file
that is supposed to be identical and a level check occurs.

A typical command would be:

             CMPDBFFMT    FROMFILE(xxx) TOFILE(yyy)

A spooled  file is  output describing the  format name,  record length,
number of fields, level ID, and text description of each file.

If  some  difference exists,  a  comparison of  each field  in  the two
formats is made and the mismatch described.

Only single format files are supported.

A maximum  of  998  fields in  a  file  are supported  for  the  detail
listing.

CMPDBFFMT escape messages you can monitor for
---------------------------------------------

      TAA9891    A mismatch exists.

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

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

   FROMFILE      The  qualified name  of the  From file.   The  library
                 value  defaults to *LIBL.   *CURLIB may  also be used.

   TOFILE        The qualified  name  of  the To  file.    The  library
                 value defaults  to *LIBL.   *CURLIB may also  be used.

   OUTPUT        How  to output the  results.   The default is  * which
                 means  that no spooled file  is created if the formats
                 are  identical.   If  the  formats differ,  a  spooled
                 file is output.

                 *PRINT  may be  specified  to always  cause a  spooled
                 file to be created.

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

See previous comments.

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

The following TAA Tools must be on your system:

     ADJVAR          Adjust variable
     CHKOBJ3         Check object 3
     RTVFLDARR       Retrieve field array
     RTVFMT          Retrieve format
     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
   ------        ----    ---------      ----------    ----------

   CMPDBFFMT     *CMD                   TAADBIS       QATTCMD
   TAADBISC      *PGM       CLP         TAADBISC      QATTCL
   TAADBISR      *PGM       RPG         TAADBISR      QATTRPG