SQL Cursor

[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