ALTER PROCEDURE "DBA"."PROC2"(IN ppesel char(11) )
/* RESULT( column_name column_type, ... ) */
BEGIN
        DECLARE lrec        int;
        DECLARE _pesel      char(11);
        DECLARE _nazwisko   char(50);
        DECLARE _imie       char(5);
        DECLARE kursor1 CURSOR FOR
             SELECT PESEL, NAZWISKO, IMIE
                 FROM OSOBA
                 WHERE PESEL >= ppesel;

//1.
        SET lrec = (SELECT COUNT(*) FROM OSOBA WHERE PESEL >= ppesel);
        MESSAGE '1.lrec = ' || lrec to client;
        MESSAGE '1x.lrec = ' || lrec to console;
//2.
        SELECT PESEL, NAZWISKO, IMIE
            INTO _pesel, _nazwisko, _imie
            FROM OSOBA
            WHERE PESEL = ppesel;
        MESSAGE '2.PESEL=' || _pesel || ' NAZWISKO=' || _nazwisko || ' IMIE=' || _imie to client;
//3.
        SET lrec = 0;
        OPEN kursor1;
        petla1: LOOP
            FETCH NEXT kursor1 INTO _pesel, _nazwisko, _imie;
            IF SQLCODE <> 0 THEN
                LEAVE petla1;
            ENDIF;
            SET lrec = lrec + 1;
            MESSAGE '3.' || lrec || ' PESEL=' || _pesel || ' NAZWISKO=' || _nazwisko || ' IMIE=' || _imie to client;
        END LOOP;
        CLOSE kursor1;
        DEALLOCATE kursor1;
END