of_findmatchingvariable

pfcapsrv.pbl   >   pfc_n_cst_metaclass   >   of_findmatchingvariable

Name	Datatype
lb_found	boolean
li_cnt	int
li_variables	int
lvrd_list	variabledefinition[]
lvrd_object	variabledefinition

public function variabledefinition of_findmatchingvariable (classdefinition acd_object, string as_varname);//////////////////////////////////////////////////////////////////////////////
//
//	Function:
//	of_findMatchingVariable
//
//	Access:
//	public
//
//	Arguments:
//	acd_object	classdefinition reference for variables that are to be found
//	as_varname	variable name to find definition for
//
//	Returns:
//	variabledefinition
//	If varname is not found on classdefinition or classdefinition is invalid, returns NULL
//
//	Description:
//	Finds a variabledefinition reference for the passed in variable name and classdefinition
//
//////////////////////////////////////////////////////////////////////////////
//
//	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.
//
//////////////////////////////////////////////////////////////////////////////

boolean	lb_found
int		li_variables
int		li_cnt = 1
variabledefinition	lvrd_object
variabledefinition		lvrd_list[]

setNull (lvrd_object)

// Verify class definition
if not isValid (acd_object) or isNull (acd_object) then
	return lvrd_object
end if

// Find matching variable
lvrd_list[] = acd_object.variablelist[]
li_variables = upperBound (lvrd_list)
do while li_cnt <= li_variables and not lb_found
	if acd_object.variablelist[li_cnt].name = as_varname then
		lb_found = true
	else
		li_cnt++
	end if
loop

return acd_object.variablelist[li_cnt]
end function

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