of_iskey

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_linkage   >   of_iskey

Name	Datatype
li_i	integer
li_upperbound	integer

public function boolean of_iskey (string as_column);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_IsKey
//
//	Access:    		public
//
//	Arguments:
//	  as_column			The column for which we need to know if it is a key column
//
//	Returns:   		Boolean
// 					True if column is a key column, otherwise False.
//
//	Description:  Determine if column is a key column.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_upperbound
integer	li_i

if IsNull(as_column) or Len(Trim(as_column))=0 then 
	return False
end if

li_upperbound = UpperBound(is_keycols)
for li_i = 1 to li_upperbound
	if as_column = is_keycols[li_i] then
		return True
	end if
next

// Not found.
return False
end function

Name	Owner
pfc_n_cst_dwsrv_linkage.of_keysync	pfc_n_cst_dwsrv_linkage
pfc_n_cst_dwsrv_linkage.pfc_itemchanged	pfc_n_cst_dwsrv_linkage

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