The Scan RPG  Edit Code command scans  RPG source for a  specified edit
codes or all  use of edit codes.  RPG, RPG  ILE, and RPG36 source types
are supported.

A typical command would be:

             SCNRPGEDT   EDTCDE(Y) MBR(*ALL) SRCFILE(QRPGSRC)

Either  a single  member, generic members,  or all members  in the file
may be scanned.   A list of up  to 10 edit codes  may be named or  *ALL
edit codes.

The  spooled output  will contain  one line  for each  source statement
found with the specified edit code which includes:

        - Member name
        - Source sequence number
        - Statement change date
        - First 100 bytes of the source statement

Scanning for a DDS Edit Code
----------------------------

A similar  function can be done for DDS  source by using the SCNSRC TAA
Tool.

             SCNSRC    FILE(xxx) ARGUMENT('EDTCDE(Y)')

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

   EDTCDE        The edit code or codes to  be scanned for.  A list  of
                 up to 10  edit codes may be  entered.  Any of  the RPG
                 edit  codes  or the  system  edit codes  (5-9)  may be
                 specified.  The special value  *ALL may be entered  to
                 cause any use of an edit code to be listed.

   MBR           The member to be  scanned.  Either a single  member, a
                 generic  name,  or  the  special  value *ALL  for  all
                 members in a file may be specified.

                 If  a generic name or *ALL  is specified, only the RPG
                 source types (OPM, ILE,  and RPG36) are checked.   The
                 other types are bypassed.

   SRCFILE       The  qualified file  name  of the  source  file.   The
                 file   defaults  to   QRPGSRC.    The   library  value
                 defaults to *LIBL.  *CURLIB may also be used.

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

None.

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

The following TAA Tools must be on your system:

     CHKGENERC       Check generic
     EDTVAR          Edit variable
     EXTLST2         Extract list 2
     HLRMVMSG        HLL Remove message
     RTVMBRLST2      Retrieve member list 2
     RTVSYSVAL3      Retrieve system value 3
     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
   ------        ----    ---------      ----------    ----------

   SCNRPGEDT     *CMD                   TAARPGM       QATTCMD
   TAARPGMC      *PGM       CLP         TAARPGMC      QATTCL
   TAARPGMR      *PGM       RPG         TAARPGMR      QATTRPG