The Check Restricted State  command determines if the system  is in the
restricted state.   CPF9898 is sent as an  escape message if the system
is not in the restricted state.

A completion message is sent if the restricted state exists.

A typical set of commands would be:

             CHKRSDSTE
             MONMSG       MSGID(CPF9898) EXEC(DO) /* Not rstd */
              .
             ENDDO        /* Not in restricted state */

Note  that the check is  against the 'system state'  and not the status
of the  controlling  subsystem.   It is  possible  for the  controlling
subsystem  to be  in a  status  of RSTD,  but if  other subsystems  are
active, the system will not be in the restricted state.

Additional  parameters exist so  that you can check  periodically for a
certain number of  attempts.  For  example, to check  every 60  seconds
and  at the  end of  5  minutes to  receive  an escape  message if  the
restricted state had not been reached, you would specify:

             CHKRSDSTE     DLY(60) LOOP(5)

The  advantage of this type  of coding is that  if the restricted state
is reached  in less  than 5  minutes, the  next instruction  can  begin
without waiting the full 5 minutes.

An optional  data area may  be updated  with the date  and time in  the
format  CYYMMDDHHMMSS.    The  data  area  must  be  created  as  *CHAR
LEN(13).

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

   DLY           The  number of seconds  to delay before  testing.  The
                 default is 0.

   LOOP          The number of  times to loop  on the DLY value  before
                 sending the escape  message.  The default is  0.  If a
                 value  other than 0  is entered, the  DLY value cannot
                 be 0.

                 If the restricted  state has  been reached before  the
                 loop count is met, the command ends normally.

   DTAARA        The  qualified name  of the  data area  to be  updated
                 with  the CYYMMDDHHMMSS  value  of when  CHKRSDSTE was
                 last  used   and  determined   the  restricted   state
                 existed.

                 The default  is  *NONE meaning  no data  area will  be
                 updated.

                 If  a data area  is named,  it must have  been created
                 as *CHAR LEN(13).

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

None.

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

None.

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

None, the tool is ready to use.

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

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

   CHKRSDSTE     *CMD                   TAAJOCB       QATTCMD
   TAAJOCBC      *PGM       CLP         TAAJOCBC      QATTCL