Ver Mensaje Individual
  #7  
Viejo 24/09/07, 15:47:23
Irua Irua is offline
Member
 
Fecha de Ingreso: jun 2007
Mensajes: 83
Wink

Hola vi la recomendaciones y con el open dataset me funciono colocando la ruta o patch tal cual me dijistes

Ahora corro el programa y todo bien, pero cuado ejecuto proceso de fondo solo me dice "Report Z_USUA_RED_LOTUS lanzado como Job de Fondo", pero al verificar en el directorio si crea el archivo, pues no lo genera, anexo el codigo y mil gracias
file = '\\191.9.4.26\sys\share\Basu\24092007.txt'.

OPEN DATASET FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc NE 0.
FORMAT COLOR 6 INTENSIFIED OFF.
ULINE AT (255).
WRITE: / sy-vline,
' No se pudo crear al archivo : ',
255 sy-vline.
FORMAT COLOR 2 INTENSIFIED OFF.
WRITE: / sy-vline,
' ', FILE,
255 sy-vline.
ULINE AT (255).
EXIT.
ENDIF.

LOOP AT T_CORREO.
LINEA+1 = T_CORREO-ROW2.
TRANSFER LINEA TO FILE.
ENDLOOP.

CLOSE DATASET FILE.


OPEN DATASET file FOR INPUT IN TEXT MODE ENCODING DEFAULT.

IF sy-subrc NE 0.
FORMAT COLOR 6 INTENSIFIED OFF.
ULINE AT (255).
WRITE: / sy-vline,
' No se pudo abrir el archivo : ',
255 sy-vline.
FORMAT COLOR 2 INTENSIFIED OFF.
WRITE: / sy-vline,
' ', FILE,
255 sy-vline.
ULINE AT (255).

EXIT.
ENDIF.
CLEAR T_CORREO.
REFRESH T_CORREO.

DO.
READ DATASET FILE INTO LINEA.
IF sy-subrc NE 0.
EXIT.
ENDIF.
T_CORREO-ROW2 = LINEA+1(250).
APPEND T_CORREO.
ENDDO.
CLOSE DATASET FILE.

ENDIF.

Úlima edición por Irua fecha: 24/09/07 a las 18:36:00.
Responder Con Cita