The Clear  Generic  Source command  clears generic  members  in one  or
more  source files  in a  specified library.    Special values  such as
*STD  may be  used for  the source file  name to  clear generic members
from  source  files such  as  QCLSRC  and  QCMDSRC.    The  default  is
ACTION(*CHECK) which  describes in messages  the members that  would be
cleared.

A typical command would be:

             CLRGENSRC GENNAME(ABC) SRCFILE(LIB1/*STD) ACTION(*CLEAR)

All  member  names  beginning  with  ABC  would  be  cleared  from  the
standard source files  in library LIB1.   See the  discussion with  the
PRTSRCTYP tool for the source file names that would be checked.

Messages  would be  sent for  each member  cleared or  any errors  that
occurred.

CLRGENSRC escape messages you can monitor for
---------------------------------------------

      TAA9891    No members or generic member names were found
      TAA9892    No source files exist of the named type
      TAA9893    Some members cleared but errors were found
      TAA9896    More than 999 source files exist
      TAA9897    No source files exist

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

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

   GENNAME       The   generic  name  of  the   source  members  to  be
                 cleared.  The name  would normally be entered  without
                 a trailing *, but  is limited to 9 characters  if this
                 format is used.  A trailing * may be entered.

                 Note  that a  single  member name  cannot  be cleared.
                 It is always a generic name.

   SRCFILE       The  source file to  be cleared.   A specific name may
                 be entered or  one of the  special values *ALL,  *STD,
                 *SRC1, *SRC2, *SRC3, *QATT, or *QATT2.

                 *ALL may  be entered to  mean all source files  in the
                 library.

                 *STD  may  be specified  to mean  the  standard source
                 file names associated with  source types described  in
                 system  help  text.   Only  those  source  files  that
                 exist  and  match  those  described  by the  PRTSRCTYP
                 tool  will  be  checked.    See  the  discussion  with
                 PRTSRCTYP.

                 *SRC1, *SRC2,  and *SRC3  mean that  a data area  must
                 exist on  the library list by  the corresponding names
                 of  SRCLST1, SRCLST2,  and SRCLST3.   These data areas
                 must contain  the  name  of  the source  files  to  be
                 checked.   Only source files that exist  and match one
                 of  those  found in  the  data area  will  be checked.
                 See the discussion with the CRTSRCFLST tool.

                 *QATT or  *QATT2 may  be specified  to  mean the  only
                 files  checked  must  match  those  described  in  the
                 RTVQATTF  TAA Tool.   This is  either a short  or long
                 list of QATTxxx source file  names.  Use the  PRTQATTF
                 command for a listing of the files.

                 The  library value  defaults  to  *LIBL.   A  specific
                 library or *CURLIB may also be used.

   ACTION        Whether  to clear  the  members or  only  report those
                 that would be cleared.

                 *CHECK  is  the  default  to  only  list  messages for
                 those members that would be cleared.

                 *CLEAR  may   be  specified   to  clear  the   generic
                 members.   A message is  sent for each member  that is
                 cleared.


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

If  SRCFILE(*ALL)  is  specified,  a maximum  of  999  source  file may
exist.  Exceeding the value causes a TAA9896 escape message.

A maximum of 900 members in  any one source file can match the  generic
name.  Only the first 900 are returned.

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

The following TAA Tools must be on your system:

     CHKGENERC       Check generic
     CHKOBJ3         Check object 3
     EDTVAR          Edit variable
     RSNLSTMSG       Resend last message
     RTVDBFA         Retrieve data base file attributes
     RTVLIBSRCF      Retrieve library source files
     RTVMBRLST       Retrieve member list
     SNDCOMPMSG      Send completion message
     SNDESCINF       Send escape information
     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
   ------        ----    ---------      ----------    ----------

   CLRGENSRC     *CMD                   TAADBNP       QATTCMD
   TAADBNPC      *PGM       CLP         TAADBNPC      QATTCL