Wie ist die Variable zum Write denn definiert ?
Wenn du varying verwendest, hat diese ein 2-byte-Längeninformation vorher, und du schreibst dann natürlich diese 2 Byte am Ende zu wenig.

Verwende als Write-Puffer eine Variable fester Länge, da du die genaue Länge ja sowieso angeben musst.

5348 ist 1252 mit Euro (ab V5R4):
http://publib.boulder.ibm.com/infoce...gsccsidref.htm