*** CURSOR CREATING***

 *** CURSOR CREATING***

create procedure gasc23
as
begin

DECLARE
CURSOR gasc1 IS SELECT name FROM gasc;
ename gasc.name%type;

BEGIN
OPEN gasc1;

LOOP
FETCH gasc1 INTO ename;
IF gasc1%NOTFOUND
THEN
EXIT;
END IF;
DBMS_OUTPUT.PUT_LINE(ename);
END LOOP;

CLOSE gasc1;
END;
end;

begin
gasc23;
end;