🚀 go-pugleaf

>  I have created a message definition file (.MSG) that I have compiled and
> linked with a compiled MACRO32 source. Some messages in that file have FAO
> arguments, so that I want to know is how can I print to SYS$OUTPUT one of
> these messages from my MACRO32 program using the $PUTMSG system service
> (passing before the appropiate FAO arguments to the message, that is really
> my problem). I want that the result will be a normal VMS message with the
> identification, severity, facility and text parts.
>
>   I know that is an easy way to print a message with LIB$SIGNAL, but I do
> not want to print the symbolic stack traceback each time an error occurs.

I once had a program written to do the messages via LIB$SIGNAL, but then
decided I didn't want to "signal" the messages (because of some interference).

So I created the following tiny module,
with a calling sequence just like LIB$SIGNAL:

--- cut here ---
        .title  ast_signal      replacement for lib$signal, $putmsg only
;
;       w.j.m. jan 82
;
        .entry  AST_SIGNAL,^m<>
;
        $putmsg_s       msgvec=(ap)     ; lib$signal's arg list is just fine!
;
        ret
;
        .end
--- cut here ---

That's all (unless you want to override the message flags etc.).

Wolfgang J. Moeller, GWDG, D-3400 Goettingen, F.R.Germany | Disclaimer ...
PSI%(0262)45050352008::MOELLER      Phone: +49 551 201516 | No claim intended!
Internet: moeller@gwdgv1.dnet.gwdg.de   | This space intentionally left blank.