Wenn die Datenbank auf CCSID 500 steht, so hast du leider Pech gehabt.
Einen direkten Weg gibt es da leider nicht, da CCSID 500 und 870 nicht kompatibel sind.

Hier hilft leider nur ein Umweg über SQL:
Erstelle eine neue Tabelle mit CCSID 870.

Kopiere die Daten von der CCSID 500 per SQL und caste jedes Feld einzeln:

cast(cast(Feld as char(nn) ccsid 65535) as char(nn) ccsid 870)

insert into NeueTabelle
select cast1, cast2, ....
from AlteTabelle

Anschließend kannst du per CPYTOIMPF mit ZielCCSID 1251 die Daten ins IFS (nicht QDLS!) ausgeben.

Solltest du die Daten noch in QDLS benötigen, kannst du diese anschliessend noch mit qshell cmd('cp ...) kopieren.

Ein CPY geht leider nicht, das QDLS keine CCSID unterstützt.