Ver Mensaje Individual
  #6  
Viejo 25/04/08, 15:37:36
Avatar de vsuarezo
vsuarezo vsuarezo is offline
Member
 
Fecha de Ingreso: abr 2006
Localización: Bogotá - Colombia
Mensajes: 47
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
Responder Con Cita