| 123456789101112131415161718192021222324252627282930 |
- $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
|
