of_registerskipcolumn

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_reqcolumn   >   of_registerskipcolumn

Name	Datatype
li_cnt	integer
li_slotavailable	integer
li_upper	integer

public function integer of_registerskipcolumn (string as_column);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_RegisterSkipColumn
//
//	Access: 			Public
//
//	Arguments:
//	as_column		Column that should be added so it can be skipped.
//
//	Returns:  		Integer
//	1 if it succeeds and -1 if an error occurs.
//	0 if column already registered.
// -1 failure.
//
//	Description:  	
//	Register a column to skip process on.  If column is to be skipped then 
//	the service will not take any action on it.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.0   Initial version
// 6.0 	Added checks to prevent column from being registered multiple times.
//
//////////////////////////////////////////////////////////////////////////////
//
//	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_upper
integer	li_cnt
integer	li_slotavailable = 0

// Check arguments.
If IsNull(as_column) or Len(Trim(as_column))=0 Then 
	Return -1
End If

// Trim and Convert to lower case.
as_column = Lower(Trim(as_column))

// Determine if column is already registered.
li_upper = UpperBound(is_skipcolumn)
For li_cnt = 1 to li_upper
	If is_skipcolumn[li_cnt] = as_column Then
		// Column was previously registered.
		Return 0 
	End If
	// Get the first slot available.
	If Len(is_skipcolumn[li_cnt]) = 0 And li_slotavailable = 0 Then
		li_slotavailable = li_cnt
	End If
Next

// Use the slot available or create a new upper entry.
If li_slotavailable = 0 Then
	li_slotavailable = li_upper + 1
End If

// Add to array.
is_skipcolumn[ li_slotavailable ] = as_column

// Update the skip string.
of_UpdateSkipString (is_skipcolumn)

Return 1
end function

Name	Owner
pfc_u_tabpg_dwproperty_srvreqcolumn.pfc_propertyapply	pfc_u_tabpg_dwproperty_srvreqcolumn

Name	Owner
systemfunctions.isnull	systemfunctions
systemfunctions.len	systemfunctions
systemfunctions.lower	systemfunctions
systemfunctions.trim	systemfunctions
systemfunctions.upperbound	systemfunctions
pfc_n_cst_dwsrv_reqcolumn.of_updateskipstring	pfc_n_cst_dwsrv_reqcolumn