CREATE OR REPLACE PROCEDURE prc$check_data (
   piv_tab   IN   VARCHAR2,
   piv_col   IN   VARCHAR2
)
IS
   v_sql_text   VARCHAR2 (2048);
   vn_cnt       NUMBER          := -1;
BEGIN
   -- Construct the SQL statement (the second where clause is for performance, we don't need
   -- to know how many rows, if we get one it is enough)
   v_sql_text :=
         'SELECT count('
      || piv_col
      || ') cnt FROM '
      || piv_tab
      || ' WHERE '
      || piv_col
      || ' IS NOT NULL AND ROWNUM < 2';

   -- Fetch the data
   EXECUTE IMMEDIATE v_sql_text
                INTO vn_cnt;

   -- if records found
   IF vn_cnt = 1
   THEN
      DBMS_OUTPUT.put_line (piv_col || ' contains data in table ' || piv_tab);
   ELSE
      DBMS_OUTPUT.put_line ('No data in ' || piv_col || ' of table '
                            || piv_tab
                           );
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      DBMS_OUTPUT.put_line (SQLERRM);
END prc$check_data;
/