|
#1
|
|||
|
|||
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. * TRANSFER file TO 'U:\txt'. * ENDLOOP. * * *CLOSE DATASET FILE. |
#2
|
|||
|
|||
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. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|