PROCEDURE insertabbreviation
IS
 str VARCHAR2(100);
 res VARCHAR2(20);
 res2 VARCHAR2(40);
 i INTEGER;
 n INTEGER;
 len INTEGER;
 CURSOR csubjects IS
 SELECT id_przedmiot,
 nazwa_p
 FROM przedmioty
 ORDER BY 1;
BEGIN
 FOR vsubject IN csubjects
 LOOP
 BEGIN
 str := vsubject.nazwa_p;
 i := -1;
 n:= 1;
 res := SUBSTR(str,1,1);
 res2 := SUBSTR(str,1,2);
 WHILE i != 0
 LOOP
 i := INSTR(str,' ',1,n);
 res := CONCAT(res, SUBSTR(str,i+1,1));
 res2 := CONCAT(res2, SUBSTR(str,i+1,2));
 n:= n+1;
 END LOOP;
 len := LENGTH(res);
 res := SUBSTR(res,1,len-1);
 len := LENGTH(res2);
 res2 := SUBSTR(res2,1,len-2);
 sys.DBMS_OUTPUT.Put_line(res
 || ' '
 || res2);
 SELECT 'x'
 INTO str
 FROM przedmioty
 WHERE skrot_p = res;

 UPDATE przedmioty
 SET skrot_p = res2
 WHERE id_przedmiot = vsubject.id_przedmiot;
 EXCEPTION
 WHEN NO_DATA_FOUND THEN
 UPDATE przedmioty
 SET skrot_p = res
 WHERE id_przedmiot = vsubject.id_przedmiot;

 END;
 END LOOP;
END;
BEGIN
 insertabbreviation;
END;
ALTER TABLE przedmioty ADD skrot_p VARCHAR2(40);