-
Sql Rekursiv
Hallo,
ich habe eine Bestelldatei(BESTELLP) die 2 relevante Felder(B1NR01, B1NR02) für mich hat.
Der Key von der Datei BESTELLP ist B1NR01.
Falls das Feld B1NR02 befüllt ist, müsste ich mit dieser Nummer so lange lesen bis in diesem Feld Null steht.
Das wäre dann die Orginal-Bestellung mit der ich weiterarbeiten muss.
Bis jetzt wurde das im Rpg so abgebildet
Code:
IF B1NR02 <> 0;
DOW B1NR02 <> 0;
CHAIN(N) B1NR02 BESTELLP; // Key ist B1NR01
IF NOT %FOUND;
LEAVE;
ENDDO;
ENDIF;
Ist das möglich in Sql abzubilden?
lg
-
Die Frage verstehe ich jetzt nicht.
"bis in diesem Feld Null steht" entspricht doch "where Feld = 0".
"Not %Found" ist in SQL " where not exists (select * from blabla where ....)"
-
Mit dem Wert aus dem Feld B1NR02 chaine ich auf die BESTELLP und da steht entweder die Null drin oder ich muss mit der Nummer weitermachen.
Wie weit ich zurückgehen muss ist verschieden.
-
Die Aufgabe ist schwer zu begreifen: "oder ich muss mit der Nummer weitermachen"?
Welche Nummer ist da gemeint?
Im Moment würde ich "select max(B1NR02) into : MyMax from BESTELLP" annehmen.
Wenn SQLCOD = 0 => erfolgreich, sonst sollte SQLCODE = 100 => keine Daten sein.
-
Nochmal zum Verständnis:
In Deiner Bestell-Datei sind für B1BNR01 mehrere gleiche Werte. In B1BNR02 sind für den gleichen B1BNR01-Schlüssel-Wert mehrere verschiedene Werte und u.a. ist auch mindestens 1x der Wert 0 zu finden (kein NULL-Wert?!).
Du versuchst für einen bestimmten Schlüssel den Satz mit der 0 zu finden?
Sofern es das ist, das Du das willst, kann es mit SQL ganz einfach gelöst werden (da braucht man auch kein verschachteltes Sub-Select)
Code:
Select Fld1, Fld2, ... FldN
From YourTable
Where B1BNR01 = 'YOURVALUE' and B1BNR02 = 0;
Mir ist übrigens auch schleierhaft, warum Du deinen Key nicht einfach um ein zweites Schlüssel-Feld erweiters (bzw. eine LF oder besser einen SQL Index anlegst mit 2 Schlüssel-Feldern. Dann könntest Du den Satz auch mit native I/O direkt greifen.
Solltest Du stattdessen tatsächlich eine Rekursion wollen, d.h. mit dem in B1BNR02 gefundenen Wert muss ein Zugriff auf B1BNR02 erfolgen und der letzte Wert in B1BNR02 ermittelt werden, könnte die Abfrage evtl. wie folgt aussehen (Mindest-Release 7.1)
Code:
Select *
From YOURTABLE
Start With B1BNR01 = 'YOURVALUE'
Connect By Prior B1BNR01 = B1BNR02
Order By Level Desc
Fetch First Row Only;
Birgitta
-
So wie es aussieht könnte es sich um eine "verkettete Liste" handeln.
D.h., das Feld B1NR02 verweist "rekursiv" auf sich selbst, bis der letzte Satz keinen weiteren Verweis mehr hat, z.B.:
1 => 5 => 12 => 0
2 => 3 => 7 => 11 => 0
17 => 4 => 6 => 35 => 0
Dies ist mit einer SQL-Methode hier tatsächlich nicht zu lösen sondern ebenso mittels einzelner "Select into " zu lösen. Ein Cursor ist nicht erforderlich.
Allerdings solltest du dir hier tatsächlich ein anderes Model entwickeln, denn solche Strukturen sind SQL-technisch nicht vernünftig und schon gar nicht performant auswertbar.
-
Sorry, aber mit der Formulierung habe ich mir schwer getan.
J
a ich muss mit der Nummer die ich ermittelt haben wieder weitermachen.
Schuss ist sobald die B1NR02 0 ist.
Der Primary-Key der Datei ist B1NR01
Code:
B1NR01 B1NR02
25000 24800
24800 24795
24795 0
-
Danke vielmals,
Connect By Prior scheint die Lösung zu sein.
Werde mal sehen wie performant das ist.
lg
-
Da benötigst du doch wieder einen Cursor und musst alle Sätze bis zum letzten lesen.
Oder du packst das dann in eine derived table:
select * from (
select .... connect by ....
) hugo
where B1NR02 = 0
da du ja nur den letzten benötigst.
Gelesen werden muss aber trotzdem alles und ist eben ein eher schlechtes Datenmodell.
-
Zitat von Fuerchau
Da benötigst du doch wieder einen Cursor und musst alle Sätze bis zum letzten lesen.
Braucht er nicht!
Wenn er die Lösung so nimmt wie angegeben, benötigt er lediglich einen SELECT ... INTO, da in dem Beispiel der letzte Satz ausgegeben wird.
-
Welches Beispiel?
Soweit ich das sehe liefert der Connect doch alle Sätze der Verbindung.
-
Hallo Birgitta,
ich habe das Sqlstatement abgesetzt:
Code:
Select *
From BESTELLP
Start With B1BNR02 = 7635561
Connect By Prior B1BNR01 = B1BNR02
Order By Level Desc
Fetch First Row Only
Datum B1NR01 B1NR02
1 20161123 7495368 0
2 20161125 7575144 7495368
3 20161129 7575810 7575144
4 20161130 7635561 7575810
5 20161130 7635567 7635561
Zurückgeliefert bekomme ich den Satz:
Code:
5 20161130 7635567 7635561
Ich hätte aber gerne den 1. Satz wo die B1NR02 = 0
Code:
1 20161123 7495368 0
Ich habe gewisse Sachen mit dem Level und MIN(B1BNR01) probiert, aber ich bekomme immer den 5.Satz(letzten) angezeigt.
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks