Tips - Arreglos (VARRAY)

set serveroutput on
declare
type tArreglo is varray(6) of varchar2(25);
  miarreglo tArreglo := tArreglo('juan','pedro','Anita','Alicia','Pablo','Salir');
  i integer := 1;
begin
  loop
  exit when miarreglo(i) = 'Salir'; 
  dbms_output.put_line('El elemento: '||i||':'||miarreglo(i));
  i := i + 1;
  end loop;
end;

-----------------------------------------------

set serveroutput on
declare
type tArreglo is varray(6) of varchar2(25);
  miarreglo tArreglo := tArreglo('juan','pedro','Anita','Alicia','Pablo');
--  i integer := 1;
begin
  loop
    dbms_output.put_line('el Limite : '||miarreglo.limit);
    end loop;
end;

----------------------------------------------

set serveroutput on
declare
 vnombre employees.first_name %type;
begin
select first_name into vnombre
from employees
where employee_id = 104;
dbms_output.put_line('Nombre : '|| vnombre);
end;

------------------------------------------------


set serveroutput on
declare
 vnombre employees.first_name %type;
 vapellido employees.last_name %type;
begin
select first_name, last_name into vnombre, vapellido
from employees
where employee_id = 101;
dbms_output.put_line('Nombre y Apellido : '|| vnombre||' '||vapellido);
end;


-------------------------------------------

set serveroutput on
declare
type tregistro is record
 vnombre employees.first_name %type;
 vapellido employees.last_name %type;
 vjob employees.job_id %type;
 vsalario employees.salary %type;

 vregistro tregistro;
begin
select first_name, last_name, job_id, salary into vnombre, vapellido, vjob, vsalario
from employees
where employee_id = 101;
dbms_output.put_line('Nombre  : '|| vregistro.vnombre);
dbms_output.put_line('Apellido: '|| vregistro.vapellido);
dbms_output.put_line('Cargo : '|| vregistro.vjob);
dbms_output.put_line('Salario : '|| vregistro.vsalario);
end;