UDF V6R1

[KingofKning]

Danke, das hat schon mal funktioniert.

Habe mir das Redbook runtergeladen https://www.redbooks.ibm.com/redbooks/pdfs/sg248326.pdf

Muss jetzt mal schauen wo ich das Teil für V6 bekomme. Werde mich vermutlich nochmals melden ;-)

GG 4250

[Fuerchau]

Wie Birgitta sagte, skalare Subselects sind grundsätzlich in Klapper ähm... Klammern zu setzen.

Fetch first 1 rows only optimiert hier gar nichts, denn dies wirkt grundsätzlich nur auf das Ergebnis und nicht auf den Count oder einen Where.
Je nach Index oder sonstigen Rahmenbedingungen kann ebenso ein Tablescan erfolgen.

Der Count(*) ohne Where ist sowieso bereits SQL-Optimiert.

Daher folgende Vereinfachung:

CREATE FUNCTION rptrade/zaehler /*10.10.19 14:34*/
( DEBITOR dec(08) ) RETURNS
CHAR(04) LANGUAGE SQL READS SQL DATA BEGIN
return
case when (select coalesce( count(*), 0) from dat020) = 0 then 'XXXX'
else '0001'
end;
END;

Der Coalesce ist erforderlich, da ein Subselect auch schon mal NULL zurückliefert wenn keine Daten vorhanden sind.

Allerdings frage ich mich noch, wofür du den Eingangsparameter DEBITOR benötigst. Fehler der ggf. im Count?

[dschroeder]

Klar, du hat recht. Bei count bringt fetch first row only nichts. War mein Denkfehler. Wir lösen die Problemstellung, zu wissen, ob bestimmte Einträge vorhanden sind, trotzdem mit fetch first row only, aber nicht mit count. Ich denke, dass es dann etwas bringt:

dcl-s vorhanden char(1) inz('N');
exec sql select 'J' into :vorhanden from datei where ... fetch first row only;