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.
|
