RPGfehler sql0312

[BenderD]

sind die Variablen mehrfach (mit unterschiedlichem Scope) definiert? da verhält sich der Compiler in unterschiedlichen Release und PTF Ständen unterschiedlich (richtig ist dabei, dass das laut Reference nicht geht, ging aber früher!)

D*B

Hallo beieinander,

möchte ein Programm auf 2 verschiedenen iSeries umwandeln. Auf einem System funktioniert das einwandfrei und auf dem 2. System kommt der Precompiler-Fehler SQL0312.

Auf beiden Systemen ist Release V5R4M0 installiert.
auf dem 1. System (mit korrekter Umwandlung) ist PTF-Stand SF99540 Level 7107 Kum-Tap C7107540 installiert
auf dem 2. System (mit Umwandlungsfehler) ist PTF-Stand SF99540 Level 8305 Kum-Tap C8305540 installiert.

Auszug aus dem Programmcode:

d ##drbtr s like(drbtr)
d ##drkdnr s like(drkdnr)
c eval ##drbtr1 = drbtr
c eval ##drkdnr = dridnr
c/exec sql
+ select dafbtr,
+ dakddb,
+ dargnr,
+ sum(daliwt)
+ into :##drbtr,
+ :##drkdnr,
+ :##drrgnr,
+ :daliwt
+ from lired
+ where dafbtr = :##drbtr
+ and dakddb = :##drkdnr
+ and dargnr = :##drrgnr
+ and dakanr <> 'NEUDISPO'
+ group by dafbtr,
+ dakddb,
+ dargnr
+ order by dafbtr,
+ dakddb,
+ dargnr
c/end-exec

SQL0312 30 1283 Position 20 Variable ##DRBTR nicht definiert oder nicht verwendbar. SQL0312 30 1284 Position 20 Variable ##DRKDNR nicht definiert oder nicht verwendbar.


Hat jemand ne Ahnung an was das liegen könnte?