create function pnesu31 (
iProd varchar(14),
iFM1 dec(11, 3),
iFM2 dec(11, 3),
iFM3 dec(11, 3),
iFM4 dec(11, 3),
iLort varchar(3))
returns dec(11, 3)
language sql modifies sql data
begin
set option sqlpath=*libl;
declare summe dec(11, 3);
set summe = (select
sum(nemge0) from mne__39 where nephas = '3' and nestat =
'1' and neprod = iProd and nemge1 = iFM1
and nemge2 = iFM2
and nemge3 = iFM3
and nemge4 = iFM4
and nelort = iLort);
return summe;
end