create or replace function datos_alumno (cod_solicitud number) return talumnos is
Necesita:
Un número de solicitud
Produce:
Una estructura de datos con todos los campos requeridos. En esta estructura
existirá
un campo denominado resultado, que vale T si existe la solicitud y F en caso
de
haber algún error o no existir la solicitud.
datos talumnos;
cursor dat(cod number) is
sELECT codigo,codsolicitud,campo1,campo2,campo3,campo4,campo5,
dni,nombre,apellido1,apellido2,sexo,fechanacimiento,domicilio,
numero,piso,poblacion,cp,pais,telefono,movil,email,provincia
FROM JMCLIENTE
WHERE
codsolicitud=cod;
begin
FOR REGIs IN dat(cod_solicitud) loop
datos:=talumnos(regis.codigo,regis.codsolicitud,regis.campo1,regis.campo2,regis.campo3,regis.ca
mpo4,regis.campo5,regis.dni,regis.nombre,regis.apellido1,regis.apellido2,
regis.sexo,regis.fechanacimiento,regis.domicilio,regis.numero,regis.piso,regis.poblacion,regis.cp,re
gis.pais,regis.telefono,regis.movil,regis.email,regis.provincia,'T');
return(datos);
end loop;
datos:=talumnos('',0,'','','','','','','','','','','',null,'','','','','','','','','','F');
return (datos);
exception
when OTHERS THEN
datos:=talumnos('',0,'','','','','','','','','','','',null,'','','','','','','','','','F');
return (datos);
end datos_alumno;