!*** MODULE $SBKDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 ! 
 !  Statistics block. This block is used to report various data regarding
 !  an open file to the requesting program.
 ! 
 ! -
 ! 
 !  The first two longwords are presented in inverted form for compatibility
 !  with the old RSX-11 statistics block.
 ! 
	PARAMETER SBK$K_LENGTH = '00000020'X
	PARAMETER SBK$C_LENGTH = '00000020'X
	STRUCTURE /SBKDEF/
	    UNION
	        MAP
	        INTEGER*4 SBK$L_STLBN			 !  starting LBN if contiguous 
	        END MAP
	        MAP
	            INTEGER*2 SBK$W_STLBNH			 !  high order word 
	            INTEGER*2 SBK$W_STLBNL			 !  low order word 
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 SBK$L_FILESIZE		 !  file size 
	        END MAP
	        MAP
	            INTEGER*2 SBK$W_FILESIZH		 !  high order word 
	            INTEGER*2 SBK$W_FILESIZL		 !  low order word 
 ! 
 !  The following two fields are for RSX-11 compatibility
 ! 
	        END MAP
	    END UNION
	    BYTE      SBK$B_ACNT			 !  low byte of access count 
	    BYTE      SBK$B_LCNT			 !  low byte of lock count 
	    INTEGER*4 SBK$L_FCB			 !  address of file control block 
	    INTEGER*2 %FILL				 !  spare 
	    INTEGER*2 SBK$W_ACNT			 !  access count 
	    INTEGER*2 SBK$W_LCNT			 !  lock count (against writers) 
	    INTEGER*2 SBK$W_WCNT			 !  writer count 
	    INTEGER*2 SBK$W_TCNT			 !  truncate lock count 
	    INTEGER*4 SBK$L_READS			 !  count of reads executed on channel 
	    INTEGER*4 SBK$L_WRITES			 !  count of writes executed on channel 
	END STRUCTURE	! SBKDEF
!DEC$ END OPTIONS