1、函数-获取字段值:
create or replace
FUNCTION F_GET_VALUE(SLC_NAME IN VARCHAR2,
FRM_NAME IN VARCHAR2,
WHR_NAME IN VARCHAR2,
WHR_VALUE IN VARCHAR2)
RETURN VARCHAR2 IS
SQLSTR VARCHAR2(1000);
V_VALUE VARCHAR2(200);
BEGIN
IF LENGTH(WHR_VALUE) = 0 OR NVL(WHR_VALUE, '*') = '*' THEN
RETURN('');
END IF;
SQLSTR := 'SELECT ' || SLC_NAME || ' FROM ' || FRM_NAME || ' WHERE ' ||
WHR_NAME || '=:WHR_VALUE AND ROWNUM=1';
EXECUTE IMMEDIATE SQLSTR
INTO V_VALUE
USING WHR_VALUE;
RETURN(V_VALUE);
END;