TAB PS3

CREATE SEQUENCE S_NO_CYCLE;

CREATE SEQUENCE S_CYCLE
INCREMENT BY 1 -- I TAK JEST DOMYSLNIE 1
START WITH 1 -- TAK SAMO ZAWSZE JEDEN
MAXVALUE 2
CYCLE -- TO JUZ NIE JEST DOMYSLNIE
NOCACHE;

CREATE TABLE ps3
(wartosc1 NUMBER(4) PRIMARY KEY,
wartosc2 NUMBER(4));

BEGIN
  FOR I IN 1..3 LOOP
    DBMS_OUTPUT.PUT_LINE(S_NO_CYCLE.NEXTVAL || ' ' || S_CYCLE_NEXTVAL);
    DBMS_OUTPUT.PUT_LINE(S_NO_CYCLE.CURRVAL || ' ' || S_CYCLE_NEXTVAL);
  END LOOP;
END;

CREATE SEQUENCE S_INCREMENT_BY_3
START WITH 5
INCREMENT BY 3
MAXVALUE 14
CYCLE
NOCACHE;

CREATE SEQUENCE S_DECREMENT_BY_10
START WITH 100
INCREMENT BY -10
MAXVALUE 110
MINVALUE 10
CYCLE
NOCACHE;

BEGIN
  FOR I IN 1..5 LOOP
    DBMS_OUTPUT.PUT_LINE (S_INCREMENT_BY_3.NEXTVAL);
  END LOOP;
END;

BEGIN
  FOR I IN 1..11 LOOP
    DBMS_OUTPUT.PUT_LINE(S_DECREMENT_BY_10.NEXTVAL);
  END LOOP;
END;

DECLARE
V_ZMIENNA VARCHAR(255);
BEGIN
  FOR I IN 1..200 LOOP
  V_ZMIENNA := SQLERRM(I);
    INSERT INTO KOMUNIKAT_1(ID_POM,ID_POM1) VALUES (I,V_ZMIENNA);
  END LOOP;
END;

CREATE OR REPLACE PROCEDURE
P_LICZBA_TYTULOW(P_NAZWA T_WYDAWCA.NAZWA%TYPE) IS
V_LICZBA NUMBER;
BEGIN
  SELECT COUNT(DISTINCT K.TYTUL) INTO V_LICZBA
  FROM T_KSIAZKA K
  WHERE K.WYDAWCA = (SELECT ID_WYDAWCY FROM T_WYDAWCA WHERE NAZWA=P_NAZWA);
  IF V_LICZBA >0 THEN
    INSERT INTO KOMUNIKAT_1(ID_POM,ID_POM1) VALUES (V_LICZBA, P_NAZWA);
  ELSE
    INSERT INTO KOMUNIKAT_1(ID_POM1) VALUES ('Nie ma takiego wydawnictwa');
  END IF;
END;

EXECUTE P_LICZBA_TYTULOW('1Z');

select * from komunikat_1

CREATE OR REPLACE FUNCTION F_ONLY_ONE RETURN NUMBER IS

V_KLIENTA T_ZAMOWIENIE.ID_KLIENTA%TYPE;

BEGIN
  SELECT ID_KLIENTA
  INTO V_KLIENTA
  FROM T_ZAMOWIENIE
  GROUP BY ID_KLIENTA
  HAVING COUNT(ID_KLIENTA)=1;
  EXCEPTION
  WHEN TOO_MANY_ROWS THEN RETURN -1;
  WHEN NO_DATA_FOUND THEN RETURN -1;
  WHEN OTHERS THEN RETURN -1;
RETURN V_KLIENTA;
END;

SELECT F_ONLY_ONE FROM DUAL