!*** MODULE $XKSTSDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  DEFINITIONS FOR 3271 LINE STATUS BLOCK (RETURNED BY IO$_RDSTATS)
 ! 
	PARAMETER XKSTS$K_LSTR = '00000000'X	 !  OFFSET OF BEGINNING OF DATA AREA 
	PARAMETER XKSTS$C_LSTR = '00000000'X	 !  OFFSET OF BEGINNING OF DATA AREA 
	PARAMETER XKSTS$M_ACT = '00000001'X
	PARAMETER XKSTS$M_DGN = '00000002'X
	PARAMETER XKSTS$K_DSTR = '0000002D'X	 !  LENGTH OF THE LINE STATUS BLOCK 
	PARAMETER XKSTS$C_DSTR = '0000002D'X	 !  LENGTH OF THE LINE STATUS BLOCK 
	STRUCTURE /XKSTSDEF/
	    BYTE      XKSTS$B_CUAD			 !  CONTROL UNIT ADDRESS (HEX EBCDIC) 
	    UNION
	        MAP
	        INTEGER*2 XKSTS$W_LSTS			 !  LINE STATUS 
	        END MAP
	        MAP
	            PARAMETER XKSTS$S_ACT = 1
	            PARAMETER XKSTS$V_ACT = 0		 !  IF SET, LINE IS 'ON' (ACTIVE IN 3271 MODE) 
	            PARAMETER XKSTS$S_DGN = 1
	            PARAMETER XKSTS$V_DGN = 1		 !  IF SET, LINE IS EXECUTING A DIAGNOSTIC QIO 
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    BYTE      XKSTS$B_PLSZ			 !  POOL SIZE 
	    INTEGER*2 XKSTS$W_BSIZ			 !  MAXIMUM BLOCK TO BE RECEIVED FROM IBM 
	    BYTE      XKSTS$B_ECNT			 !  ENQ THRESHOLD 
	    INTEGER*2 XKSTS$W_TNAK			 !  NUMBER OF NAKS TRANSMITTED 
	    INTEGER*2 XKSTS$W_RNAK			 !  NUMBER OF NAKS RECEIVED 
	    INTEGER*2 XKSTS$W_TENQ			 !  NUMBER OF ENQS SENT 
	    INTEGER*2 XKSTS$W_RENQ			 !  NUMBER OF ENQS RECEIVED 
	    INTEGER*2 XKSTS$W_TRVI			 !  NUMBER OF RVIS TRANSMITTED 
	    INTEGER*2 XKSTS$W_RRVI			 !  NUMBER OF RVIS RECEIVED 
	    INTEGER*2 XKSTS$W_RCNV			 !  NUMBER OF CONVERSATIONAL MODE RESPONSES 
 !   RECEIVED
	    INTEGER*2 XKSTS$W_CHAI			 !  NUMBER OF CHAINED WRITES RECEIVED 
	    INTEGER*2 XKSTS$W_GPOL			 !  NUMBER OF GENERAL POLLS RECEIVED 
	    INTEGER*2 XKSTS$W_XACK			 !  NUMBER OF INVALID ACKS RECEIVED 
	    INTEGER*2 XKSTS$W_HABO			 !  NUMBER OF HOST ABORTS ENCOUNTERED 
	    INTEGER*2 XKSTS$W_DABO			 !  NUMBER OF DRIVER ABORTS ENCOUNTERED 
	    INTEGER*2 XKSTS$W_RTIM			 !  NUMBER OF ACK RESPONSE TIMEOUTS 
	    INTEGER*2 XKSTS$W_DISC			 !  NUMBER OF DISCONNECTS ENCOUNTERED 
	    INTEGER*2 XKSTS$W_HARD			 !  NUMBER OF HARDWARE FAILURES (INCLUDING 
 !   DISCONNECTS) ENCOUNTERED
	    INTEGER*2 XKSTS$W_TBLK			 !  NUMBER OF BLOCKS TRANSMITTED 
	    INTEGER*2 XKSTS$W_RBLK			 !  NUMBER OF BLOCKS RECEIVED 
	    INTEGER*2 XKSTS$W_HABX			 !  NUMBER OF DUBIOUS ACK OUTS 
	    INTEGER*2 XKSTS$W_IEOT			 !  NUMBER OF EOTS IMPLYING ACK 
	END STRUCTURE	! XKSTSDEF
!DEC$ END OPTIONS