home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #1 / NN_1993_1.iso / spool / vmsnet / internal / 1722 next >
Encoding:
Internet Message Format  |  1993-01-04  |  1.8 KB
  1. Path: sparky!uunet!zaphod.mps.ohio-state.edu!sdd.hp.com!swrinde!network.ucsd.edu!mvb.saic.com!macro32
  2. From: "GWDGV1::MOELLER" <moeller@gwdgv1.dnet.gwdg.de>
  3. Newsgroups: vmsnet.internals
  4. Subject: RE: Use of $PUTMSG system service
  5. Message-ID: <9907150@MVB.SAIC.COM>
  6. Date: Mon, 04 Jan 1993 19:18:38 +0100
  7. Organization: Macro32<==>Vmsnet.Internals Gateway
  8. X-Gateway-Source-Info: Mailing List
  9. Lines: 36
  10.  
  11. >  I have created a message definition file (.MSG) that I have compiled and
  12. > linked with a compiled MACRO32 source. Some messages in that file have FAO
  13. > arguments, so that I want to know is how can I print to SYS$OUTPUT one of
  14. > these messages from my MACRO32 program using the $PUTMSG system service
  15. > (passing before the appropiate FAO arguments to the message, that is really
  16. > my problem). I want that the result will be a normal VMS message with the
  17. > identification, severity, facility and text parts.
  18. >
  19. >   I know that is an easy way to print a message with LIB$SIGNAL, but I do
  20. > not want to print the symbolic stack traceback each time an error occurs.
  21.  
  22. I once had a program written to do the messages via LIB$SIGNAL, but then
  23. decided I didn't want to "signal" the messages (because of some interference).
  24.  
  25. So I created the following tiny module,
  26. with a calling sequence just like LIB$SIGNAL:
  27.  
  28. --- cut here ---
  29.         .title  ast_signal      replacement for lib$signal, $putmsg only
  30. ;
  31. ;       w.j.m. jan 82
  32. ;
  33.         .entry  AST_SIGNAL,^m<>
  34. ;
  35.         $putmsg_s       msgvec=(ap)     ; lib$signal's arg list is just fine!
  36. ;
  37.         ret
  38. ;
  39.         .end
  40. --- cut here ---
  41.  
  42. That's all (unless you want to override the message flags etc.).
  43.  
  44. Wolfgang J. Moeller, GWDG, D-3400 Goettingen, F.R.Germany | Disclaimer ...
  45. PSI%(0262)45050352008::MOELLER      Phone: +49 551 201516 | No claim intended!
  46. Internet: moeller@gwdgv1.dnet.gwdg.de   | This space intentionally left blank.
  47.