home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19829 < prev    next >
Encoding:
Internet Message Format  |  1992-12-24  |  2.9 KB
  1. Path: sparky!uunet!paladin.american.edu!gatech!news.ans.net!cmcl2!rlgsc.com!gezelter
  2. From: gezelter@rlgsc.com
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Detecting directory of invoked .com 
  5. Message-ID: <1992Dec24.005149.297@rlgsc.com>
  6. Date: 24 Dec 92 00:51:49 EST
  7. References: <1992Dec23.160636.27010@tigger.jvnc.net>
  8. Organization: Robert Gezelter Software Consultant, Flushing, NY
  9. Lines: 59
  10.  
  11. In article <1992Dec23.160636.27010@tigger.jvnc.net>, fogelinc@nmr1.Cyanamid.COM (Carl Fogelin) writes:
  12. > At the risk of being flamed by the "active" participants of this Sig, I have
  13. > a problem which I hope has a reasonable answer.
  14. > 
  15. > In a DCL program, I would like to be able to determine what directory the
  16. > invoked .com file is located in.  I seem to remember a similar thread about
  17. > 6 - 8 months ago, so I hope someone remembers the solution.
  18. > 
  19. Use the lexical function F$ENVIRONMENT with the item code of 
  20. "PROCEDURE". Example:
  21.  
  22.              F$ENVIRONMENT("PROCEDURE")
  23.  
  24. > Reason:  I have a production command procedure that every once in awhile
  25. > must be moved to a test area for modification.  Currently, when I copy the
  26. > com file to the test area, I comment out the assigns associated with the
  27. > production version and uncomment the assigns associated with the test
  28. > version.  Unfortunately, sometimes when this command procedure is moved
  29. > back into production, the assigns are NOT switched back.
  30. > 
  31. There are some better ways to do this. For example, you could 
  32. define a series of logical names which exist in both the test and 
  33. production environments (they just happen to point to different 
  34. places). This has the added side effect of being completely 
  35. consistent for program testing.
  36.  
  37. > What I would like is to some code to this command procedure which would:
  38. > 
  39. >      if command file in production area then
  40. >         assign production logicals
  41. >      else
  42. >         assign test logicals
  43. >      endif
  44. > 
  45. See my comments above.
  46.  
  47. > Does anyone know a method for doing this?
  48. > 
  49. > - Carl
  50. > ---------------------------------------------------------------------------
  51. >  Carl Fogelin (fogelincc@cyanamid.com)     "All opinions are strictly mine" 
  52. >    "Sushi!   That's what my ex-wife called me.  Cold fish." -- Blade Runner
  53. -- 
  54. Carl,
  55.  
  56. Please see my comments above.
  57.  
  58. I hope that the above information is helpful. If I have been 
  59. unclear, or if I can be of further assistance, please feel free 
  60. to contact me via Email or phone.
  61.  
  62. - Bob
  63. +--------------------------------------------------------------------------+
  64. | Robert "Bob" Gezelter                       E-Mail:  gezelter@rlgsc.com  |
  65. | Robert Gezelter Software Consultant         Voice:   +1 718 463 1079     |
  66. | 35-20 167th Street, Suite 215               Fax:       (on Request)      |
  67. | Flushing, New York  11358-1731                                           |
  68. | United States of America                                                 |
  69. +--------------------------------------------------------------------------+
  70.