of_isregistered

pfcapsrv.pbl   >   pfc_n_cst_tmgmultiple   >   of_isregistered

Name	Datatype
li_cnt	integer
li_idx	integer

public function boolean of_isregistered (powerobject apo_object, string as_eventname);//////////////////////////////////////////////////////////////////////////////
//
//	Function:
//	of_IsRegistered
//
//	Access:
//	public
//
//	Arguments:
//	apo_object : powerobject ; Object to be searched for
//	as_eventname : string; Event to be searched for
//
//	Returns:
//	Boolean
//	SUCCESS = True
//	Entry not found = False
//
//	Description:
//	Returns whether the passed in object/eventname pair was found or not.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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

// Validate the arguments.
If isnull(apo_object) Then Return false
If not isvalid(apo_object) Then Return false
If len(trim(as_eventname)) = 0 Then Return false

// Loop, find the object/event pair
li_cnt = upperbound(inv_tmgregister)
For li_idx = 1 To li_cnt
	If isvalid(inv_tmgregister[li_idx].ipo_notify) Then
		If inv_tmgregister[li_idx].ipo_notify = apo_object And &
			inv_tmgregister[li_idx].is_notifyevent = as_eventname Then
			Return true
		End If
	End If
Next

// Not found
Return false
end function

Name	Owner
pfc_n_cst_tmgmultiple.of_unregister	pfc_n_cst_tmgmultiple

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