/*  CMS REPLACEMENT HISTORY, Element MSG_SERVER.C */
/*   1I1  25-APR-2006 16:22:11 MYTH "V56 baselevel code freeze" */
/*   1H1  13-JUN-2004 15:40:48 MILLIGAN "V55 baselevel code freeze" */
/*   1G1  11-MAY-2003 23:06:53 TIBBERT "V54 baselevel code freeze" */
/*   1F1  22-JAN-2002 19:20:05 SYSTEM "V53 baselevel code freeze" */
/*   1E1   2-MAY-2001 04:45:22 MILLIGAN "V52 baselevel code freeze" */
/*   1D1  11-DEC-2000 23:05:02 MYTH "V51 baselevel code freeze" */
/*   1C1  12-MAY-2000 05:52:28 MUGGERIDGE "V51IFT baselevel code freeze" */
/*   1B1  28-OCT-1998 21:13:15 MUGGERIDGE "V50SSB baselevel code freeze" */
/*   1A1  18-JUN-1998 07:59:34 MUGGERIDGE "V50IFT baselevel code freeze" */
/*  *1     9-OCT-1997 19:18:58 GEMIGNANI "Initial population of IPv6 source" */
/*  CMS REPLACEMENT HISTORY, Element MSG_SERVER.C */
/*
** msg_server.c: OpenVMS implementation of the remote procedure
** "printmessage"
*/

#include <descrip.h>  /* OpenVMS descriptor definitions */
#include <opcdef.h>   /* OpenVMS $SNDOPR() definitions */
#include <rpc/rpc.h>  /* always needed */
#include "msg.h"      /* msg.h will be generated by RPCGEN */

extern int SYS$SNDOPR(struct dsc$descriptor_s *, unsigned short);

/*
** Remote version of "printmessage"
*/
int *
printmessage_1(msg)
    char **msg;
{
    struct dsc$descriptor_s desc;
    union {
        char  buffer[256]; /* Preallocate space for text */
        struct opcdef opc;
        } message;
    static int result;
    int status;

    /*
    ** Build the message request block.
    */
    message.opc.opc$b_ms_type   = OPC$_RQ_RQST;
    message.opc.opc$b_ms_target = OPC$M_NM_CENTRL;
    message.opc.opc$w_ms_status = 0;
    message.opc.opc$l_ms_rqstid = 0;
    strcpy((char *) &message.opc.opc$l_ms_text, *msg);
    desc.dsc$a_pointer = (char *) &message.opc;
    desc.dsc$w_length  = (char *) &message.opc.opc$l_ms_text -
                         (char *) &message +
                         strlen((char *) &message.opc.opc$l_ms_text);
    status = SYS$SNDOPR(&desc,        /* MSGBUF */
                         0);          /* CHAN */
    if (status & 1)
	result = 1;
    else
        result = 0;
    return &result;
    }