|
of_Init
|
|
Full name
|
pfc_n_tr.of_Init
|
Access
|
public
|
Extend of
|
integer
|
Return value
|
integer
|
Prototype
|
public function integer of_Init(string,string)
|
Name
|
Datatype
|
lnv_conversion
|
n_cst_conversion
|
public function integer of_Init (string as_inifile, string as_inisection);//////////////////////////////////////////////////////////////////////////////
// Public Function: of_Init
// Arguments: as_inifile .INI file to read values from.
// as_inisection Section within .INI file where transaction object values are.
// Returns: integer
// 1 = success
// -1 = error
// Description: Initializes transaction object's properties with values from
// an .INI file. Values that are not found will be defaulted to an empty string.
//////////////////////////////////////////////////////////////////////////////
// Rev. History Version
// 5.0 Initial version
//////////////////////////////////////////////////////////////////////////////
// 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.
//////////////////////////////////////////////////////////////////////////////
n_cst_conversion lnv_conversion
// Check arguments
if IsNull (as_inifile) or IsNull (as_inisection) or &
Len (Trim (as_inifile))=0 or Len (Trim (as_inisection))=0 or &
(not FileExists (as_inifile)) then return -1
this.DBMS= ProfileString (as_inifile, as_inisection, 'DBMS', '')
this.Database = ProfileString (as_inifile, as_inisection, 'Database', '')
this.LogID = ProfileString (as_inifile, as_inisection, 'LogID', '')
this.LogPass = ProfileString (as_inifile, as_inisection, 'LogPassword', '')
this.ServerName = ProfileString (as_inifile, as_inisection, 'ServerName', '')
this.UserID = ProfileString (as_inifile, as_inisection, 'UserID', '')
this.DBPass =ProfileString (as_inifile, as_inisection, 'DatabasePassword', '')
this.Lock =ProfileString (as_inifile, as_inisection, 'Lock', '')
this.DBParm =ProfileString (as_inifile, as_inisection, 'DBParm', '')
this.AutoCommit = lnv_conversion.of_Boolean (ProfileString (as_inifile, as_inisection, 'AutoCommit', 'false'))
if IsNull (this.AutoCommit) then this.AutoCommit = false
return 1
end function
Name
|
Owner
|
systemfunctions.fileexists |
systemfunctions
|
systemfunctions.isnull |
systemfunctions
|
systemfunctions.len |
systemfunctions
|
systemfunctions.profilestring |
systemfunctions
|
systemfunctions.trim |
systemfunctions
|
pfc_n_cst_conversion.of_boolean |
pfc_n_cst_conversion
|