Autor Tema: Copiar ficheros entre servidores (Interno Compañia a donde esta instalado SAP)  (Leído 8367 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado vlg1971

  • Novato
  • *
  • Mensajes: 1
    • Ver Perfil
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

Desconectado Carlos

  • Usuario Sr.
  • ****
  • Mensajes: 177
    • Ver Perfil
Re: Copiar ficheros entre servidores (Interno Compañia a donde esta instalado SA
« Respuesta #1 en: 18 de Octubre de 2007, 03:16:25 pm »
Creo que se hace con los OPEN DATASET.

Te paso unos ejemplos:  ;)

Para hacer el Upload...
Código: [Seleccionar]
  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...
Código: [Seleccionar]
  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.