Espacios a la derecha archivo TXT
Probé con lo mencionado por DANO y por MIGUELONIBUS y aún no he podido resolver mi problema. De antemano muchas gracias
Este es un ejemplo más real resumido de lo que estoy haciendo:
PARAMETERS:
P_DSN1(40) TYPE C LOWER CASE DEFAULT '/sapusers/bancos/pcol'.
DATA: BEGIN OF REG OCCURS 100,
CAMPO(100) TYPE C,
END OF REG.
DATA: BEGIN OF ADIC OCCURS 100,
TIPO_REG(1) TYPE N VALUE 3,
NUM_FAC(10) TYPE C,
REFER(10) TYPE C,
SIG_BRU(1) TYPE C,
VAL_BRU(10) TYPE N,
SIG_AJUS(1) TYPE C,
VAL_AJUS(10) TYPE N,
SIG_NET(1) TYPE C,
VAL_NET(10) TYPE N,
FILLER(41) TYPE C VALUE SPACE,
END OF ADIC.
CLEAR ADIC.
ADIC-TIPO_REG = '3'.
ADIC-NUM_FAC = '0000000000'.
ADIC-REFER = '0000000000'.
ADIC-SIG_BRU = '+'.
ADIC-VAL_BRU = '0000000000'.
ADIC-SIG_AJUS = '+'.
ADIC-VAL_AJUS = '0000000000'.
ADIC-SIG_NET = '+'.
ADIC-VAL_NET = ‘125000000’.
ADIC-FILLER = ‘TABORDA TAMAYO NELSON HERNAN ‘.
APPEND ADIC.
CLEAR REG.
REG = ADIC.
APPEND REG.
CONCATENATE P_DSN1 SY-DATUM+4(2) SY-DATUM+6(2) '.txt' INTO P_DSN1.
OPEN DATASET P_DSN1 FOR OUTPUT IN TEXT MODE.
LOOP AT REG.
TRANSFER REG-CAMPO TO P_DSN1.
ENDLOOP.
CLOSE DATASET P_DSN1.
Observen que el campo ADIC-FILLER tiene espacios en blanco al final. Estos son los que quiero que me queden en el archivo plano. Los espacios en blanco que puedan llegar a existir entre los diferentes campos sí los esta conservando.
Nuevamente muchas gracias
|