SQL0312 nach Umstellung auf V6R1M0

[harkne]

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

[TARASIK]

Hallo Harald,
da fehlen Ptfs:
IBM SE41917 - OSP-DB-OTHER-MSGSQL0312 CRTSQLRPGI FAILS WITH SQL0312 ON THE OVERLAY KEYWORD OVER A DATA STRUCTURE SUBFIELD. - United States
und
IBM SE40459 - OSP-DB-OTHER-MSGSQL0312 CRTSQLRPGI FAILS WITH SQL0312 ON THE OVERLAY KEYWORD OVER A DATA STRUCTURE SUBFIELD. - United States

[harkne]

OK tausend Dank. Ich werde mich gegebenenfalls nochmals melden

[harkne]

Die PTF's sind installiert. Funktioniert aber leider immer noch nicht. Hat noch jemand eine Idee ?

[DBlazkow]

Ich glaube die DS Definition ist das Problem. Versuch einfach die Feldlänge zu definieren (statt Position).


Mfg
DBlazkow

[USDAVIS]

Hallo,


d K7DisC 7 8
d K7MPrd 8 8



K7DisC und K7MPrd überlagern sich, vielleicht liegt'S ja da dran.

gruss
ulli

[harkne]

@Ulli

Tja vielen Dank, das war des Rätsels Lösung. Das Vorgängerrelease hat sich daran anscheinend nicht gestört.

[Fuerchau]

Und das Programm wohl auch nicht daran, dass K7DisC wohl den falschen Inhalt hatte.