[ORACLE PL/SQL] Creazione function PL/SQL per verifica valore sequence con val PK

[pumapc]

Ciao a tutti,

ho creato questo PL/SQL per verificare se il valore della sequence è minore al valore del MAX del campo della Primary Key.

SET SERVEROUTPUT ON;
DECLARE
  val_max number;
  
  CURSOR CSCHEMA IS
  SELECT sequence_name, NVL(last_number,0) as last_number, (last_number + increment_by) NEXT_VALUE, us_constr.CONSTRAINT_NAME, us_constr.table_NAME, cols.column_name
  FROM user_sequences us_seq, USER_CONSTRAINTS us_constr, USER_CONS_COLUMNS cols, USER_TAB_COLUMNS tab_colum
  where REPLACE(sequence_name, 'SEQ_', 'T_') = us_constr.table_NAME
  and us_constr.CONSTRAINT_NAME like 'PK%'
  and us_constr.constraint_name = cols.constraint_name
  and tab_colum.table_name = cols.table_name
  and tab_colum.column_name = cols.column_name
  and tab_colum.data_type = 'NUMBER'
  and cols.position = 1
  order by 1;
      
  RSCHEMA CSCHEMA%ROWTYPE;
BEGIN
  SYS.DBMS_OUTPUT.PUT_LINE('START - DETAILS VALUE SEQUENCE');
  OPEN CSCHEMA;
  LOOP
    FETCH CSCHEMA INTO RSCHEMA;
    EXIT WHEN CSCHEMA%NOTFOUND;
    EXECUTE IMMEDIATE 'select NVL((select max('|| RSCHEMA.column_name || ') FROM ' || RSCHEMA.table_NAME ||'),0) from dual' into val_max;  
    
    IF (RSCHEMA.last_number < val_max) THEN
      SYS.DBMS_OUTPUT.PUT_LINE('TABLE ' || RSCHEMA.TABLE_NAME || ' ### LAST_NUMBER = ' || RSCHEMA.last_number || ' ### COLUMN_NAME ' || RSCHEMA.column_name || ' ### VAL_MAX PK = ' || val_max);
    END IF;
  

  END LOOP;
  CLOSE CSCHEMA;
  SYS.DBMS_OUTPUT.PUT_LINE('END - DETAILS VALUE SEQUENCE');
END;
/

Detto questo, vorrei trasformare questo PL/SQL in una funzione PL/SQL che mi tiri fuori uno o più record in formato tabellare con le informazioni presenti nell'output precedente.

Come DB viene usato Oracle 11g.

Come posso fare?