Sql Rekursiv

[tarkusch]

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

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

[Fuerchau]

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 ....)"

[tarkusch]

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.

[Fuerchau]

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.

[B.Hauser]

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)

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)

Select *
  From YOURTABLE
  Start With B1BNR01 = 'YOURVALUE'
  Connect By Prior B1BNR01 = B1BNR02
  Order By Level Desc
  Fetch First Row Only;

Birgitta

[Fuerchau]

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.

[tarkusch]

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

B1NR01 B1NR02
25000  24800
24800  24795
24795  0

[tarkusch]

Danke vielmals,

Connect By Prior scheint die Lösung zu sein.
Werde mal sehen wie performant das ist.
lg

[Fuerchau]

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.

[B.Hauser]

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.

[Fuerchau]

Welches Beispiel?
Soweit ich das sehe liefert der Connect doch alle Sätze der Verbindung.

[tarkusch]

Hallo Birgitta,

ich habe das Sqlstatement abgesetzt:

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:

5 20161130     7635567     7635561   

Ich hätte aber gerne den 1. Satz wo die B1NR02 = 0

1 20161123     7495368           0   

Ich habe gewisse Sachen mit dem Level und MIN(B1BNR01) probiert, aber ich bekomme immer den 5.Satz(letzten) angezeigt.