of_getcount

pfcapsrv.pbl   >   pfc_n_cst_dwcache   >   of_getcount

Name	Datatype
li_cnt	Integer
li_registeredcnt	Integer
li_upper	Integer

public function integer of_getcount ();//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_GetCount
//
//	Access:  public
//
//	Arguments:
//	as_id
//
//	Returns:  integer
//	Number of objects that are currently registered.
//
//	Description:
//	Determines the Number of objects that are currently registered.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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
Integer 	li_registeredcnt=0

// Find the ID.
li_upper = UpperBound(inv_cachelist)
For li_cnt = 1 to li_upper
	If Len(inv_cachelist[li_cnt].s_id) > 0 Then 
		// A registered object has been found.   
		// Increment the count.
		li_registeredcnt ++
	End If
Next

// The number of registered objects.
Return li_registeredcnt
end function

Name	Owner
systemfunctions.len	systemfunctions
systemfunctions.upperbound	systemfunctions