SQLRPGLE Rekursive Funktion

[MGJ79]

Hallo Leute,

kann man in einem SQLRPGLE eine Funktion rekursiv aufrufen mit neuen ResultSet dieser Ebene?
Der declarte Cursor ist wohl global, wie schaff ich es dass dieser nur in der jeweils offenen Rekursionsstufe verwendet wird?

Beispiel:
GETSTUECKLISTE(TEIL)
 -> Fetch auf die Teile a, b, c
   -> je Teil GetStueckliste(a)
     -> Fetch aus a mit  d, e, f 

Eine Lösung wäre nicht jeden einzelnen Record zu fetchen sondern gleich in ein Array-Zwischenspeicher zu stellen und in der nächsten Rekursionsstufe den Cursor neu zu öffnen.

..oder einfach nicht Rekursiv auflösen ^^

[Fuerchau]

SQL-Cursor können leider nicht rekursiv verwendet werden, da der Name ja nur 1 Mal existiert.

Für deine Funktion würde ich da eher eine "Rekursive CTE" verwenden, damit kannst du die Stückliste per SQL in einem Cursor komplett lesen.

Beispiele findest du hier im Forum und in der SQL-Reference.

[BenderD]

Hallo Leute,

kann man in einem SQLRPGLE eine Funktion rekursiv aufrufen mit neuen ResultSet dieser Ebene?
Der declarte Cursor ist wohl global, wie schaff ich es dass dieser nur in der jeweils offenen Rekursionsstufe verwendet wird?

Beispiel:
GETSTUECKLISTE(TEIL)
 -> Fetch auf die Teile a, b, c
   -> je Teil GetStueckliste(a)
     -> Fetch aus a mit  d, e, f 

Eine Lösung wäre nicht jeden einzelnen Record zu fetchen sondern gleich in ein Array-Zwischenspeicher zu stellen und in der nächsten Rekursionsstufe den Cursor neu zu öffnen.

..oder einfach nicht Rekursiv auflösen ^^

mit ACTGRP(*NEW) müsste das gehen, falls dem maroden Precompiler dabei nicht schwindelig wird...
Ansonsten bleibt noch Baldur's Vorschlag oder CLI

D*B

[Fuerchau]

ACTGRP(*NEW) geht hier nicht, da die Funktion sich ja selber aufrufen soll.

[BenderD]

ACTGRP(*NEW) geht hier nicht, da die Funktion sich ja selber aufrufen soll.

... das halte ich erstens für ein Gerücht und zweitens könnte man da ja auch noch einen Aufruf zwischenschalten.

D*B

[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!