sub set_dir( string directory )
!	Written by Michael W. Wheeler (mww@tntech.bitnet)
!	VAX Basic V3.1
!	Copyright (c) by Michael W. Wheeler, September 1987
!	This program is intended for Public Domain, and may not be sold or
!	marketed in any form without the permision and written consent
!	from the author Michael W. Wheeler.  I retain all copyrights to
!	this program, in either the original or modified forms, and no
!	violation, deletion, or change of the copyright notice is
!	allowed.  Futhermore, I will have no liability or responsibilty
!	to any user with respect to loss or damage caused directly or
!	indirectly by this program.

! Labels
!	none.

! Constants
%include "$rmsdef" %from %library "sys$library:basic$starlet.tlb"
external long constant	msg_nochange

! Types
!	none.

! Variables
declare long		return_status

! Procedures
!	none.

! Functions
external long function	sys$setddir

return_status = sys$setddir( directory by desc,, )

if return_status <> rms$_normal then
    call lib$signal( msg_nochange by value, 1% by value, directory by desc )
    call sys$exit( return_status by value )
end if

subend