Select emplcode,emplname from emplmast

emplcode
emplname

Select REPLACE(REPLACE(SQL_TEXT,'Select',' '),' from emplmast','') from sys.v_$sql s 
where s.PARSING_SCHEMA_NAME=USER AND 
s.SQL_TEXT ='Select emplcode,emplname from emplmast'

Select REPLACE(REPLACE(SQL_TEXT,'Select',' '),' from emplmast','') 
from (select 'Select emplcode,emplname from emplmast' sql_text
      from dual);

select sid
      ,ses.prev_sql_id
      ,sq.sql_text
from   v$session  ses
      ,v$sql      sq
WHERE  ses.audsid = SYS_CONTEXT('userenv','sessionid')
and    sq.sql_id = ses.prev_sql_id;

Create or Replace Function Get_Sql_Col_cnt(Qry Varchar2) return number is
 cur       integer := dbms_sql.open_cursor;
 desctbl   dbms_sql.desc_tab;
 cnt       integer;  
Begin
     dbms_Sql.parse(cur,qry,dbms_sql.native);
     dbms_Sql.describe_columns(cur,cnt,desctbl);
     return(cnt);
End;



Create or Replace Function Get_Sql_col_Name(Qry varchar2, Row Number) return Varchar2 is
   Cur       Integer  := dbms_sql.Open_Cursor;
   desctbl   dbms_Sql.desc_tab;
   Cnt integer;
Begin
     dbms_sql.parse(cur,Qry,dbms_sql.native);
     dbms_Sql.describe_columns(cur,cnt,desctbl);
     return(desctbl(Row).col_name);
End;