SUBROUTINE GET_VMSDEFDIR (DIRECTORY_NAME) CHARACTER*(*) DIRECTORY_NAME C*************************************************************************** C*** C*** THIS ROUTINE WILL RETURN THE DIRECTORY SPECIFICATION INCLUDING THE C*** DEFAULT DEVICE OF THE CURRENT VAX/VMS DEFAULT DIRECTORY. C*** C*** PARAMETER : C*** C*** DIRECTORY_NAME (C*?) RETURNED DIRECTORY SPECIFICATION C*** C*************************************************************************** C*MCT C C*** LOCAL DECLARATIONS CHARACTER*200 DIRSPEC C C*** FIRST DETERMINE THE LENGTH OF OUT OUTPUT STRING L = LEN (DIRECTORY_NAME) C C*** GET THE DIRECTORY SPEC CALL FULL_FILE_SPEC ('*.*',DIRSPEC) C I = INDEX (DIRSPEC,']') J = JMIN0 (I,L) DIRECTORY_NAME = DIRSPEC (1:J) C RETURN END