CREATE OR REPLACE PACKAGE <package_name> AS
PROCEDURE <procedure_name> (<parameters>);
END <package_name>;
/
 
PROCEDURE <procedure_name> (<parameters>) IS
<define local variables, constants, AND exceptions>
BEGIN
  <procedure_code>;
END <procedure_name>;
 
===============================
 
CREATE OR REPLACE PACKAGE test1 AS
PROCEDURE get_table_names(number_in IN PLS_INTEGER);
END test1;
/
 
CREATE OR REPLACE PACKAGE BODY test1 AS
PROCEDURE get_table_names(number_in IN PLS_INTEGER) IS
 tabname user_tables.table_name%TYPE; 
BEGIN
  SELECT table_name
  INTO tabname
  FROM user_tables
  WHERE ROWNUM < number_in;
 
  DBMS_OUTPUT.put_line(tabname); 
EXCEPTION
  WHEN OTHERS THEN
    DBMS_OUTPUT.put_line('Something went wrong'); 
 END get_table_names;
END test1;
/