Dann musst du im PRTF ein Druckfeld in der gewünschten Länge mit dem Schlüsselfeld TRNSPY definieren und die gesamte Sequenz als ASCII übergeben !
Da du nur Ziffern übersetzen musst, kannst du das im RPG mit XLATE erreichen:

I X'F0..F9' C EBC
I X'30..39' C ASC

C EBC:ASC XLATE MYEBC MYASC
C X'27....' CAT MYASC MYPRT