From:	SMTP%"MACRO32@WKUVX1.BITNET"  7-JUL-1993 16:21:05.12
To:	EVERHART
CC:	
Subj:	Re: $SNDOPR examples, please

X-ListName: "VMS Internals, MACRO, & BLISS Discussions" <MACRO32@WKUVX1.BITNET>
Warnings-To: <>
Errors-To: MacroMan@WKUVX1.BITNET
Sender: MacroMan@WKUVX1.BITNET
Date: 07 Jul 1993 16:13:08 -0500 (EST)
From: "Brian J. Schenkenberger, VAXman"
      <SCHENKENBERG@MONMOUTH-ETDL1.ARMY.MIL>
Reply-To: MACRO32@WKUVX1.BITNET
Subject: Re: $SNDOPR examples, please
To: MACRO32 <MACRO32@WKUVX1.BITNET>
Message-ID: <01H09MFQ3FFM96VLWC@MONMOUTH-ETDL1.ARMY.MIL>
X-VMS-To: IN%"@ulkyvm.louisville.edu:MACRO32@WKUVX1.BITNET"
MIME-Version: 1.0
Content-Transfer-Encoding: 7BIT

>Does anyone have any working examples of a call to the $SNDOPR system service?
>I have a student programmer who is having problems decoding the system service
>manual to devise the correct calling parameters.

You left no e-mail address in your signature so, I'm forced to post this. :-(
If you'd like an example in another lingo, contact me directly.

        $opcdef
        .psect  data,wrt,noexe,long

opc_msgdsc:     .long   msg_len                 ; descriptor - length
                .address        msg_buf         ; descriptor - msg buffer adr

msg_buf:        .byte   opc$_rq_rqst            ; opc$b_ms_type
                .long   opc$m_nm_oper12         ; opc$b_ms_target (3bytes)
                .=.-1                           ; alignment
                .long   0                       ; opc$l_ms_rqstid
                                                ; opc$l_ms_text ---v
opc_text:       .ascii  /THIS IS A TEST OF THE EMERGENCY BROADCAST SYSTEM/
msg_len =       .-msg_buf       ; length of message buffer

        .psect  code,nowrt,exe,long
        .entry  broadcast_alert,0

        $sndopr_s       msgbuf=opc_msgdsc
        ret

        .end    broadcast_alert

BJS- /Brian Schenkenberger/Schenkenberg@Eisner.DECUS.Org/ VMS is Bliss /
    /VMS Software Support/Vitronics, Inc./Eatontown, NJ/(908) 542-0600/
   /Independent Consult./Tmesis Consulting/Jackson, NJ/(908) 363-7551/
  /<VAXman or Schenkenberger>@Monmouth-ETDL1.Army.Mil/CIS: 70253,114/
