CREATE OR REPLACE PROCEDURE TST_SQL IS

  STMT_STR VARCHAR2( 4000 );
  PRN_STR VARCHAR2( 4000 );
  
  CUR_HDL INT;
  ROWS_PROCESSED INT;
  
  TABLE_NAME VARCHAR2( 30 );
  OWNER VARCHAR2( 30 );
  
  COLUMN_NAME VARCHAR2( 30 );
  
  TYPE REC IS RECORD
  (
      COLUMN_NAME VARCHAR2( 30 ) -- РАЗМЕРНОСТЬ НАДО УТОЧНЯТЬ ДЛЯ DBF
  );
  TYPE  T_REC  IS TABLE OF REC  INDEX BY BINARY_INTEGER;
  
  LIST_COLUMN  T_REC ;  --МАССИВ С ИМЕНАМИ ПОЛЕЙ И ГДЕ БУДУТ ЛЕЖАТЬ САМИ ВАЛУЕ
  
  NUM_COL  INTEGER;     
  CUR_COL  INTEGER;
  END_STR  VARCHAR2( 4 ) :=', ';
  
BEGIN


DBMS_OUTPUT.PUT_LINE ('==');
DBMS_OUTPUT.PUT_LINE ('== СПИСОК ПОЛЕЙ ТАБЛИЦЫ');
DBMS_OUTPUT.PUT_LINE ('==');
CUR_HDL := DBMS_SQL.OPEN_CURSOR; -- OPEN CURSOR 

STMT_STR := 
'SELECT COLUMN_NAME FROM ALL_TAB_COLUMNS 
WHERE TABLE_NAME = :T_NAME';

DBMS_OUTPUT.PUT_LINE (STMT_STR);


DBMS_SQL.PARSE(CUR_HDL, STMT_STR, DBMS_SQL.NATIVE); 
-- SUPPLY BINDS (BIND BY NAME) 
DBMS_SQL.BIND_VARIABLE(CUR_HDL, 'T_NAME', 'ALL_TABLES');  -- ПРОПИСАЛ ИМЯ ТАБЛИЦЫ -- А МОЖНО ПЕРЕДАВАТЬ КАК ПАРАМЕТР
-- DESCRIBE DEFINES 
DBMS_SQL.DEFINE_COLUMN(CUR_HDL,  1 , COLUMN_NAME,  200 ); 
ROWS_PROCESSED := DBMS_SQL.EXECUTE(CUR_HDL); 
-- EXECUTE 
NUM_COL := 0 ;
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 , COLUMN_NAME); 
    NUM_COL := NUM_COL +  1 ;
    

    LIST_COLUMN(NUM_COL).COLUMN_NAME := COLUMN_NAME;
    DBMS_OUTPUT.PUT_LINE (LIST_COLUMN(NUM_COL).COLUMN_NAME||'--ПОЛЯ ТАБЛИЦЫ');
 ELSE
    EXIT; 
 END IF; 
END LOOP; 
DBMS_SQL.CLOSE_CURSOR(CUR_HDL); -- CLOSE CURSOR

--ЗАКОНЧИЛИ ОПРЕДЕЛЬ СПСИОК ПОЛЕЙ И НАЧНЕМ ЧИТАТЬ ДАННЫЕ
--СТРОКИ ТАБЛИЦЫ БУДУТ ЛЕЖАТЬ В ТОМ ЖЕ МАССИВЕ LIST_COLUMN()


CUR_HDL := DBMS_SQL.OPEN_CURSOR; -- OPEN CURSOR 




-- В МАССИВЕ LIST_COLUMN УЖЕ НАХОДИТСЯ СПИСОК ПОЛЕЙ ТАБЛИЦЫ 

-- ГЕНЕРИМ СЕЛЕКТ ДЛЯ ЗАППРОСА ПОЛЕЙ

STMT_STR := 'SELECT ';

NUM_COL :=  5 ; --ОГРАНИЧИМ ДЛЯ УДОБСТВА 5 ПОЛЯМИ

FOR I IN  1 ..NUM_COL LOOP
    IF I < NUM_COL THEN
       STMT_STR := STMT_STR || LIST_COLUMN(I).COLUMN_NAME|| END_STR;
    ELSE
       STMT_STR := STMT_STR || LIST_COLUMN(I).COLUMN_NAME|| ' ';
    END IF;   
END LOOP;



STMT_STR := STMT_STR || ' FROM ALL_TABLES 
WHERE OWNER <> :P_NAME';

DBMS_OUTPUT.PUT_LINE ('==');
DBMS_OUTPUT.PUT_LINE ('== SQL ЗАПРОСА К ТАБЛИЦЕ');
DBMS_OUTPUT.PUT_LINE ('==');

DBMS_OUTPUT.PUT_LINE (STMT_STR);
DBMS_OUTPUT.PUT_LINE ('==');



DBMS_SQL.PARSE(CUR_HDL, STMT_STR, DBMS_SQL.NATIVE); 
-- SUPPLY BINDS (BIND BY NAME) 
DBMS_SQL.BIND_VARIABLE(CUR_HDL, 'P_NAME', 'SYS'); 
-- DESCRIBE DEFINES 

-- В ЦИКЛЕ ОПРЕДЕЛЯЕМ КОЛОНКИ

FOR I IN  1 ..NUM_COL LOOP
    -- DBMS_SQL.DEFINE_COLUMN(CUR_HDL, 1, TABLE_NAME, 200); 
    -- DBMS_SQL.DEFINE_COLUMN(CUR_HDL, 2, OWNER, 200); 
    DBMS_SQL.DEFINE_COLUMN(CUR_HDL, I, LIST_COLUMN(I).COLUMN_NAME, 200 );
    
    
END LOOP;


DBMS_OUTPUT.PUT_LINE ('==');
DBMS_OUTPUT.PUT_LINE ('== ДАНЫЕ СТРОК ТАБЛИЦЫ ');
DBMS_OUTPUT.PUT_LINE ('==');


ROWS_PROCESSED := DBMS_SQL.EXECUTE(CUR_HDL); 
-- EXECUTE 
LOOP 
  -- FETCH A ROW 
  IF DBMS_SQL.FETCH_ROWS(CUR_HDL) >  0  THEN 
    -- FETCH COLUMNS FROM THE ROW 
    
    --ЧИТАЕМ РЕКОРД В МАССИВ LIST_COLUMN()
    FOR I IN  1 ..NUM_COL LOOP

    --DBMS_SQL.COLUMN_VALUE(CUR_HDL, 1, OWNER); 
    --DBMS_SQL.COLUMN_VALUE(CUR_HDL, 2, TABLE_NAME); 
    --DBMS_OUTPUT.PUT_LINE (OWNER ||'--'|| TABLE_NAME);
 
       DBMS_SQL.COLUMN_VALUE(CUR_HDL, I, LIST_COLUMN(I).COLUMN_NAME);
    END LOOP;

    -- ЦИКЛ ЧИСТО ДЛЯ ВЫВОДА ВАЛУЕ НА ЭКРАН
    PRN_STR := '';
    FOR I IN  1 ..NUM_COL LOOP

        PRN_STR := PRN_STR ||  LIST_COLUMN(I).COLUMN_NAME || ',  ';
    END LOOP;
    DBMS_OUTPUT.PUT_LINE (PRN_STR); 
    -- КОНЕЦ ВЫВОДА НА ЭКРАН
  ELSE
     EXIT; 
  END IF; 
END LOOP; 
DBMS_SQL.CLOSE_CURSOR(CUR_HDL); -- CLOSE CURSOR
  
END TST_SQL;