| FTP from ABAP
To FTP using ABAP, you can have a look at the standard program 'RSEPSFTP'.
* * SAP FTP functions * * This sample program will logged into your Unix Server. * * Issue a Unix dir command * * Store the dir information in the Internal table and display it. * * Make sure you can telnet in to your SAP-UNIX FTP server first. * * Written by : SAP Basis, ABAP Programming and Other IMG Stuff * http://www.sap-img.com * REPORT ZFTPSAP LINE-SIZE 132. DATA: BEGIN OF MTAB_DATA OCCURS 0, LINE(132) TYPE C, END OF MTAB_DATA. DATA: MC_PASSWORD(20) TYPE C, MI_KEY TYPE I VALUE 26101957, MI_PWD_LEN TYPE I, MI_HANDLE TYPE I. START-OF-SELECTION. *-- Your SAP-UNIX FTP password (case sensitive) MC_PASSWORD = 'password'. DESCRIBE FIELD MC_PASSWORD LENGTH MI_PWD_LEN. *-- FTP_CONNECT requires an encrypted password to work CALL 'AB_RFC_X_SCRAMBLE_STRING' ID 'SOURCE' FIELD MC_PASSWORD ID 'KEY' FIELD MI_KEY ID 'SCR' FIELD 'X' ID 'DESTINATION' FIELD MC_PASSWORD ID 'DSTLEN' FIELD MI_PWD_LEN. CALL FUNCTION 'FTP_CONNECT' EXPORTING *-- Your SAP-UNIX FTP user name (case sensitive) USER = 'userid' PASSWORD = MC_PASSWORD *-- Your SAP-UNIX server host name (case sensitive) HOST = 'unix-host' RFC_DESTINATION = 'SAPFTP' IMPORTING HANDLE = MI_HANDLE EXCEPTIONS NOT_CONNECTED = 1 OTHERS = 2. CHECK SY-SUBRC = 0. CALL FUNCTION 'FTP_COMMAND' EXPORTING HANDLE = MI_HANDLE COMMAND = 'dir' TABLES DATA = MTAB_DATA EXCEPTIONS TCPIP_ERROR = 1 COMMAND_ERROR = 2 DATA_ERROR = 3 OTHERS = 4. IF SY-SUBRC = 0. LOOP AT MTAB_DATA. WRITE: / MTAB_DATA. ENDLOOP. ELSE. * do some error checking. WRITE: / 'Error in FTP Command'. ENDIF. CALL FUNCTION 'FTP_DISCONNECT' EXPORTING HANDLE = MI_HANDLE EXCEPTIONS OTHERS = 1. All product names are trademarks of their respective companies. The site www.sap-img.com is in no way affiliated with SAP AG. Every effort is made to ensure the content integrity. Information used on this site is at your own risk. The content on this site may not be reproduced or redistributed without the express written permission of www.sap-img.com or the content authors. |