FTP服务器和ABAP的连接.docx

SAP培训：

SAP培训：

*---------------------------------------------------------------------*

*Report ZLITEST

*

*---------------------------------------------------------------------*

*

*

*---------------------------------------------------------------------*

REPORT

REPORT zlitest.

TYPE

TYPE-POOLS:slis,truxs.

TABLES:mseg,mkpf,makt,ekko,mara.

DATA

DATA:l_ftpcommand(128)TYPEc.

DATA:l_handle TYPEi.

FTPcommand

HANDle

DATA: pr_returnTYPEc.

DATAlt_ftpTYPEtruxs_t_text_data.

DATAls_ftpTYPEtruxs_t_text_dataWITHHEADERLINE.

DATA

DATA:hdlTYPEi,

keyTYPEiVALUE

slenTYPEi.

DATAdestLIKErfcdes-rfcdestVALUESAPFTP.

DATA

DATA:l_file_name(30)TYPEc.DATA:l_path(255)TYPEc.

DATA:l_file(255)TYPEc.

DATA: BEGINOFlt_outputOCCURS0,name(10)TYPEc,

age(2)TYPEn,address(20)TYPEc,

ENDOFlt_output.

DATA

DATA:lt_output_ftpLIKETABLEOFlt_outputWITHHEADERLINE.DATA pv_pw(30)TYPEc.

lt_output-name=LIYUWU.lt_output-age=24.

lt_output-address=hunangyongzhou.APPENDlt_output.

lt_output-name=FANGCHUN.lt_output-age=22.

lt_output-address=shichuan.

SAP培训：

SAP培训：

APPENDlt_output.

LOOPAT

LOOPATlt_output.

MOVE-CORRESPONDINGlt_outputTOlt_output_ftp.APPENDlt_output_ftp.

CLEARlt_output_ftp.

ENDLOOP.

l_file_name=

l_file_name=ftcput.txt.

CALLFUNCTION

CALLFUNCTIONFILE_GET_NAME

EXPORTING

client =sy-mandtlogical_filename=ZFTOSHIBAoperating_system=sy-opsyseleminate_blanks=X

IMPORTING

file_name

EXCEPTIONS

file_not_foundOTHERS

=l_path

=1

=2.

CONCATENATE

CONCATENATEl_pathl_file_nameINTOl_file.

TRANSLATE

TRANSLATEl_fileTOLOWERCASE.

*

*CALLFUNCTIONZTRANSVMI_FILE_TO_FTP

EXPORTING

pv_path =l_file

* pv_host =31

pv_user =ittest

* pv_pw =abcd!1234

pv_ftppath =toshiba\vmi\put

pv_ftpfn =miput.TXT

**IMPORTING

**

*

*

*

PV_SUBRC

TABLES

pv_tbl

.

=

=lt_output_ftp

CALLFUNCTIONSAP_CONVERT_TO_TEX_FORMAT

EXPORTING

**

*

*

*

i_field_seperator

I_LINE_HEADERI_FILENAMEI_APPL_KEEP

TABLES

i_tab_sap_data

SAP培训：

=