Erro na exportação de arquivo

Bom dia.

Ao tentar exportar um arquivo, o código fonte esta cortando o conteudo de um campo. o campo possui 200 caracteres, mas esta me cortando em 8.

o que pode estar errado?

obrigado desde já.

Código:

def var c-file         as char                 no-undo.
def var codigo         as char format "x(15)"  no-undo.
def var nome-fantasia  as CHAR FORMAT "x(200)" no-undo.
def stream s-entrada.
def stream s-saida.

assign c-file = "c:/pasta1.csv".

DEFINE TEMP-TABLE tt-nome-fantasia NO-UNDO
    FIELD codigo  AS CHAR COLUMN-LABEL "codigo"
    FIELD nome-fantasia AS CHAR COLUMN-LABEL "Nome Fantasia".

input stream s-entrada from value(c-file).
    repeat:
      import stream s-entrada 
               delimiter ";"
               codigo 
               nome-fantasia.
      CREATE tt-nome-fantasia.
      ASSIGN tt-nome-fantasia.codigo = codigo. 
      ASSIGN tt-nome-fantasia.nome-fantasia = nome-fantasia.
input close.
END.
OUTPUT TO "C:\teste_2.txt".
FOR EACH tt-nome-fantasia.
    DISP tt-nome-fantasia.codigo tt-nome-fantasia.nome-fantasia.
END.
OUTPUT CLOSE.

Tudo bem FDantas...

Cara, testei e deu certo...

Valeu....