CREATE PROCEDURE SMDRP_AMP
RETURNS (
ID INTEGER,
FECHA DATE,
HORA TIME,
TELF VARCHAR(38) CHARACTER SET NONE,
LUGAR VARCHAR(30) CHARACTER SET NONE)
AS
begin
for select id,
fecha,
hora,
telf,
from smdrp
into :id,
:fecha,
:hora,
:telf,
begin
Lugar = '';
SELECT DESCRIP FROM DIRTELF
WHERE (TELF = :TELF)
INTO :LUGAR;
SUSPEND;
end
end