SQL Cursor

[Robi]

Moin zusammen,

ich hab hier was recht verrücktes ...

ein SQLRPGLE Pgm macht (immer in der Reihenfolge)

close c1

declare c1 cursor for ...

open c1

Schleife:
fetch next from c1 into ...
verarbeiten

...

seton LR

Wird in dem Ablauf das Pgm zum 2. mal gerufen liest der fetch Daten des ersten Aufrufes

CloseCursor steht auf endactgrp, die endet zwischen 2 aufrufen NICHT
Aber der exlizite Close müsste doch greifen?

ne Idee?

Robi

[B.Hauser]

Hast Du den SQLCODE und/oder den SQLSTATE unmittelbar nach dem CLOSE und dem OPEN geprüft?
Ich könnte mir vorstellen, dass der CLOSE aus irgendeinem Grund nicht gemacht wird und deshalb auch der OPEN fehlschlägt und beim FETCH die nächsten Daten des Cursors liest.

Ansonsten müsste der explizite CLOSE greifen.

Birgitta

[Robi]

danke Birgitta,

SQLCOD ist 0,
SQLSTATE ist 02000

Den State habe ich nicht beachtet, wo steht was das bedeutet?

[Dschainers]

SQLSTATE ist 02000 = no row was fount

lt. Google

[B.Hauser]

SQLCODE = 0 bedeutet eigentlich alles Okay und entspricht dem SQLSTATE = 00000.
SQLSTATE = 02000 heisst Record not found und entspricht dem SQLCODE = 100.

Wo,nach welchem SQL-Befehl hast Du denn den SQLCODE 0 und wo den SQLSTATE 02000? erst nach dem FETCH?

[Robi]

nö, nach dem close

C                  FILL_MDS              BEGSR
C*EXEC SQL                                                                                         
C* CLOSE C1                                                                                        
C*END-EXEC                                                                                         
     SQLER6 = 5;                                                           //SQL                   
     IF SQL_00024 = 0;                                                     //SQL                B01
     SQLROUTE_CALL(                                                        //SQL                 01
          SQLCA                                                            //SQL                 01
        : SQL_00022                                                        //SQL                 01
     );                                                                    //SQL                 01
     ELSE;                                                                 //SQL                X01
     SQLCLSE_CALL(                                                         //SQL                 01
          SQLCA                                                            //SQL                 01
        : SQL_00022                                                        //SQL                 01
     );                                                                    //SQL                 01
     ENDIF;                                                                //SQL                E01

eval sqlca
--> sqlcode 0
--> sqlstate 02000

V7R3

[BenderD]

... da bräuchte man schon das ganze Programm. Wenn der fetch in den Ofen geht und die Zielvariablen nicht initialisiert waren...

[Robi]

der fetch funktioniert ja

Es ist ein Subfile

Bsp.:
Anzeige 1
25 Sätze zu der gewählten Selektion

Anzeige 2. Aufruf
25 Sätze der gewählten Selektion und 1-5 Sätze der vorherigen

Das verstehe ich nicht

Werdem mir jetzt mal des sqlca mit einem ereignismerker in eine datei ausgeben um mehr infos zu bekommen.

[B.Hauser]

Frage:
Wenn Du jeweils das SQL-Statement separat (z.B. mit STRSQL oder ACS) ausführst, bekommst Du dann die richtigen bzw. erwarteten Daten?
Die Ausgabe-Felder sind auch vor dem 2. Fetch wirklich sauber initialisiert?

Kannst Du das SELECT-Statement mal posten?

[Robi]

Ja, einzelnd aufgerufen bekomme ich nur 'meine' Daten

Ablauf:
close
declare
open
fetch first
Schleife bis sqlcode <> 0: fetch next
(neu close
seton LR

der declare, schon mit und Ohne scroll versucht

WITH A AS(                                                   
SELECT CHGHIP.*, FERELE FROM CHGHIP, FELKAP WHERE            
      (       CHKEYXX        = :SUNRA OR                     
              CHKEYXX        = :SUNRB)  AND                  
       CHHERK <> 'EGA'                      AND              
                                                             
      (CHFILE = 'SCHULP' OR                                  
       CHFILE = 'SCHUVP') AND                                
      CHFILE=FEFILE AND CHFELD= FEFELD                       
                           AND (FEKORE = 1 OR FEKORE = 3) AND
                     SUBSTR(FERELE, 1, 2) <> 'S1' AND        
                     SUBSTR(FERELE, 1, 2) <> 'S2'            
) SELECT * FROM A                                            
ORDER BY FERELE, CHFELD, CHDAEN DESC, CHKEYXX

der fetch (mal first mal next)
FETCH FIRST FROM C9 INTO :CHSATZ, :FERELE

CHSatz ist eine E DS auf ein PF
FERELE kommt aus der FELKAP die auch als E DS am Pgm ist

Robi

[DKSPROFI]

Moin,

etwas ähnliches hatte ich auch mal. Cleare mal vorher deine EDS.

mfg

DKSPROFI