Danke für die Hilfe und Antworten.

Ich habe das Problem mit dem API 'CDRCVRT' gelöst.

Da ich die Erfassungs-CCSID kannte, konnte ich damit den Alphawert in Unicode umwandeln, weil dieses API unabhängig von der Job-CCSID konvertiert.

Den Unicode-Wert habe ich dann in einem Unicode-Feld im PRTF ausgegeben.

Hier der Aufruf des APIs(Sorry für die Formatierung):
https://www.ibm.com/support/knowledg...is/CDRCVRT.htm

D #CVT DS
D C#CCS1 1 4B 0
D C#ST1 5 8B 0
D C#S1 9 264
D C#L1 265 268B 0
D C#CCS2 269 272B 0
D C#ST2 273 276B 0
D C#GCAS 277 280B 0
D C#L2 281 284B 0
D C#S2 285 540
D C#L3 541 544B 0
D C#L4 545 548B 0
D C#FB 549 560

/Free
C#L1=%size(ALPHA);
C#L2=%size(UNICODE);
/End-Free

C MOVEL ALPHA C#S1
C*
C CALL 'CDRCVRT' 01
C PARM E-CCSID C#CCS1
C PARM 0 C#ST1
C PARM C#S1
C PARM C#L1
C PARM 1200 C#CCS2
C PARM 2 C#ST2
C PARM 0 C#GCAS
C PARM 256 C#L2
C PARM *BLANK C#S2
C PARM *ZERO C#L3
C PARM *ZERO C#L4
C PARM *BLANK C#FB
C*
C MOVEL C#S2 UNICODE