From:	CRDGW2::CRDGW2::MRGATE::"SMTP::CRVAX.SRI.COM::RELAY-INFO-VAX" 26-FEB-1992 01:07:47.05
To:	ARISIA::EVERHART
CC:	
Subj:	Re: Suppressing sys$announce; also dedicated LTA port

From:	RELAY-INFO-VAX@CRVAX.SRI.COM@SMTP@CRDGW2
To:	Everhart@Arisia@MRGATE

Received:  by crdgw1.ge.com (5.57/GE 1.123)
	 id AA19322; Wed, 26 Feb 92 00:21:35 EST
Received: From UCBVAX.BERKELEY.EDU by CRVAX.SRI.COM with TCP; Tue, 25 FEB 92 21:15:07 PST
Received: by ucbvax.Berkeley.EDU (5.63/1.43)
	id AA20084; Tue, 25 Feb 92 21:00:45 -0800
Received: from USENET by ucbvax.Berkeley.EDU with netnews
	for info-vax@kl.sri.com (info-vax@kl.sri.com)
	(contact usenet@ucbvax.Berkeley.EDU if you have questions)
Date: 21 Feb 92 18:11:00 GMT
From: sunquest!spades.aces.com!gavron@arizona.edu  (Ehud Gavron 602-885-7700x.2546)
Organization: Associates in Consulting and Educational Services
Subject: Re: Suppressing sys$announce; also dedicated LTA port
Message-Id: <21FEB199211114412@spades.aces.com>
References: <1992Feb17.134301.15492@yang.earlham.edu>,<18FEB199215573851@spades.aces.com>, <1992Feb19.011143.22796@cco.caltech.edu>, <1992Feb20.232830.1@lucy.claremont.edu>
Sender: info-vax-request@kl.sri.com
To: info-vax@kl.sri.com

In article <1992Feb20.232830.1@lucy.claremont.edu>, jwilkinson@lucy.claremont.edu writes...
#In article <1992Feb19.011143.22796@cco.caltech.edu>, carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick) writes:
#> In article <18FEB199215573851@spades.aces.com>, gavron@spades.aces.com (Ehud Gavron 602-885-7700x.2546) writes:
#>>In article <1992Feb17.134301.15492@yang.earlham.edu>, 
#>>alanmoore@yang.earlham.edu writes...
#>>#How can I supress SYS$Announce for a particular terminal port (such as TXA8).
#>>
#>>	You can't.*
# 
#Sure you can. 

That's taking my quote out of context.  The "*" referenced text at the
bottom which pointed out several ways to do it, but that they were nontrivial.

#The following FORTRAN program provides an example of how to tailor 
#SYS$ANNOUNCE according to login terminal.

The program is a good example of redirecting SYS$ANNOUNCE to a mailbox
except that it is not single-threaded, and requires process context. 
Nonetheless, it is a reasonable alternative.

#ps.  Anyone know how to figure out who has the pending read on a mailbox under
#VMS V5.5?  Prior to V5.5, this wasn't a problem, however there has been changes
#to MBDRIVER.

I don't have the V5.5 listings, but you're right, that was changed
in V5.5 MBDRIVER.  SDA reveals that you need to use ucb$l_mb_readqfl
to get the irp.

generally the following outlines what you might want to do... 

; r5 contains ucb address of mailbox
	movl	ucb$l_mb_readqfl(r5),r3	; get IRP
	movw	irp$l_pid(r3),r1	; get IPID
	movl	@sch$gl_pcbvec[r1],r4	; get PCB
	movl	#1,r1			; setup index for terminal name string
	pushal	pcb$t_terminal(r4)[r1]	; terminal name string ptr on stack
	movzbl	pcb$t_terminal(r4),-(sp); length of terminal name string on stk
	movl	sp,r1			; put descriptor address in r1
	jsb	g^ioc$searchdev		; get ucb for terminal
	movl	(sp)+,(sp)+		; reset stack pointer	
; r1 contains ucb address of terminal

	Ehud

--
Ehud Gavron        (EG76)     
gavron@Spades.ACES.COM

