The Scan DDS  Source command scans  DDS source for various  values such
as a  string of text  in the Functions  field such as  the word 'JOIN'.
All  selection criteria  must be  met to print  a record.   The command
can be  helpful when  searching for  some  values that  have been  used
previously.

A typical command would be:

             SCNDDSSRC  SRCFILE(QDDSSRC) FUNCTIONS(JOIN)

A listing  would be displayed with  one line for each  member where the
string  'JOIN'  was found  in  the Functions  field.   The  string must
totally exist in  the same source record  (spanning two source  records
is not supported).

You may also scan for data type and use.

SCNDDSSRC escape messages you can monitor for
---------------------------------------------

      TAA9891    No members were found for the member name
      TAA9892    No matches found.

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

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

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

   MBR           The member name or generic name to be scanned.

                 *ALL is the default for all members in the file.

                 A generic or specific name may be entered.

   SRCTYPE       The source type to process.

                 *ALL is  the  default.    For a  list  of  the  source
                 types, use the prompter.

   NAME          The value to scan  the 'Name' field.  If  using SEU on
                 DDS source,  this is positions 19-28.   It may contain
                 the  format  name, a  field  name, a  key  field name,
                 etc.

                 *NONE is the default  meaning the name field  will not
                 be scanned.

   DATATYPE      The value  to scan  the 'Data type'  field.   If using
                 SEU on DDS source, this is position 35.

                 *NONE  is  the  default meaning  the  data  type field
                 will not  be scanned.   Use  the prompter  to see  the
                 supported values.

   USE           The value  to scan  the 'Use'  type field.   If  using
                 SEU on DDS source, this is position 38.

                 *NONE  is  the default  meaning the  'Use'  field will
                 not  be  scanned.    Use  the  prompter  to  see   the
                 supported values.

   FUNCTIONS     The value  to  scan the  'Functions' type  field.   If
                 using SEU  on DDS source, this is  positions 45-71, or
                 45-79 depending on the width of the source file.

                 *NONE@  is the  default meaning  the 'Functions' field
                 will not  be scanned.    Using *NONE@  as the  default
                 allows you  to scan for  the string '*NONE'  which may
                 appear in TEXT or COLHDG keywords.

   OUTPUT        How  to  output the  results.    * is  the  default to
                 display the  spooled file  if the  command is  entered
                 interactively.  The  spooled file is deleted  after it
                 is displayed  if it is ended with  F3/F12 or the Enter
                 key.   To retain  the spooled  file, you  may use  the
                 the System Request  'Cancel' function and  the spooled
                 file will exist in a HLD status.

                 If  the  command is  entered  in  batch  or *PRINT  is
                 specified,  the spooled  file is  output and retained.


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

The string for the  FUNCTIONS parameter must totally exist in  the same
source record (spanning two source records is not supported).

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     CVTDAT          Convert date
     CVTMBRLST       Convert member list
     EDTVAR          Edit variable
     HLRMVMSG        HLL Remove message
     RSNLSTMSG       Resend last message
     RTVSYSVAL3      Retrieve system value 3
     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
   ------        ----    ---------      ----------    ----------

   SCNDDSSRC     *CMD                   TAASRFJ       QATTCMD
   TAASRFJC      *PGM       CLP         TAASRFJC      QATTCL
   TAASRFJR      *PGM       RPG         TAASRFJR      QATTRPG