Получить таблицы Имя через запрос Plsql

Question

Мне нужна процедура, которая вводит имя_пользователя и пароль, а затем получает мне существующие таблицы в этой схеме с скриптом create для каждой таблицы?

Это то, что я пытался, но не так:

CREATE OR REPLACE procedure TABLE_INFO(P_USER_NAME IN VARCHAR2,P_PASSWORD IN VARCHAR,P_TABLE_NAME OUT VARCHAR2,P_SCRIPT OUT VARCHAR2) 
IS 
    chk_username all_users.username%type; 
    CURSOR C IS SELECT table_name FROM USER_TABLES; 
    t_tablename user_tables.table_name%type; 
BEGIN 
    SELECT username into chk_username from all_users 
    where chk_username=p_user_name; 
    open c; 
    loop 
    fetch c into t_tablename; 
    exit when c% notfound; 
    end loop; 
exception when no_data_found then 
    dbms_output.put_line('Wrong Username Or Password'); 
    close c; 
end; 
/

Answer 1

Try this code. Let me know if this helps. 

    CREATE OR REPLACE PROCEDURE TABLE_INFO(
     P_USER_NAME IN VARCHAR2, 
     -- P_PASSWORD IN VARCHAR, --Not required 
     P_TABLE_NAME OUT sys_refcursor) 
     -- P_SCRIPT OUT VARCHAR2) --Not required 
    AS 
    BEGIN 

    -----------------------For DDL script use dbms_metadata.get_ddl------------------------- 
     OPEN P_TABLE_NAME FOR 
     SELECT OWNER,TABLE_NAME,dbms_metadata.get_ddl('TABLE',TABLE_NAME) "table DDL" 
     FROM all_tables WHERE upper(OWNER) = upper(P_USER_NAME); 

    END; 

--------------------To EXECUTE this proc--------------------------------- 
var usr VARCHAR2(100); 
VAR p_lst refcursor; 
exec TABLE_INFO(<username>,:p_lst); 
------------------------------------------------------------------------ 

Answer 2

Check this out. This is a function returning all the values as per requirement. 

-- Obj Creation 
CREATE OR REPLACE TYPE my_obj 
IS 
    OBJECT 
    (
    TAB_NAME VARCHAR2(100), 
    DDL_S VARCHAR2(32676)); 

-- Table type Creation 

CREATE OR REPLACE TYPE my_tab 
IS 
    TABLE OF my_obj; 

--Function Creation--- 

CREATE OR REPLACE FUNCTION TABLE_INFO_FUN(
    P_USER_NAME IN VARCHAR2) 
RETURN my_tab 
AS 
    my_otpt my_tab; 
BEGIN 
    -----------------------For DDL script use dbms_metadata.get_ddl------------------------- 
    SELECT CAST(multiset 
    (SELECT my_obj(TABLE_NAME,dbms_metadata.get_ddl('TABLE',TABLE_NAME)) 
    FROM all_tables 
    WHERE upper(OWNER) = upper(P_USER_NAME) 
    ) AS my_tab) 
    INTO my_otpt 
    FROM DUAL; 
    RETURN my_otpt; 
END; 

-- Using Function to Select Data ------------- 
SELECT * FROM TABLE(TABLE_INFO_FUN(<USERNAME>));