create or replace PROCEDURE abc AS
BEGIN
  DECLARE Tname user_tables.table_name%TYPE;
  Tstatus user_tables.status%TYPE;
  CURSOR data_groups IS
  SELECT table_name, status
  FROM user_tables;
BEGIN
  OPEN data_groups;
  FETCH data_groups
  INTO Tname, Tstatus;
  WHILE data_groups % FOUND
  LOOP
    DBMS_OUTPUT.PUT_LINE(Tname || ' ==> ' || Tstatus);
    FETCH data_groups
    INTO Tname, Tstatus;
  END LOOP;
END;
END abc;