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