PROCEDIMIENTOS ALMACENADOS  PARA LISTAR   DE TBS ANTENOR ORREGO 

---Procedimiento Almacenados --------

----------listar------- tablas----------

---listar TCarrera ----

set serveroutput on;

create or replace procedure spListarCarrera

is

cursor cCarrera is select * from TCarrera;

r  TCarrera%rowType;  

Begin 

    Open cCarrera;

      Loop

          Fetch cCarrera into r;

          Exit When cCarrera%notFound;

          DBMS_OutPut.Put_line('CodCarrera:'||r.CodCarrera);

          DBMS_OutPut.Put_line('Carrera:'||r.Carrera);

      end Loop;

    Close  CCarrera;

end;

execute spListarCarrera;

---LISTAR Usuario---

create or replace procedure splistarUsuario

is

cursor cUsuario is select * from TUsuario;

r  TUsuario%rowType;

Begin

     Open cUsuario;

        loop

            Fetch cUsuario into r;

            Exit When cUsuario%notFound;

            DBMS_OutPut.Put_Line('Usuario:'||r.Usuario);

            DBMS_OutPut.Put_Line('Contraseña:'||r.Contraseña);

        end loop;

     Close cUsuario;

end;

execute spListarUsuario;

--listar Alumno----

create or replace  procedure spListarAlumno

is

cursor cAlumno is select * from TAlumno ;

r TAlumno%rowType;

Begin

    Open cAlumno;

      loop

          Fetch cAlumno into r;

          Exit When cAlumno%notFound;

          DBMS_OutPut.Put_Line('CodAlumno:'||r.CodAlumno);

          DBMS_OutPut.Put_Line('APePaterno:'||r.APePaterno);

          DBMS_OutPut.Put_Line('APeMaterno:'||r.APeMaterno);

          DBMS_OutPut.Put_Line('Nombres:'||r.Nombres);

          DBMS_OutPut.Put_Line('FechaNac:'||r.FechaNac);

          DBMS_OutPut.Put_Line('Usuario:'||r.Usuario);

          DBMS_OutPut.Put_Line('CodCarrera:'||r.CodCarrera);

      end loop;

   Close cAlumno;

end;

execute spListarAlumno;

--listar Docente----

create or replace procedure spListarDocente

is

cursor cDocente is select  *  from TDocente order by CodDocente  asc;

r TDocente%rowType;

Begin

     Open cDocente;

       loop

           Fetch cDocente into r;

           Exit When cDocente%notFound;

           DBMS_Output.Put_Line('CodDocente:'||r.CodDocente);

           DBMS_Output.Put_Line('APePaterno:'||r.APePaterno);

           DBMS_Output.Put_Line('APeMaterno:'||r.APeMaterno);

           DBMS_Output.Put_Line('Nombres:'||r.Nombres);

           DBMS_Output.Put_Line('Usuario:'||r.Usuario);

       end loop;

     Close cDocente;

end;

execute splistarDocente;

--listar Asignatura----

create or replace procedure spListarAsignatura

is

cursor cAsignatura is select * from TAsignatura;

r TAsignatura%rowType;

Begin

     Open cAsignatura;

       loop

          Fetch cAsignatura into r;

          Exit  When cAsignatura%notFound;

          DBMS_OutPut.Put_Line('CodAsignatura:'||r.CodAsignatura);

          DBMS_OutPut.Put_Line('Asignatura:'||r.Asignatura);  

          DBMS_OutPut.Put_Line('CodRequisito:'||r.CodRequisito);  

        end loop;

      Close cAsignatura;

end;

execute spListarAsignatura;

--listar Notas----

create  or replace procedure spListarNotas

is

cursor cNotas  is select * from TNotas;

r TNotas%rowtype;

Begin

     Open cNotas;

       loop

           Fetch cNotas into r;

           Exit  when cNotas%notFound;

           DBMS_OutPut.Put_Line('CodAlumno:'||r.CodAlumno);

           DBMS_OutPut.Put_Line('CodAsigantura:'||r.CodAlumno);

           DBMS_OutPut.Put_Line('Semestre:'||r.Semestre);

           DBMS_OutPut.Put_Line('Practica1:'||r.Practica1);

           DBMS_OutPut.Put_Line('Practica2:'||r.Practica2);

           DBMS_OutPut.Put_Line('NotaFinal:'||r.NotaFinal);

       end loop;

     Close cNotas;

end;

execute spListarNotas;

          

      

--listar Carga----

create or replace procedure  splistarCarga

is

cursor cCarga is select * from TCarga;

r TCarga%rowType;

Begin

     Open cCarga;

       loop

           Fetch cCarga into r;

           Exit When cCarga%notFound;

           DBMS_OutPut.put_Line('IDCarga:'||r.IDCarga);

           DBMS_OutPut.put_Line('CodDocente:'||r.CodDocente);

           DBMS_OutPut.put_Line('CodAsignatura:'||r.CodAsignatura);

           DBMS_OutPut.put_Line('Semestre:'||r.Semestre);

       end loop;

     Close cCarga;

end;

execute spListarCarga;