SQLRPGLE Rekursive Funktion

[B.Hauser]

...oder einfach nicht Rekursiv auflösen ^^

Falls Ihr auf Release 7.1 (TR3) oder höher seid, kann anstatt der Rekursiven Common Table Expression (RCTE) auch die Hierarchische Query Anweisung verwendet werden und die Stückliste damit auflösen.

Hierarchische Query Anweisungen sind einfacher zu verstehen als RCTEs.
Nähere Informationen kannst Du hier nachlesen:

Hierarchical Queries with DB2 Connect By
A new method for recursively processing data relationships

Auf Deutsch gibt's wurden ähnliche Artikel im (kostenpflichtigen) TechKnowLetter (vom Midrange Magazin) veröffentlicht.

Birgitta

[MGJ79]

Hallo Zusammen,

vielen Dank für die Infos als CTE könnte man es wie folgt lösen:

DECLARE CSR01 CURSOR FOR 
  With RPL (level, TSTNRK, TSSTNK, TSMENG) As (              
     (Select 1, ROOT.TSTNRK, ROOT.TSSTNK, ROOT.TSMENG        
      From HTSLSP ROOT where                                 
      TSTNRK = :XX_KEY )                                     
  Union All                                                  
   (Select PARENT.level+1,                                   
    CHILD.TSTNRK, CHILD.TSSTNK, CHILD.TSMENG * PARENT.TSMENG 
        From RPL PARENT, HTSLSP CHILD                        
         Where PARENT.TSSTNK = CHILD.TSTNRK)                 
  ) Select TSSTNK, Sum(TSMENG) As TSMENG From RPL            
  Group By TSSTNK

.. da ich aber Transparenz bevorzuge und hier die Gefahr von Endlosrekursion besteht, habe ich mich für folgenden Weg entschied:

- Auflösung über Rekursive RPG_Funktion
- Übergabe einer DS-Array
- jede Ebene wird über ein SQL aufgelöst welches die Daten in ein temp. Array "entläd" da der Cursor quasi Global geöffnet ist.

[Fuerchau]

Der SQL ist doch "transparent", erleichtert die Verarbeitung und SQL verhindert automatisch eine Endlosrekursion.

[Alfred E. Neumann]

Der SQL ist doch "transparent", erleichtert die Verarbeitung und SQL verhindert automatisch eine Endlosrekursion.

vermutlich ist eine In-Sich-Verwendung in der Stückliste gemeint. Dagegen ist SQL wohl noch machtlos, ist eben keine richtige Sprache

[B.Hauser]

vermutlich ist eine In-Sich-Verwendung in der Stückliste gemeint. Dagegen ist SQL wohl noch machtlos, ist eben keine richtige Sprache

Mit SQL können sehr wohl wechselseitige Abfragen gemacht werden, ohne dass man in eine Endlosschleife läuft.

Dazu muss lediglich die Anweisung CYCLE zwischen der CTE und der endgültigen SELECT-Anweisung eingefügt werden.

Hier ein Beispiel einer Auswertung mit wechselseitigen Beziehungen - Fahrpläne (ohne Endlos-Schleife).

With Destinations (Departure, Arrival, Connections, Costs) 
  as (Select Departure, Arrival, 
             Cast(Departure concat '->' concat Arrival as VarChar(200)),
             Price
         From Flights f
         Where Departure ='Frankfurt'
      Union All
      Select d.Departure, f.Arrival, 
             Cast(d.Connections concat '->' concat f.Arrival as VarChar(200)),
             Costs + Price
         From Destinations d join Flights f on d.Arrival = f.Departure
       Where d.arrival <> 'Frankfurt')
      Cycle Arrival set cyclic_data to '1' Default '0'
Select Departure, Arrival, Connections, Costs 
   From Destinations
Where cyclic_data = '0'
order by departure, arrival

Birgitta

[Alfred E. Neumann]

Mit SQL können sehr wohl wechselseitige Abfragen gemacht werden, ohne dass man in eine Endlosschleife läuft.

Dazu muss lediglich die Anweisung CYCLE zwischen der CTE und der endgültigen SELECT-Anweisung eingefügt werden.

Grosse Klasse, vielen Dank!