set serveroutput on;
BEGIN
EXECUTE IMMEDIATE
'
BEGIN
DBMS_OUTPUT.PUT_LINE(''kierunek informatyka'');
end;
';
END;
set serveroutput on;
begin
    execute immediate 'drop sequence GENERATOR';
    dbms_output.put_line('usunieto sekwencje');
end ;

CREATE OR REPLACE PROCEDURE KOMENTARZ
(NAZWA_TAB IN  VARCHAR2,NAZWA_KOL VARCHAR2 DEFAULT NULL)
IS
ILOSC NUMBER(10);
ILOSCC NUMBER(10);
BEGIN
IF NAZWA_KOL IS NULL
THEN
    EXECUTE IMMEDIATE 'SELECT COUNT(*) FROM '||NAZWA_TAB INTO ILOSC;
    DBMS_OUTPUT.PUT_LINE(ILOSC);
    EXECUTE IMMEDIATE 'COMMENT ON TABLE '||NAZWA_TAB||' IS  '' TABELA ZAWIERA '||ILOSC||' WIERSZY''';
ELSE
    EXECUTE IMMEDIATE 'SELECT DISTINCT COUNT('||NAZWA_KOL||') FROM '||NAZWA_TAB INTO ILOSCC;
    DBMS_OUTPUT.PUT_LINE(ILOSCC);
    EXECUTE IMMEDIATE 'COMMENT ON COLUMN '||NAZWA_TAB||'.'||NAZWA_KOL||' IS  '' KOLUMNA ZAWIERA '||ILOSCC||' WARTOSCI''';
END IF;


END;


BEGIN
KOMENTARZ('STUDENT','ID_GRUPA');
END;