Ir al contenido

Copiar ficheros entre servidores (Interno Compañia a donde esta instalado SAP)

Respuestas
1
Visitas
13
Iniciado por
vlg1971
Fecha
18 Oct 2007, 14:37
Tema anterior - Siguiente tema

vlg1971

Hola, tengo el siguiente problema, resulta que tengo un servidor (EN ESTE SERVIDOR NO ESTA INSTADO SAP) donde tengo una serie de archivos, la intencion es coger estos ficheros del servidor origen y copiarlos al servidor destinio que es donde SI ESTA INSTALADO SAP

He visto varias funciones pero casi todas funcionan contra el servidor donde esta instalado sap, ¿sabeis de alguna funcion que permita hacer los que os comento?

Gracias

Carlos

Creo que se hace con los OPEN DATASET.

Te paso unos ejemplos:  ;)

Para hacer el Upload...

  OPEN DATASET P_FILE1 FOR INPUT IN TEXT MODE ENCODING DEFAULT.

  IF SY-SUBRC NE 0.
    MESSAGE S398(00) WITH 'Error en apertura de fichero'.
    EXIT.
  ENDIF.

  DO.
    READ DATASET P_FILE1 INTO itab_1.
    IF SY-SUBRC NE 0.
      EXIT.
    ENDIF.
    APPEND itab_1.
  ENDDO.

  CLOSE DATASET P_FILE1.


Y para el Download...

  DATA: FILE(27) VALUE '\\Sapdes\interf\archivo.txt'.

  OPEN DATASET FILE FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

  IF SY-SUBRC NE 0.
    MESSAGE S398(00) WITH 'Error en apertura de fichero'.
    EXIT.
  ENDIF.

  LOOP AT TI_DATA.
    TRANSFER TI_DATA TO FILE.
    WRITE / TI_DATA.
    IF SY-SUBRC <> 0. EXIT. ENDIF.
  ENDLOOP.

  IF SY-SUBRC = 8.
    SY-SUBRC = 3. EXIT.
  ENDIF.

  CLOSE DATASET FILE.