The PRTSRCF command  defaults to print a  source member on a  page that
is 8  1/2 inches wide.   This differs  from the CPYSRCF  command or the
SEU  printed output which print a  wider listing.  The sequence numbers
are printed on  the left of  the source statement.   Only the first  72
columns  of source  are  printed.   The  statement change  date is  not
printed by default.

PRTSRCF  provides a simple solution for  printing listings that will be
filed or presented to other people.

The command allows an easy entry  of *CL, *RPG, etc.  to designate  the
standard system  supplied source  file names.   The  spooled file  name
will be the name of the member printed.

A typical command would appear as follows:

     PRTSRCF         MBR(xxxx) MBRTYPE(*RPG)

An  option exists to  print the source  statement change date.   If you
take this option, the printed  output line is 132 characters  including
110 bytes of source.

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

   MBR           The member to be printed.

   SRCFILE       The  qualified  source  file  containing  the  member.
                 The  special entries of  *CL, *RPG  etc.  may  be made
                 to  designate  the  standard  system  supplied  source
                 files.  The library qualifier defaults to *LIBL.

   OUTQ          The  qualified  output queue  name  where  the  output
                 should  be spooled  to.   The  default is  *JOB.   The
                 library  qualifier  defaults  to  *LIBL  (if  *JOB  is
                 specified, the value is ignored).

   CHGBARS       If change bars  are desired,  this is a  6 digit  date
                 field in  job format to  use for a  comparison against
                 the source  statement change date.   A change bar will
                 print if the parameter date  is less than or equal  to
                 the source statement date.

                 *NONE is  the default  which does  not print a  change
                 bar.

                 *TODAY may  be entered which  is the same  as entering
                 the current date in job format.

                 The  format of the output is  shifted to the right two
                 characters  if  a  CHGBARS  date  is  entered.    This
                 allows  you to  easily  see the  statements that  have
                 been changed if you are using DSPSPLF.

                 The  command recognizes when the  CHGBARS date and the
                 source  date  are  in  different  centuries  and  acts
                 appropriately.

   CHGBARCHAR    The  change bar  character  that  will be  printed  if
                 change bars are requested.  An '*' is the default.

   PRTCHGDAT     A  *YES/*NO value  that  determines if  the individual
                 source change date  will print and  a 132 wide  format
                 will be  used.  *NO  is the  default which will  cause
                 output designed for 8 1/2 inch wide output.

                 If *YES is specified, the output is 132 wide.

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

None.

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

The following TAA Tools must be on your system:

           EDTVAR        Edit variable
           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
   ------        -----      ---------      ----------     -----------

   PRTSRCF       *CMD                      TAASRCJ        QATTCMD
   TAASRCJC      *PGM          CLP         TAASRCJC       QATTCL
   TAASRCJR      *PGM          RPG         TAASRCJR       QATTRPG