From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 22-SEP-1989 19:28
To:	MRGATE::"ARISIA::EVERHART"
Subj:	How to tell if a license is loaded

Received: From UCBVAX.BERKELEY.EDU by GIZMO.SRI.COM with TCP; Fri, 22 SEP 89 15:37:12 PDT
Received: by ucbvax.Berkeley.EDU (5.61/1.37)
	id AA08697; Fri, 22 Sep 89 15:34:55 -0700
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 22 Sep 89 22:17:09 GMT
From: leonard@arizona.edu  (Aaron Leonard)
Organization: U of Arizona CS Dept, Tucson
Subject: How to tell if a license is loaded
Message-Id: <14206@megaron.arizona.edu>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

Some folks have been wondering how to tell whether a given license
has been loaded on a given system.  Apparently a problem can arise
in a VAXcluster sharing an LDB, where one node might load some
shareable license, preventing another, presumably worthier, node
from accessing the software.

One way mentioned to find out what licenses have been loaded on
this system is to use the DCL command SHOW LICENSE.  This dumps
all license information on all loaded products to SYS$OUTPUT.

A more elegant solution, however, is to use [F]$TRNLNM.  A product
for which a license has been loaded will have a corresponding kernel-mode
logical name in the LMF$LICENSE_TABLE logical name table.  For example,
to determine from DCL whether Fortran has been licensed, try

$ IF F$TrnLNM("LMF$DEC_FORTRAN","LMF$LICENSE_TABLE",,"KERNEL") .Nes. ""
$ THEN
$   LICENSE UNLOAD FORTRAN	! For example
$ ENDIF


---------------------------------------------------------------------------
Aaron Leonard (AL104)   |       Internet: leonard@arizona.edu
VAX maven & apprentice  |       Bitnet: LEONARD@ARIZONA    CoSy: aleonard
 network dude           |       Hepnet: UAZHEP[47540]::TELCOM::LEONARD
University Telecom      |       Disclaimer:  This is the Department of  
University of Arizona   |         Information *Retrieval*, NOT Information
Tucson AZ 85721         |         *Dispersal*!
---------------------------------------------------------------------------