DECLARE
   cur PLS_INTEGER := DBMS_SQL.OPEN_CURSOR;
   cols DBMS_SQL.DESC_TAB;
   ncols PLS_INTEGER;
   l_html varchar2(1000);
BEGIN
   -- Разбор запроса
   DBMS_SQL.PARSE (cur, 'SELECT hire_date, salary FROM employees', DBMS_SQL.NATIVE);
   -- Получение информации о столбцах
   DBMS_SQL.DESCRIBE_COLUMNS (cur, ncols, cols);
   -- Вывод каждого из имен столбцов
   l_html:='<table border="1"><tr>';
   FOR colind IN 1 .. ncols
   LOOP
      --DBMS_OUTPUT.PUT_LINE (cols (colind).col_name);
      l_html:=l_html||'<th>'||cols (colind).col_name||'</th>';
   END LOOP;
   DBMS_SQL.CLOSE_CURSOR (cur);
   l_html:=l_html||'</tr>';
   DBMS_OUTPUT.PUT_LINE(l_html);
END;
/