!*** MODULE $XABJNLDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         Journal XAB definitions
 !                 $xabjnldef
 ! 
	PARAMETER XAB$C_JNL = '00000022'X	 !  xabjnl id code
	PARAMETER XAB$C_JNL_TYPE_NONE = '00000000'X
	PARAMETER XAB$C_AI = '00000001'X	 !  AI journal
	PARAMETER XAB$C_BI = '00000002'X	 !  BI journal
	PARAMETER XAB$C_AT = '00000003'X	 !  AT journal
	PARAMETER XAB$C_RU_DEFAULT = '00000004'X  !  default RU volume
	PARAMETER XAB$M_JOURNAL_DISABLED = '00000001'X
	PARAMETER XAB$M_BACKUP_DONE = '00000002'X
	STRUCTURE /XABJNLDEF/
	    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_XABJNL_TYPE		 !  type of $XABJNL
	    BYTE      %FILL
	    UNION
	        MAP
	        INTEGER*2 XAB$W_JNL_FLAGS		 !  journal flags (from ACE$W_RMSJNL_FLAGS)
	        END MAP
	        MAP
	            PARAMETER XAB$S_JOURNAL_DISABLED = 1
	            PARAMETER XAB$V_JOURNAL_DISABLED = 0	 !  journaling disabled by BACKUP (AI/BI/AT)
	            PARAMETER XAB$S_BACKUP_DONE = 1
	            PARAMETER XAB$V_BACKUP_DONE = 1		 !  Backup done since last $OPEN
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*4 XAB$L_JNL_FAB			 !  address of journal file FAB
	    INTEGER*4 XAB$L_VOLNAM_BUF		 !  address of journal volume name buffer
	    INTEGER*2 XAB$W_VOLNAM_SIZ		 !  size of journal volume name buffer
	    INTEGER*2 XAB$W_VOLNAM_LEN		 !  return length of journal volume name
	    INTEGER*4 XAB$Q_JNL_VERIFY_CDATE(2)	 !  journal file creation date (from ACE$Q_CDATE)
 !  (to match with journal file's creation date)
	    INTEGER*4 XAB$L_JNLIDX			 !  Journal stream index within journal file
	    INTEGER*4 XAB$L_BACKUP_SEQNO		 !  Backup sequence number.
	    INTEGER*4 XAB$Q_JNL_MOD_TIME(2)		 !  Timestamp of last backup or last journal
 !  entry recovered.
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	END STRUCTURE	! XABJNLDEF
 !  basealign on aggregate XABJNLDEF operates after aggregate end
	PARAMETER XAB$K_JNLLEN = '00000050'X
	PARAMETER XAB$C_JNLLEN = '00000050'X
!DEC$ END OPTIONS