.TITLE	CVL - CHANGE VOLUME LABEL
	.IDENT	/01.30/
;
; (PROGRAM IS USEFUL IN INCREASING NUMBER OF NAMES IN A FILE "MXF")
;
;
; AUTHOR:	H. L. COLEMAN
;		MILLIKEN AND COMPANY
;		P. O. BOX 1926
;		MAIL STOP M-103
;		SPARTANBURG, S. C. 29304
;		(803)573-2556
;
; DATE:		16-OCT-78
;
; MODIFIED:
;		J. DOWNWARD
;		KMS FUSION, INC
;		3941 RESEARCH PARK DR
;		ANN ARBOR, MICH. 48104
;		(313)769-8500
;
;		JGD01 -	ADDED SUPPORT FOR /VI, /LRU, /WINDOW, /MAXEXT, /MXF
;			SWITCHES.  DISPLAY VOLUME CREATION DATE.
;
;		JGD02 - ADDED SUPORT FOR /FPRO=[RWED,RWED,RWED] AS IN INI
;
; FUNCTION:	READ THE DISK LABEL BLOCK AND CHANGE THE LABEL TO THAT
;		SPECIFIED IN THE MCR COMMAND.  IF NO MCR COMMMAND IS
;		AVAILABLE, THE OPERATOR IS PROMPTED FOR COMMANDS.
;
; INPUT:
;
;		MCR COMMAND OF THE FORM:
;
;			CVL DDU:LABEL/SW1/SW2/SW3....
;		WHERE  SW1,..SWN CAN BE ANY OF
;		/VI 	- DISPLAY VOLUME INFORMATION BUT DON'T CHANGE ANYTHING
;		/MAXEXT = NN	- CHANGE THE DEFAULT FILE EXTENSION TO THE NEW VALUE NNN
;		/WINDOW = NN	- CHANGE THE DEFAULT NUMBER OF WINDOWS TO NNN
;		/LRU	= NN	- CHANGE THE DEFAULT LRU THE VOLUME WILL BE MOUNTED WITH
;		/MXF	= NNN	- CHANGE THE MAXIMUM NUMBER OF FILES ALLOWED ON A VOLUME
;				  (ONLY INCREASES UPWARD ARE ALLOWED)
;				  (NN IS IN DECIMAL IN ALL CASES)
;		/FPRO	= [RWED,RWED,RWED,RWED]   WHERE  RWED  DOES THE SAME THING AS IN INI
;				   AND THE SWITCH CHANGES THE VOLUME DEFAULT FILE PROTECTION
;				   FOR  [SYSTEM,OWNER,GROUP,WORLD] TO THE NEWLY SPECIFIED
;				   DEFAULT PROTECTION.
;		CREATION DATE	  AS AN ADDED BONUS, THE DATE THE DISK WAS CREATED IS
;				  DISPLAYED.  THIS MAY BE USEFUL IN DETERMINING HOW LONG
;				  IT HAS BEEN SINCE THE DISK WAS 'BADDED', FORMATTED, ETC.
;
; OUTPUT:
;
;		THE SPECIFIED DISK LABEL BLOCK IS MODIFIED.