home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19825 < prev    next >
Encoding:
Internet Message Format  |  1992-12-24  |  2.1 KB
  1. Path: sparky!uunet!olivea!charnel!rat!ucselx!crash!cmkrnl!jeh
  2. From: jeh@cmkrnl.com
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Detecting directory of invoked .com
  5. Message-ID: <1992Dec23.203029.1002@cmkrnl.com>
  6. Date: 24 Dec 92 04:30:28 GMT
  7. References: <1992Dec23.160636.27010@tigger.jvnc.net>
  8. Organization: Kernel Mode Consulting, San Diego, CA
  9. Lines: 42
  10.  
  11. In article <1992Dec23.160636.27010@tigger.jvnc.net>,
  12.  fogelinc@nmr1.Cyanamid.COM (Carl Fogelin) writes:
  13. > At the risk of being flamed by the "active" participants of this Sig, I have
  14. > a problem which I hope has a reasonable answer.
  15.  
  16.     Oxidizer and napalm tanks full        check!
  17.     Pressure tank charged            check!
  18.     Igniter charged                check!
  19.     Safety off                che
  20.  
  21. ... oops, sorry, got carried away there.
  22.  
  23. > 
  24. > In a DCL program, I would like to be able to determine what directory the
  25. > invoked .com file is located in.  I seem to remember a similar thread about
  26. > 6 - 8 months ago, so I hope someone remembers the solution.
  27.  
  28. General rule of DCL command procedures:  If you want information about 
  29. something -- almost anything -- look at lexical functions.  HELP LEXICALS
  30. gives you a complete list.  Unfortunately this is one of those cases where
  31. you have to know the name by which VMS refers to something before you can
  32. go looking for it. 
  33.  
  34.     f$environment("PROCEDURE")
  35.  
  36. will return the complete file specification of the command procedure from
  37. which it is invoked.  To get just the device and directory name, you can
  38. parse this out yourself with just a few quick strokes of f$element, but
  39. f$parse will do it for you:
  40.  
  41.     $ comfile = f$environment("PROCEDURE")
  42.     $ comfile_dev = f$parse(comfile,,,"DEVICE")
  43.     $ comfile_dir = f$parse(comfile,,,"DIRECTORY")
  44.  
  45. For more information, see HELP LEXICALS F$ENVIRONMENT or ... F$PARSE.
  46.  
  47.     --- Jamie Hanrahan, Kernel Mode Consulting, San Diego CA
  48. drivers, internals, networks, applications, and training for VMS and Windows-NT
  49. uucp 'g' protocol guru and release coordinator, VMSnet (DECUS uucp) W.G., and 
  50. Chair, Programming and Internals Working Group, U.S. DECUS VMS Systems SIG 
  51. Internet:  jeh@cmkrnl.com, hanrahan@eisner.decus.org, or jeh@crash.cts.com
  52. Uucp:  ...{crash,eisner,uunet}!cmkrnl!jeh
  53.