Q5/ws_objects/Ew_bsnobj.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