STRUCTURE /DESCR/
	   INTEGER*2 LENGTH,TYPE
           INTEGER*4 ADDRESS
        END STRUCTURE
C
	STRUCTURE /STREAMBLOCK/
	   INTEGER*2 STREAM, REF_COUNT, DEV_CHN, MBX_CHN
	END STRUCTURE
C
	STRUCTURE /VOTSBUFFER/
	   INTEGER*4 STREAM
           INTEGER*4 BUF, STATUS
	   INTEGER*2 REF_COUNT
           INTEGER*2 IOSB (4)
           INTEGER*4 BUF_LEN, BUF_USED
           BYTE      BUFFER (128)
	END STRUCTURE
C
	STRUCTURE /MBXBUFFER/
	   INTEGER*4 STREAM
           INTEGER*4 STATUS
	   INTEGER*2 REF_COUNT
           INTEGER*2 IOSB (4)
           INTEGER*4 BUF_LEN, BUF_USED
	   INTEGER*2 MSGTYPE,UNIT
	   BYTE	     BUFFER (128)
	END STRUCTURE