Blog JAMcode

--cursor1 declare cursor c3 is      select nombre from pais;      vpais varchar2(30); begin open c3; loop      fetch c3 into vpais;      exit when c3%notfound;      dbms_output.put_line('Pais: ' || vpais); end loop;     close c3; end; --cursor2 DECLARE CURSOR c2 IS   SELECT PLAZA,NOMBRE,COLEGIO FROM MEDICO WHERE ESPECIALIDAD='0001';   vplaza medico.plaza%type;   vnombre medico.nombre%type;   vcolegio medico.colegio%type; begin open c2; Loop      fetch c2 into vplaza, vnombre, vcolegio;      EXIT WHEN c2%NOTFOUND;      dbms_output.put_line('Plaza: ' || vplaza);      dbms_output.put_line('Medico: ' || vnombre);      dbms_output.put_line('Colegio: ' || vcolegio); End Loop;   close c2; end;   --cursor3 DECLARE CURSOR c1 IS   SELECT * FROM USUARIO WHERE CARGO='M...

--PROCEDURE CON CURSOR CREATE OR REPLACE PROCEDURE P_BUSCAR (COD NUMBER) IS BEGIN DECLARE CURSOR C_LISTADO IS     SELECT * FROM EMPLOYEES WHERE EMPLOYEE_ID=COD;     S EMPLOYEES%ROWTYPE; BEGIN  OPEN C_LISTADO;    LOOP       FETCH C_LISTADO INTO S;       EXIT WHEN C_LISTADO%NOTFOUND;       dbms_output.put_line('ID: ' || S.EMPLOYEE_ID);       dbms_output.put_line('NOMBRES: ' || S.FIRST_NAME);       dbms_output.put_line('APELLIDOS: ' || S.LAST_NAME);    END LOOP; CLOSE C_LISTADO; END; END; --PROBANDO PROCEDURE BEGIN P_BUSCAR('100'); END;  

 declare         c1 usuario%rowtype;         begin              select * into c1 from usuario              where usuario='BERTHA';              dbms_output.put_line('User:' || c1.usuario || 'Password:' || c1.contrasena);         end;   declare        c2 paciente%rowtype; begin      select * into c2      from paciente     where paciente='1987002690';     dbms_output.put_line('Paciente:' || c2.nombres); end;         declare         vnombre varchar2(100);         begin              select nombre into vnombre              from medico              where plaza='106481'...