of_getregistered

pfcapsrv.pbl   >   pfc_n_cst_trregistration   >   of_getregistered

Name	Datatype
li_cnt	integer
li_count	integer
li_upperbound	integer

public function integer of_getregistered (ref n_tr atr_obj[]);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  of_GetRegistered
//
//	Access:  public
//
//	Arguments:
//	atr_obj[]   array of trans objects passed by reference
//
//	Returns:  integer
//	The number of registered transaction objects
//
//	Description:  Returns the registered transaction objects
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
//
//////////////////////////////////////////////////////////////////////////////

integer	li_upperbound
integer	li_cnt
integer	li_count

// Loop through the registered array.
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
		li_count++
		atr_obj[li_count] = inv_trans[li_cnt].tr_object
	end if
next

return li_count
end function

Name	Owner
systemfunctions.isvalid	systemfunctions
systemfunctions.upperbound	systemfunctions