!*** MODULE $XABRUDEF ***
CDEC$ OPTIONS /NOALIGN
! ++
! 
!         Recovery Unit XAB definitions
!                 $xabrudef
! 
! 
	PARAMETER XAB$C_RU = '00000023'X	!  xabru id code 
	PARAMETER XAB$M_NOJOIN = '00000001'X
	PARAMETER XAB$K_RULEN = '00000030'X
	PARAMETER XAB$C_RULEN = '00000030'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
CDEC$ END OPTIONS