TAA Tools
RTVTAALIC       RETRIEVE TAA LICENSE                   TAAARCE

The  Retrieve TAA  License  command  retrieves  some of  the  important
information from the TAALICENSE and TAACTL data areas in TAATOOL.

A typical command would be:

             DCL           &LICTYP *CHAR LEN(5)
              .
             RTVTAALIC     LICTYP(&LICTYP)
             IF            (&LICTYP *EQ '*FULL') DO

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

   LINE1         The 1st  line of the  name and address  field from the
                 TAALICENSE  data  area.   This  is an  optional return
                 variable.   If used,  it  must be  specified as  *CHAR
                 LEN(45).

   LINE2         The 2nd  line of the  name and address field  from the
                 TAALICENSE  data  area.   This is  an  optional return
                 variable.   If used,  it must  be  specified as  *CHAR
                 LEN(45).

   LINE3         The 3rd  line of the name  and address field  from the
                 TAALICENSE  data  area.   This is  an  optional return
                 variable.   If used,  it must  be specified  as  *CHAR
                 LEN(45).

   LINE4         The 4th line  of the name  and address field  from the
                 TAALICENSE  data area.    This is  an  optional return
                 variable.    If used,  it must  be specified  as *CHAR
                 LEN(45).

   LINE5         The 5th line  of the name  and address field from  the
                 TAALICENSE  data area.    This is  an optional  return
                 variable.   If  used,  it must  be specified  as *CHAR
                 LEN(45).

   LINE6         The 6th line  of the name and  address field from  the
                 TAALICENSE  data area.   This  is  an optional  return
                 variable.   If  used, it  must  be specified  as *CHAR
                 LEN(45).

   LICTYP        The  license  type   of  *FULL  or   *DEMO  from   the
                 TAALICENSE  data   area.    *FULL   is  based   on  an
                 *UNLIMITED  expiration  date.    This is  an  optional
                 return  variable.   If used,  it must  be specified as
                 *CHAR LEN(5).

   SRLNBR        The serial  number  of the  licensed system  from  the
                 TAALICENSE  data area.    This is  an optional  return
                 variable.   If  used,  it must  be specified  as *CHAR
                 LEN(8).

   MODEL         The model  of  the  licensed system  from  the  TAACTL
                 data area.   This is an optional return  variable.  If
                 used, it must be specified as *CHAR LEN(4).

   FTRCDE        The feature  code of the processor.   This is for RISC
                 systems  only.    CISC  systems  will  return  blanks.
                 This is  an  optional return  variable.   If used,  it
                 must be specified as *CHAR LEN(4).

   SFTGRP        The  software group  of the  licensed system  from the
                 TAALICENSE  data  area.   This  is an  optional return
                 variable.   If used,  it  must be  specified as  *CHAR
                 LEN(4).

   DSLOPRI       The  value  will always  be  *NONE  (no DSLO  licenses
                 exist  after April  23, 2001).   If  used, it  must be
                 specified as *CHAR LEN(8).

   EXPDATE       The expiration  date from  the TAALICENSE  data  area.
                 This  value is  0000000  for a  full  license.   If  a
                 demonstration  license   exists,  a  date  in  CYYMMDD
                 order  will  exist.    This  is  an  optional   return
                 variable.   If  used, it  must be  specified as  *CHAR
                 LEN(7).

   VERSION       The  version,  release,  and modification  level  from
                 the  TAACTL data  area.  A  value such  as V3R7M0 will
                 exist.   This  is an  optional  return variable.    If
                 used, it must be specified as *CHAR LEN(6).

   INSSTS        The final  install status  from the TAACTL  data area.
                 A  value  such  as  'Good' will  exist.    This  is an
                 optional  return  variable.    If  used,  it  must  be
                 specified as *CHAR LEN(10).

   INSDATE       The last install  date of the product  from the TAACTL
                 data area.   A value such as  '12/15/00 at 22:08' will
                 exist.   This  is an  optional  return variable.    If
                 used, it must be specified as *CHAR LEN(20).

   INSDATE2      The last install  date of the product from  the TAACTL
                 data  area  in  the   format  CYYMMDD.    This  is  an
                 optional  return  variable.    If  used,  it  must  be
                 specified as *CHAR LEN(7).

   RELDATE       The release  date of the  TAA Productivity Tools  from
                 the  TAACTL data  area.    A value  such  as 'Dec  15,
                 2009'  will   exist.    This  is  an  optional  return
                 variable.   If used,  it must  be  specified as  *CHAR
                 LEN(15).

   RELDATE2      The release  date of the  TAA Productivity  Tools from
                 the  TAACTL data  area.   A value  in the  form YYMMDD
                 will exist.   This  is  an optional  return  variable.
                 If used, it must be specified as *CHAR LEN(6).

   TAATAPNBR     The TAA  unique  number assigned  to the  distribution
                 media  from  the TAALICENSE  data  area.   This  is an
                 optional  return  variable.    If  used,  it  must  be
                 specified as *CHAR LEN(5).

   IBMCUSTNBR    The  IBM customer  number  from  the  TAALICENSE  data
                 area.    This is  an  optional  return  variable.   If
                 used, it must be specified as *CHAR LEN(10).

   CMDLIB        The  IBM customer  number from  the TAACTL  data area.
                 This is  an optional  return variable.    If used,  it
                 must be specified as *CHAR LEN(10).

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

None.

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

None.

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

None, the tool is ready to use.

Object only tool
----------------

RTVTAALIC is shipped  in object form only.   The source does  not exist
on your system.
					

Added to TAA Productivity tools February 1, 1997


Home Page Up to Top