Sql-Abfrage

[Fuerchau]

Betrachte deine erste FOR-Schleife mit Zugriff auf KUNDENP.
Hier prüfst du doch auf die zu prüfende KDNR.
Die KUNDENP ist also deine Prüfdatei für die EXISTS-Klausel.
Du greifst also mit dem variablen Kundenfeld per EXISTS auf die KDNR der KUNDENP zu und erhältst somit nur die Kunden, die in KUNDENP vorhanden sind.

Deine FOR-Schleife ist doch vollkommen unnötig.
Die nicht vergebenen KDNR'n sind doch für diese Aufgabe nicht relevant.

[tarkusch]

Ich habe es vielleicht nicht genau beschrieben.
In der Datei File1p habe ich die Datei/Feld/ und Längeangaben erfasst und manuell eingetragen.
Dabei habe ich das Problem das die Kundennummer manchmal Numerisch und Alpha angeben wurde.

Ich soll eine Auswertung erstellen(FILE2P) erstellen Informationen gibt wie oft eine Kundennummer in unserem System vorkommt(
Kundennummer 273 kommt in
file1p.Datei, file1p.Feld x 10 mal vor
file1p.Datei, file1p.Feld y 5 mal vor etc.

Ich begreife nicht wie ich da einen Index erstellen soll, da die Datei File1p nur Definitionen beinhaltet.

lg

[Pikachu]

Sammel doch alle Kundennummern mitsamt Anzahl in jeder Teildatei auf einmal ein. Etwa so für jeden Eintrag in FILE1P:

INSERT INTO FILE2P
SELECT KDNR,"Teildatei","Feld",COUNT(*) FROM Teildatei
WHERE Feld = KDNR GROUP BY KDNR ORDER BY 1, 2, 3

[Fuerchau]

Was enthält dann deine KUNDENP?
Ich dachte, das Feld KDNNR aus der KUNDENP sind die zu ermittelnden Kunden?
Die KUNDENP sollte über das Feld KDNNR einen Index erhalten!!!

Dann baust du dir deine SQL's zusammen.

SQLFill = 'INSERT INTO FILE2P ' +
'SELECT char(' + FELDNAME + '), min(''' + TEILDATEI + '''), min(''' + FELDNAME + '''), count(*) from ' + TEILDATEI + ' A ';

IF %SCAN('A':FELDLAENGE) = *ZEROS;
SQLFill +=
' WHERE exists (select * from KUNDENP P where dec(A.' + FELDNAME + ', 7, 0) = P.KDNNR + ')';
ELSE;
SQLFill +=
' WHERE exists (select * from KUNDENP P where A.' + FELDNAME + ' = P.KDNNR + ')';
ENDIF;

SQLFill += ' group by char(' + FELDNAME + ')';

exec sql execute :SQLFill;

Einen eigenen Fetch/Write brauchst du da nicht.

[tarkusch]

Morgen,

das Statement ist so was von genial, das einzige war wir unklar ist warum wurde im 1. Select ein Min('TEILDATEI') angegeben?

Danke noch mal

[Fuerchau]

Der Grund ist der "group by".
Ein Feld ohne Aggregat-Funktion muss in der Liste der Group-By aufgeführt werden.
Hierbei ist auch ein Ausdruck möglich:

group by ..., 'TEILDATEI', ...

Da du aber eine Konstante verwendest, liefert ja MIN immer den richtigen Wert so dass man sich Group By eben sparen kann.

PS:
Für meine Genialität werde ich an sonsten bezahlt .

[malzusrex]

PS:
Für meine Genialität werde ich an sonsten bezahlt .

[tarkusch]

so, jetzt habe ich ein schlechtes Gewissen.

Bin aber jedem den Geldhaufen vergönnt.

[Pikachu]

Peanuts