The Update PFILE 2  command updates one or more LF  source type members
to  change  the PFILE  keyword  to  a library  qualified  value.   This
allows  the source  to be  changed to  indicate that  the LF  should be
built over a PF in a  specific library.  If the existing  physical file
is  on the  library list,  attempting to  create the  new  logical file
over  a copy  of the  physical can  often result  in the  logical being
built over the wrong physical file.

LF38  type  members  are  not  changed  nor  are  source  members  with
multiple PFILE  keywords.  The entire  PFILE keyword must  be contained
in a single source statement.

Assume you  have a data base structure with a  physical and one or more
logical files in  library ABC  along with a  QDDSSRC file  in the  same
library with the  corresponding source.   You want to create  a similar
structure in library DEF.

You begin  by creating a QDDSSRC  file in DEF and then  copying the DDS
source  for the file structure to  the new source file (CPYGENSRC could
be used).

Then use UPDPFILE2 to  change the LF source  to use a PFILE  keyword of
PFILE(DEF/file).

             UPDPFILE   LIBQLF(DEF) SRCMBR(*ALL)
                          SRCFILE(DEF/QDDSSRC)

Only LF  type source members would  be searched for in  the named file.
If  found, the  PFILE  keyword would  be scanned  for.   If  found, the
library qualifier would be added.  If the original PFILE keyword was:

              PFILE(FILEA)

It would be changed to:

              PFILE(DEF/FILEA)

Requirements
------------

The logical file source must have a single PFILE keyword.

The PFILE keyword  must begin in  position 45 of  the source  statement
and be the only keyword on the source statement.

Valid syntax must exist.

LF38 type  logical files  are not supported.   If  any exist,  they are
bypassed.

UPDPFILE2 escape messages you can monitor for
---------------------------------------------

      TAA9891    No LF source members were found
      TAA9892    Errors occurred.  See diagnostic messages.

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

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

   LIBQLF        The library qualifier to be used.

   SRCMBR        The  source  member  to be  changed.    A specific  or
                 generic name may  be used or  the special value  *ALL.

   SRCFILE       The  source  file  to be  changed.    The  default  is
                 QDDSSRC.   The  library qualifier  defaults  to *LIBL.
                 A  specific library may be  named or the special value
                 *CURLIB.


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

See the section on Requirements.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     CVTMBRLST       Convert member list
     EDTVAR          Edit variable
     RSNLSTMSG       Resend last message
     RTVDBFA         Retrieve data base file attributes
     SNDCOMPMSG      Send completion message
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message
     UPDPFILE        Update PFILE

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

None, the tool is ready to use.

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

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

   UPDPFILE2     *CMD                   TAADBNQ       QATTCMD
   TAADBNQC      *PGM       CLP         TAADBNQC      QATTCL
   TAADBNQR      *PGM       RPG         TAADBNQR      QATTRPG