!*** MODULE $XABRUDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         Recovery Unit XAB definitions
 !                 $xabrudef
 ! 
	PARAMETER XAB$C_RU = '00000023'X	 !  xabru id code
	PARAMETER XAB$M_NOJOIN = '00000001'X
	STRUCTURE /XABRUDEF/
	    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
	    UNION
	        MAP
	        INTEGER*2 XAB$W_RU_FLAGS		 !  Flags
	        END MAP
	        MAP
	            PARAMETER XAB$S_NOJOIN = 1
	            PARAMETER XAB$V_NOJOIN = 0		 !  Do not join any recovery unit
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*2 %FILL
	    INTEGER*4 XAB$L_RU_HANDLE		 !  RU handle to join (input field)
	    INTEGER*4 XAB$L_RU_HANDLE_JOINED	 !  RU handle joined (output field)
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	    INTEGER*4 %FILL
	END STRUCTURE	! XABRUDEF
 !  basealign on aggregate XABRUDEF operates after aggregate end
	PARAMETER XAB$K_RULEN = '00000030'X
	PARAMETER XAB$C_RULEN = '00000030'X
!DEC$ END OPTIONS