PDA

Ver la Versión Completa : Enviar Archivo desde servidor sap a un servidor externo

Irua
18/09/07, 18:54:42
:) Hola Tengo un opendataset que me genera un txt y lo envia al servidor sap

Lo que requiero es enviar ese mismo archivo a servidor externo


Por favor si me pueden asesorar ya que soy novata programando en abap:(
K-MUS
18/09/07, 20:36:47
:) Hola Tengo un opendataset que me genera un txt y lo envia al servidor sap

Lo que requiero es enviar ese mismo archivo a servidor externo


Por favor si me pueden asesorar ya que soy novata programando en abap:(

Irua, el dataset te pide un path ese path no necesariamente tiene q ser de SAP, podes ponerle cualquier ruta que este en algun servidor que tengas acceso.

Simplemente que te pasen la ruta de la carpeta y listo.
DCErick
20/09/07, 15:08:44
Irua, el dataset te pide un path ese path no necesariamente tiene q ser de SAP, podes ponerle cualquier ruta que este en algun servidor que tengas acceso.

Simplemente que te pasen la ruta de la carpeta y listo.
K-MUS tiene toda la razon...
Yo uso opendataset para bajar y subir archivos carpetas compartidas, y uso las rutas de esta manera:
\\IP\Carpeta\Archivo.txt
Irua
20/09/07, 15:24:57
K-MUS tiene toda la razon...
Yo uso opendataset para bajar y subir archivos carpetas compartidas, y uso las rutas de esta manera:
\\IP\Carpeta\Archivo.txt


Ok disculpen pero tendran algun ejemplo porque de la manera que lo estoy haciendo me da error:confused:

gracias
DCErick
20/09/07, 23:13:51
Ok disculpen pero tendran algun ejemplo porque de la manera que lo estoy haciendo me da error:confused:

gracias
Porque no pones tu codigo para mirarlo.....

Saludos...
Irua
21/09/07, 13:30:27
Porque no pones tu codigo para mirarlo.....

Saludos...


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.
Irua
24/09/07, 15:47:23
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.