!*** MODULE $XABDATDEF ***
CDEC$ OPTIONS /NOALIGN
! --
! ++
! 
!         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 !  Version V5.4 XABDAT  length
	PARAMETER XAB$C_DATLEN_V54 = '0000002C'X
	PARAMETER XAB$K_DATLEN = '0000003C'X	!  length of XABDAT 
	PARAMETER XAB$C_DATLEN = '0000003C'X	!  length of XABDAT 
	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
	END STRUCTURE	! XABDATDEF
CDEC$ END OPTIONS