|
of_getregistered
|
|
Full name
|
pfc_n_cst_dssrv_multitable.of_getregistered
|
Access
|
public
|
Extend of
|
integer
|
Return value
|
integer
|
Prototype
|
public function integer of_getregistered(string,ref string[],ref string[],ref boolean,ref integer)
|
Name
|
Datatype
|
li_cnt
|
integer
|
li_tablecount
|
integer
|
ls_empty
|
string[]
|
public function integer of_getregistered (string as_table, ref string as_keycolumns[], ref string as_updateablecolumns[], ref boolean ab_keyinplace, ref integer ai_whereoption);//////////////////////////////////////////////////////////////////////////////
//
// Function: of_GetRegistered
//
// Access: Public
//
// Arguments:
// as_table: A string containing the table to get the registered info for.
// as_keycolumns[] (by ref.) An array containing the registered key columns
// as_updateablecolumns[] (by ref.) An array containing the registered updateable columns
// ab_keyinplace (by ref.) The registed Update Key in Place setting
// ai_whereoption (by ref.) The registed WhereOption setting.
//
// Returns: Integer
// 1 if it succeeds
// -1 if an error occurs.
//
// Description:
// Gets the registered information/settings for the passed in table.
//
//////////////////////////////////////////////////////////////////////////////
//
// Revision History
//
// Version
// 6.0 Initial version
// 6.0 Enhanced to find openslot.
//
//////////////////////////////////////////////////////////////////////////////
//
// Copyright © 1996-1999 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_tablecount
integer li_cnt
string ls_empty[]
// Clear the reference variables.
as_keycolumns = ls_empty
as_updateablecolumns = ls_empty
ab_keyinplace = False
ai_whereoption = 0
// Validate the arguments.
IF IsNull (as_table) OR Len(Trim(as_table)) = 0 THEN Return -1
// Find the supposedly registered table.
li_tablecount = UpperBound ( inv_newupdate )
For li_cnt = 1 to li_tablecount
If Trim(inv_newupdate[li_cnt].s_updatetable) = Trim(as_table) Then
// Found the registered information.
as_keycolumns = inv_newupdate[li_cnt].s_keycolumns
as_updateablecolumns = inv_newupdate[li_cnt].s_updatecolumns
ab_keyinplace = inv_newupdate[li_cnt].b_keyupdateinplace
ai_whereoption = inv_newupdate[li_cnt].i_whereoption
Return 1
End If
Next
// The table is not registered.
Return -1
end function
Name
|
Owner
|
systemfunctions.isnull |
systemfunctions
|
systemfunctions.len |
systemfunctions
|
systemfunctions.trim |
systemfunctions
|
systemfunctions.upperbound |
systemfunctions
|