The Check  Password Block command  provides a  similar function as  the
system  V6R1  support to  control  users who  attempt  to change  their
password  too frequently.   The system  supports checking  with the use
of CHGPWD,  but  not  with CHGUSRPRF.    CHKPWDBLK  is intended  to  be
placed in a  program that uses CHGUSRPRF to  change passwords, but also
wants  to ensure  infrequent  changes.   TAA9897 is  sent as  an escape
message if the time limit has not passed.

CHKPWDBLK may  check any  profile, but  defaults to  check the  current
user profile.  The simple version could be entered as:

             CHKPWDBLK

System support
--------------

To  prevent  a   user  from  making  a  change  to   his  password  too
frequently,  the system added the  PWDCHGBLK parameter to CRT/CHGUSRPRF
in V6R1.    The  default  for  CRTUSRPRF  is  PWDCHGBLK(*SYSVAL)  which
refers to  the QPWDCHGBLK system  value.  Either  a number of  hours (1
to 99) or *NONE may be specified.

The intent of  the CHKPWDBLK command is to be  issued in a program that
sets  a  new  password  using CHGUSRPRF,  but  still  wants  to prevent
excessive password  changing.   CHKPWDBLK  is not  needed  if only  the
system CHGPWD command is used for changing passwords.

CHKPWDBLK escape messages you can monitor for
---------------------------------------------

      TAA9897    The time limit to allow change has not been reached

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

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

   USRPRF        The  user profile  name to  be checked.    *CURRENT is
                 the default.

                 A  specific user  profile name  may be entered  if the
                 current  user  has   *READ  authority   to  the   user
                 profile.

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

A specific  user profile name  may be entered  if the current  user has
*READ authority to the user profile.

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

The following TAA Tools must be on your system:

     ADDDAT          Add date
     CVTTIM          Convert time
     EDTVAR          Edit variable
     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

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

None.

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

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

   CHKPWDBLK     *CMD                   TAASEHT       QATTCMD
   TAASEHTC      *PGM       CLP         TAASEHTC      QATTCL