CREATEPROCEDURE PRUEBA_CALCULOS (
P_MONTO NUMERIC(16,2),
P_DIAS INTEGER)
RETURNS (
P_SALIDA INTEGER)
ASbeginif (:P_MONTO/:P_DIAS>0) thenBEGIN
P_SALIDA = (:P_MONTO / :P_DIAS )+0.5;
P_SALIDA =P_SALIDA -1;
ENDelseBEGIN
P_SALIDA = (:P_MONTO / :P_DIAS) -0.5 ;
P_SALIDA =P_SALIDA +1;
END/* PRUEBA CON :P_MONTO = 1520 Y :P_DIAS = 3 DA 506.66666666666666666666666666667 *//* PERO YO NECESITO QUE ME DE EL ENTERO, YA QUE VERAS EL PROCEDURE RESPONDE COMO 507, YO LO NECESITO 506*/suspend;
end