SQLRPGLE - Select ... where xxfeld in( ??)

[selli]

Danke für die Antworten,
ich habe mich jetzt 5 Stunden gespielt im RPG als auch im SQL, ich brings nicht hin.

Werde es daher wieder klassisch programmieren.

Trotzdem vielen Dank.

C MOVEL(P) '001;002;003;'M1OUNR 3100
C MOVEL(P) '001;002;003;'M1ZONE 3100

habe es auch probiert mit

C MOVEL(P) '1;2;3;' M1OUNR 3100
C MOVEL(P) '1;2;3;' M1ZONE 3100

0404.00 C/EXEC SQL
0405.00 C+ DECLARE SQLDaten2 CURSOR FOR
0406.00 C+ SELECT DISTINCT OFMDNR, OFHANR, OFOFNR, OFLEIA, OFDTBI, OFSAAK
0407.00 C+ FROM OFAL0302
0408.00 C+ WHERE OFMDNR=:OSMDNR and
0409.00 C+ OFHANR=:OSHANR and
0410.00 C+ OFOFNR=:OSOFNR and
0411.00 C+ POSSTR(CHAR(OFOUNR) CONCAT ';', : M1OUNR) > 0 and
0412.00 C+ POSSTR(CHAR(OFZONE) CONCAT ';', : M1ZONE) > 0 and
0413.00 C+ OFDTBI=:M0DTBI and
0414.00 C+ OFSAAK=:M0SAAK
0415.00 C+ GROUP BY OFMDNR, OFHANR, OFOFNR, OFLEIA, OFDTBI, OFSAAK
0416.00 C+ ORDER BY OFMDNR, OFHANR, OFOFNR, OFLEIA, OFDTBI, OFSAAK
0417.00 C/END-EXEC

[Fuerchau]

Entschuldigung, war mein Fehler!
Die Argumente für POSSTR waren vertauscht:

posstr(ZuDurchsuchendeZeichenkette, ZuSuchendeZeichenkette)

Also

POSSTR(: M1OUNR, CHAR(OFOUNR) CONCAT ';') > 0

Wichtig ist, dass CHAR ohne Vornullen aufbereitet, daher in der Suchliste auch ohne Vornullen, ansonsten ist DIGITS(MyNum) zu verwenden.

Das ";" ist deshalb nötig, da eine einzelne Ziffer ja auch in einer längeren Zahl vorkommen kann und nur so Eindeutigkeit gewährleistet ist.

[selli]

ohhhhhhhhhhh


habs vertauscht und siehe da ...

es funktioniert .. herzlichen Dank

C/EXEC SQL
C+ DECLARE SQLDaten2 CURSOR FOR
C+ SELECT DISTINCT OFMDNR, OFHANR, OFOFNR, OFLEIA
C+ FROM OFAD03
C+ WHERE OFMDNR=:OSMDNR and
C+ OFHANR=:OSHANR and
C+ OFOFNR=:OSOFNR and
C+ POSSTR(:M1OUNR, CHAR(DIGITS(OFOUNR)) CONCAT ';') > 0 and
C+ POSSTR(:M1ZONE, CHAR(DIGITS(OFZONE)) CONCAT ';') > 0 and
C+ OFDTBI=0 and
C+ OFSAAK='J'
C+ GROUP BY OFMDNR, OFHANR, OFOFNR, OFLEIA
C+ ORDER BY OFMDNR, OFHANR, OFOFNR, OFLEIA


Vielen vielen Dank