of_isregistered

pfcapsrv.pbl   >   pfc_n_cst_trregistration   >   of_isregistered

Name	Datatype
li_cnt	integer
li_upperbound	integer

public function boolean of_isregistered (n_tr atr_obj);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_IsRegistered
//
//	Access:  		public
//
//	Arguments:
//	atr_obj   		Transaction object to check for registration
//
//	Returns:  		boolean
//						Returns whether the transaction object specified is 
//						registered with the service.
//
//	Description:	Checks whether the transaction object specified is 
//						registered with 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_upperbound
integer	li_cnt

// Check arguments.
if IsNull(atr_obj) Or not IsValid (atr_obj) then
	return false
end if

// Check if registered
li_upperbound = UpperBound (inv_trans)
for li_cnt = 1 to li_upperbound
	if inv_trans[li_cnt].b_used and IsValid (inv_trans[li_cnt].tr_object) then
		if inv_trans[li_cnt].tr_object = atr_obj then
			// The Transaction is registered.
			Return True
		end if
	end if
next

// The Transaction is NOT registered.
Return False
end function

Name	Owner
pfc_n_tr.destructor	pfc_n_tr

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