!*** MODULE $XABSUMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         summary xab field definitions
 !                 $xabsumdef
 ! 
	PARAMETER XAB$C_SUM = '00000016'X	 !  xabsum id code
	STRUCTURE /XABSUMDEF/
	    BYTE      %FILL
	    BYTE      %FILL
	    INTEGER*2 %FILL
	    INTEGER*4 %FILL				 ! HAS SAME COD, BLN, SPARE AND NXT FIELD
 ! THESE 4 FIELDS ARE COMMON TO ALL XABS AND
 ! HAVE BEEN DEFINED BY $XABDEF
	    BYTE      XAB$B_NOA			 !  number of defined areas for index file
	    BYTE      XAB$B_NOK			 !  number of defined keys for index file
	    INTEGER*2 XAB$W_PVN			 !  prologue version number (relative and index files)
	END STRUCTURE	! XABSUMDEF
 !  basealign on aggregate XABSUMDEF operates after aggregate end
	PARAMETER XAB$K_SUMLEN = '0000000C'X	 !  xabsum length
	PARAMETER XAB$C_SUMLEN = '0000000C'X	 !  xabsum length
!DEC$ END OPTIONS