of_isexclude

pfcapsrv.pbl   >   pfc_n_cst_lvsrv_sort   >   of_isexclude

Name	Datatype
lb_exclude	boolean
li_count	Integer
li_index	Integer

public function boolean of_isexclude (string as_columnlabel);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_IsExclude
//
//	Access:    		Public
//
//	Arguments:
//	as_columnlabel		The column to check for exclusion
//
//	Returns:   		Boolean
//   					True if it succeed
//						False if not excluded
//
//	Description:  	Checks the column to see if it is elgible for sorting.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_exclude=False
Integer		li_count, li_index

If Not IsValid(ilv_requestor) Then Return False
If isnull(as_columnlabel) or (trim(as_columnlabel) = "") then Return False

// See if any columns were set to be excluded from the sort 
li_count  = UpperBound(is_excludecolumns) 
FOR li_index = 1 to li_count
	IF lower(as_columnlabel) = lower(is_excludecolumns[li_index]) THEN
		lb_exclude = TRUE
		EXIT
	END IF
NEXT

Return lb_exclude
end function

Name	Owner
pfc_n_cst_lvsrv_sort.of_isexclude	pfc_n_cst_lvsrv_sort

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.isvalid	systemfunctions
systemfunctions.lower	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions