Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CREATE OR REPLACE PROCEDURE localidad_comerciales (nombre_localidad VARCHAR2) AS
- /*Declaramos nuestro cursor.*/
- CURSOR c1 IS
- SELECT c.codigo, c.nombre, c.salario
- FROM comerciales c, oficinas o
- WHERE c.codoficina = o.codigo AND localidad = nombre_localidad
- ORDER BY c.codigo ASC;
- /*Declaramos nuestras variables.*/
- v_codigo VARCHAR2(3);
- v_nombre VARCHAR2(30);
- v_salario NUMBER(6,2);
- BEGIN
- /*Mostramos por pantalla el nombre de la localidad.*/
- DBMS_OUTPUT.PUT_LINE('+-----------------------------------------------+');
- DBMS_OUTPUT.PUT_LINE('+ Localidad: "'||nombre_localidad||'" +');
- DBMS_OUTPUT.PUT_LINE('+-----------------------------------------------+');
- DBMS_OUTPUT.PUT_LINE('');
- OPEN c1;
- /*Lee la primera fila recuperada por el cursor y la almacena en la variable.*/
- FETCH c1
- INTO v_codigo, v_nombre, v_salario;
- /*Ejecutamos un bucle de control, mientras que el cursor devuelva variables
- lo mostrara por pantalla y el valor recuperado se
- leerĂ¡ de la siguiente fila del cursor. Mostraremos nuestras variables.*/
- WHILE c1%FOUND LOOP
- DBMS_OUTPUT.PUT_LINE('+ Codigo: '||v_codigo||' +');
- DBMS_OUTPUT.PUT_LINE('+ Nombre: '||v_nombre||' +');
- DBMS_OUTPUT.PUT_LINE('+ Salario: '||v_salario||' +');
- DBMS_OUTPUT.PUT_LINE('');
- FETCH c1
- INTO v_codigo, v_nombre, v_salario;
- END LOOP;
- CLOSE c1;
- END localidad_comerciales;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement