Arquivo de exportação

Bom dia, estou desenvolvendo um layout de exportação de dados.

E o mesmo esta me cortando algumas informações quando passa de um certo número de caracteres, já declarei formato dos campos mas mesmo assim continua cortando alguns campos.

Segue o código desenvolvido.

Código:

{include/i-prgvrs.i EX0001RP 1.00.00.000}


/* definição de variáveis e streams */
def stream s-exp.
def var h-acomp as handle no-undo.

/* definição de frames do log */

run utp/ut-acomp.p persistent set h-acomp.
{utp/ut-liter.i Exportando *}

run pi-inicializar in h-acomp (input RETURN-VALUE).

/* define a saída para o arquivo de saída informando na página de parâmetros */
output stream s-exp TO value("c:\temp\testes.txt").


DEFINE VARIABLE c-dia  AS CHARACTER     NO-UNDO.
DEFINE VARIABLE c-mes  AS CHARACTER     NO-UNDO.
DEFINE VARIABLE c-ano  AS CHARACTER     NO-UNDO.
DEFINE VARIABLE c-desc AS CHARACTER FORMAT "X(100)"    NO-UNDO.

FOR EACH mgcad.ITEM
    BY it-codigo.
    RUN pi-acompanhar IN h-acomp (INPUT it-codigo).
    IF DAY(data-implant) < 10 THEN
        ASSIGN c-dia = "0" + STRING(DAY(data-implant)).
    IF MONTH(data-implant) < 10 THEN    
        ASSIGN c-mes = "0" + STRING(MONTH(data-implant)).
    ASSIGN c-desc = descricao-1.
    PUT STREAM s-exp             c-dia AT 1 FORMAT "x(2)"
                                 c-mes AT 3 FORMAT "x(2)"
                                 String(YEAR(data-implant)) AT 5 FORMAT "x(4)"
                                 it-codigo AT 9 FORMAT "x(20)"
                                 String(c-desc) FORMAT "X(50)"  AT 29  
                                 SKIP.
END.

output stream s-exp close.

run pi-finalizar in h-acomp. 

return "Ok":U.

Valeu Cleilton, funcionou....