DBMS_SQL

Question

Hello,
I want to write a Procedure that selects the name from the employee which employee-number I give over. But I have one question. How can I give out the ename. Normally if I write a select statement in PL/SQL I must add the INTO-Clause to store the value in a Variable. But how here...
CREATE OR REPLACE PROCEDURE select_table(vempno NUMBER) IS
vename VARCHAR2(30);
rows_processed BINARY_INTEGER;
cur_hdl INTEGER;
stmt_str VARCHAR2(100);
BEGIN
cur_hdl:=DBMS_SQL.OPEN_CURSOR;
stmt_str:='SELECT DISTINCT ename FROM emp WHERE empno'||'=:empno';
DBMS_SQL.PARSE(cur_hdl, stmt_str, dbms_sql.native);
DBMS_SQL.BIND_VARIABLE(cur_hdl,':empno',vempno);
rows_processed:=DBMS_SQL.EXECUTE(cur_hdl);
DBMS_SQL.CLOSE_CURSOR(cur_hdl);
END;

Answer 1

Hi,
Try this:
CREATE OR REPLACE PROCEDURE select_table(vempno NUMBER, vempname OUT VARCHAR2) IS
rows_processed BINARY_INTEGER;
cur_hdl INTEGER;
stmt_str VARCHAR2(100);
BEGIN
cur_hdl:=DBMS_SQL.OPEN_CURSOR;
stmt_str:='SELECT DISTINCT ename FROM emp WHERE empno =:empno';
DBMS_SQL.PARSE(cur_hdl, stmt_str, dbms_sql.native);
-- supply binds (bind by name)
DBMS_SQL.BIND_VARIABLE(cur_hdl,'empno',vempno);
-- describe defines
dbms_sql.define_column(cur_hdl, 1, vempname, 200);
-- execute
rows_processed := dbms_sql.execute(cur_hdl);
LOOP
-- fetch a row
IF dbms_sql.fetch_rows(cur_hdl) > 0 then
-- fetch columns from the row
dbms_sql.column_value(cur_hdl, 1, vempname);
ELSE
EXIT;
END IF;
END LOOP;
-- close cursor
dbms_sql.close_cursor(cur_hdl);
END;