Clase 04 de Abril

--ejercicio de ppt de arreglos

set serveroutput on
declare
type tArreglo is varray(6) of varchar2(25);
miarreglo tArreglo := tArreglo('Juan', 'Pedro', 'Diego', 'Alicia', 'Jose', 'Salir');
i integer := 1;
begin
loop
exit when miarreglo(i) = 'Salir';
dbms_output.put_line ('Elemento '||i|| ': '||miarreglo(i));
i := i + 1;
end loop;
end;

 
--ver limite de un varray

set serveroutput on
declare
type tArreglo is varray(6) of varchar2(25);
miarreglo tArreglo := tArreglo('Juan', 'Pedro', 'Diego', 'Alicia', 'Jose');
i integer := 1;
begin
dbms_output.put_line ('El limite es: '||miarreglo.limit);
end;

 
--copiar el tipo de dato de la columnia first_name de la tabla employees a la variable vnombre

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;

 
--lo mismo de antes pero nombre y apellido

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 = 104;
  dbms_output.put_line('Nombre y Apellido: '||vnombre ||' ' ||vapellido);
end;

 
--usar record(registros) para buscar nombre, apellido, codigo cargo y salario--

set serveroutput on;
declare
  type tregistro is record (
  vnombre employees.first_name%type,
  vapellido employees.last_name%type,
  vcodcargo employees.job_id%type,
  vsalario employees.salary%type);
 
  vregistro tregistro;
 
begin
select first_name, last_name, job_id, salary into vregistro from employees where employee_id = 104;
dbms_output.put_line('Nombre y Apellido: '||vregistro.vnombre || ' '|| vregistro.vapellido ||' '|| 'Codigo de Cargo: '||vregistro.vcodcargo ||' '|| 'Salario: ' || vregistro.vsalario);
end;



--asdf

set serveroutput on;
declare
  type tregistro is record (
  vnombre employees.first_name%type,
  vapellido employees.last_name%type,
  vcodcargo employees.job_id%type,
  vsalario employees.salary%type);
 
  vregistro tregistro;
  vcargo jobs.job_title%type;
 
begin
  select first_name, last_name, job_id, salary into vregistro from employees where employee_id = 104;
  select job_title into vcargo from jobs where job_id = vregistro.vcodcargo;
  dbms_output.put_line('Nombre y Apellido: '||vregistro.vnombre || ' '|| vregistro.vapellido ||' '|| 'Codigo de Cargo: '||vregistro.vcodcargo ||' '|| 'Salario: ' || vregistro.vsalario || ' '||'Cargo: '|| vregistro.vcargo);
end;