The Update PFILE  in DDS source  command causes the PFILE  statement in
a  LF source  member to  be changed.   This  can simplify  batch create
steps  involving logical files  where different libraries  are used.  A
qualified name is supported.

Assume you have a batch  create process that creates the  physical file
FILEA  and the  logical file  FILEAL  in a  specific library.   If  you
already  have a FILEA physical  file on the library  list, it is likely
that the new FILEA will be built over the wrong file.

By changing the  LF source PFILE  keyword before using  CRTLF, you  can
cause the logical to be built over the proper physical.

A typical command would be:

             UPDPFILE   SRCFILE(QDDSSRC) MBR(xxx)
                          PFILE(LIBX/FILEA)

The member  must be a LF  or LF38 source  type.  The letters  PFILE are
searched in  the source beginning at position  45 of the statement (the
P  must  be  in  position  45).    Only  the  first  PFILE  keyword  is
considered.  The command  ensures that no other keywords  (or comments)
appear in the same keyword area of the PFILE statement.

The  source statement  is  changed to  match  what was  entered  on the
command.

The  following  are examples  of valid  existing PFILE  statements that
can be changed:

     A          R xxx                       PFILE(ABC)
     A          R xxx                       PFILE(LIB1/ABC)
     A          R xxx                       PFILE(*LIBL/ABC)

The following are invalid conditions:

     A          R xxx                          PFILE(ABC)
     A          R xxx                       PFILE(ABC) TEXT('..')

If *LIBL is  used as the  PFILE library qualifier,  a simple name  such
as PFILE(ABC) is used.

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

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

   MBR           The member to  be changed.   It must be  a LF or  LF38
                 source type.

   PFILE         The qualified  name of  the PFILE to  be used.   *LIBL
                 is  the default for  the library qualifier.   If *LIBL
                 is used, a non-qualified name  is used for the  PFILE.

                 The PFILE  keyword must  begin in  position 45 of  the
                 source.   There can be  no other keywords  or comments
                 on  the same statement.   Only the first PFILE keyword
                 is changed.

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

Valid DDS LF source must exist.

See previous comments.

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

The following TAA Tools must be on your system:

     CHKOBJ3         Check object 3
     EDTVAR          Edit variable
     HLRMVMSG        HLL Remove message
     SNDCOMPMSG      Send completion message
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   UPDPFILE      *CMD                   TAASRDS       QATTCMD
   TAASRDSC      *PGM       CLP         TAASRDSC      QATTCL
   TAASRDSR      *PGM       RPG         TAASRDSR      QATTRPG