STRUCTURE /BIN_REC/
	INTEGER*4 VMS_DATETIME(2) ! quadword system timestamp
        UNION
	  MAP
	    BYTE      DSTADDR(0:5) ! beginning of XEDRIVER P5 buffer: dest addr
	    BYTE      SRCADDR(0:5) ! source Ethernet address
	  END MAP
	  MAP
	    INTEGER*2 W_DSTADDR(0:2)
	    INTEGER*2 W_SRCADDR(0:2)
	  END MAP
	  MAP
	    INTEGER*4 L_DSTADDR
	    INTEGER*2 W_DSTADDR4
	    INTEGER*4 L_SRCADDR
	    INTEGER*2 W_SRCADDR4
	  END MAP
	END UNION
	UNION
	  MAP
	    CHARACTER*8 PROTBUF
	  END MAP
	  MAP
	    BYTE    PROTOCOL(0:1) ! Ethernet protocol type
	  END MAP
	  MAP
	    INTEGER*2 W_PROTOCOL
	  END MAP
	  MAP
	    BYTE    DSAP        ! IEEE 802 destination SAP
	    BYTE    SSAP        ! IEEE 802 source SAP
	    UNION
	      MAP
		BYTE  CTL(0:1)  ! IEEE 802 CTL byte(s)
	      END MAP
	      MAP
		BYTE  ECTL      ! IEEE extended 802 CTL byte
		BYTE  PID(0:4)  ! IEEE extended 802 Protocol IDentification
	      END MAP
	    END UNION
	  END MAP
	END UNION               ! end of XEDRIVER P5 buffer (20 bytes)
	INTEGER*2 LENGTH        ! length of message body
	UNION
	  MAP
	    BYTE      BODY(4470)! not all of this array may be sent; only
          END MAP               ! part actually used is written to file
	  MAP
	    CHARACTER*4470 CBODY
	  END MAP
	END UNION
      END STRUCTURE ! /BIN_REC/