Cursores En Duoc Uc

" DECLARANDO VARIABLE TIPO TABLA "


declare
type tleo is table of integer;
v_tabla tleo := tleo(0,1,2,3,4,5,6,7,8,9);
begin
dbms_output.put_line(v_tabla(1));dbms_output.put_line(v_tabla(5));
dbms_output.put_line(v_tabla(10));
end;

" DECLARANDO VARIABLE TIPO TABLA MEDIANTE EL INDEX BY BINARY_INTEGER (EL CUAL DECLARA CON EL MAXIMO DE DATOS DEPENDIENDO DEL TIPO DE DATOS ASIGNADO"

declare
type leo is table of varchar(50) index by binary_integer;
ciudad leo;
begin
ciudad(1):= 'Madrid';
ciudad(2):= 'Bilbao';
ciudad(3):= 'Malaga';
for x in ciudad.first.. ciudad.lastloop
dbms_output.put_line('La Ciudad es : '|| ciudad(x));
end loop;
end;

" TRABAJANDO CON VARIANLE TIPO TABLA CON FUNCIO EXISTS "

declare
type leo is table of varchar2(50) index bybinary_integer;
ciudad leo;
begin
ciudad(1):='Madrid';
ciudad(3):='Malaga';
for x in ciudad.first..ciudad.last loop
if(ciudad.exists(x))then
dbms_output.put_line(ciudad(x));
elsedbms_output.put_line(' EL Valor no Existe ' || to_char(x));
end if;
end loop;
end;

"TRABAJANDO CON VARIANLE TIPO TABLA + IS RECORD "

declare
type pais is record
(
co_pais number,descripcion varchar2(50),
continente varchar2(20)
);
type paises is table of pais index by binary_integer;
leo paises;
begin
leo(1).co_pais := 27;
leo(1).descripcion :=' Italia';
leo(1).continente :=' Europa ';
dbms_output.put_line(leo(1).descripcion);
end;

"TRABAJO DE VERIFICAR LOS DIGITOS"

declare
type tabla is record
(
id varchar2(4),nombre varchar2(20)
);
type leo is table of tabla index by binary_integer;
nueva leo;
begin
nueva(1).id :='AA99';
nueva(1).nombre := 'Lapiz pasta azul ';nueva(2).id := 'AA77';
nueva(2).nombre := 'Goma Blanda' ;
for x in nueva.first..nueva.last loop
if ascii(substr(nueva(x).id,1,1))<65 or ascii(substr(nueva(x).id,1,1))>90 then...