Foro de programación ABAP

SAP / ABAP => Programación ABAP => Mensaje iniciado por: vlg1971 en 18 de Octubre de 2007, 02:37:35 pm

Título: Copiar ficheros entre servidores (Interno Compañia a donde esta instalado SAP)
Publicado por: vlg1971 en 18 de Octubre de 2007, 02:37:35 pm

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

Título: Re: Copiar ficheros entre servidores (Interno Compañia a donde esta instalado SA
Publicado por: Carlos 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.