The  Print  Journal  Receiver  command  prints  a  listing  of  journal
receivers and allows  a minimum size.  The size  of each is shown along
with  the attach  and detach  date.   This provides  a simple  means of
reviewing large  journal  receivers.   Selection  may  be made  on  the
start and end date of attachment.

A typical command would be:

             PRTJRNRCV     JRNRCV(*ALL/*ALL) MINSIZ(5000000)

This  would print  a listing  of all  journal receivers  on  the system
that  have  a size  of  5 million  bytes  or  greater.   If  no journal
receivers meet the minimum size, the command completes normally.

A total occurs for each journal and a summary by library.

You must have *ALLOBJ special  authority to use a library qualifier  of
*ALL or *ALLUSR.

PRTJRNRCV escape messages you can monitor for
---------------------------------------------

      TAA9893    No journal receivers exist.

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

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

   JRNRCV        The  qualified  name  of  the  journal  receiver.    A
                 specific  name,   a  generic  name,  or  *ALL  may  be
                 entered.  The library  qualifier defaults to *ALL  for
                 all libraries.   A specific library may be  entered or
                 the  special values  *LIBL,  *USRLIBL,  *CURLIB, *ALL,
                 or *ALLUSR.

                 You  must  have  *ALLOBJ special  authority  to  use a
                 library qualifier of *ALL or *ALLUSR.

   STRDATE       The  start date  to  be  used to  select  against  the
                 attach  date of a  journal receiver.   The  default is
                 *BEGIN  meaning the earliest  attach date.   A date in
                 job format may be entered.

   ENDDATE       The end date to be  used to select against the  attach
                 date  of a  journal  receiver.   The  default is  *END
                 meaning  the  most  current  date  attach  date  of  a
                 journal receiver.    A  date  in  job  format  may  be
                 entered.

   MINSIZ        The  minimum  size journal  receiver  to  be  printed.
                 The default is 0 to print all journal receivers.

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

You must  have *ALLOBJ special authority to use  a library qualifier of
*ALL or *ALLUSR.

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

The following TAA Tools must be on your system:

     CHKALLOBJ       Check *ALLOBJ special authority
     CVTDAT          Convert date
     EDTVAR          Edit variable
     RTVJRNRCVA      Retrieve journal receiver attributes
     RTVSYSVAL3      Retrieve system value 3
     SNDCOMPMSG      Send completion 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
   ------        ----    ---------      ----------    ----------

   PRTJRNRCV     *CMD                   TAAJROC       QATTCMD
   TAAJROCC      *PGM       CLP         TAAJROCC      QATTCL
   TAAJROCC2     *PGM       CLP         TAAJROCC2     QATTCL
   TAAJROCR      *PGM       RPG         TAAJROCR      QATTRPG

Structure
---------

PRTJRNRCV   Cmd
   TAAJROCC   CL pgm
     TAAJROCR   RPG Pgm
       TAAJROCC2  CL pgm - Does RTVJRNRCVA