--showTables
--shows all the tables the user currently has
CREATE PROCEDURE showTables AS
  CURSOR myTable IS
    SELECT * FROM user_tables;
  myRow myTable%ROWTYPE;
  counter BINARY_INTEGER :=0;
BEGIN
  FOR myRow IN myTable LOOP
   counter := counter + 1; 
   DBMS_OUTPUT.PUT_LINE (counter || '.  ' || myRow.table_name);
  END LOOP;
END;
/