SQL wiederaufrufen des Programmes

[Squall]

Hallo,

ich habe mir ein kleines SQL Prog geschrieben um festzustellen ob es die Eingabe des Users auch wirklich gibt. Beim 1. Aufruf des Prog. klappt alles wunderbar nur wenn ich beim 1. Aufruf einen falchen Wert eingebe und danach einen Richtigen, der funktioniert wenn ich ihn zuerst eingebe, bekomme ich wieder SQLCOD=100 obwohl es den Wert ja gibt. Was mache ich falsch?

Mein Code:

H DftActGrp(*NO) ActGrp(*CALLER)                        
H alwnull(*USRCTL)                                      
                                                        
 /COPY LIB/FILE,DAVCOPY                            
                                                        
DAUFNEHM          PR                  EXTPGM('DAVSQL01')
D PARM1                               likeds(DAV)       
D PARM2                          1A                     
D PARM4                               like(SQLCOD)      
D PARM5                               LIKE(SQLSTT)      
                                                        
DAUFNEHM          PI                                    
D DAVDS                               likeds(DAV)       
D fcall                          1A                     
D SQLC                                LIKE(SQLCOD)      
D SQLS                                LIKE(SQLSTT)      
                                                        
C                   eval      SQLCOD=0                  
C                   eval      fcall='J'                 
C/EXEC SQL                                                             
C+ Declare MyCsr Cursor for                                            
C+ Select FIRKEN From LIB/FILE Where FIRKEN = :DAVDS.FIRKEN       
C/End-Exec                                                             
                                                                       
C/EXEC SQL                                                             
C+ Open MyCsr                                                          
C/END-EXEC                                                             
C                                                                      
C/EXEC SQL                                                             
C+ Fetch MyCsr                                                         
C+       into :DAVDS                                                   
C/END-EXEC                                                             
C                   if        SQLCOD = 100                             
C                             or SQLCOD < *ZEROS                       
C                   eval      fcall='E'                                
C                   eval      *inlr=*on                                
C                   return                                             
C                   elseif    SQLCOD<>0 AND SQLCOD<>100 AND SQLCOD<>326
C                   eval      fcall='F'                                
C                   eval      SQLC=SQLCOD
C                   eval      SQLS=SQLSTT
C                   eval      *inlr=*on  
C                   return               
C                   endif                
C/EXEC SQL                               
C+ Close MyCsr                           
C/END-EXEC                               
C                   eval      *inlr=*on  
C                   return 

Gruß Martin

[zannaleer]

Hallo Martin,

ich vermute, dass der Fehler darin liegt, dass der SQL-Cursor nicht geschlossen wird. Durch den Return-Befehl in der if-Bedingung wird die close-Bestimmung für den Cursor nicht ausgeführt.
Du solltest den Cursor schliessen und das Problem sollte behoben sein.

Gruß
Alexander

[zannaleer]

Hallo Forum,

ist der SQL-Cursor in diesem Fall nicht überflüssig? Da es sich um einen single-row-fetch handelt, kann Martin doch auf den Cursor verzichten und sein Problem tritt auch nicht mehr auf, oder?

Gruß
Alexander

[Squall]

Hallo Martin,

ich vermute, dass der Fehler darin liegt, dass der SQL-Cursor nicht geschlossen wird. Durch den Return-Befehl in der if-Bedingung wird die close-Bestimmung für den Cursor nicht ausgeführt.
Du solltest den Cursor schliessen und das Problem sollte behoben sein.

Gruß
Alexander

Ohje manchmal sieht man die einfachsten Dinge nicht. Danke!

[zannaleer]

Hallo Martin,

ich habe gerade mal ein paar unserer Sourcen durchgesucht. Du kannst, wenn sichergestellt ist, dass nur ein Satz beim select gefunden wird, auf den Cursor verzichten.
Müsste dann so aussehen:

Select FIRKEN into :DAVDS From LIB/FILE Where FIRKEN = :DAVDS.FIRKEN

Dann brauchst Du Dir keine Gedanken über einen offenen oder geschlossenen Cursor machen.

Gruß
Alexander

[Squall]

Hallo Alexander

danke für die Information, das Programm läuft jetzt auch gut, seitdem der Fehler mit dem Cursor entdeckt wurde. Aber es ist gut zu Wissen das sowas auch geht.

Gruß Martin