with CONDITION_HANDLING; use CONDITION_HANDLING;
with SYSTEM; use SYSTEM;
 
package RECOVERY_UNIT_SERVICES is
 
--  RU_HANDLE_TYPE
--
--  Unsigned longword that is used by the recovery unit services
--  to identify a particular recovery unit.
--
    subtype RU_HANDLE_TYPE is SYSTEM.UNSIGNED_LONGWORD;
 
 
--
--  $ABORT_RU
--
--    Abort Recovery Unit
--
--	$ABORT_RU  ru_handle
--
--	ru_handle = address of recovery unit handle
--
 
    procedure ABORT_RU (
	STATUS		: out COND_VALUE_TYPE;			-- return value
	RU_HANDLE	: in  RU_HANDLE_TYPE);
 
    pragma INTERFACE (EXTERNAL, ABORT_RU);
 
    pragma IMPORT_VALUED_PROCEDURE (ABORT_RU, "SYS$ABORT_RU",
	(COND_VALUE_TYPE, RU_HANDLE_TYPE),
	(VALUE, REFERENCE));
 
--
--  $COMMIT_RU
--
--    Commit Recovery Unit
--
--	$COMMIT_RU  ru_handle
--
--	ru_handle	= address of recovery unit handle
--
 
    procedure COMMIT_RU (
	STATUS		: out COND_VALUE_TYPE;			-- return value
	RU_HANDLE	: in  RU_HANDLE_TYPE);
 
    pragma INTERFACE (EXTERNAL, COMMIT_RU);
 
    pragma IMPORT_VALUED_PROCEDURE (COMMIT_RU, "SYS$COMMIT_RU",
	(COND_VALUE_TYPE, RU_HANDLE_TYPE),
	(VALUE, REFERENCE));
 
--
--  $END_RU
--
--    End Recovery Unit
--
--	$END_RU  ru_handle
--
--	ru_handle	= address of recovery unit handle
--
 
    procedure END_RU (
	STATUS		: out COND_VALUE_TYPE;			-- return value
	RU_HANDLE	: in  RU_HANDLE_TYPE);
 
    pragma INTERFACE (EXTERNAL, END_RU);
 
    pragma IMPORT_VALUED_PROCEDURE (END_RU, "SYS$END_RU",
	(COND_VALUE_TYPE, RU_HANDLE_TYPE),
	(VALUE, REFERENCE));
 
--
--  $PREPARE_RU
--
--    Prepare Recovery Unit
--
--	$PREPARE_RU  ru_handle
--
--	ru_handle	= address of recovery unit handle
--
 
    procedure PREPARE_RU (
	STATUS		: out COND_VALUE_TYPE;			-- return value
	RU_HANDLE	: in  RU_HANDLE_TYPE);
 
    pragma INTERFACE (EXTERNAL, PREPARE_RU);
 
    pragma IMPORT_VALUED_PROCEDURE (PREPARE_RU, "SYS$PREPARE_RU",
	(COND_VALUE_TYPE, RU_HANDLE_TYPE),
	(VALUE, REFERENCE));
 
--
--  $START_RU
--
--    Start Recovery Unit
--
--	$START_RU  ru_handle
--
--	ru_handle	= address of recovery unit handle
--	
 
    procedure START_RU (
	STATUS		: out COND_VALUE_TYPE;			-- return value
	RU_HANDLE	: out RU_HANDLE_TYPE);
 
    pragma INTERFACE (EXTERNAL, START_RU);
 
    pragma IMPORT_VALUED_PROCEDURE (START_RU, "SYS$START_RU",
	(COND_VALUE_TYPE, RU_HANDLE_TYPE),
	(VALUE, REFERENCE));
 
end RECOVERY_UNIT_SERVICES;