TAA Tools
CHGSRCFLEN      CHANGE SOURCE FILE LENGTH              TAASREK

The Change  Source File Length  command converts  one, generic, or  all
source files in  a library to a source file  length that is larger than
the  current length.   The typical conversion  is 92 to  112.  The same
text,  owner, and  authorities  are  retained.    All  existing  source
members  are copied.   Conversion  to shorter  lengths is  valid  if no
data will be truncated.

You must have all rights to any file being converted.

A typical command would be:

             CHGSRCFLEN    SRCFILE(*ALL) LIB(xxx) LENGTH(112)

All  source files  in the  library would  be converted  to a  length of
112.  All existing members would be copied to the new file.

If any source file is already at  a length of 112, it is not  converted
and  the command  completes normally.   If  any source  file is  larger
than  112, the source statements  are checked to see  if any data would
be truncated.  If  so, the change is  rejected and a listing  describes
those statements which would be truncated.

The original text and maximum number of members are retained.

The processing attempts to retain  the same owner of the file.   If the
user of  the command is not  the owner of the file,  ownership can only
be  changed if the user has  *USE rights to the  new owner profile.  If
the user  of  the command  does  not have  *USE  rights to  the  owners
profile, conversion  occurs, but the command  completes abnormally with
a message describing the error.

CPYSRCF  is  used  internally  which will  make  the  source  appear as
changed from both  a SAVCHGOBJ perspective and  the 'last change  date'
normally used  to determine if the  source matches the  program object.

The  last changed date associated  with each source  statement does not
change.

CHGSRCFLEN escape messages you can monitor for
----------------------------------------------

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

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

   SRCFILE       The name  of  the source  file  to be  converted.    A
                 specific  name,  a  generic  name,  or  *ALL  for  all
                 source files in a library may be entered.

   LIB           The  library   containing  the  source   files  to  be
                 converted.   QTEMP may  not be used  because it is not
                 in the  system file  that  is read  to determine  what
                 files exist.

   LENGTH        The  length of the  new source  files.   It must  be a
                 value from 92 to 240.  The default is 112.

                 If  the existing  source  file has  a length  equal to
                 that specified, no conversion  occurs and the  command
                 completes normally.

                 If the existing  source file has a  length larger than
                 than  length  specified,  the  source  statements  are
                 checked to see  if any  data would be  truncated.   If
                 so, the  change is  rejected and  a listing  describes
                 those  statements which  would  be truncated.    If no
                 source data will be truncated, the change occurs.

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

You must have all rights to any file being changed.

To  change ownership  of the  new file, you  must have  'use' rights to
the owning profile.

The original source files must have been created with CRTSRCPF.

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

The following TAA Tools must be on your system:

     CHKGENERC       Check generic
     CHKOBJ2         Check object 2
     CHKOBJ3         Check object 3
     CVTLIBDBF       Convert library data base file
     DUPAUT          Duplicate authority
     EDTVAR          Edit variable
     FILEFDBCK       File feedback
     HLRMVMSG        HLL Remove message
     PRINT           Print
     RSNLSTMSG       Resend last message
     RTVDBFA         Retrieve data base file attributes
     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
   ------        ----    ---------      ----------    ----------

   CHGSRCFLEN    *CMD                   TAASREK       QATTCMD
   TAASREKC      *PGM       CLP         TAASREKC      QATTCL
   TAASREKR      *PGM       RPG         TAASREKR      QATTRPG
					

Added to TAA Productivity tools June 1, 2002


Home Page Up to Top