of_getregistered

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_multitable   >   of_getregistered

Name	Datatype
li_cnt	integer
li_tablecount	integer
ls_empty	string[]

public function integer of_getregistered (string as_table, ref string as_keycolumns[], ref string as_updateablecolumns[], ref boolean ab_keyinplace, ref integer ai_whereoption);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_GetRegistered
//
//	Access:    		Public
//
//	Arguments: 
//   as_table: 			A string containing the table to get the registered info for.
//   as_keycolumns[] (by ref.) An array containing the registered key columns
//	  as_updateablecolumns[] (by ref.) An array containing the registered updateable columns
//	  ab_keyinplace (by ref.) The registed Update Key in Place setting
//   ai_whereoption (by ref.) The registed WhereOption setting.
//
//	Returns: 		Integer
// 1 if it succeeds
//	-1 if an error occurs. 
//
//	Description:  	
//	Gets the registered information/settings for the passed in table.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	6.0   Initial version
// 6.0	Enhanced to find openslot.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1999 Sybase, Inc. and its subsidiaries.  All rights reserved.
//	Any distribution of the PowerBuilder Foundation Classes (PFC)
//	source code by other than Sybase, Inc. and its subsidiaries is prohibited.
//
//////////////////////////////////////////////////////////////////////////////
integer	li_tablecount
integer	li_cnt
string	ls_empty[]

//  Clear the reference variables.
as_keycolumns = ls_empty
as_updateablecolumns = ls_empty
ab_keyinplace = False
ai_whereoption = 0

// Validate the arguments.
IF IsNull (as_table) OR Len(Trim(as_table)) = 0 THEN Return -1

// Find the supposedly registered table.
li_tablecount = UpperBound ( inv_newupdate ) 
For li_cnt = 1 to li_tablecount
	If Trim(inv_newupdate[li_cnt].s_updatetable) = Trim(as_table) Then
		// Found the registered information.
		as_keycolumns = inv_newupdate[li_cnt].s_keycolumns
		as_updateablecolumns = inv_newupdate[li_cnt].s_updatecolumns
		ab_keyinplace = inv_newupdate[li_cnt].b_keyupdateinplace
		ai_whereoption = inv_newupdate[li_cnt].i_whereoption
		Return 1
	End If
Next

// The table is not registered.
Return -1

end function

Name	Owner
pfc_u_tabpg_dwproperty_srvmultitable.pfc_propertypopulateds	pfc_u_tabpg_dwproperty_srvmultitable

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions