udf ohne ergebniss

[ILEMax]

oh, sorry, dadrüber ist ja noch ein return

den hab ich jetzt auch auf summe geändert und bekomme ein
SUMME der Art *SQLUDT in *LIBL nicht gefunden.

Max

[Fuerchau]

declare summe ...
set summe = (select ...);
return summe;

[ILEMax]

geht so nicht.

Die Funktion konnte ich nun wieder erstellen, aber das ergebniss ist das gleiche, nur '-'
mit und ohne cast der numm werte

[ILEMax]

so nun binn ich eine idee weiter,
in der Funktion beziehe ich mich ja auf eine Datei. Diese ist anscheinend fest verdrahtet mit der zu CREATE Zeit gefundenen LIB.

wenn ich im CREATE die Lib angebe, auf die ich auch später den select mache, bekomme ich ein ergebniss.
allerdings bekomme ich in n zeilen den (richtigen) Wert, statt nur genau ein Wert.

Un das mit den festen LIB's ist ein K.O Kriterium. kann ich das umgehen ?

Max

[ILEMax]

Das mit den vielen zeilen ist nun auch klar, ich müßte die where Bed. in dem select wiederholen.
Dann macht allerdings die Funktion so keinen Sinn.
Hmm, muß ich wohl weiter VIEW's machen

Könnte ich im SQLRPGLE Pgm sagen
/EXEC-SQL
+set :summe =PNESU31('xxx' 1, 2, 3, 4, 'xxx')
/end-exec

und dann mit Summe weiterarbeiten ?
das müste doch gehen!

nur die feste Lib stört.
Max

[Fuerchau]

set option sqlpath=*libl <= Verwendet später *LIBL.

ein "select sum(...) from ..." kann nicht mehr als 1 Wert liefern wenn ohne Group-By gearbeitet wird.

Verwendest du eine Funktion in einem Select, wird diese natürlich pro Zeile aufgerufen. Die Parameter der Funktion sollten also aus den Zeilenfeldern stammen.

Dein RPG-Aufruf wäre auch korrekt.

[ILEMax]

set option sqlpath = *libl geht nicht
(ich wieß nicht wie und wo)

habe beim versuchen einen 'set path' angeboten bekommen, geht aber auch nicht,
hier nochmal das CREATE, aus neugier wieder um deinen SELECT INTO Vorschlag bereinigt. Funktion wurde erstellt

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 declare summe dec(11, 3);
return (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);
set path=*libl; end

[Fuerchau]

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

[ILEMax]

Das hatte ich versucht,

und jetzt hab ich es wieder so.
Leider kommt dann
Schlüsselwort OPTION nicht erwartet. Gültige Token: PATH RESULT SCHE
(dann ist die zeile voll)

Max

[Fuerchau]

Stimmt !
Set Option gilt nicht für Funktionen/Prozeduren.

Da diese in der selben Activation-Group laufen (Service-Programm) wie das aufrufende Programm ist der Suchalgorythmus vom Rufer abhängig.

Der Rufer bestimmt mit der Namenskonvention (*SYS/*SQL) die Suchfolge für unqualifizierte Tabellen.

Bestimmt wird dies mittels
set option naming=*sys (bzw. *sql)
oder bei STRSQL mit F13.

[ILEMax]

Sorry, aber das sagt mir nix

Ich habe das SRVPGM in eine andere Lib Copiert. anschl. die Interaktive sitzung beendet und die liblist komplett gewechselt (definitiv waren alle dateien geschlossen)
Namenskonventionen stehe auf *sys

Ich hätte erwartet, nun ein Erg. zu bekommen.
Allerdings bekomme ich nun die Meldung, das PNESU31 der Art *N in *libl nicht gefunden wurde. ES ist aber DA !
Und der Aufruf ging schon mal (F9)

Was ist nun los?
Habe also folgende Probleme: 1.) Kann ich eine Datei in einer Funktion ansprechen unqualifiziert als DATEI_A anstatt LIB/DATEI_A) und später bei Funktionsbenutzung nimmt er die DATEI_A aus der *curlib oder *libl

2.) Wie transportiere ich eine Funktion (z.B. auf unsere 2. AS400)

Danke