The Fix  Source Sequence Numbers  command searches for  invalid decimal
data  in  the sequence  number  positions (1-6)  of  source statements.
The  default  prints  a  report of  any  statements  that  have invalid
decimal data.    An option  allows updating  to  create valid  sequence
numbers.

A typical command would be:

             FIXSRCSEQ    SRCFILE(xxx/*ALL) MBR(*ALL)
                            OPTION(*CHECK)

All  source files  in the  named library  would be  determined  and all
source  members read.  Any source  statements with invalid decimal data
in the sequence number field would be listed.

If any  invalid conditions  exist, you  may correct  the problem  using
the  same  command  with  OPTION(*UPDATE).    An  alternative  form  of
correction  is  to use  PDM/SEU  and  cause a  source  statement  to be
changed.  When the source is  written back to the member, the  sequence
numbers will be corrected.

Note that if  you use a function such  as SEU, it will fix  any invalid
sequence numbers.

FIXSRCSEQ escape messages you can monitor for
---------------------------------------------

      TAA9894    You do not have proper authority to the file
      TAA9897    No source files exist in the library
      TAA9896    More than 999 source files exist in a library

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

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

   SRCFILE       The qualified  name of the source file  to be scanned.
                 The  default is  *ALL meaning  all source  files found
                 in the library.   The qualified library  name defaults
                 to *CURLIB.

                 *STD may be  entered for the source file  name to mean
                 all  the  system  source  files  such  as  QCLSRC  and
                 QRPGSRC.  For  a listing of  these, use the  PRTSRCTYP
                 tool.

                 *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 returned.
                 See the discussion with the CRTSRCFLST tool.

                 *QATT may  be entered to  mean the  source files  used
                 by  the  TAA  Productivity   Tools.    *QATT2  may  be
                 entered  to  mean all  the QATTxxx  source  file names
                 that exist  in  QUSRTOOL.   Use the  PRTQATTF  command
                 for a list of the files.

   MBR           The member to  be processed.  The default  is *ALL for
                 all members  in a file.  A  specific name or a generic
                 name may also be entered.

   OPTION        The type  of  processing to  occur.   The  default  is
                 *CHECK which  means that  only a  listing will  occur.
                 Only the  statements with invalid decimal  data in the
                 sequence  number positions  of source  statements will
                 be listed.  No source statements are changed.

                 *UPDATE may be entered  to cause both the  listing and
                 updating of  the existing source  to occur.   Only the
                 statements  with invalid decimal data  in the sequence
                 numbers  will  be   changed.     The  newly   assigned
                 sequence numbers will be listed.

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

Up  to 999  source  files  may exist  in  a  library if  processing  by
library.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     EDTVAR          Edit variable
     HLRMVMSG        HLL Remove messages
     RTVLIBSRCF      Retrieve library source files
     RTVMBRLST       Retrieve member list
     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
   ------        ----    ---------      ----------    ----------

   FIXSRCSEQ     *CMD                   TAASREO       QATTCMD
   TAASREOC      *PGM       CLP         TAASREOC      QATTCL
   TAASREOR      *PGM       RPG         TAASREOR      QATTRPG