Visszajelzés

SET SERVEROUTPUT ON

DECLARE
    TYPE gyujtoTipus IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
    gyujto gyujtoTipus;
    ind BINARY_INTEGER;
BEGIN

    -- tabla feltoltese
    FOR honap IN 1..12
    LOOP
        SELECT COUNT(*) INTO gyujto(honap)
        FROM FUVAR
        WHERE EXTRACT(YEAR FROM t_erkeziK)=2014 AND EXTRACT(MONTH FROM t_erkezik)=honap;
     END LOOP;

    -- tabla elemeinek kiiratasa
    ind := gyujto.FIRST;
    LOOP
        DBMS_OUTPUT.PUT_LINE('Hónap: ' || ind || ' Fuvarok száma: ' || gyujto(ind) );
        EXIT WHEN gyujto.EXISTS(ind) = false;
        ind:=gyujto.NEXT(ind);
    END LOOP;
END;