home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 22202 < prev    next >
Encoding:
Internet Message Format  |  1993-01-28  |  2.2 KB
  1. Path: sparky!uunet!charon.amdahl.com!amdahl!rtech!sgiblab!zaphod.mps.ohio-state.edu!menudo.uh.edu!jpunix!mwk.uucp!gleason
  2. From: gleason@mwk.uucp
  3. Newsgroups: comp.os.vms
  4. Subject: Re: Tracking DECW$DISPLAY
  5. Message-ID: <1993Jan27.084501.1314@mwk.uucp>
  6. Date: 27 Jan 93 08:45:01 CST
  7. References: <01GTXUFF9BMA8ZDVA9@POMONA.CLAREMONT.EDU>
  8. Distribution: world
  9. Organization: M. W. Kellogg, Houston TX
  10. Lines: 124
  11.  
  12. In article <01GTXUFF9BMA8ZDVA9@POMONA.CLAREMONT.EDU>, GREG@POMONA.CLAREMONT.EDU (Tigger) writes:
  13. > Is there any way (such as a code to $GETDVI) to examine a _WSAn: device
  14. > created with the SET DISPLAY command and determine what node it points
  15. > to (ie the value of the /NODE qualifier to the SET DISPLAY)?
  16. > 
  17. > Greg Orman
  18. > greg@pomona.claremont.edu
  19. > 
  20.  
  21.   There are probably better ways than this - I wrote this while
  22. investigating how WSDRIVER works.
  23.  
  24.   
  25.     implicit integer*4 (a-z)
  26.  
  27.         include '($iodef)'
  28.  
  29.     character*64 wsname
  30.     integer*4 iosb(2) /0,0/
  31.     integer*4 context(2) /0,0/
  32.     character*255 addr
  33.  
  34.     stat = sys$device_scan(wsname,wslen,'*WSA*',,context(1)) ! skip wsa0
  35.  
  36. 101    stat = sys$device_scan(wsname,wslen,'*WSA*',,context(1))
  37.     if (.not. stat) call exit(stat)    
  38.  
  39.     stat = sys$assign(wsname(1:wslen),chan,,,)
  40.     if (.not. stat) call exit(stat)    
  41.  
  42.     stat = sys$qiow(,%val(chan),%val(io$_sensemode+64),iosb, , ,
  43.     1 %ref(addr),%val(255),%val(1), , ,) 
  44.     if (.not. stat) call exit(stat)    
  45.     if (.not. iosb(1)) call exit(iosb(1))    
  46.  
  47.     type *,wsname(1:wslen)
  48.     type *,addr(1:iosb(2))
  49.     addr = ' '
  50.     stat = sys$dassgn(%val(chan))
  51.     
  52.     goto 101
  53.     
  54.  
  55.     end
  56.  
  57. $ for autoconn
  58. $ link autoconn
  59. $ run autoconn
  60.  _WSA1:
  61.  HOCN11
  62.  _WSA5:
  63.  100.250.7.69
  64.  _WSA6:
  65.  HOCN08
  66.  _WSA7:
  67.  HOCT08
  68.  _WSA8:
  69.  HOCT21
  70.  _WSA10:
  71.  HOCN10
  72.  _WSA11:
  73.  HOCN08
  74.  _WSA12:
  75.  HOCN13
  76.  _WSA16:
  77.  HOCN08
  78.  _WSA17:
  79.  HOCN09
  80.  _WSA21:
  81.  HOCN08
  82.  _WSA25:
  83.  100.250.7.30
  84.  _WSA26:
  85.  100.250.7.8
  86.  _WSA43:
  87.  HOCN09
  88.  _WSA48:
  89.  HOCN09
  90.  _WSA55:
  91.  HOCN08
  92.  _WSA56:
  93.  HOCN11
  94.  _WSA57:
  95.  HOCN13
  96.  _WSA58:
  97.  HOCN10
  98.  _WSA59:
  99.  HOCT05
  100.  _WSA73:
  101.  100.250.7.57
  102.  _WSA80:
  103.  HOCN08
  104.  _WSA81:
  105.  HOCN11
  106.  _WSA82:
  107.  HOCN10
  108.  _WSA83:
  109.  HOCN13
  110.  _WSA89:
  111.  HOCT03
  112.  _WSA90:
  113.  HOCT03
  114.  _WSA91:
  115.  69676967
  116.  _WSA92:
  117.  100.250.9.7
  118.  _WSA93:
  119.  HOCT12
  120.  _WSA95:
  121.  HOCT01
  122.  _WSA96:
  123.  HOCT02
  124.  _WSA97:
  125.  HOCT02
  126.  _WSA99:
  127.  HOCT02
  128.  _WSA100:
  129.  100.250.7.16
  130.  _WSA101:
  131.  *
  132.  _WSA102:
  133.  100.250.7.65
  134. %SYSTEM-W-NOMOREDEV, no more devices
  135.  
  136.