RPG mit Embedded SQL, JOIN ..

[B.Hauser]

Hallo,

das müsste funktionieren, Du musst lediglich die Join-Felder entsprechend aufbereiten.

C/EXEC SQL 
C+ Declare MyCsr ...
C+    SELECT Fld1, Fld2, Fld3                                            
C+      from MyFileA join MyFileB on Substr(KeyA, 4, 5) = Digits(KeyB)
C+      Where ...
C/End-Exec 

oder

C/EXEC SQL 
C+ Declare MyCsr ...
C+    SELECT Fld1, Fld2, Fld3                                            
C+      from MyFileA join MyFileB on Cast(KeyA as Dec(5, 0)) = KeyB
C+      Where ...
C/End-Exec 

Soweit ich weiß, können sogar ab Release V5R3M0 numerische Felder direkt mit alphanumerischen Feldern, die nur Ziffern enthalten verknüpft werden (d.h. eine Aufbereitung ist nicht notwendig!)

Birgitta