$ SAVE_VERIFY	= f$verify(0)
$ SET NOON
$ !============================================================================
$ ! NAME :		OUT_FILE
$ !
$ ! ABSTRACT :		Define logical names for _________________________.
$ !
$ ! INPUT PARAMETERS :
$ !
$	Log_Type	:= "''P1'"	! SUPPORT, GROUP or SYSTEM
$ !
$ ! LOGICAL NAMES ASSIGNED :
$ !
$ !	LOGICAL_NAME	- This directory.
$ !
$ ! REVISIONS :
$ !	TODAYS_DATE	USER_NAME	Original
$ !============================================================================
$
$ this_dir	:= "''f$logical( "sys$disk" )'''f$directory()'"
$
$ Def_Qual	:= ""
$
$ !	The following would set the logical names in the source directory,
$ !	if the parameter input was SUPPORT (only).
$ !
$ ! IF log_type	.nes. "SUPPORT"	THEN GOTO ENDIF_support
$ !    SET DEF	'This_Dir'
$ !    SET DEF	[.SRC]			! Toolkit Source files
$ !    @setlogs	'log_type'
$ ! ENDIF_support:
$
$ IF log_type	.eqs. "SYSTEM" .or. log_type .eqs. "GROUP" THEN	-
     def_qual	:= "/''log_type'"
$
$ DEFINE	'def_qual'	LOGICAL_NAME		'this_dir'
$
$ ! If there logicals that are to be defined in any subdirectories (to this),
$ ! have a OUT_FILE file in it, and use the following technique.
$
$ ! SET DEF	'This_Dir'
$ ! SET DEF	[.subdir]
$ ! @OUT_NAME	'log_type'
$
$return:
$ SET DEF	'This_Dir'		! Ensure you end up in this directory.
$ IF SAVE_VERIFY THEN SET VERIFY