Ftp Sap

[Edd_401]

Hola que tal tengo que mandar unos archivos de tipo .XML a un servidor FTP.

El problemas es que no se como hacer, agradeceria su valiosa ayuda con documentacion a acerca de FTP que es, como funciona, etc, etc.

En verdad me ayudarian mucho..

Grax.

edd_401@hotmail.com

[DCErick]

Pues casi no he hecho nada para FTP, pero un día para quitarme la duda logré hacerme este programa:


REPORT zsd_deposito_bancarios.

DATA: BEGIN OF outrec,
matnr(15),
maktx(30),
ean11(18),
bismt LIKE mara-bismt,
END OF outrec.

CONSTANTS: user(12) TYPE c VALUE 'opernes',
pwd(20) TYPE c VALUE 'marlsuna'.

DATA: hdl TYPE i,
key TYPE i VALUE 26101957,
dstlen TYPE i,
upc(11) TYPE n.

DATA: BEGIN OF result OCCURS 0,
line(100) TYPE c,
END OF result.

DATA: BEGIN OF commands OCCURS 0,
line(100) TYPE c,
END OF commands.


DATA: wrkfile LIKE rlgrap-filename VALUE '/sapmnt/data/outbound/'.

*PARAMETERS : p_cmd(200) TYPE c.

END-OF-SELECTION.

PERFORM connect_ftp
CHANGING
hdl.

IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.



CALL FUNCTION 'FTP_COMMAND'
EXPORTING
handle = hdl
command = 'ls' "'get 007000001247.txt \\192.16.1.33\Instaladores\007000001247.txt'
TABLES
data = result
EXCEPTIONS
command_error = 1
tcpip_error = 2.

IF sy-subrc = 0.
PERFORM write_result.


ELSE.
PERFORM write_result.
*Cerramos Conección FTP
PERFORM disconnect_ftp.
ENDIF.
ENDIF.

*&--------------------------------------------------------------------*
*& Form Connect_FTP
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -->HDL text
*---------------------------------------------------------------------*
FORM connect_ftp CHANGING hdl.
****Nos conentamos a sitio FTP.
CALL 'AB_RFC_X_SCRAMBLE_STRING'
ID 'SOURCE' FIELD pwd ID 'KEY' FIELD key
ID 'SCR' FIELD 'X' ID 'DESTINATION' FIELD pwd
ID 'DSTLEN' FIELD dstlen.


CALL FUNCTION 'FTP_CONNECT'
EXPORTING
user = user
password = pwd
* ACCOUNT =
host = '192.68.1.252'
rfc_destination = 'SAPFTPA'
* GATEWAY_USER =
* GATEWAY_PASSWORD =
* GATEWAY_HOST =
IMPORTING
handle = hdl
EXCEPTIONS
not_connected = 1
OTHERS = 2.

ENDFORM. "Connect_FTP

*&--------------------------------------------------------------------*
*& Form WRITE_RESULT
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM write_result.
LOOP AT result.
WRITE : / result.
ENDLOOP.
PERFORM disconnect_ftp.
ENDFORM. "WRITE_RESULT
*&--------------------------------------------------------------------*
*& Form DISCONNECT_FTP
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM disconnect_ftp.

CALL FUNCTION 'FTP_DISCONNECT'
EXPORTING
handle = hdl.

ENDFORM. " DISCONNECT_FTP