home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / comp / os / vms / 17916 < prev    next >
Encoding:
Text File  |  1992-11-13  |  1.8 KB  |  41 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!mcsun!sunic!kth.se!admin.kth.se!nobeltech!kega
  3. From: kega@nobeltech.se (Kent Gabrin)
  4. Subject: Re: Problem Deleting Users from Different Disks
  5. Message-ID: <1992Nov13.133527.25119@nobeltech.se>
  6. Sender: KEGA@nobeltech.se
  7. Organization: NobelTech AB
  8. References: <01GQZRJYX7YA8WYHCU@LAGUNA.EPCC.EDU>
  9. Date: Fri, 13 Nov 1992 13:35:27 GMT
  10. Lines: 29
  11.  
  12. In article <01GQZRJYX7YA8WYHCU@LAGUNA.EPCC.EDU> ARTG@LAGUNA.EPCC.EDU writes:
  13.    ...Deleted lines...
  14. >I have a problem and I can't seem to find the answer.  We have 
  15. >users on several disks and I am writing a procedure to delete
  16. >them when their accounts are no longer needed on our system.  
  17. >However, I can't seem to find a way to determine if the user
  18. >is on DISK2, DISK3, or DISK4.  Is that any way of using one DCL
  19. >procedure to determine which disk the user is on?  I'd also like to have
  20.    ...Deleted lines...
  21.  
  22. Yes it is possible. First define a logical name containing a search
  23. list of all disks. Then use F$SEARCH to obtain the disk where the user
  24. has its directory. Note that the following is only an idea how to
  25. proceed and has no error handling at all.
  26.  
  27. $ ! Assume that the local symbol USER_DIRECTORY has the value of the
  28. $ ! directory to search for. (E.g. user_directory="KEGA")
  29. $ !
  30. $ define/job   all_disks   DISK2,DISK3,DISK4
  31. $ found_dir=f$search("all_disks:<000000>''user_directory'.dir;1")
  32. $ if found_dir .eqs. "" then goto not_found
  33. $ found_disk=f$parse(found_dir,,,"device","syntax_only")
  34.  
  35. Drawbacks: If there exists more than one directory with the same name
  36. but residing on different disks, only the first occurence will be
  37. -- 
  38. Kent Gabrin   NobelTech Systems    ! My thinking is not as great as
  39. S-175 88 Jaerfaella      Sweden    ! Oliver Berendinus Bumble /Will Try
  40. KEGA@nobeltech.se ! System Manager (Since 1982) VAXCluster (Since 1985)
  41.