The Print  Deleted Record  Numbers command  prints the relative  record
numbers  in a file/member  that are  deleted.   This can be  helpful in
determining the physical makeup of a file.

A typical command would be entered as:

        PRTDLTRCD   FILE(xxxx)

If  there  are  no  deleted  records  in  the  file,  the  command ends
normally with  no spooled output.   The  completion message states  the
condition.   This function  is achieved by  using RTVMBRD  and checking
the  return variable for the number of  deleted records.  If the number
is zero, the file is not read.

If deleted records  exist, the file is  read one record  at a time  and
the  file  feedback area  is  used  to  determine the  relative  record
number read.  Missing numbers are deleted records.

A spooled  output file is created  with the same name  as the data base
file.   The  listing contains  one  line  for each  series  of  deleted
records.  For  example, for each  deleted record (that is  not followed
by  another deleted record)  one line  prints.  If  consecutive deleted
records occur, one line prints with the number found.

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

   FILE          The  qualified file  name of  the file  to be checked.
                 The library value defaults to *LIBL.

   MBR           The member to be checked.  The default is *FIRST.

   PRTFILE       The qualified  name of  the  printer file  to use  for
                 output.  QPRINT in *LIBL is the default.

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

None.

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

The following TAA Tools must be on your system:

          SNDCOMPMSG     Send completion message
          SNDESCMSG      Send escape message
          SNDSTSMSG      Send status message

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

None, the tool is ready to use.

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

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

   PRTDLTRCD     *CMD                       TAADBFU       QATTCMD
   TAADBFUC      *PGM           CLP         TAADBFUC      QATTCL
   TAADBFUR      *PGM           RPG         TAADBFUR      QATTRPG