dokuwiki

PROCEDURE PC_DELETE (v_nr IN NUMBER)
IS
   v_row   NUMBER;
BEGIN
   DELETE FROM pc_test
         WHERE index2 < v_nr;

   v_row := SQL%ROWCOUNT;

   IF v_row = 0
   THEN
      DBMS_OUTPUT.put_line ('Kein Datensatz gefunden!');
   ELSE
      DBMS_OUTPUT.put_line (v_row || '  Datensätze gelöscht.');
   END IF;
END;