embedded SQL - close cursor

[Armin]

Hallo zusammen.
Ich mache meine ersten Gehversuche mit SQL im RPG.
Funktioniert so weit so gut. In einer FOR-Schleife krieg ich aber den Cursor nicht mehr zu.
For i=1 to n
Fileselect = 'select * from ......'
prepare Filesection from :Fileselect
declare Filecursor cursor for Filesection
open Filecursor using: Variable
Dou SQLCOD = 100
Fetch next from Filecursor into :File_ds
If SQLCOD <> 100
Verarbeitung
endif
close Filecursor
endfor

Wenn ich das PGM beende habe ich das File noch offen - HILFE!

[malzusrex]

Also ich bin jetzt nicht der SQLRPGLE-Spezi, aber bei mir hat beim umwandeln die angabe CloSqlCsr(*ENDMOD) geholfen.

gruß ronald

[JonnyRico]

Jo,

oder das Programm in einer eigenen Activisiongroup laufen lassen.

[Fuerchau]

c/exec sql
c+ set option closqlcsr=*endmod
c/end-exec

neben weiteren Optionen wie:
commit=*none -- wenn ohne Transaktionen gearbeitet wird
datfmt=*iso -- um sicherzustellen, das Datum-Felder 10-stellig verwendet werden

[Armin]

c/exec sql
c+ set option closqlcsr=*endmod
c/end-exec

neben weiteren Optionen wie:
commit=*none -- wenn ohne Transaktionen gearbeitet wird
datfmt=*iso -- um sicherzustellen, das Datum-Felder 10-stellig verwendet werden

Super, das war´s. Viiiiielen Dank!
Verstehen tu ich´s aber nicht. Im 1. Schleifendurchlauf schließt der close und im 2. nicht mehr. Und was hat das ganze mit einem Datum zu tun?

[JonnyRico]

das Datum hat nichts mit dem Cursor zu tun. Sind das denn immer andere Select-Statements die du da verarbeitest???

[Armin]

das Datum hat nichts mit dem Cursor zu tun. Sind das denn immer andere Select-Statements die du da verarbeitest???

Nein! "select * from FILE where ALPHAFELD=?"
In den Schleifendurchläufen wird jeweils ein anderer Inhalt dieses Feldes abgefragt.

[Fuerchau]

Dass der Cursor offen bleibt, hat intern was mit Optimierungen zu tun.
Du kannst deine SQL's beschleunigen wenn du statische SQL's verwendest:

declare Filecursor cursor for
select * from FILE where ALPHAFELD=:MYFIELD

MYFIELD wird einfach als RPG-Feld definiert.
Damit sparst du dir den Prepare.

[Armin]

Besten Dank.

Dann will ich euch mal nicht weiter aufhalten. Den Tipp mit dem statischen SQL und dem variablen Inhalt wird ich im nächsten Teil testen.

[Armin]

Dass der Cursor offen bleibt, hat intern was mit Optimierungen zu tun.
Du kannst deine SQL's beschleunigen wenn du statische SQL's verwendest:

declare Filecursor cursor for
select * from FILE where ALPHAFELD=:MYFIELD

MYFIELD wird einfach als RPG-Feld definiert.
Damit sparst du dir den Prepare.

Deinen Vorschlag auf statisches SQL zurückzugreifen hab ich versucht:
declare Filecursor cursor for Filesection
open Filecursor
SQLCOD = -514 (kein prepaire durchgeführt) !?

Andere Frage noch:
In der SELECT-Anweisung wurden 2 Tabellen mit LEFT JOIN verbunden.
Jedes Dateifeld einzeln anzusprechen find ich bei großem Umfang nervig. Deshalt "*" und INTO in die externe DS, die ich mit der DDS beschrieben habe. Was aber wenn ich nun 2 Tabellen anspreche?

[JonnyRico]

Hi Armin,

das was du da gemacht hast ist ja eher dynamisch als statisch.

Dynamisch:

SQLStat = 'Select Kunde From Kundenstamm Where Nummer = ' + VarKDNR 

Prepare DynSQL From SQLStat

Declare MyCur for DynSQL

Open MyCur 

Statisch:

Declare MyCur for 
Select Kunde From Kundenstamm Where Nummer = :VarKDNR

Open MyCur 

Gruß

Sascha

[Armin]

Danke Sascha,
nachdem ich noch CURSOR eingefügt habe, wandelt der Precompile um.
Declare MyCur CURSOR for DynSQL
Jetzt bekomm ich aber den SQLCOD -501. Cursor wurde nicht geöffnet!?