of_updateskipstring

pfcdwsrv.pbl   >   pfc_n_cst_dwsrv_reqcolumn   >   of_updateskipstring

Name	Datatype
li_index	integer
li_max	integer

protected function integer of_updateskipstring (string as_skipcolumn[]);//////////////////////////////////////////////////////////////////////////////
//
//	Function:  		of_UpdateSkipString
//
//	Access: 			Protected
//
//	Arguments:
//	as_skipcolumn	Array to be used in the construction of the Skip String.
//
//	Returns:  		Integer
//						1 if it succeeds and -1 if an error occurs.
//
//	Description:  	Create the current skip string.
//
//////////////////////////////////////////////////////////////////////////////
//
//	Revision History
//
//	Version
//	5.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_max
integer	li_index

// Initialize the string.
is_skip = '~t'

// Get the number of entries on array.
li_max = UpperBound ( as_skipcolumn )

// Loop around array creating the string, with each entry separated by a tab ('~t').
For li_index = 1 to li_max
	If Len (Trim(as_skipcolumn[li_index])) > 0 Then
		is_skip = is_skip + as_skipcolumn[li_index] + '~t'
	End If
Next

Return 1
end function

Name	Owner
pfc_n_cst_dwsrv_reqcolumn.of_registerskipcolumn	pfc_n_cst_dwsrv_reqcolumn
pfc_n_cst_dwsrv_reqcolumn.of_Unregister	pfc_n_cst_dwsrv_reqcolumn

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