$ SAVE_VERIFY	= f$verify(0)
$ SET NOON
$ !============================================================================
$ ! NAME :		SETLOGSV4.COM
$ !
$ ! ABSTRACT :		Define logical names for ALL Toolkits, for VMS 4.0
$ !			systems only.
$ !
$ ! INPUT PARAMETERS :
$ !
$	Log_Type	:= "''P1'"	! SUPPORT, GROUP, or SYSTEM
$ !
$ ! LOGICAL NAMES ASSIGNED :
$ !
$ !	all_tools	- *_tools
$ !	all_src		- *_src
$ !	all_utils	- *_utils
$ !
$ ! ASSUMPTIONS :
$ !
$	this_dir	:= "''f$logical( "sys$disk" )'''f$directory()'"
$ !	
$ ! REVISIONS :
$ !	22-may-1985	D.Amby		Original
$ !============================================================================
$
$ Def_Qual	:= ""
$
$ IF Log_Type	.eqs. "SYSTEM" .or. log_type .eqs. "GROUP" THEN	-
     Def_Qual	:= "/''Log_Type'"
$
$ define 'def_qual'	all_src		amby_src,	-
					doc_src,	-
					file_src,	-
					tk_src,	-
					st_src,	-
					unix_src
$
$ define 'def_qual'	all_tools	amby_tools,	-
					doc_tools,	-
					file_tools,	-
					tk_tools,	-
					st_tools,	-
					unix_tools
$
$ define 'def_qual'	all_utils	amby_utils,	-
					doc_utils,	-
					file_utils,	-
					tk_utils,	-
					st_utils,	-
					unix_utils
$
$return:
$ IF SAVE_VERIFY THEN SET VERIFY