Gatomalo, en Fujitsu hay funciones como UTF8-OF y UCS2-OF (creo) pero ninguna que haga lo contrario. Con lo cual, lo que yo haría es un bucle recorriendo la cadena y sustituyendo los caracteres raros por los buenos. Eso si, no te fíes de lo que ves en un editor de texto, tienes que mirar el valor en hexadecimal y evaluar en hexadecimal también:
Código COBOL:
WORKING-STORAGE SECTION.
01 WS-TEXTO PIC X(100).
01 IDX-1 PIC 9(9) COMP-5.
PROCEDURE DIVISION.
...
MOVE 1 TO IDX-1
PERFORM UNTIL IDX-1 > 98
EVALUATE WS-TEXTO(IDX-1:2)
WHEN X"EFBB" *> á
MOVE WS-TEXTO(IDX-1 + 2:) TO WS-TEXTO WS-TEXTO(IDX-1 + 1:)
MOVE "á" TO WS-TEXTO(IDX-1:1)
WHEN X"BFC3" *> é
MOVE WS-TEXTO(IDX-1 + 2:) TO WS-TEXTO WS-TEXTO(IDX-1 + 1:)
MOVE "é" TO WS-TEXTO(IDX-1:1)
...etc
ADD 1 TO IDX-1
END-PERFORM