Hallo zusammen,

ein Programm lässt sich nicht mehr umwandeln. SQL-Vorkompilierung ist fehlgeschlagen.

Als Fehler liefert er mir

PHP-Code:
Satz    *...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 
  195        c+ FETCH NEXT FROM CRSSQL INTO :INPSQL                                      

SQL0312  30     195  Position 38 Variable INPSQL nicht definiert oder nicht
                     verwendbar. 
Im Programm sieht es wie folgt aus

PHP-Code:
0042.00 **                                                             
0043.00 ** structure of the sql-input                                  
0044.00 **                                                             
0045.00 d InpSql          ds                                           
0046.00 d K7IvCC                  1      2  0                          
0047.00 d k7IvYY                  3      4  0                          
0048.00 d K7IvMM                  5      6  0                          
0049.00 d K7DisC                  7      8                             
0050.00 d K7MPrd                  8      8                             
0051.00 d K7DlrC                  9     14                             
0052.00 d K7Prct                 15     15                             
0053.00 d K7Ordt                 16     16                             
0054.00 d K7SeAm                 17     31  2                          
0055.00 d K7DsAm                 32     46  2                          
0056.00 d K7SeAy                 47     61  2                          
0057.00 d K7DsAy                 62     76  2                          

0175.00 **                                                                    
0176.00 C/EXEC SQL                                                            
0177.00 C+ DECLARE CRSSQL CURSOR FOR SELECT K7IVCC, K7IVYY, K7IVMM,           
0178.00 C+ K7DISC, K7MPRD, K7DLRC, K7PRCT, K7ORDT, sum(K7SEAM) as             
0179.00 C+ K7SEAM,sum(K7dsAM) as K7dsAM, sum(K7seay) as K7seay, sum( K7DSAY   
0180.00 C+ ) as k7dsay FROM k7wrkl01 WHERE K7DISC = :P@DisC GROUP BY K7IVCC,  
0181.00 C+ K7IVYY, K7IVMM, K7DISC, K7MPRD, K7DLRC, K7PRCT, K7ORDT ORDER BY    
0182.00 C+ K7IVCC, K7IVYY, K7IVMM, K7DISC, K7MPRD, K7DLRC, K7PRCT, K7ORDT     
0183.00 C/END-EXEC                                                            

0194.00 c/EXEC SQL                                   
0195.00 c+ FETCH NEXT FROM CRSSQL INTO :INPSQL       
0196.00 c/END-EXEC 
Hat da jemand ne Lösung. Das Programm lies sich vor der Umstellung umwandeln.

Vielen Dank

Viele Grüße Harald