of_getregistered

pfcapsrv.pbl   >   pfc_n_cst_dwcache   >   of_getregistered

Name	Datatype
li_cnt	Integer
li_registeredcnt	Integer
li_upper	Integer

public function integer of_getregistered (ref n_ds ads_list[]);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_GetRegistered
//
//	Access:  public
//
//	Arguments:
//	ads_list		An array of datastores being cached by the service
//					(by reference).
//
//	Returns:  integer
//	number of IDs returned.
//	-1 error.
//
//	Description:
//	Returns an array holding all the datastores that are in the service.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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=0
Integer	li_cnt=0
Integer	li_registeredcnt=0

// Loop around all objects and build array of valid entries.
li_upper = UpperBound(inv_cachelist)
For li_cnt = 1 to li_upper
	If Len(inv_cachelist[li_cnt].s_id) > 0 Then
		If IsNull(inv_cachelist[li_cnt].ds_obj) Or &
			Not IsValid(inv_cachelist[li_cnt].ds_obj) Then
			Return -1
		End If
		// A Registered Datastore has been found.
		li_registeredcnt ++
		ads_list[li_registeredcnt] = inv_cachelist[li_cnt].ds_obj
	End If
Next

Return li_registeredcnt
end function

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