-
RPGLE SQL - Anzahl der Zeilen auslesen
Hallo!
Ich habe heute mal wieder eine Auwertung erstellt, bei der ich über eine logische Datei nur die Felder anzeige, die ich brauche und alle Sätze, die ich nicht brauche über OMIT im DDS ausschließe. Diese LF lese ich dann mit SQL in einem SQLRPGLE Programm mit einem Cursor und einer Schleife aus.
Da ich mal gelesen habe, dass man das am besten mit einer
Schleife macht, hab ich das auch gleich versucht. Nur leider wurde SQLCODE nie ungleich "0". Auch SQLSST/SQLSTATE ist immer '00000'.
Um das Ganze aber dann doch zum laufen zu bringen, hab ich kurzerhand einfach ein
Code:
SELECT COUNT(*) INTO :max_count FROM...
davor geschalten und in der Schleife einen Counter hochgezählt solange Counter <= max_count.
Nur denke ich allerdings, dass man das auch irgendwie performanter machen kann.
Gibt es eine Möglichkeit für den deklarierten Cursor, der als Statement ein
hat, zu ermitteln, wie viele Zeilen es am Ende sind? Oder ist meine Architektur einfach nur Mist?
Wäre für hilfreiche Ratschläge dankbar!
Lg Radinator
-
Also ein FETCH sollte schon einen SQLCODE = 100 am Ende liefern.
Da ich dies so nicht direkt im DOW abfragen kann, geh ich einfach folgendermaßen vor:
exec sql open...;
dow 1=1;
exec sql fetch ....;
if SQLCODE <> *zero;
leave;
endif;
enddo;
exec sql close...;
Die Anzahl zähle ich selber, da der Cursor die Anzahl nicht liefert und ein Select count(*) die Daten ein 2. Mal verarbeitet.
Deine LF mit Select/Omit kannst du vergessen. Beobachte mal per Debugger, ob diese LF denn von SQL überhaupt verwendet wird.
I.d.R. wird eine LF mit select/omit nur verwendet, wenn die Where-Klausel des SQL's der Definition der LF entspricht (ab v7.x). Ansonsten wird dein SQL nämlich neu generiert mit den Select/Omit der LF und auf die PF losgeschickt.
Similar Threads
-
By Erol in forum IBM i Hauptforum
Antworten: 4
Letzter Beitrag: 05-07-18, 13:11
-
By wilfried in forum NEWSboard Programmierung
Antworten: 2
Letzter Beitrag: 19-07-17, 07:49
-
By MiMarkow in forum NEWSboard Programmierung
Antworten: 16
Letzter Beitrag: 29-03-17, 15:26
-
By minnebth in forum IBM i Hauptforum
Antworten: 2
Letzter Beitrag: 10-03-05, 16:50
-
By pbock in forum NEWSboard Server & Hardware Markt
Antworten: 0
Letzter Beitrag: 02-12-02, 10:01
Tags for this Thread
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
Bookmarks