!*** MODULE $XABRDTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         revision date/time xab definitions
 !                 $xabrdtdef
 ! 
	PARAMETER XAB$C_RDT = '0000001E'X	 !  xabrdt id code
	STRUCTURE /XABRDTDEF/
	    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
	    INTEGER*2 %FILL				 ! REVISION !,DEFINED IN $XABDEF,SINCE COMMON TO DAT & RDT
	    INTEGER*2 %FILL				 !  spare
	    INTEGER*4 %FILL(2)			 !  revision date & time,defined in $xabdef
	END STRUCTURE	! XABRDTDEF
 !  basealign on aggregate XABRDTDEF operates after aggregate end
	PARAMETER XAB$K_RDTLEN = '00000014'X	 !  length of rdt xab
	PARAMETER XAB$C_RDTLEN = '00000014'X	 !  length of rdt xab
!DEC$ END OPTIONS