harkne
01-02-11, 16:31
Hallo zusammen,
ein Programm lässt sich nicht mehr umwandeln. SQL-Vorkompilierung ist fehlgeschlagen.
Als Fehler liefert er mir
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
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
ein Programm lässt sich nicht mehr umwandeln. SQL-Vorkompilierung ist fehlgeschlagen.
Als Fehler liefert er mir
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
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