SET SERVEROUTPUT ON;
CREATE OR REPLACE PROCEDURE Procdemo AS
c_name table_name.Column_name%type;
BEGIN
select Column_name into c_namefrom table_name where ....;
  DBMS_OUTPUT.PUT_LINE(c_namefrom);
END Procdemo;
/