home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / comp / os / vms / 20623 < prev    next >
Encoding:
Internet Message Format  |  1993-01-08  |  1.7 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!darwin.sura.net!sgiblab!troi!steve
  2. From: steve@dbaccess.com (Steve Suttles)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Turning off DCL WARNING messages: Can it be done?
  5. Message-ID: <137@mccoy.dbaccess.com>
  6. Date: 8 Jan 93 23:30:50 GMT
  7. References: <726512547.621327.RIC@RML2.SRI.COM>
  8. Organization: Cross Access Corp., Santa Clara, CA
  9. Lines: 36
  10. X-Newsreader: Tin 1.1 PL4
  11.  
  12. RIC@RML2.SRI.COM (Ric Steinberger) writes:
  13. : 
  14. : If a rusty DCL programmer may be permitted a question, here's mine:
  15. : 
  16. : Can DCL Warning messages be turned off during execution of a command
  17. : file?  It seems that SET MESSAGE can turn off everything, but not just
  18. : WARNINGS.  
  19. : 
  20. : Thanks in advance for any suggestions.
  21. : 
  22. : ric steinberger
  23. : ric@rml2.sri.com
  24.  
  25. Ric,
  26.  
  27. I don't know if this has any value, but one answer might be to set the
  28. ON level to ERROR and report the value of $STATUS (you could do that
  29. with a gosub if you wanted errors to continue, or a goto if you intended
  30. to exit).
  31.  
  32. A better solution would be to use the /ERROR qualifier on I/O commands
  33. (the only ones that have them) if those happen to be the ones annoying
  34. you.
  35.  
  36. An even better solution would be to design the command file to check for
  37. the things it might warn about first.  A common complaint is a warning
  38. that a file is missing at time of a deletion attempt; I use:
  39.     $ if f$search(foo) .nes. "" then $ delete 'foo'
  40. and similar constructs to avoid this type of nuisance.
  41.  
  42. sas
  43. -- 
  44. Steve Suttles                Internet:  steve@dbaccess.com      Dr. DCL is IN!
  45. CROSS ACCESS Corporation     UUCP: {uunet,sgiblab}!troi!steve  Yo speako TECO!
  46. 2900 Gordon Ave, Suite 100   fax: (408) 735-0328              Talk data to me!
  47. Santa Clara, CA 95051-0718   vox: (408) 735-7545   HA! It's under 4 lines NOW!
  48.