The  Change Initial  Program  command  checks  or changes  the  initial
program  in  one,  generic,  all  user  profiles, or  in  the  profiles
belonging  to a group profile.  System  profiles are never changed.  An
existing initial  program may  be named  to ensure  that only  specific
changes  are  made.    The  current  initial program  value  may  be  a
specific initial program, *ANY, or *NONE.

You  must  have both  *ALLOBJ and  *SECADM  special authorities  to use
CHGINLPGM.

A typical command would be:

             CHGINLPGM     USRPRF(ABC*) CURINLPGM(LIB1/PGM1)
                             NEWINLPGM(xxx/yyy)

By default, no  changes would occur.   A listing  would be produced  of
all ABC profiles.   Those profiles that  specified PGM1 in LIB1  as the
initial   program  would   be  flagged   as   'would  be   changed'  if
ACTION(*YES) had been  specified.  Using  ACTION(*CHANGE) would  change
the profiles.

Another typical example would be:

             CHGINLPGM     GRPPRF(GROUP9) CURINLPGM(*ANY)
                             NEWINLPGM(xxx/yyy)

All profiles  that are  members of  the GROUP9 group  profile would  be
checked.   By default,  no changes  would occur.   All profiles  in the
group  would be flagged as 'would  be changed' if ACTION(*YES) had been
specified.

CHGINLPGM escape messages you can monitor for
---------------------------------------------

      TAA9893    No profiles were found to be considered

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

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

   USRPRF        The user  profile name to  be checked  or changed.   A
                 specific name,  a generic  name, or the  special value
                 *ALLUSR  may be entered.  Either  USRPRF or GRPPRF may
                 be entered, but not both.

   GRPPRF        The group profile name to  be used to check or  change
                 the members  of the  group.   Either USRPRF or  GRPPRF
                 may be entered, but not both.

   CURINLPGM     The  current   initial  program.    A  value  must  be
                 entered.

                 *ANY  may  be  used   meaning  any  existing   initial
                 program  or if  the initial  program  is specified  as
                 *NONE.

                 *NONE may  be used to  mean any user  profile that has
                 an initial program of *NONE.

                 A   specific  initial  program  may  be  entered.    A
                 specific library name  may be  entered or the  special
                 values *LIBL or *CURLIB.

   NEWINLPGM     The new initial program.  A value must be entered.

                 *NONE  may be used  to mean  that the  initial program
                 should be set to *NONE.

                 A  specific program name  may be entered.   A specific
                 library name  may  be entered  or the  special  values
                 *LIBL or  *CURLIB.  If *LIBL  or *CURLIB is  used, you
                 must  ensure that the  program can  be found according
                 to the  other  user  profile  specifications  (library
                 list and current library).

   ACTION        The  action  to  be taken.    The  default  is  *CHECK
                 meaning  that   no  changes  occur.     A  listing  is
                 produced   on  the  basis  of   what  would  occur  if
                 ACTION(*CHANGE) had been specified.

                 *CHANGE may  be entered to  change any profiles  based
                 on the criteria specified.

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

You  must have  both *ALLOBJ  and  *SECADM special  authorities to  use
CHGINLPGM.

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

The following TAA Tools must be on your system:

     CHKGENERC       Check generic
     CHKGENOBJ       Check generic object
     CHKOBJ3         Check object 3
     CVTGRPPRF       Convert group profiles
     EDTVAR          Edit variable
     RSNALLMSG       Resend all messages
     RTVIBMPRF       Retrieve IBM profiles
     RTVPWDSTS       Retrieve password status
     RTVSPCAUT       Retrieve special authority
     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
   ------        ----    ---------      ----------    ----------

   CHGINLPGM     *CMD                   TAASEGB       QATTCMD
   TAASEGBC      *PGM       CLP         TAASEGBC      QATTCL
   TAASEGBR      *PGM       RPG         TAASEGBR      QATTRPG