!*** MODULE $XABDATDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         date/time xab definitions
 !                 $xabdatdef
 ! 
 ! 
	PARAMETER XAB$C_DAT = '00000012'X	 !  xabdat id code
	PARAMETER XAB$K_DATLEN_V2 = '00000024'X	 !  Version 2 XABDAT length
	PARAMETER XAB$C_DATLEN_V2 = '00000024'X	 !  Version 2 XABDAT length
	PARAMETER XAB$K_DATLEN_V54 = '0000002C'X  !  length of XABDAT
	PARAMETER XAB$C_DATLEN_V54 = '0000002C'X  !  length of XABDAT
	PARAMETER XAB$K_DATLEN_PRE_ACCDATES = '0000003C'X  !  XABDAT length before addition of 3 access dat
	PARAMETER XAB$C_DATLEN_PRE_ACCDATES = '0000003C'X  !  XABDAT length before addition of 3 access dat
	PARAMETER XAB$K_DATLEN_POST_ACCDATES = '00000054'X  !  XABDAT length after addition of 3 access dat
	PARAMETER XAB$C_DATLEN_POST_ACCDATES = '00000054'X  !  XABDAT length after addition of 3 access dat
	STRUCTURE /XABDATDEF/
	    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
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_CDT(2)			 !  creation date & time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_CDT0
	            INTEGER*4 XAB$L_CDT4
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_EDT(2)			 !  expiration date & time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_EDT0
	            INTEGER*4 XAB$L_EDT4
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_BDT(2)			 !  backup date and time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_BDT0
	            INTEGER*4 XAB$L_BDT4
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_RCD(2)			 !  Recorded date and time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_RCD0
	            INTEGER*4 XAB$L_RCD4
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_EFF(2)			 !  Effective date and time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_EFF0
	            INTEGER*4 XAB$L_EFF4
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_ACC(2)			 !  Access date and time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_ACC0
	            INTEGER*4 XAB$L_ACC4
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_ATT(2)			 !  Attribute change date and time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_ATT0
	            INTEGER*4 XAB$L_ATT4
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*4 XAB$Q_MOD(2)			 !  data Modification date and time
	        END MAP
	        MAP
	            INTEGER*4 XAB$L_MOD0
	            INTEGER*4 XAB$L_MOD4
	        END MAP
	    END UNION
	END STRUCTURE	! XABDATDEF
 !  basealign on aggregate XABDATDEF operates after aggregate end
	PARAMETER XAB$K_DATLEN = '00000054'X	 !  length of XABDAT
	PARAMETER XAB$C_DATLEN = '00000054'X	 !  length of XABDAT
!DEC$ END OPTIONS