The Retrieve  TCP Stack  Status command  retrieves TCP information  for
IPv4 and  IPv6.  Status  information such as  whether TCP is  active or
inactive  is available  for both  IPv4 and  IPv6.  Starting  and ending
information is also available for IPv4.

The API QtocRtvTCPA is used  to retrieve the information.  This  is the
same   information   as   seen   from   the   NETSTAT   command   using
OPTION(*STATUS).

The  Internet Protocol has two different  lengths of addresses that can
be used.  IPv4 means  4 bytes and IPv6  means 6 bytes.  Normally,  both
are active on the system.

A typical series of commands would be:

             DCL        &V4STS *CHAR LEN(10)
             DCL        &V6STS *CHAR LEN(10)
              .
             RTVTCPSTKS V4STS(&V4STS) V6STS(&V6STS)
             IF         ((&V4STS *EQ '*ACTIVE') *AND +
                          (&V6STS *EQ '*ACTIVE')) DO /* If active */
              .
             ENDDO      /* If active */

RTVTCPSTKS escape messages you can monitor for
----------------------------------------------

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

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

   V4STS         The  status of  TCP  for IPv4.    The values  returned
                 will  be  *ACTIVE,  *INACTIVE,  *STARTING,  *ENDINGIMM
                 (ending    immediate),    or    *ENDINGCTL     (ending
                 controlled).   This  is  an optional  return  variable
                 that if used must be specified as *CHAR LEN(10).

   V6STS         The  status of  TCP  for  IPv6.   The  values returned
                 will  be  *ACTIVE,  *INACTIVE,  *STARTING,  *ENDINGIMM
                 (ending    immediate),    or     *ENDINGCTL    (ending
                 controlled).   This  is  an  optional return  variable
                 that if used must be specified as *CHAR LEN(10).

   V4TIMACT      The  number of  seconds that  TCP has been  active for
                 IPv4.  This  is an  optional return  variable that  if
                 used must be specified as *DEC LEN(15 0).

   V4DATSTR      The date that  TCP was started for IPv4.   The date is
                 returned  in a YYYYMMDD  format.  This  is an optional
                 return variable  that if  used  must be  specified  as
                 *CHAR LEN(8).

   V4TIMSTR      The time that TCP  was started for IPv4.   The date is
                 returned  in a  HHMMSS format.    This is  an optional
                 return  variable  that if  used  must be  specified as
                 *CHAR LEN(6).

   V4DATEND      The date that  TCP was  ended for IPv4.   The date  is
                 returned in  a YYYYMMDD format.   This is  an optional
                 return  variable  that if  used must  be  specified as
                 *CHAR LEN(8).

   V4TIMEND      The time that  TCP was ended  for IPv4.   The date  is
                 returned  in a  HHMMSS format.   This  is an  optional
                 return  variable  that if  used must  be  specified as
                 *CHAR LEN(6).

   V4JNAMSTR     The name of  the job that  started IPv4.   This is  an
                 optional  return  variable   that  if  used   must  be
                 specified as *CHAR LEN(10).

   V4JUSRSTR     The name  of the user  that started IPv4.   This is an
                 optional   return  variable  that   if  used  must  be
                 specified as *CHAR LEN(10).

   V4JNBRSTR     The job  number of the  job that  started IPv4.   This
                 is an  optional return variable  that if used  must be
                 specified as *CHAR LEN(10).

   V4JNAMEND     The  name of  the  job that  ended IPv4.   This  is an
                 optional  return  variable  that   if  used  must   be
                 specified as *CHAR LEN(10).

   V4JUSREND     The name  of the  user that  ended IPv4.   This is  an
                 optional   return  variable  that  if   used  must  be
                 specified as *CHAR LEN(10).

   V4JNBREND     The job number of  the job that ended  IPv4.  This  is
                 an  optional return  variable  that  if used  must  be
                 specified as *CHAR LEN(10).

   V4LMTMOD      A  *YES/*NO return value  for whether IPv4  is running
                 in  'limited  mode'.    This  is  an  optional  return
                 variable that  if  used  must be  specified  as  *CHAR
                 LEN(4).

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

Because RTVTCPSTKS returns  variables, the command may only  be used in
a CL program.

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

The following TAA Tools must be on your system:

     SNDESCINF       Send escape information
     SNDESCMSG       Send escape message

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

None, the tool is ready to use.

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

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

   RTVTCPSTKS    *CMD                   TAATCPN       QATTCMD
   TAATCPNC      *PGM       CLP         TAATCPNC      QATTCL
   TAATCPNR      *PGM       RPGLE       TAATCPNR      QATTRPG