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.
|