!*** MODULE $XKDEVDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  3271 DEVICE STATUS BLOCK
 ! 
 !  THE DRIVER RETURNS N COPIES OF THIS BLOCK FOLLOWING THE LINE STATUS BLOCK
 !  IN THE USER'S BUFFER, WHERE N IS THE NUMBER OF ACTIVE DEVICES ON THE LINE.
 ! 
	PARAMETER XKDEV$K_SIZE = '0000000F'X	 !  SIZE OF THE DEVICE STATUS BLOCK 
	PARAMETER XKDEV$C_SIZE = '0000000F'X	 !  SIZE OF THE DEVICE STATUS BLOCK 
	STRUCTURE /XKDEVDEF/
	    BYTE      XKDEV$B_DUEB			 !  DEVICE ADDRESS (DU - HEX EBCDIC) 
	    INTEGER*4 XKDEV$L_DPID			 !  PROCESS ID OF PROCESS OWNING THIS DU 
	    INTEGER*2 XKDEV$W_TBLK			 !  NUMBER OF BLOCKS TRANSMITTED 
	    INTEGER*2 XKDEV$W_RBLK			 !  NUMBER OF BLOCKS RECEIVED 
	    INTEGER*2 XKDEV$W_SPOL			 !  NUMBER OF SPECIFIC POLLS RECEIVED 
	    INTEGER*2 XKDEV$W_ASEL			 !  NUMBER OF ADDRESS SELECTS RECEIVED 
	    INTEGER*2 XKDEV$W_CREJ			 !  NUMBER OF COMMAND REJECTS SENT 
	END STRUCTURE	! XKDEVDEF
!DEC$ END OPTIONS