home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19828 < prev    next >
Encoding:
Text File  |  1992-12-24  |  1.8 KB  |  40 lines
  1. Newsgroups: comp.os.vms
  2. Path: sparky!uunet!munnari.oz.au!metro!tango.cchs.su.oz.au!brennan
  3. From: brennan@tango.cchs.su.oz.au (Luke Brennan)
  4. Subject: Re: Detecting directory of invoked .com
  5. Message-ID: <1992Dec24.192033.1@tango.cchs.su.oz.au>
  6. Sender: news@ucc.su.OZ.AU
  7. Nntp-Posting-Host: tango.cchs.su.oz.au
  8. Organization: Cumberland College of Health Sciences
  9. References: <1992Dec23.160636.27010@tigger.jvnc.net>
  10. Date: Thu, 24 Dec 1992 19:10:33 GMT
  11. Lines: 27
  12.  
  13. In article <1992Dec23.160636.27010@tigger.jvnc.net>, fogelinc@nmr1.Cyanamid.COM (Carl Fogelin) writes:
  14. > At the risk of being flamed by the "active" participants of this Sig, I have
  15. > a problem which I hope has a reasonable answer.
  16.  
  17.     heh heh.. *SOME* people are still risking a post, eh? *BRAVE* !!
  18.  
  19. > In a DCL program, I would like to be able to determine what directory the
  20. > invoked .com file is located in.  I seem to remember a similar thread about
  21. > 6 - 8 months ago, so I hope someone remembers the solution.
  22.  
  23.     I suppose there are other ways to do it, but I usually do something
  24.     like this:
  25.  
  26.     procedure = f$environment("PROCEDURE")
  27.     proc_dir  = f$parse(procedure,,,"DIRECTORY","SYNTAX_ONLY")
  28.  
  29.     same deal for proc_dev, etc..
  30.  
  31.     not exactly obvious - even when you *DO* RTFM...
  32. +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  33. + Luke Brennan                             e-mail:      brennan@cchs.su.oz.AU +
  34. + EDP Unit, S209                          brennan%cchs.su.oz.au@cunyvm.BITNET +
  35. + Cumberland College of Health Sciences,                              ,-_|\   +
  36. + The University of Sydney                  voice: +61 2 646 6402    /     \  +
  37. + East Street, Lidcombe, NSW 2141             fax: +61 2 646 4853    \_,-._*  +
  38. + AUSTRALIA                                                               v   +
  39. +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
  40.