dynamisches Group by funktioniert nicht

[BenderD]

... das geht wohl nur als dynamic sql, sprich dein resultierendes SQL Statement zusammenbasteln und mit execute gegen die Datenbank fahren.

D*B

[Fuerchau]

Soweit ich weiß, sind in GroupBy keine Hostvariablen möglich.

Wie Dieter schon sagt, den SQL per Statement zusammenbauen und per Prepare vorbereiten.
Der Cursor muss auf "declare cursor for Statement-Name" umgestellt werden, der Fetch kann trotzdem unverändert bleiben.

[Tobse77]

Vielen Dank euch beiden für die Hilfe.

Muss euch jedoch sagen, dass es doch funktioniert.
Mein Fehler lag einzig in einer vertauschten Feldangabe, die der Dateibeschreibung zuwider lief. Konnte mir natürlich niemand im Forum beantworten, da ich das Satzbett nicht veröffentlicht hatte.

Trotzdem vielen Dank.

Bin jedoch mit dem bisher Erreichten noch nicht ganz zufrieden.
Da das Resultat dieser Abfrage dem Anwender direkt in Excel dargestellt wird, würde ich gerne noch eine Sortierung in meiner Insert-Anweisung ergänzen.

Diese muss - natürlich - auch wieder in Abhängigkeit der gewünschten Kumulationskriterien erfolgen.

Folgende Order by-Anweisungen bringen mir jedoch bei der Kompilierung pro Zeile einen Fehler ein:

 
..
 
Order By
case when :IndKumLd = '1' then b.acoi end,
case when :IndKumVt = '1' then vsvtr end,
case when :IndKumVb = '1' or :IndKumKd = '1' then vsvbnr end,
case when :IndKumKd = '1' then vskdnr end,
case when :IndKumWG = '1' then vsmrze end,
case when :IndKumPG = '1' then vsprgr end,
case when :IndKumPr = '1' then vspgrg end,
case when :IndKumTn = '1' then vstnr end; 

Im Fehlerprotokoll heißt es dann:

SQL0122 - Position 59 ACOI oder Ausdruck in Select-Liste nicht gültig. Wertigkeit: 30
usw.

Ein "Pseudo"-else

case when :IndKumLd = '1' then b.acoi else ' ' end, 

habe ich übrigens auch schon versucht, jedoch ohne Erfolg.
Hört spätestens im Order by die Verwendungmöglichkeit von Hostvariablen auf?

[kitvb1]

Versuch es so:

case when :IndKumLd = '1' then b.acoi else NULL end,

Dann wird diese Spalte ignoriert. (ist das was Du wolltest?)

[Tobse77]

Danke für den Tipp, aber NULL anstelle von ' ' hat leider auch nichts geändert.
Habs eben probiert.

Versuch es so:

case when :IndKumLd = '1' then b.acoi else NULL end,

Dann wird diese Spalte ignoriert. (ist das was Du wolltest?)

[Fuerchau]

Möglicherweise.
Allerdings gibst du im OrderBy den Ergebnisnamen und keinen Ausdruck an.

In deinem "Select case " musst du jedem Ausdruck einen Namen verpassen " case ... end as name", den du dann im OrderBy angibst, ein Ausdruck ist nicht erlaubt.

Du siehst, eine "bedingte" Sortierung ist leider nicht möglich.

[Tobse77]

Hallo Fuerchau,

danke für deine Erklärung.
ABER...
jetzt denke ich umso mehr, dass es doch gehen müsste.

Habe nun die entsprechenden Felder, nach denen ich anschließend sortieren lassen könnte mit Namen versehen:

Exec SQL
Insert into VOGIO/WUVT0547
Select
case when :IndKumVb = '1' or :IndKumKd = '1' then vsman else 0 end,
case when :IndKumVb = '1' or :IndKumKd = '1' then vsvbnr else 0 end
Verband,
case when :IndKumVb = '1' or :IndKumKd = '1' then a.ana1 else ' ' end,
case when :IndKumVb = '1' or :IndKumKd = '1' then a.ana2 else ' ' end,
case when :IndKumVb = '1' or :IndKumKd = '1' then a.acoi else ' ' end,
case when :IndKumVb = '1' or :IndKumKd = '1' then a.apla else ' ' end,
case when :IndKumVb = '1' or :IndKumKd = '1' then a.aort else ' ' end,
case when :IndKumVb = '1' or :IndKumKd = '1' then a.astr else ' ' end,
case when :IndKumKd = '1' then vskdnr else 0 end Kunde,
case when :IndKumKd = '1' then kdslst else 0 end,
case when :IndKumKd = '1' then b.ana1 else ' ' end,
case when :IndKumKd = '1' then b.ana2 else ' ' end,
case when :IndKumKd = '1' or :IndKumLd = '1' then b.acoi else ' ' end
KdLand,
case when :IndKumKd = '1' then b.apla else ' ' end,
case when :IndKumKd = '1' then b.aort else ' ' end,
case when :IndKumKd = '1' then b.astr else ' ' end,
case when :IndKumKd = '1' then vskdgr else ' ' end,
case when :IndKumKd = '1' then c.tabbez else ' ' end,
case when :IndKumKd = '1' then kdslbr else ' ' end,
case when :IndKumKd = '1' then d.tabbez else ' ' end,
case when :IndKumKd = '1' then kdslpt else ' ' end,
case when :IndKumKd = '1' or :IndKumVt = '1' then vsvtr else 0 end
Vertreter,
case when :IndKumKd = '1' or :IndKumVt = '1' then e.tabbez else ' '
end,
case when :IndKumKd = '1' then kdsbdw else ' ' end,
case when :IndKumKd = '1' then kdfu1 else 0 end,
// Teilenr, Bez, Status, Eigen-/Fremdfertigung, Prod.EAN, Karton.EAN, Zolltarif-Nr.
case when :IndKumTn = '1' then vstnr else ' ' end Teilenr, 
... 

Wenn ich nun mein Order By-Statement folgendermaßen aufbaue:

Order By
KdLand, Vertreter, Verband, Kunde; 

funktioniert alles bestens, d. h. er sortiert in Reihenfolge der fix angegebenen Namen.

Baue ich aber mein Order By-Statement mit Case-Anweisungen auf:

Order By
case when :IndKumLd = '1' then KdLand end,
case when :IndKumVt = '1' then Vertreter end,
case when :IndKumVb = '1' or :IndKumKd = '1' then Verband end,
case when :IndKumKd = '1' then Kunde end,
case when :IndKumWG = '1' then Warengr end,
case when :IndKumPG = '1' then Produktgr end,
case when :IndKumPr = '1' then Preisgr end,
case when :IndKumTn = '1' then Teilenr end; 

dann bringt mir der Compiler wieder die SQL0122-Fehler.
Setze ich die Namen im Order by in Hochkommas:

Order By
case when :IndKumLd = '1' then 'KdLand' end,
case when :IndKumVt = '1' then 'Vertreter' end, 

wandelt er mir das Programm zwar um, sortiert aber nicht

WIESO??
Ich kapiers einfach nicht!

[kitvb1]

It's too late in the afternoon to translate this into German

Have you maybe read this article? SQL: Made to Order.

This is the Article published in the July 2009 edition iSeries Nation Network newsletter. The original article can be found in the Tekkie-Corner (Chapter 3) at http://www.sss-software.de/inn/power...-PowerInfo.pdf

The above link does not work anymore, but you can still access it here SQL: Made to Order. (with some extra info as well**).

IMO, using too many "case when" statements makes the statement hard to maintain for the next developer (as you have found). In your example I would definitely use traditional dynamic SQL (at the cost of a slight performance hit) and build the statement into a string.

**For example, you can put your sort sequences into a file and simply fetch the sequence needed. This means should you have a new sequence option, you add it to the file and don't need to even change the program anymore.

Hope this helps.

[Tobse77]

Thank you for your article.

I have to admit that it's getting complex, but until today I used different SQL-Statements for each accumulation criterion and therefore only one criteria could be used at the same time.

Since I wanted to offer our users more possibilities it's necessary to have a dynamic statement.
IMO, the current statement is not too complex (furthermore I'm the only programmer in our team who is able to code RPGIV and SQL ).

In the meantime I've helped myself by arranging the "order by" criterias in a common way, which works in 99% of upcoming cases.

Thanks again and have good remainder of the day.

-- Tobias

[Fuerchau]

Für die Sortierung brauchst du Namen und keine Konstanten.

[Tobse77]

Ja... hab' mich nun auch damit abgefunden.
Aber wie oben schon beschrieben, habe ich nun eine passable Lösung für 99% der Fälle. Sollte ein Benutzer die Konstellation für das eine Prozent erwischen, dann muss er sich halt in Excel die Darstellung optimieren

Dankeschön und einen erholsamen Feierabend.

-- Tobias

[BenderD]

... das ist doch mit dynamic SQL kein Hexenwerk. Du hast bereits eine fixe Tabellenstruktur mit allen potentiellen Feldern in die du eine Variable Struktur mapst, indem du die nicht belegbaren Felder mit Konstanten belegst. Jetzt brauchst du nur noch das SQL Statement für den Insert, das du dir in deinem Programm zusammen baust, inklusive dem order by, ohne das ganze case Gedöns, das macht die Programmlogik - und dieses zusammengebastelte Statement schickst du mit execute gegen die Datenbank und das wars. Warum mit aller Gewalt so kompliziert?

D*B

Ja... hab' mich nun auch damit abgefunden.
Aber wie oben schon beschrieben, habe ich nun eine passable Lösung für 99% der Fälle. Sollte ein Benutzer die Konstellation für das eine Prozent erwischen, dann muss er sich halt in Excel die Darstellung optimieren

Dankeschön und einen erholsamen Feierabend.

-- Tobias