of_getcount

pfcapsrv.pbl   >   pfc_n_cst_tmgmultiple   >   of_getcount

Name	Datatype
li_cnt	integer
li_count	integer
li_idx	integer

public function integer of_getcount ();//////////////////////////////////////////////////////////////////////////////
//
//	Function:
//	of_getcount
//
//	Access:
//	public
//
//	Arguments:
//	None
//
//	Returns:
//	integer : the number of object/event name pairs registered with the service
//
//	Description:
//	Returns the number of object/event name pairs registered with the service
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	6.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////
//
//	Copyright © 1996-1997 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_cnt
integer	li_idx
integer	li_count=0

// Loop around all entries, count the number of valid entries.
li_cnt = upperbound(inv_tmgregister)
For li_idx = 1 To li_cnt
	If isvalid(inv_tmgregister[li_idx].ipo_notify) Then
		// Found a valid object, increment the count.
		li_count ++
	End If
Next

Return li_count
end function

Name	Owner
pfc_n_cst_tmgmultiple.of_unregister	pfc_n_cst_tmgmultiple

Name	Owner
systemfunctions.isvalid	systemfunctions
systemfunctions.upperbound	systemfunctions