5409392304

Bazy danych 2 - Laboratorium 2

Przykład 8

BEGIN

«petlal» — etykieta pętli for i in 1.10 loop «petla2» for j in 1..20 loop

if pętla 1.i > 5 then dbms_output.put_line('i: '||i); else dbms_output.put_line('j: ’|[j); end if;

exit pętla 1 when i=7; end loop petla2; end loop petla2;

END;

/

INSTRUKCJA SKOKU - zmienia kolejność wykonywania instrukcji oraz pozwala opuścić pętle. GOTO <etykieta>

Przykład 9

DECLARE

tekst VARCHAR2(100);

BEGIN

—    Etykieta musi poprzedzać polecenie wykonywane. GOTO nie może przeskakiwać

—    warunkowych części poleceń. IF-THEN-ELSE, do polecenia LOOP i do bloku podrzędnego.

«pierwszy» tekst := 'Ala GOTO drugi;

«wyswietl»

DBMSOUTPUT.PUTLINE(tekst);

GOTO koniec;

«drugi» tekst := tekst||'ma';

GOTO trzeci;

«trzeci» tekst :=tckst||'kota.';

GOTO wyświetl;

«koniec»

NULL;    -- Polecenie NULL nie wykonuje żadnej akcji.

END;

/

16