RPG mit Embedded SQL, JOIN ..

[BenderD]

Hallo,

läuft aber nicht so dolle, bei großen Datenbeständen könnte da eine zusätzliche Tabelle, mit zwei Feldern, in einem das Huddelfeld, in dem anderen das numerische und zwei Indexe dem auf die Sprünge helfen. Oder man macht es ordentlich und nimmt in die Datei mit dem Huddelfeld einen ordentlichen (foreign) key mit auf.

mfg

Dieter Bender

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