FXApp/ws_objects/l1_uo.pbl.src/f_find_storageid.srf

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

forward prototypes
global function string f_find_storageid (string arg_storageid)
end prototypes

global function string f_find_storageid (string arg_storageid);Long ins_storageid
String rslt_storagename = ''
ins_storageid = Long(arg_storageid)

SELECT storagename 
INTO :rslt_storagename 
FROM u_storage 
Where storageid = :ins_storageid;
IF sqlca.SQLCode <> 0 THEN
	RETURN ''
ELSE
	RETURN rslt_storagename
END IF


end function