create or replace procedure sp_paises consultar is
v1 varchar2(3); // Se declara una variable v1 tipo varchar2 con longitud de 3
v2 Varchar2(40); // Se declara una variable v2 tipo varchar con longitud de 40
CURSOR C1 IS SELECT * FROM tbl_paises; // Se declara un cursor o tabla temporal llamado C1
BEGIN // Inicio del procedimiento
FOR i in C1 LOOP // Ciclo repetitivo que lee el cursor hasta que no encuentre mas registros
v1 := i.fld_codpais; // Pasa el dato de la columna a la variable declarada
v2 := i.fld_nombre; // Pasa el dato de la columna a la variable declarada
dbms_output.put_line("Codigo : "||v1||"Nombre : "||v2); // Muestra la informacion en las variable || (doble pipe) es para concatenar
END LOOP; // Fin del ciclo repetitivo
END; // Fin del procedimiento
/ //Caracter de escape o salida del procedimiento
v1 varchar2(3); // Se declara una variable v1 tipo varchar2 con longitud de 3
v2 Varchar2(40); // Se declara una variable v2 tipo varchar con longitud de 40
CURSOR C1 IS SELECT * FROM tbl_paises; // Se declara un cursor o tabla temporal llamado C1
BEGIN // Inicio del procedimiento
FOR i in C1 LOOP // Ciclo repetitivo que lee el cursor hasta que no encuentre mas registros
v1 := i.fld_codpais; // Pasa el dato de la columna a la variable declarada
v2 := i.fld_nombre; // Pasa el dato de la columna a la variable declarada
dbms_output.put_line("Codigo : "||v1||"Nombre : "||v2); // Muestra la informacion en las variable || (doble pipe) es para concatenar
END LOOP; // Fin del ciclo repetitivo
END; // Fin del procedimiento
/ //Caracter de escape o salida del procedimiento
No hay comentarios:
Publicar un comentario