From:	MERC::"uunet!CRVAX.SRI.COM!RELAY-INFO-VAX" 29-JAN-1993 14:47:50.90
To:	info-vax@kl.sri.com
CC:	
Subj:	Re: Tracking DECW$DISPLAY

In article <01GTXUFF9BMA8ZDVA9@POMONA.CLAREMONT.EDU>, GREG@POMONA.CLAREMONT.EDU (Tigger) writes:
> Is there any way (such as a code to $GETDVI) to examine a _WSAn: device
> created with the SET DISPLAY command and determine what node it points
> to (ie the value of the /NODE qualifier to the SET DISPLAY)?
> 
> Greg Orman
> greg@pomona.claremont.edu
> 

  There are probably better ways than this - I wrote this while
investigating how WSDRIVER works.

  
	implicit integer*4 (a-z)

        include '($iodef)'

	character*64 wsname
	integer*4 iosb(2) /0,0/
	integer*4 context(2) /0,0/
	character*255 addr

	stat = sys$device_scan(wsname,wslen,'*WSA*',,context(1)) ! skip wsa0

101	stat = sys$device_scan(wsname,wslen,'*WSA*',,context(1))
	if (.not. stat) call exit(stat)	

	stat = sys$assign(wsname(1:wslen),chan,,,)
	if (.not. stat) call exit(stat)	

	stat = sys$qiow(,%val(chan),%val(io$_sensemode+64),iosb, , ,
	1 %ref(addr),%val(255),%val(1), , ,) 
	if (.not. stat) call exit(stat)	
	if (.not. iosb(1)) call exit(iosb(1))	

	type *,wsname(1:wslen)
	type *,addr(1:iosb(2))
	addr = ' '
	stat = sys$dassgn(%val(chan))
	
	goto 101
	

	end

$ for autoconn
$ link autoconn
$ run autoconn
 _WSA1:
 HOCN11
 _WSA5:
 100.250.7.69
 _WSA6:
 HOCN08
 _WSA7:
 HOCT08
 _WSA8:
 HOCT21
 _WSA10:
 HOCN10
 _WSA11:
 HOCN08
 _WSA12:
 HOCN13
 _WSA16:
 HOCN08
 _WSA17:
 HOCN09
 _WSA21:
 HOCN08
 _WSA25:
 100.250.7.30
 _WSA26:
 100.250.7.8
 _WSA43:
 HOCN09
 _WSA48:
 HOCN09
 _WSA55:
 HOCN08
 _WSA56:
 HOCN11
 _WSA57:
 HOCN13
 _WSA58:
 HOCN10
 _WSA59:
 HOCT05
 _WSA73:
 100.250.7.57
 _WSA80:
 HOCN08
 _WSA81:
 HOCN11
 _WSA82:
 HOCN10
 _WSA83:
 HOCN13
 _WSA89:
 HOCT03
 _WSA90:
 HOCT03
 _WSA91:
 69676967
 _WSA92:
 100.250.9.7
 _WSA93:
 HOCT12
 _WSA95:
 HOCT01
 _WSA96:
 HOCT02
 _WSA97:
 HOCT02
 _WSA99:
 HOCT02
 _WSA100:
 100.250.7.16
 _WSA101:
 *
 _WSA102:
 100.250.7.65
%SYSTEM-W-NOMOREDEV, no more devices
 

