c  communication block between sgvgds and sgiof
c
	integer iovgds	!vgds code: 0=not called, 1=file, 2=tty
			!3=file+tty
	integer typdc	!char typed by user to upause
	integer lgdsk	!length of gdsdsk
	character gdsdsk*64	!disk name constructed by agvgds
	integer lxnam
	character xpndsk*124	!expanded file name
	integer lxtrm	!length of xpntrm
	character xpntrm*16	!translated terminal name
	common /gds_com/ iovgds,typdc,lgdsk,lxnam,lxtrm
     >		,gdsdsk,xpndsk,xpntrm
cdec$	psect /gds_com/ noshr
c
c  communication block between sgvgds and vgds server
c
c@v	parameter (maxdest=6) !c@v
c@v	structure /oned/ !c@v
c@v	  byte inuse	!c@v 0=not in use, 1=valid info
c@v	  byte klass	!c@v 0=error, 1=disk, 2=non-vgds tty, 3=lpt, 4=vgds tty
c@v	  byte keepi    !c@v
c@v	  byte addon    !c@v
c@v	  integer error !c@v
c@v	  character*8 node !c@v
c@v	  character*80 name !c@v
c@v	end structure !c@v
c@v	record /oned/ dlist(maxdest) !c@v

	character myterm*8,user*12
	integer   ipid, nd
c@v	common /gds_lis/ dlist,nd,ipid,myterm,user !c@v
	common /gds_lis/ nd,ipid,myterm,user !c@u
cdec$	psect /gds_lis/ noshr
