home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / comp / os / vms / 19859 < prev    next >
Encoding:
Internet Message Format  |  1992-12-24  |  1.9 KB
  1. Path: sparky!uunet!sunquest!spades.aces.com!gavron
  2. From: gavron@spades.aces.com (Ehud Gavron 602-570-2000 x. 2546)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Detecting directory of invoked .com
  5. Message-ID: <24DEC199213435024@spades.aces.com>
  6. Date: 24 Dec 92 20:43:00 GMT
  7. References: <1992Dec23.160636.27010@tigger.jvnc.net>
  8. Sender: news@sunquest.UUCP
  9. Reply-To: gavron@ACES.COM
  10. Organization: ACES Consulting Inc.
  11. Lines: 39
  12. News-Software: VAX/VMS VNEWS 1.4-b1
  13.  
  14. In article <1992Dec23.160636.27010@tigger.jvnc.net>, fogelinc@Cyanamid.COM writes...
  15. #At the risk of being flamed by the "active" participants of this Sig, I have
  16. #a problem which I hope has a reasonable answer.
  17. # 
  18. #In a DCL program, I would like to be able to determine what directory the
  19. #invoked .com file is located in.  I seem to remember a similar thread about
  20. #6 - 8 months ago, so I hope someone remembers the solution.
  21. # 
  22. #Reason:  I have a production command procedure that every once in awhile
  23. #must be moved to a test area for modification.  Currently, when I copy the
  24. #com file to the test area, I comment out the assigns associated with the
  25. #production version and uncomment the assigns associated with the test
  26. #version.  Unfortunately, sometimes when this command procedure is moved
  27. #back into production, the assigns are NOT switched back.
  28. # 
  29. #What I would like is to some code to this command procedure which would:
  30. # 
  31. #     if command file in production area then
  32. #        assign production logicals
  33. #     else
  34. #        assign test logicals
  35. #     endif
  36. # 
  37. #Does anyone know a method for doing this?
  38.  
  39.     Yes.  Help lex f$environment  (procedure), help if, help define.
  40.  
  41. # 
  42. #- Carl
  43. #---------------------------------------------------------------------------
  44. # Carl Fogelin (fogelincc@cyanamid.com)     "All opinions are strictly mine" 
  45. #   "Sushi!   That's what my ex-wife called me.  Cold fish." -- Blade Runner
  46.  
  47.     Ehud
  48.  
  49. --
  50. Ehud Gavron        (EG76)     
  51. gavron@vesta.sunquest.com
  52. Will it improve my CASH FLOW?
  53.