################################################################################
# LIB: <name>
################################################################################
# $Revision: 1.3 $
# $Author: drajovic $
# $Date: 2005/01/28 11:18:42 $
# $Source: C:/Archive/FRAMEWORK/EMOS_GPL/FRM/TPL/Scripts/LIB/FRM/frm_lib1_lib/script,v $
# $NoKeywords: $
################################################################################

public function FRM_testblock ( in table, in test, in idx, in mode )
{
	auto rc;
	auto val;
	rc = FRM_init_block( table, test, idx, mode );
	if ( rc != E_OK )
		return rc;
	# see FlightDemo example for a more realistic example
	# which is available as a separate download due to its size
	rc = FRM_get_next( table, test, val );
	pause( val );
	return rc;
}