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

Powered by AS/400Powered by AS/400 Last modified on July 15, 2010 © 1995, 2010 - Jim Sloan, Inc.