SQL hat mehrere Sätze als Ergebnis, in der IFS-Zieldatei landet aber nur einer.

[msost]

Ich habe eine Routine, die aus einer IFS-Datei ein SQL Statement liest. Dies ist ein Select, der mit XMLDOCUMENT und XMLROW eine XML-Struktur aufbaut. Das Ergebnis sind mehrere Rows. Diese sollen in eine IFS-Datei weggeschrieben werden. Funktioniert im Grundsatz auch, es kommt aber nur ein Satz in der Datei an. Baue ich keine Schleife um den Fetch, dann ist es der erste, mit Do-Schleife der letzte. Ich seh also zwar was passiert, aber meinen Fehler nicht...

Tips welcome!

// RunSQL Subroutine
       // -----------------
       begsr RunSQL;
 
            // Prepare SQL from SQL-String
            EXEC SQL
             PREPARE selectstm FROM :sqlstring;
 
            // Declare Cursor for prepared SQL
            EXEC SQL
             DECLARE INXML CURSOR FOR selectstm;
 
            // Open Cursor
            EXEC SQL
              OPEN INXML;
 
            dow sqlcod = 0;
              // Fetch SQL Data into XML-Clob Locator
              EXEC SQL
                FETCH NEXT FROM INXML
                      INTO :IXMLLoc;
              if sqlcod <> 0;
                leave;
              endif;
 
              // Store Data in Host-Variable
              EXEC SQL
                SET  :IXMLDta = :IXMLLoc;
 
              // Store Data in IFS-File
              EXEC SQL
                SET  :IXMLDoc = :IXMLLoc;
            enddo;
 
            // Close SQL-Cursor
            EXEC SQL
              CLOSE INXML;
 
            // Free Clob-Locator Space
            EXEC SQL
              FREE LOCATOR :IXMLLoc;
       endsr;

[Fuerchau]

Das erklärt sich doch von selber:

// Store Data in IFS-File
EXEC SQL
SET :IXMLDoc = :IXMLLoc;
Dies hängt doch nicht an die IFS-Datei an sondern überschreibt sie.

[mk]

Hi,

jedes SQL setzt einen SQLCOD
Mal mit dem Debugger prüfen

[Fuerchau]

Nun, schau dir die Schleife mal an:
Je Fetch wird der LOB-Locator in eine Datei (IXMLDoc wird wohl eine IFS-Datei sein) ausgegeben. Da dies nie Daten anhängt, wird eben die letzte Zeile in der IFS-Datei stehen.
Man muss den SQL bereits so aufbauen, dass genau 1 Zeile zurückgegeben wird, so dass auch nur 1 XML-Document erstellt wird und nicht je Zeile ein eigenes Dokument.

[msost]

Jupp, korrekt. Danke!
Hatte zwischenzeitlich mal in der CLOB-Definition aus dem SQFOVR einen SQFAPP gemacht, der dann ja fleißig hinten dran hängt. Aber natürlich pro Zeile ein Dokument. Das ist natürlich etwas viel des Guten.

Aber jetzt ist man ja nur noch halbblind... der Rest sollte sich finden...

[msost]

Hallo, ich hab da doch noch mal 'ne Frage dazu.

Ich erhalte derzeit noch die Angaben von XMLDOCUMENT vor jeder XMLROW. Habe gedacht, ich muß nur in dem auszuführenden SQL ein XMLAGG einbauen, damit der FETCH im RPG dann alles als eine Zeile zusammen bekommt.

Baue ich aber XMLAGG ein, bekommen ich einen Conversion Error.

Hat jemand Erfahrung mit XMLAGG und ggf. ein Beispiel?

[msost]

Kommando zurück, hab ihn gerade selbst gefunden.
SELECT
XMLELEMENT( Name "Range"
XMLAGG(
XMLROW( Feld1 as "Fld 1")... OPTION ROW "Rowfields") ) )
FROM FILE1

[Rainer Ross]

Hallo Forum,

anbei ein cleveres SQL-Statement, das ich bei Birgitta Hauser - an dieser Stelle vielen Dank an Dich - gelernt habe. Es lohnt sich wirklich, bei ihr in den Kurs zu gehen.

select XMLSERIALIZE(
 XMLELEMENT(NAME "data", 
  XMLAGG(
   XMLROW(
    trim(kndnr) as "nummer",
    trim(name)  as "name",
    trim(land)  as "land",
    trim(plz)   as "plz",
    trim(ort)   as "ort",
    trim(str)   as "strasse",
    umsatz      as "umsatz"    
    option row "item")
    )
  ) as CLOB(2G)  
  INCLUDING XMLDECLARATION)
 AS XML_DOCUMENT
 FROM (
   select * from myapp.kndstap
    where kndnr = 1
 ) x; 

Herzliche Grüße
Rainer

[Fuerchau]

Und wie gestalte ich ein geschachteltes XML-Dokument, dass Kopf- und Positionsdaten enthält?
Und zu den Positionsdaten ggf. Preis- und Rabattinformationen?
Das gibt das Handbuch leider auch nicht her.
Die Beispiele behandeln immer nur 1-stufige Hierarchien.
Hat jemand dazu mal ein Beispiel?

ORDER
- KUNDE NAME = "ABCD"
- - ARTIKEL NAME = "TEIL 1"
- - - PREIS WERT = "10,00"
- - - PREIS RABATT = "-5%"
- - ARTIKEL NAME = "TEIL 2"
- - - PREIS WERT = "9,95"
- - ARTIKEL NAME = "TEIL 3"
- - - PREIS WERT = "12,50"
- - - PREIS NACHLASS = "2,45"

[B.Hauser]

Und wie gestalte ich ein geschachteltes XML-Dokument, dass Kopf- und Positionsdaten enthält?
Und zu den Positionsdaten ggf. Preis- und Rabattinformationen?
Das gibt das Handbuch leider auch nicht her.
Die Beispiele behandeln immer nur 1-stufige Hierarchien.
Hat jemand dazu mal ein Beispiel?

Die Kunst ist die Übersetzung von der relationalen Form der Datenbank in die hierarchische Form des XML-Dokuments und umgekehrt.
Man kann ein XML-Dokument durchaus mit mehreren Common Table Expressions, deren Ergebnisse man wieder miteinander verknüpft, sortiert und weiter aggregiert aufbauen.
Wenn man es richtig macht bleiben auch komplexe SQL-Statements zur Aufbereitung von XML-Dokumenten immer noch lesbar.

Das kann man übrigens bei mir in der Schulung lernen.

Birgitta

[BenderD]

xml sind hierarchische Dokumente und SQL ist eine Abfragesprache für relationale Daten. (in Worten: Punkt) Sicher kann man da Schulungen machen, wie man Probleme mit untauglichen Mitteln löst, man könnte es aber auch bleiben lassen...

D*B,
der allen viel Spaß wünscht, mit dem Traktor ins Theater zu fahren!

[Rainer Ross]

xml sind hierarchische Dokumente und SQL ist eine Abfragesprache für relationale Daten. (in Worten: Punkt) Sicher kann man da Schulungen machen, wie man Probleme mit untauglichen Mitteln löst, man könnte es aber auch bleiben lassen...

D*B,
der allen viel Spaß wünscht, mit dem Traktor ins Theater zu fahren!

Ich freue mich an dieser Stelle auf auf ein Beispiel mit tauglichen Mitteln

Viele Grüße
Rainer