The Check IBM  User Profile command allows  you to determine if  a user
profile is  a system created profile name.   The command returns a *YES
or  *NO  value.    Any profile  that  begins  with other  than  a  Q is
considered to be a user profile.

A typical series of commands would be entered as:

        DCL         &TYPE *CHAR LEN(4)
         .
        CHKIBMPRF   USRPRF(xxx) TYPE(&TYPE)
        IF          (&TYPE *EQ '*YES) DO ...

If the profile does  not exist, CPF9898 is  sent as an escape  message.

A  specific  list of  profile  names is  checked  for  (not just  those
starting  with the letter  Q).  For  a list of  the profiles considered
to be system created, see the TAASEFCC member:

        DSPTAA    TAASEFCC

If a Q* profile name exists and  is not in the list, the 'Create  User'
attribute is checked.   If the profile is created  by *IBM, QLPINSTALL,
or QLPAUTO, the profile is also considered to be a system profile.

A  *YES return  value  means that  the profile  is considered  to  be a
system created profile.

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

   USRPRF        The user profile name to be checked.

   TYPE          A return  value that  must be  coded as  *CHAR  LEN(4)
                 The values returned are *YES or *NO.

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

Because the  command returns a value,  it can only  be entered in  a CL
program.

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

The following TAA Tools must be on your system:

          RTVUSRPRF      Retrieve user profile
          SNDESCMSG      Send escape message

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

None, the tool is ready to use.

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

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

   CHKIBMPRF     *CMD                   TAASECR       QATTCMD
   TAASECRC      *PGM       CLP         TAASECRC      QATTCL