Each source  member has  a date  of last  change at  the member  level.
This date  is changed by a  variety of functions and  may not represent
the  last time the  source was actually  changed.  For  example, if you
copy source or restore the source the date will be changed.

Sometimes it is  desirable to know  the date of  actual last change  by
SEU.

Each source  record contains the  date of change  (positions 1 -  6) as
set  by SEU.   When a member  is copied or restored,  this date remains
the same.

During the use of  SEU, you cannot change  the date field (SEU  changes
it for  you).   While SEU  is normally the  only function  that changes
the date,  a program can be  written to do so.   The TAA Tool CHGSRCDAT
is an example of this.

The RTVLSTCHG command  can be  used to retrieve  the oldest  date in  a
source  member.   The  RTVLSTCHG  command returns  this  date to  a  CL
program.  A typical command would be entered as:

        RTVLSTCHG     SRCFILE(QCLSRC) MBR(XXX) LSTDATE(&LSDATE)

Other  parameters   are  also  available   to  return  the   number  of
statements  in the  member, the  total number  of statements  that were
changed on the last date  and the first 5 statements that  were changed
on that date.

A companion  command is DSPLSTCHG which  will display the date  of last
change  and the  first 5  source statements that  were changed  on that
date.  A typical command would be entered as:

        DSPLSTCHG     SRCFILE(QCLSRC) MBR(XXX)

This displays the information which  is available as return  parameters
including  the first  5 statements  that were  changed on  the date  of
last change.

RTVLSTCHG command parameters                          *CMD
----------------------------

   SRCFILE       The   qualified  source   file  name.     The  library
                 defaults to *LIBL.

   MBR           The member name.

   LSTDATE       The last  date  from  the  source  statements  when  a
                 statement was  changed.   A return  variable of  *CHAR
                 LEN(6) in the form YYMMDD.

   SEQNBR        The  sequence number of  the first statement  with the
                 last   change  date.    A  return  variable  of  *CHAR
                 LEN(6).

   LSTCNT        A  count  of  the  number  of  statements   that  were
                 changed on  the last change  date.  A  return variable
                 of *DEC LEN(5 0).

   RCDCNT        A  count of the  number of  records in the  member.  A
                 return variable of *DEC LEN(5 0).

   RTNLIB        The library  name where  the file  was  found in  case
                 *LIBL  was specified  for  the SRCFILE  parameter.   A
                 return variable of *CHAR LEN(10).

   TEXTTYPE      A  *YES/*NO   value  for  whether  the  source  member
                 contains the additional information  that is added  to
                 a member  by S/39 Text  Management command EDTTXT.   A
                 return variable of *CHAR LEN(4).

   STMT1         The first  statement of the last changed  date.  It is
                 an  86 byte character variable  with the first 6 bytes
                 the source  sequence number  and  the last  80 is  the
                 statement.   The  other STMTn  parameters are  similar
                 for  up to 5 statements that  were changed on the same
                 day.  If  less than 5  were changed on  the same  day,
                 the corresponding STMTn parameter will be blank.

   STMT2         The 2nd statement of the last changed date.

   STMT3         The 3rd statement of the last changed date.

   STMT4         The 4th statement of the last changed date.

   STMT5         The 5th statement of the last changed date.

DSPLSTCHG command parameters                          *CMD
----------------------------

   SRCFILE       The  qualified   source  file   name.     The  library
                 defaults to *LIBL.

   MBR           The member name.

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

  **   Note  that only new  or changed  specifications are shown.   Any
       deleted specifications are not in  the member and are  therefore
       not considered.

  **   The  information  is  dependent  on  the  use  of  SEU  and  any
       programs that modify the date field.

  **   The  RTVLSTCHG  command   returns  variables  and  can  only  be
       executed in a CL program.

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

The following TAA Tools must be on your system:

          SNDESCMSG       Send escape message

Implementation
--------------

None, the tool is ready to use.

Objects used by the tool
------------------------

   Object        Type       Attribute      Src member     Src file
   ------        -----      ---------      ----------     -----------

   RTVLSTCHG     *CMD                      TAASRCM        QATTCMD
   DSPLSTCHG     *CMD                      TAASRCM2       QATTCMD
   TAASRCMD      *FILE         DSPF        TAASRCMD       QATTDDS
   TAASRCMC      *PGM          CLP         TAASRCMC       QATTCL
   TAASRCMC2     *PGM          CLP         TAASRCMC2      QATTCL
   TAASRCMR      *PGM          RPG         TAASRCMR       QATTRPG

Structure
---------

RTVLSTCHG
  TAASRCMC   CL
    TAASRCMR   RPG

DSPLSTCHG
  TAASRCMC2   CL
    TAASRCMR    RPG
      TAASRCMD     DSPF