1 UNIQFILE
  This procedure will return to you the name  of a  unique file
  that is guaranteed not to currently exists on disk. 

  To invoke UNIQFILE,  define the DCL symbol in your  LOGIN.COM
  file as follows:

     $ @{library-name}UNIQFILE [file-type [directory]]

  The unique  file name  is returned in the  DCL  global symbol
  UNIQUE_FILE_NAME.

2 file-type
  The file type that should be look for when checking to see if
  the file already exsists  in the directory.  By default,  the
  null file type is used.  When specifying a file type, be sure
  to include the ".". 

2 directory
  The directory path that should be used to see if files already
  exsist. Be default the current default directory path is used. 

2 examples
   $! Get a file name for a file with no type
   $ @uniqfile 
   $ show symbol unique_file_name
     UNIQUE_FILE_NAME = "000D0023"
   $!
   $! Get a file name for a file with a type of .COM
   $ @uniqfile .com
   $ show sym unique_file_name
     UNIQUE_FILE_NAME = "000D0023"
   $!
   $! Get a file name for a file in my login directory
   $ @uniqfile .com sys$login:
   $ show sym unique_file_name
     UNIQUE_FILE_NAME = "000D0023"
   $!
   $! Clean up the global symbol
   $ delete/symbol/global unique_file_name 
