[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference koolit::vms_curriculum

Title:VMS Curriculum
Moderator:SUPER::MARSH
Created:Thu Nov 01 1990
Last Modified:Sun Aug 25 1996
Last Successful Update:Fri Jun 06 1997
Number of topics:185
Total number of notes:2026

84.0. "SYSNET II -- Installing Layered Products" by SUPER::REGNELL (Smile!--Payback is a MOTHER!) Tue Mar 19 1991 14:44
T.RTitleUserPersonal
Name		DateLines
84.1SYSNET II -- Installing Layered ProductsSUPER::WTHOMASWed Jun 12 1991 12:168
    	A draft of the eleventh Sysnet II chapter entitled:

    		Installing and Updating Layered Products

    		is available for review in:

    		SUPER::ES$REVIEW:[SYSNET_II]SYSNETII_CHAP11.PS
84.2Some typos and nits - no summary!DUCK::SHONEKKeith Shone UK Edu 830-4074Thu Jun 13 1991 11:2438
    Comments are purely non-technical. I've no qualifications to judge
    the technical accuracy of this module. It's heavy old stuff to the
    uninitiated.
    
    Omissions 	- prefixed [O]
    Nits	- prefixed [N]
    Typos 	- prefixed [T] 
    
    Page	Comment
    -------------------
    1-3a	[T] Bullet 1: in -> of
    		[T] Bullet 2: step -> steps
    
    1-3		[T] Bullet 1: in -> of
    
    1-5		[O] Bullet 1: register Product -> register the Product
    		[T] Products list: VAX volume shadowing ->
    				   VMS Volume Shadowing
    		[T] Products list: VAX RMS journaling ->
    				   VAX RMS Journaling
    
    1-6		[T] Bullet 2, sub-bullet 2: DECnet VAX -> DECnet-VAX
    		(DECnet-VAX is a Corporate trademark)
    
    1-7a	[N] Line 3: (PAK) -> (PAK).
    		[T] Bullet 2 concurren -> concurrent
    
    1-8a	[N] Line 14: license management facility ->
    			     License Management Facility 
    
    1-9a	    There is repetition of similar information
    		    in this and preceding instructor pages.
    		[N] 6 lines from foot of page: LURT - not defined
    		    at this point - it's on the student page!
    
    1-19a	[N] 3 lines from foot: user -> users
    
    1-20	Wot? No summary?
84.3Comments from DC Training CenterTEACH::WENDYSun Jun 16 1991 23:3121
1-9  I think you should include an appendix on the license commands like their
is in the sysmanI course right now.

1-10 This table on license codes is good. There is always questions about the
codes which I never knew that many of.

1-12 Please show a PAK an Vmslicense.com. That makes it look so easy.
Otherwise they don't see how to install a PAK and they will want to know what
one looks like.

1-14 Maybe before jumping into the vmsinstal command procedure mention
the installation guide and, how it may tell you to check all user accounts
who will be using the prodect and certain sysgen parameters


1-19 You show this page but don't mention why,. Like I said mention the 
installation guide a few pages earlier and that these may be UAF quotas
that the system manager may have to change for particular products.

Wendy Mullenhoff
84.4Capitol IdeasTEACH::LYNNFri Jun 28 1991 13:2137
    

		Layered Product Installation
		Chapter 11


Include an example of a PAK and also the command procedure VMSLICENSE.COM
Maybe write an introduction before page 1-14 for VMSINSTAL.

Great job matching objectives and topics with the contents of the chapter.

1-5	May want to say that for the System Integrated Products you must
	purchase a license in order to use these products.

1-7	At this time we have no plans to sell a Compound License.  Do
	you really think the students need to know about it.  Good to
	include it in the instructor notes.

1-8a	Three paragraphs are the page 1-7a.

1-9a	Same as 1-8a.

1-10	Halfway down the page you have in bold Activity Licenses.
	The very first sentence talks about the availability licenses.

1-11	Maybe define "Product Query" for the instructor or the student.

1-12	The very beginning of this page is also on page 1-9.

1-13	Have an appendix that fully defines these commands and include
	some examples.

1-19	What is this page for?  What leads into this?

Lynn White
Washington D.C.
84.5SUPER::WTHOMASMon Jul 01 1991 16:057
    
    	The two week time period for reviews is over.
    
    	Any comments entered after this note will be considered, time
    permitting.
    
    			Wendy
84.6Chapter 11 updated version availableSUPER::MORGANFri Jul 12 1991 15:3412
Thank you for all of your excellent comments. All of the comments received 
have been implemented. 

A new version of the chapter has been copied to the review directory. 

	SUPER::ES$REVIEW:[SYSNET_II]SYSNETII_CHAP11.PS

Feel free to make comments, but be aware that any comments made from this date 
on will only be considered after the pilot.

Thanks,
Bonnie Morgan
84.7First teach post mortemMELKOR::SWIERKOWSKISMon Jan 20 1992 11:3424
This reply is limited to technical errors only.  I'll refrain from making
comments one way or the other about content, style, etc....

Module 6 (Layered Product Installation) in SYSNET II

p. 6-13		Update the list of LICENSE Subcommands to include the new
		DELETE command!!!!


p. 6-17		MODIFY SMITH/PRIVILEGE=NETMBX/BYTLM=16384	!NOT /BYTLIM=


P. 6-20		The first bubble on the page: change ADD-GBLSECTIONS=n and
		ADD-GBLPAGES=n to ADD_GBLSECTIONS=n and ADD_GBLPAGES=n.

		In the second bubble, add either FEEDBACK or NOFEEDBACK when
		AUTOGEN'ing.


p. 6-25		Options G is now buggy; use at your own risk!



				Susan
84.8NITTY::COHENHarry it S*cksThu Jan 30 1992 15:0123

	DO NOT USE THE REMOVEISSUECMD.COM PROCEDURE THAT WAS INCLUDED 
WITH THE COURSE FILES FOR SYSENT II.

	This procedure is way way way out of date. If you have executed the
procedure and you system will not start the license software (ie. your
system refuses to load any licenses and the products wont start) 
there should be an old copy SYS$SHARE:DCLTABLES.OLD that you can
restore.

	$ set def sys$share
	$ rename/log dcltables.old dcltables.exe;0
	*** then reboot ***


	I will be working on a new correct version over the next few days.
It would have been nice if someone would have notified me that the HACK
That I wrote 3 years ago was going to be given out as a course file. 
Especially because it is so out of version. I am supprised nobody bothered
to test it on a V5.5 system!

Todd
84.9NITTY::COHENHarry it S*cksTue Feb 04 1992 17:09580
	Here is the new version of REMOVEISSUECMD.COM. It has been
tested very slightly. I have changed it to work for V5.4-3 and V5.5
of VMS only! No promisses on this procedure. One of the course developers
may wish to double check the procedure to make sure it works.

Todd

P.S. Next time you give out software, as a course file, that I wrote
     let me know.


$ verify = f$verify(0)
$!
$! Command Procedure to Take out the ISSUE keyword from the 
$! License Facility. 
$!
$! Author: Todd Cohen @ACI
$! Version: VMS V5.4-3 or VMS V5.5
$!
$ SAY :== Write Sys$Output
$!
$ Type Sys$Input:
			***************
			** IMPORTANT **
			***************

This command procedure will modify your DCLTABLES, to remove
the ISSUE keyword from the LICENSE command. If you decide after
running this procedure that you need the this functionality back. 
You can restore the file from SYS$SHARE:DCLTABLES.OLD. But only
if you have not made any other changes to the DCLTABLES.EXE (i.e.
installing new software) since executing this command procedure.

$ Read/Prompt="Do you wish to continue [N]? " Sys$Command Answer -
	/Time_Out=60/Error=Done
$ If ((.not. Answer) .or. (Answer .eqs. "")) Then Exit
$ Read/Prompt="Purge Old DCLTABLES.EXE after Applying Fix [Y]? " sys$command -
	Answer /Time_Out=60/Error=Done
$!
$ version = f$extract(0,6,f$getsyi("VERSION"))
$ if version .eqs. "V5.5  " then goto v55
$ if version .eqs. "V5.4-3" then goto v543
$ Type Sys$Input
	
	The command procedure has been tested under VMS V5.4-3 and V5.5.
	It should not be run under any other version unless completely
	tested. GOOD LUCK!

$ Goto Done
$v543:
$ CREATE LICENSE.CLD
$ DECK/DOLLAR="%%"

define verb LICENSE
	image LMF
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)

define type COMMAND_OPTIONS
	keyword AMEND, syntax=AMEND_SYNTAX
	keyword CANCEL, syntax=CANCEL_SYNTAX
	keyword CREATE, syntax=CREATE_SYNTAX
	keyword DISABLE, syntax=DISABLE_SYNTAX
	keyword ENABLE, syntax=ENABLE_SYNTAX
	keyword GENERATE, syntax=GENERATE_SYNTAX
	keyword ISSUE, syntax=ISSUE_SYNTAX
	keyword LOAD, syntax=LOAD_SYNTAX
	keyword LIST, syntax=LIST_SYNTAX
	keyword MODIFY, syntax=MODIFY_SYNTAX
	keyword REGISTER, syntax=REGISTER_SYNTAX
	keyword START, syntax=START_SYNTAX
	keyword UNLOAD, syntax=UNLOAD_SYNTAX

define syntax UNLOAD_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier PRODUCER, default, value(default="DEC")

define syntax START_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier LOG, default

define syntax REGISTER_SYNTAX
	!same 
	disallow DATE and VERSION
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier AUTHORIZATION, value(required)
	qualifier ACTIVITY, value(required,type=TABLE_KEYWORDS)
	qualifier AVAILABILITY, value(required,type=TABLE_KEYWORDS)
	qualifier CHECKSUM, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, value(required)
	qualifier TERMINATION, value(required,type=$datetime)
	qualifier TOKEN, value(required)
	qualifier UNITS, value(required,type=$number)
	qualifier VERSION, value(required)
	qualifier DATE, value(required,type=$datetime)
	qualifier HARDWARE_ID, value(required)
	qualifier OPTIONS, value(required,list,type=OPTIONS_KEYWORDS)

define syntax MODIFY_SYNTAX
	!same 
	disallow INCLUDE and EXCLUDE
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier AUTHORIZATION, value(required)
	qualifier COMMENT, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier EXCLUDE, value(required,list)
	qualifier INCLUDE, value(required,list)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, value(required)
	qualifier UNITS, value(type=$number)

define syntax LIST_SYNTAX
	!same 
	disallow FULL and BRIEF or HISTORY and BRIEF
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT"
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier OUTPUT, default, value(default="SYS$OUTPUT",type=$outfile)
	qualifier HISTORY
	qualifier DATE, value(type=$datetime)
	qualifier BRIEF
	qualifier FULL
	qualifier AUTHORIZATION, value(required)
	qualifier VERSION, value(required)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, value(required)

define syntax LOAD_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT"
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier LOG, default
	qualifier PRODUCER, value(required)
!***
define syntax ISSUE_SYNTAX
	!same 
!***	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
!***		type=COMMAND_OPTIONS)
!***	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
!***	qualifier AUTHORIZATION, value(required)
!***	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
!***	qualifier ISSUER, value(required)
!***	qualifier OUTPUT, default, value(default="SYS$OUTPUT",type=$outfile)
!***	qualifier PRODUCER, value(required)

define syntax GENERATE_SYNTAX
	image PAK$DIR:PAK$USER.EXE
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)

define syntax ENABLE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier AUTHORIZATION, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, value(required)

define syntax DISABLE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier AUTHORIZATION, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, value(required)

define syntax CREATE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)

define syntax CANCEL_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier AUTHORIZATION, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, value(required)
	qualifier TERMINATION, value(required,type=$datetime)

define syntax AMEND_SYNTAX
	!same 
	disallow DATE and VERSION
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier ACTIVITY, value(required,type=TABLE_KEYWORDS)
	qualifier AUTHORIZATION, value(required)
	qualifier AVAILABILITY, value(required,type=TABLE_KEYWORDS)
	qualifier CHECKSUM, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier HARDWARE_ID, value(required)
	qualifier ISSUER, value(required)
	qualifier OPTIONS, value(required,list,type=OPTIONS_KEYWORDS)
	qualifier PRODUCER, value(required)
	qualifier TERMINATION, value(required,type=$datetime)
	qualifier TOKEN, value(required)
	qualifier UNITS, value(required,type=$number)
	qualifier VERSION, value(required)
	qualifier DATE, value(required,type=$datetime)

define type OPTIONS_KEYWORDS
	keyword NO_SHARE
	keyword MOD_UNITS

define type TABLE_KEYWORDS
	keyword A
	keyword B
	keyword C
	keyword D
	keyword E
	keyword F
	keyword G
	keyword H
	keyword I
	keyword J
	keyword K
	keyword L
	keyword M
	keyword N
	keyword O
	keyword P
	keyword Q
	keyword R
	keyword S
	keyword T
	keyword U
	keyword V
	keyword W
	keyword X
	keyword Y
	keyword Z
	keyword CONSTANT, value(type=$number)
%%
$ goto finish
$v55:
$ CREATE LICENSE.CLD
$ DECK/DOLLAR="%%"

define verb LICENSE
	image LMF
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)

define type COMMAND_OPTIONS
	keyword AMEND, syntax=AMEND_SYNTAX
	keyword CANCEL, syntax=CANCEL_SYNTAX
	keyword COPY, syntax=COPY_SYNTAX
	keyword CREATE, syntax=CREATE_SYNTAX
	keyword DELETE, syntax=DELETE_SYNTAX
	keyword DISABLE, syntax=DISABLE_SYNTAX
	keyword ENABLE, syntax=ENABLE_SYNTAX
	keyword ISSUE, syntax=ISSUE_SYNTAX
	keyword GENERATE, syntax=GENERATE_SYNTAX
	keyword LOAD, syntax=LOAD_SYNTAX
	keyword LIST, syntax=LIST_SYNTAX
	keyword MODIFY, syntax=MODIFY_SYNTAX
	keyword MOVE, syntax=MOVE_SYNTAX
	keyword REGISTER, syntax=REGISTER_SYNTAX
	keyword START, syntax=START_SYNTAX
	keyword UNLOAD, syntax=UNLOAD_SYNTAX

define syntax UNLOAD_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	qualifier PRODUCER, default, placement=positional, value(default="DEC")
	qualifier LOG

define syntax START_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier LOG, default

define syntax REGISTER_SYNTAX
	!same 
	disallow DATE and VERSION or RELEASE_DATE and VERSION or DATE and
		 RELEASE_DATE
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier AUTHORIZATION, value(required)
	qualifier ACTIVITY, value(required,type=TABLE_KEYWORDS)
	qualifier AVAILABILITY, value(required,type=TABLE_KEYWORDS)
	qualifier CHECKSUM, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, value(required)
	qualifier TERMINATION_DATE, value(required,type=$datetime)
	qualifier TOKEN, value(required)
	qualifier UNITS, value(required,type=$number)
	qualifier VERSION, value(required)
	qualifier DATE, value(required,type=$datetime)
	qualifier RELEASE_DATE, value(required,type=$datetime)
	qualifier HARDWARE_ID, value(required)
	qualifier OPTIONS, value(required,list,type=OPTIONS_KEYWORDS)

define syntax MOVE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	parameter P3, label=DESTINATION_LDB, prompt="To", value(required,
		type=$outfile)
	qualifier AUTHORIZATION, placement=positional, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, placement=positional, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier ALL, placement=positional
	qualifier LOG

define syntax MODIFY_SYNTAX
	!same 
	disallow any2( INCLUDE, EXCLUDE, RESERVE) or ADD and REMOVE or ADD and
		 not( INCLUDE or EXCLUDE or RESERVE) or REMOVE and not( INCLUDE
		 or EXCLUDE or RESERVE)
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	qualifier AUTHORIZATION, placement=positional, value(required)
	qualifier COMMENT, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier EXCLUDE, value(required,list)
	qualifier INCLUDE, value(required,list)
	qualifier RESERVE, value(required,list)
	qualifier ISSUER, placement=positional, value(required)
	qualifier ALL, placement=positional
	qualifier PRODUCER, placement=positional, value(required)
	qualifier UNITS, value(type=$number)
	qualifier ADD
	qualifier REMOVE
	qualifier TERMINATION_DATE, value(required,type=$datetime)
	qualifier LOG

define syntax LIST_SYNTAX
	!same 
	disallow FULL and BRIEF or HISTORY and BRIEF or BEFORE and SINCE
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(list)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier OUTPUT, default, value(default="SYS$OUTPUT",type=$outfile)
	qualifier HISTORY
	qualifier DATE, value(type=$datetime)
	qualifier RELEASE_DATE, value(default="TODAY",type=$datetime)
	qualifier TERMINATION_DATE, value(default="TODAY",type=$datetime)
	qualifier MODIFIED_DATE, value(default="TODAY",type=$datetime)
	qualifier BEFORE
	qualifier SINCE
	qualifier BRIEF
	qualifier FULL
	qualifier AUTHORIZATION, placement=positional, value(required)
	qualifier VERSION, value(required)
	qualifier ISSUER, placement=positional, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier WIDTH, value(required)

define syntax LOAD_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(list)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier LOG, default
	qualifier ISSUER, placement=positional, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier AUTHORIZATION, placement=positional, value(required)

define syntax GENERATE_SYNTAX
	image PAK$DIR:PAK$USER.EXE
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)

define syntax ISSUE_SYNTAX
!***	!same 
!***	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
!***		type=COMMAND_OPTIONS)
!***	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
!***	qualifier AUTHORIZATION, placement=positional, value(required)
!***	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
!***	qualifier ISSUER, placement=positional, value(required)
!***	qualifier OUTPUT, default, value(default="SYS$OUTPUT",type=$outfile)
!***	qualifier PRODUCER, placement=positional, value(required)
!***	qualifier PROCEDURE
!***	qualifier ALL, placement=positional
!***	qualifier LOG

define syntax ENABLE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	qualifier AUTHORIZATION, placement=positional, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, placement=positional, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier ALL, placement=positional
	qualifier LOG

define syntax DISABLE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	qualifier AUTHORIZATION, placement=positional, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, placement=positional, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier ALL, placement=positional
	qualifier LOG

define syntax DELETE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	qualifier AUTHORIZATION, placement=positional, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, placement=positional, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier ALL, placement=positional
	qualifier STATUS, default, nonnegatable, placement=positional, value(
		list,default="ALL",type=STATUS_KEYWORDS)
	qualifier LOG

define syntax CREATE_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)

define syntax COPY_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	parameter P3, label=DESTINATION_LDB, prompt="To", value(required,
		type=$outfile)
	qualifier AUTHORIZATION, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier ALL, placement=positional
	qualifier LOG

define syntax CANCEL_SYNTAX
	!same 
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required,list)
	qualifier AUTHORIZATION, placement=positional, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier ISSUER, placement=positional, value(required)
	qualifier PRODUCER, placement=positional, value(required)
	qualifier TERMINATION_DATE, value(required,type=$datetime)
	qualifier ALL, placement=positional
	qualifier LOG

define syntax AMEND_SYNTAX
	!same 
	disallow DATE and VERSION or RELEASE_DATE and VERSION
	parameter P1, label=COMMAND, prompt="COMMAND", value(required,
		type=COMMAND_OPTIONS)
	parameter P2, label=PRODUCT, prompt="PRODUCT", value(required)
	qualifier ACTIVITY, value(required,type=TABLE_KEYWORDS)
	qualifier AUTHORIZATION, value(required)
	qualifier AVAILABILITY, value(required,type=TABLE_KEYWORDS)
	qualifier CHECKSUM, value(required)
	qualifier DATABASE, default, value(default="LMF$LICENSE",type=$file)
	qualifier HARDWARE_ID, value(required)
	qualifier ISSUER, value(required)
	qualifier OPTIONS, value(required,list,type=OPTIONS_KEYWORDS)
	qualifier PRODUCER, value(required)
	qualifier TERMINATION_DATE, value(required,type=$datetime)
	qualifier TOKEN, value(required)
	qualifier UNITS, value(required,type=$number)
	qualifier VERSION, value(required)
	qualifier DATE, value(required,type=$datetime)
	qualifier RELEASE_DATE, value(required,type=$datetime)

define type STATUS_KEYWORDS
	keyword ACTIVE
	keyword CANCELED
	keyword DISABLED
	keyword ISSUED
	keyword EXTINCT
	keyword ALL

define type OPTIONS_KEYWORDS
	keyword NO_SHARE
	keyword MOD_UNITS
	keyword RESERVE_UNITS

define type TABLE_KEYWORDS
	keyword A
	keyword B
	keyword C
	keyword D
	keyword E
	keyword F
	keyword G
	keyword H
	keyword I
	keyword J
	keyword K
	keyword L
	keyword M
	keyword N
	keyword O
	keyword P
	keyword Q
	keyword R
	keyword S
	keyword T
	keyword U
	keyword V
	keyword W
	keyword X
	keyword Y
	keyword Z
	keyword CONSTANT, value(type=$number)
%%
$!
$finish:
$!
$ Copy/Nolog SYS$SHARE:DCLTABLES.EXE SYS$COMMON:[SYSLIB]DCLTABLES.OLD;0
$ On Error Then Goto Oy_A_Problem
$!
$ Set Command /Delete=License
$ Set Command /Replace LICENSE.CLD -
	/Table=Sys$Share:DCLTABLES.EXE -
	/Output=SYS$COMMON:[SYSLIB]DCLTABLES.EXE;0
$ Set File/Protection=(S:RWED,O:RWED,G:RWED,W:RE) SYS$SHARE:DCLTABLES.EXE;0
$! Set File/Owner=[1,4] SYS$SHARE:DCLTABLES.EXE;0
$!
$ Install Replace SYS$COMMON:[SYSLIB]DCLTABLES.EXE
$ Set Command /Table=SYS$COMMON:[SYSLIB]DCLTABLES.EXE
$!
$ Delete/Nolog LICENSE.CLD;*
$!
$ SAY "%LICFIX-S-YIPPY, License Fix/Removal Completed Successfully"
$!
$ If ((Answer) .or. (Answer .eqs. "")) Then Purge/NoLog Sys$Share:DCLTABLES.*
$ Goto Done
$!
$Oy_A_Problem:
$ SAY "%LICFIX-E-PROBLEM, A Problem Has occured. Restoring DCLTABLES.EXE "
$ Copy/Log Sys$Share:DCLTABLES.OLD Sys$Common:[SYSLIB]DCLTABLES.EXE;0
$ Install Replace Sys$Share:DCLTABLES.EXE
$ Set Command /Table=Sys$Share:DCLTABLES.EXE
$ Delete/Nolog LICENSE.CLD;*
$!
$Done:
$ verify = f$verify(verify)
$Exit
84.10TEACH::CHUCKFri Mar 27 1992 14:036
    Page 6-22  They are doing Fortran version 5.4.  Should not the 
    command be as follows.
    
    	@sys$update:vmsinstal fort054 mua0: