<head></head><body><pre></font><font color="#ff0000"><i>###########################################################################</font></i><font color=black>
</font><font color="#ff0000"><i># TSL-LIBRARY:	EMOS_FRM_TBL_Lib</font></i><font color=black>
</font><font color="#ff0000"><i>###########################################################################</font></i><font color=black>
</font><font color="#ff0000"><i># Copyright (C) 2003  EMOS Computer Consulting GmbH</font></i><font color=black>
</font><font color="#ff0000"><i># All rights reserved.</font></i><font color=black>
</font><font color="#ff0000"><i>#</font></i><font color=black>
</font><font color="#ff0000"><i># For further information please contact:</font></i><font color=black>
</font><font color="#ff0000"><i>#</font></i><font color=black>
</font><font color="#ff0000"><i>#	Dean Rajovic</font></i><font color=black>
</font><font color="#ff0000"><i>#	EMOS Computer Consulting GmbH</font></i><font color=black>
</font><font color="#ff0000"><i>#	Oskar-Messter-Straße 25</font></i><font color=black>
</font><font color="#ff0000"><i>#	85737 Ismaning</font></i><font color=black>
</font><font color="#ff0000"><i>#	Germany</font></i><font color=black>
</font><font color="#ff0000"><i>#	tel.: +49 89 608 765-0</font></i><font color=black>
</font><font color="#ff0000"><i>#	mailto:drajovic@emos.de</font></i><font color=black>
</font><font color="#ff0000"><i>#	http://www.emos.de</font></i><font color=black>
</font><font color="#ff0000"><i>###########################################################################</font></i><font color=black>
</font><font color="#ff0000"><i># $Revision: 1.1 $</font></i><font color=black>
</font><font color="#ff0000"><i># $Author: drajovic $</font></i><font color=black>
</font><font color="#ff0000"><i># $Date: 2003/03/27 12:36:27 $</font></i><font color=black>
</font><font color="#ff0000"><i># $Source: d:/Archive/CVS_QS/EMOS/EMOS_NAT/WR/NAT/emos_frm_nat_lib/script,v $</font></i><font color=black>
</font><font color="#ff0000"><i># $NoKeywords: $</font></i><font color=black>
</font><font color="#ff0000"><i>###########################################################################</font></i><font color=black>

</font><font color="#ff0000"><i>#</font></i><font color=black></font><font color="#ff0000"><i>/***
#* This library contains function specially designed fro processing table
#* objects. In this respect this library extends the funtionallity of the
#* standard emos_frm_gui_lib.
#* &lt;p&gt;NOTE&lt;br&gt;
#* These functions obey the rules of EMOS Framework (i.e. error logging,
#* error processing, FRM modes, etc.). To understand these concepts
#* you should study and understand emos_frm_gui_lib before you attempt
#* to add your own logic. 
#* @author drajovic
#*/</font></i><font color=black>

</font><font color="#ff0000"><i>#</font></i><font color=black></font><font color="#ff0000"><i>/**
#* Performs table action(s) on a 1-dimensional block of table cells.
#*
#* @param tid	(in)	id of the table where the instructins come from
#* @param test	(in)	name of the test to run (as named in column "Name")
#* @param obj	(in)	table object where actions are to be performed
#* @param desc (in) [optional] phisical descr. of the object contained in the table cell
#* @param desc (in) [optional] phisical descr. of the list element of the combo box
#* @return E_OK if success, else error
#*/</font></i><font color=black>

<b>public</b> <b>function</b> FRM_TBL_set_data ( <b>in</b> tid, <b>in</b> test, <b>in</b> obj, <b>in</b> desc, <b>in</b> list )
{
	<b>auto</b> val, mode, rc;
	<b>auto</b> rc2 = E_OK;
	<b>while</b>( ( rc = FRM_get_next( tid, test, val )) == E_OK )
	{
		wrlog_prim_start();
		FRM_log_frm_info( tid, test, val );
		mode = FRM_get_mode( tid );
		<b>switch</b>( mode )
		{
		<b>case</b> FRM_SET_MODE:
		<b>case</b> FRM_CHK_MODE:
</font><font color="#ff0000"><i>#			rc2+=TBL_FRM_cell_action( obj, val, mode, desc, list );</font></i><font color=black>
			<b>report_msg</b>( sprintf( </font><font color="#00bb00">"&#92;&#34;%s&#92;&#34; not performed in a demo (not free of charge)"</font><font color=black>, val ) );
			<b>break</b>;
		<b>case</b> FRM_ATR_MODE:
		<b>case</b> FRM_GEN_MODE:
			</font><font color="#ff0000"><i># not implemented</font></i><font color=black>
		<b>default</b>:
			<b>break</b>;
		}
		wrlog_prim_stop( rc2 );
	}
	<b>if</b> ( rc == E_FRM_SKIP || rc == E_OUT_OF_RANGE )  </font><font color="#ff0000"><i># empty or EOF</font></i><font color=black>
		rc = E_OK;
	</font><font color="#ff0000"><i># if one or the other rc variable &lt;&gt; 0, return error</font></i><font color=black>
	<b>if</b> ( rc2 != E_OK )
		<b>return</b> rc2;
	<b>return</b> rc;
}

</font><font color="#ff0000"><i>#</font></i><font color=black></font><font color="#ff0000"><i>/**
#* Performs table action(s) on a 2-dimensional block of table cells.
#*
#* @param tid	(in)	id of the table where the instructins come from
#* @param test	(in)	name of the test to run (as named in column "Name")
#* @param obj	(in)	table object where actions are to be performed
#* @return E_OK if success, else error
#*/</font></i><font color=black>

<b>public</b> <b>function</b> FRM_TBL_set_data_block ( <b>in</b> tid, <b>in</b> test, <b>in</b> obj )
{
	</font><font color="#ff0000"><i># not shown here</font></i><font color=black>
	<b>report_msg</b>( </font><font color="#00bb00">"not performed in a demo (not free of charge)"</font><font color=black> );
	<b>return</b> E_OK;
}
</pre></body>