unload employees

SQL> select 'unload ' || table_name from user_tables;

'UNLOAD'||TABLE_NAME
-------------------------------------
unload DEPT
unload PLAN_TABLE
unload TOAD_PLAN_TABLE
unload MV_EMP
unload QUEST_SL_TEMP_EXPLAIN1
unload EXT_TABLE_CSV
unload EXCEPTIONS
unload EMP

8 rows selected.

SQL>

begin
  unload table_1;
  unload table_2;
  ...
  unload table_150;
end;
/

SQL> BEGIN
  2    FOR l IN (SELECT table_name FROM all_tables WHERE ROWNUM < 10) LOOP
  3      Dbms_Output.put_line(l.table_name);
  4    END LOOP;
  5  END;
  6  /
ICOL$
CON$
UNDO$
PROXY_ROLE_DATA$
FILE$
UET$
IND$
SEG$
COL$

PL/SQL procedure successfully completed.

SQL> create table a1_tables (table_name varchar2(30));

Table created.

SQL> create table table_1 (id number);

Table created.

SQL> create table table_2 (id number);

Table created.

SQL>
SQL> insert all
  2    into a1_tables values ('TABLE_1')
  3    into a1_tables values ('TABLE_2')
  4    into table_1   values (100)
  5    into table_2   values (200)
  6  select * From dual;

4 rows created.

SQL> create or replace procedure a1_unload (par_table_name in varchar2)
  2  as
  3    l_str    varchar2(500);
  4    l_min_id table_1.id%type;
  5  begin
  6    /* You are "unloading" tables; I don't know what it really does, so I'm
  7       selectning MIN(ID), just to see that the procedure *is doing* something
  8    */
  9    l_str := 'select min(id) from ' || par_table_name;
 10    execute immediate (l_str) into l_min_id;
 11
 12    dbms_output.put_line(par_table_name ||': '|| l_min_id);
 13  end;
 14  /

Procedure created.

SQL> begin
  2    for cur_r in (select table_name from a1_tables) loop
  3      a1_unload(cur_r.table_name);
  4    end loop;
  5  end;
  6  /
TABLE_1: 100
TABLE_2: 200

PL/SQL procedure successfully completed.

SQL>