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

forward prototypes
global function integer f_get_db_spid ()
end prototypes

global function integer f_get_db_spid ();Integer row
Integer ll_spid

datastore ds
ds = CREATE datastore
ds.DataObject = "dw_ddd_db_spid"
ds.SetTransObject(sqlca)
row = ds.Retrieve()

IF row > 0 THEN
	ll_spid = ds.Object.spid[row]
END IF

DESTROY ds

RETURN ll_spid




end function