of_getobjects

pfcapsrv.pbl   >   pfc_n_cst_tvsrv_levelsource   >   of_getobjects

Name	Datatype
li_Cnt	Integer
li_NumDS	Integer
lpo_empty	powerobject[]

public function integer of_getobjects (ref powerobject apo_objects[]);//////////////////////////////////////////////////////////////////////////////
//
//	Function:	of_GetObjects
//
//	Access:		public
//
//	Arguments:  
//	apo_objects[]	array holding objects which are updateable.  Passed by reference
//
//	Returns:		Integer
//					# of objects returned 
//	
//	Description:
//	Return the objects on the service which are updateable (ie datastores).  Used as part
//	of the SUO process
//
//////////////////////////////////////////////////////////////////////////////
//	
//	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.
//
//////////////////////////////////////////////////////////////////////////////

powerobject	lpo_empty[]
Integer		li_NumDS, li_Cnt

apo_objects = lpo_empty

// Determine the appropriate array.
li_NumDS = UpperBound(inv_attrib)
For li_Cnt = 1 To li_NumDS
	If IsValid(inv_attrib[li_Cnt].ids_obj) Then
		apo_objects[li_cnt] = inv_attrib[li_Cnt].ids_obj
	End If
End For

Return upperbound(apo_objects)
end function

Name	Owner
pfc_u_tvs.of_getobjects	pfc_u_tvs

Name	Owner
systemfunctions.isvalid	systemfunctions
systemfunctions.upperbound	systemfunctions