of_isregistered

pfcapsrv.pbl   >   pfc_n_cst_dwcache   >   of_isregistered

Name	Datatype
li_cnt	Integer
li_upper	Integer

public function integer of_isregistered (string as_id);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_IsRegistered
//
//	Access:  public
//
//	Arguments:
//	as_id		The ID for the object to test on.
//
//	Returns:  integer
//	1 - Yes it has been registered.
// 0 - No it has not been registered.
//	-1 - An error was encountered.
//
//	Description:
//	Determines if the object has been registered on the service by the ID.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_upper
Integer	li_cnt

// Check arguments.
If IsNull(as_id) or Len(Trim(as_id))=0 Then
	Return -1
End If

// Trim and Convert the ID to lower case.
as_id = Trim(Lower(as_id))

// Find the ID.
li_upper = UpperBound(inv_cachelist)
For li_cnt = 1 to li_upper
	If as_id = inv_cachelist[li_cnt].s_id Then
		If IsNull(inv_cachelist[li_cnt].ds_obj) Or &
			Not IsValid(inv_cachelist[li_cnt].ds_obj) Then
			// At this point the ds_obj should be valid.
			Return -1
		End If		
		// The entry has been found.   
		Return 1
	End If
Next

// The ID was not found.
Return 0
end function

Name	Owner
pfc_n_cst_tvsrv_levelsource.of_registerdatasource	pfc_n_cst_tvsrv_levelsource
pfc_n_cst_tvsrv_levelsource.of_unregister	pfc_n_cst_tvsrv_levelsource
pfc_n_cst_lvsrv_datasource.of_RegisterDataSource	pfc_n_cst_lvsrv_datasource

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