The Retrieve IPL  status command returns information about  the current
IPL  such as  the date  and time,  the  controlling subsystem,  and the
status.    RTVIPLSTS  brings  together  in  one  command  the important
information about the current IPL.

A typical command would be:

             DCL        &IPLSTS *CHAR LEN(1)
             DCL        &CTLSBSD *CHAR LEN(10)
              .
             RTVIPLSTS  IPLSTS(&IPLSTS) CTLSBSD(&CTLSBSD)

The IPLSTS value has the same value as the QIPLSTS system value.

RTVIPLSTS escape messages you can monitor for
---------------------------------------------

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

Authorization
-------------

To  retrieve  job  information  about  another  job   requires  *JOBCTL
special authority.   To avoid authorization errors, the  CPP adopts the
QSECOFR profile.  No known security exposures exist.

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

   IPLSTS        The  value from the QIPLSTS system  value.  This is an
                 optional  return  variable  that   if  used  must   be
                 specified as *CHAR LEN(1).

                 The values  returned are 0=Operator panel,  1=Auto IPL
                 after  power restored,  2=Restart  IPL, 3=Time  of day
                 IPL, and 4=Remote IPL.

   IPLDATE       The date of the IPL in  CYYMMDD format.  The date  the
                 SCPF job  started is used  as the IPL  date.  This  is
                 an  optional  return variable  that  if  used must  be
                 specified as *CHAR LEN(7).

   IPLTIME       The  time of the  IPL in HHMMSS format.   The time the
                 SCPF job  started is used  as the IPL  time.  This  is
                 an  optional  return variable  that  if  used must  be
                 specified as *CHAR LEN(6).

   QABNORMSW     The  value  from the  QABNORMSW system  value  for how
                 the previous IPL  ended.  This  is an optional  return
                 variable  that if  used  must  be specified  as  *CHAR
                 LEN(1).

                 The values returned are 0=Normal and 1=Abnormal.

   CTLSBSD       The  current  controlling  subsystem.    The  QCTLSBSD
                 System Value  describes the  subsystem to  be used  on
                 the  next IPL.    Instead of  this  System Value,  the
                 name   of   the  current   controlling   subsystem  is
                 returned.   This  is an optional  return variable that
                 if used must be specified as *CHAR LEN(10).

   CTLSBSDLIB    The current  controlling subsystem library.   This  is
                 an  optional  return variable  that  if  used must  be
                 specified as *CHAR LEN(10).

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

Because  the command  returns variables, it  can only  be used  in a CL
program.

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

The following TAA Tools must be on your system:

     CVTDAT2         Convert date 2
     RTVACTSBS       Retrieve active subsystem
     RTVJOBSTRA      Retrieve job start attributes
     RTVJOBSTS       Retrieve job status

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

None, the tool is ready to use.

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

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

   RTVIPLSTS     *CMD                   TAASYTA       QATTCMD
   TAASYTAC      *PGM       CLP         TAASYTAC      QATTCL