externe UDF mit var. Parametern

[BenderD]

wo hast du das mit den %parms her??? ohne das je ausprobiert zu haben (RPG unterstützt kein Overloading und wer das dann machen will, ist selbst dran schuld) vermute ich mal, dass %parms den Husten kriegt mit Parametern nach dem ersten fehlenden.
Die Null Byte Array Lösung ist da defensiver, aber deine Abfrage ist Unfug statt %addr(feld) <> *null (denn übergeben wird hier ja ein Pointer, damit RPG das ab kann) musst du den Inhalt des entsrpechenden Null Indicators abfragen (und dann passt das Datum natürlich immer noch nur dann, wenn da kein Senf drinsteht).

D*B

Hallo Leute,
danke für die schnellen Antworten. Leider bin ich mit meinem Problem immer noch nicht weiter.



%parms ist ein Element der ILE-Umgebung und gibt die Anzahl der übergebenen Parameter nur zurück, wenn der Caller diesen Wert zur Verfügung stellt. Das macht aber die UDF nicht. %parms ist immer -1, egal mit welchen Parametern ich die UDF auslöse.



Nur die Anzahl der Parameter ist variabel. Die UDF soll den VK-Preis eines Artikels zu einem Termin liefern. Wird das Datum mitgegeben, soll es verwendet werden, ansonsten mit dem Tagesdatum gefüllt werden. Ich weiss, dass ich den Parameter immer mit 'current date' ersetzen kann, aber es geht mir eigentlich um das Wissen an sich, da ich zukünftig noch viele UDF's generieren möchte, und da habe ich dann andere Konstellationen. Ich hatte auch schon überlegt, mehrere Funktionen zu machen, aber das ist natürlich nur die zweitbeste Lösung ;-)



Birgitta, ich habe die Paramter so umgestellt, auch mit dem Array für den Null-Indikator. Die 2B o-Felder aus den Parametern waren meine Null-Indikatoren (aus der SQL-Style Definition).

Habe folgende Änderung gemacht:
d get_vk pi 9s 4
d p$firma 3
d p$artn 8 0
d p$filial 3
d p$grop 2 0
d p$datum d datfmt(*iso)
d p$brunet 1 varying
d p$ni 5i 0 dim(7)

p$ni ist das Null-Indikator-Array.
habe auch das ganze mit OPTION(*nopass: *omit) probiert. Fakt ist, im Debug kann ich das Array p$ni nicht ansprechen, und auch die Abfrage %addr(p$datum) = *null läuft verkehrt, denn bei der Abfrage

if %addr(p$datum) <> *null;
§a4datv = %char(p$datum : *eur);

wird der folgende eval versucht auszuführen, aber das geht dann schief, da der Wert kein gültiges Datum enthält.

Evtl. habt ihr noch eine Idee.
Thx

[Peder]

wo hast du das mit den %parms her???

Hallo DBender:
Hier der entsprechende Auszug aus dem RPG-Referenzhandbuch

%PARMS returns the number of parameters that were passed to the procedure in which %PARMS is used. For the main procedure, %PARMS is the same as *PARMS.

The value returned by %PARMS is not available if the program or procedure that calls %PARMS does not pass a minimal operational descriptor. The ILE RPG compiler always passes one, but other languages do not. So if the caller is written in another ILE language, it will need to pass an operational descriptor on the call. If the operational descriptor is not passed, the value returned by %PARMS cannot be trusted.

wie schon geschrieben, wird %parms immer mit dem Wert -1 in das SRVPGM geliefert.

Die Null Byte Array Lösung ist da defensiver, aber deine Abfrage ist Unfug statt %addr(feld) <> *null (denn übergeben wird hier ja ein Pointer, damit RPG das ab kann) musst du den Inhalt des entsrpechenden Null Indicators abfragen (und dann passt das Datum natürlich immer noch nur dann, wenn da kein Senf drinsteht).

Ich habe anstelle des %addr(feld) versucht die Null-Indicators anzusprechen, die sind aber nicht addressierbar (werden vermutlich auch nicht von der UDF gefüllt).

Gruss
Peder

[BenderD]

du solltest dir lieber mal die SQL Reference bezüglich der Parameterübergabe ansehen!
Du hast eine Function mit 5 Parametern hin und einem zurück; daraus macht SQL (je nach Übergabe Art) so 5 bis 11 Parameter, die in der Reihenfolge, wie in der Function definiert (was anderes weiß sie ja nicht) die per Reference an die Procedure übergeben werden. Wenn du jetzt einen der Indicator abfragen willst, brauchst du für jede Procedure einen wrapper (siehe Baldur), oder du baust einen Wackelhaufen (von rückwärts erst mal mit %addr anfangen zu ermitteln ab wann da was kommt und dann die Parameter einzusortieren...)
Im übrigen scheint hier ja noch was anderes faul zu sein, wenn ich dein letztes Posting verstehe, dann passt da ja die Anzahl der Parameter.

D*B

Hallo DBender:
Hier der entsprechende Auszug aus dem RPG-Referenzhandbuch



wie schon geschrieben, wird %parms immer mit dem Wert -1 in das SRVPGM geliefert.



Ich habe anstelle des %addr(feld) versucht die Null-Indicators anzusprechen, die sind aber nicht addressierbar (werden vermutlich auch nicht von der UDF gefüllt).

Gruss
Peder