Q5/ws_objects/Ew_connect.pbl.src/f_get_outerconnection_fj.srf

$PBExportHeader$f_get_outerconnection_fj.srf
global type f_get_outerconnection_fj from function_object
end type

forward prototypes
global function integer f_get_outerconnection_fj (long arg_connectionid, ref s_outerconnection arg_s_connection, ref string arg_msg)
end prototypes

global function integer f_get_outerconnection_fj (long arg_connectionid, ref s_outerconnection arg_s_connection, ref string arg_msg);Int rslt = 1
String ls_dbms,ls_databasename
String ls_logid,ls_logpass,ls_servername
string ls_mdf_name,ls_ldf_name

SELECT dbms,
	databasename,
	logid,
	logpass,
	servername,
	mdf_name,
	ldf_name
	INTO :ls_dbms,
	:ls_databasename,
	:ls_logid,
	:ls_logpass,
	:ls_servername,
	:ls_mdf_name,
	:ls_ldf_name
	FROM u_outerconnection
	Where connectionid = :arg_connectionid;
IF sqlca.SQLCode <> 0 THEN
	arg_msg = '查询连接资料失败,'+sqlca.SQLErrText
	rslt = 0
	GOTO ext
END IF

arg_s_connection.DBMS   = ls_dbms
arg_s_connection.databasename   = ls_databasename
arg_s_connection.LogID      = ls_logid
arg_s_connection.LogPass    = ls_logpass
arg_s_connection.ServerName = ls_servername
arg_s_connection.mdf_name = ls_mdf_name
arg_s_connection.ldf_name = ls_ldf_name

ext:
RETURN rslt

end function