Also...
ich mache das immer so:
Code:
     d t1              ds
     d t1a                            7a   inz('äöüßÄÖÜ')
     d t2              ds
     d t2a                            7a   inz(x'CFE1FA3B207504')
     d txt             s             80a
     d cmd             s            500a
     d len             s             15p 5 inz(500)
.
.
     c     t1:t2         xlate     txt             txt
     c/exec sql insert into fwlib/fxtxt_01p values(:txt)
     c/end-exec
.
.
.
     c                   eval      cmd='CPYTOPCD FROMFILE(FWLIB/FXTXT_01P) '
     c                             +'TOFLR('''
     c                             +'FW/TXT'
     c                             +''') '
     c                             +'FROMMBR(FXTXT_01P) '
     c                             +'TODOC(FXTXT.TXT) '
     c                             +'REPLACE(*YES) TRNFMT(*TEXT)'
     c                   call(e)   'QCMDEXC' 
     c                   parm                    cmd 
     c                   parm                    len 
.
.
mfg
Fred