UDF

[roko]

Hallo,
Ich habe eine einfache udf erstellt, die soll immer den nächsten numerischen wert für eine spalte liefern.

CREATE FUNCTION GETNXTRCN ()
RETURNS DECIMAL(13, 0) LANGUAGE SQL
SPECIFIC GETNXTRCN NOT DETERMINISTIC
READS SQL DATA
CALLED ON NULL INPUT
DISALLOW PARALLEL
SET OPTION ALWBLK = *ALLREAD ,
ALWCPYDTA = *NO ,
COMMIT = *NONE ,
DECRESULT = (31, 31, 00) ,
DFTRDBCOL = *NONE ,
DLYPRP = *NO ,
DYNDFTCOL = *NO ,
DYNUSRPRF = *USER ,
SRTSEQ = *HEX
RETURN ( SELECT MAX( RCN ) + 1 FROM STAT )

sie funktioniert an sich problemlos, allerdings bei massen-insert auf die datei stat, liefert sie bei jedem satz den gleichen wert. Ich hoffe, ich habe mich klar ausgedrückt.
bitte keine ratschläge mit autoincrement / trigger usw. - das ist eine Kundendatenbank/kundenanwendung und daran darf nichts geschraubt werden
vielen dank im voraus
roman

[holgerscherer]

sie funktioniert an sich problemlos, allerdings bei massen-insert auf die datei stat, liefert sie bei jedem satz den gleichen wert. Ich hoffe, ich habe mich klar ausgedrückt.
bitte keine ratschläge mit autoincrement / trigger usw. - das ist eine Kundendatenbank/kundenanwendung und daran darf nichts geschraubt werden
vielen dank im voraus
roman

Puh - aus dem Kopf: das kommt auf Release ,CPU-Multithreading und DB2-Parallelisierung drauf an (evtl. 5722SS1 Opt 27 installiert?). Ausserdem haust Du Dir damit bei Masseninserts auf Multicore-Maschinen evtl. die Performance kaputt. Siehe auch

iSeries Information Center

-h

[Fuerchau]

Ich glaube da fehlt noch was wie Fenced oder so, da Masseninserts ggf. geblockt werden.

Wenn du schon kein Autoincrement nehmen kannst, gehts auf jeden Fall mit einer "Create Sequence MySequence" und dem daraus folgenden "next value for MySequence".
Das ist alle mal sicherer und funktioniert auch parallel.

[Fuerchau]

Und es ist ggf. nicht ein Problem des Masseninserts sondern des Inserts von 2 verschiedenen Jobs.
In diesem Fall kann auch der selbe Wert zurückgegeben werden.
Sequence ist da auf jeden Fall sicherer.

Oder wie Dieter schon des öfteren hingewiesen hat:
Eine eigene neue Tabelle, in der Sequences verschiedener anderer Tabellen gemeinsam verwaltet werden (benötigt ggf. eigenes Journal).

[roko]

vielen dank,
fenced habe ich bereits erfolglos ausprobiert, kannst du mir ein beispiel für die zweite lösung geben, damit ich nicht im referenzbuch stundenweise suchen muss.
noch mal vielen dank
roman

[Fuerchau]

Genau so, wie oben angegeben.

[B.Hauser]

... Du meinst mit 2. Lösung die SEQUENCE?

Wenn Ja ein Sequence Object wird wie folgt erstellt:

CREATE SEQUENCE HSCOMMON10/MYSEQUENCE 
    AS INTEGER START WITH 1 INCREMENT BY 1 
               NO ORDER NO CYCLE 
               NO MINVALUE NO MAXVALUE 
               CACHE 20;

Am einfachsten geht es mit dem Wizard im iSeries Navigator.

Bei Sequence Objekten brauchst Du keine UDF, sondern kannst direkt beim Insert oder Update den nächsten Wert anfordern.

Insert MySchema/MyFile
Values (Next Value For MySequence, .....)

Insert MySchema/MyFile
as Select Next Value For MySequence, ....

Update MySchema/MyFile
     set Field = Next Value For MySequcence ...

Birgitta

[roko]

vielen dank für das beispiel, so funktioniert es. es ist zwer nicht 'die' lösung, die ich gesucht habe, weil alle anderen programme schreiben sätze native ein und somit wird die sequenz nicht angepasst, ich werde aber für mein job eine temp-sequenz mit startwert = maxwert+1 erstellen (vorher tabelle exclusive sperren) und dann kann ich mein massen-insert machen. mich würde aber die ursprüngliche frage trotzdem interessieren, weil zb. für werte wie 'das datum der letzten bestellung' kann ich keine sequenz verwenden. sollte jemand eine idee habe - her damit.

noch mal vielen dank für alle antworten und einen schönen tag noch

roman

[B.Hauser]

Du kannst natürlich auch für deine anderen Programme den nächsten Wert in der Sequence über eine SET-Anweisung ermitteln und anschließend in das Original-Datei-Feld umladen.

Ich habe z.T. solche Ermittlungen in eine eigene Prozedur gepackt, dann muss man die bestehenden Programme nicht auf embedded SQL ändern.

Beispiel:

 /Free
    Exec SQL  Set :MyField = Next Value For MySequence;
    Write MyFileF;
 /End-Free

Birgitta

[B.Hauser]

... Was die letzte Zeitmarke angeht, so kann mit der Funktion GENERATE_UNIQUE () ein eindeutiger Wert (auch wenn innerhalb der gleichen Mikrosekunde mehrere Einträge erfolgen) generiert werden, in dem die aktuelle Zeitmarke verschlüsselt ist.

Mit der Skalaren Funktion TIMESTAMP kann man die Zeitmarke aus diesem generierten eindeutigen Wert ermitteln.

Allerdings ... das Ergebnis aus GENERATE_UNIQUE() ist im Format "CHAR(13) for BIT DATA".
In SQL-Tabellen können Spalten mit dieser Formatierung angelegt werden. Für DDS Tabellen müsste das Ergebnis nach Alpha gecastet werden.

Beispiel:

Select  Generate_Unique(), Timestamp(Generate_Unique())
From MyFile

Birgitta

[roko]

noch mal vielen dank an alle, die lösung funktioniert jetzt und wird getestet.
mfg
roman