【免费】ABAPFTP文件处理测试程序资源-CSDN文库

共8个文件

html：8个

ABAP开发

需积分: 0 37 浏览量 2024-09-13 16:48:38 上传评论收藏 18KB ZIP 举报

资源推荐

资源详情

资源评论

收起资源包目录

FTP测试程序.zip （8个子文件）

z_teste_yy_23

z_teste_yy_23.html 2KB

zalsm_excel_to_int_table_bm

zalsm_excel_to_int_table_bm.html 17KB

global-zalsm_excel_to_int_table_bm.html 2KB

z_teste_yy_23_f01.html 30KB

zssflight_ftp

dictionary-zssflight_ftp.html 11KB

z_teste_yy_23_top.html 1KB

z_teste_yy_23_scr.html 2KB

zalsmex_tabline

dictionary-zalsmex_tabline.html 3KB

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> <html> <head> <title>Z_TESTE_YY_23_F01</title> </head> <body bgcolor="#FFFFE0"> Code listing for: Z_TESTE_YY_23_F01 Description: Include Z_TESTE_YY_23_F01 <hr> <pre width="100"> *&---------------------------------------------------------------------* *& 包含 Z_TESTE_YY_23_F01 *&---------------------------------------------------------------------* DEFINE def_process. END-OF-DEFINITION. *&---------------------------------------------------------------------* *& Form frm_beging_procedure *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_beging_procedure . "链接FTP PERFORM frm_connect_ftp. "执行FTP功能 PERFORM frm_ftp_execute. ENDFORM. *&---------------------------------------------------------------------* *& Form frm_connect_ftp *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_connect_ftp . DATA:lv_pwd_len TYPE i. CLEAR:lv_pwd_len. gv_pwrd = p_pwrd. lv_pwd_len = strlen( gv_pwrd ). "对密码进行加密处理 CALL FUNCTION 'HTTP_SCRAMBLE' EXPORTING source = gv_pwrd sourcelen = lv_pwd_len key = gc_key IMPORTING destination = gv_pwrd. "链接FTP CALL FUNCTION 'FTP_CONNECT' EXPORTING user = p_user password = gv_pwrd host = p_host rfc_destination = gc_rfc_des IMPORTING handle = gv_handle EXCEPTIONS not_connected = 1 OTHERS = 2. IF sy-subrc <> 0. MESSAGE e001(00) WITH '无法连接FTP!'. ELSE. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = 20 "进度 text = '链接FTP成功！'. "显示文本 ENDIF. ENDFORM. *&---------------------------------------------------------------------* *& Form frm_ftp_execute *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_ftp_execute . DATA:lv_ucomm TYPE sy-ucomm. DATA:ls_up_path TYPE c LENGTH 200, ls_up_file TYPE c LENGTH 200, ls_up_fname TYPE c LENGTH 200, ls_dw_path TYPE c LENGTH 200, ls_dw_fname TYPE c LENGTH 200. CLEAR:lv_ucomm,ls_up_fname,ls_up_file,ls_up_path,gt_ftp_com. FREE:gt_ftp_com. lv_ucomm = sy-ucomm. "指定FTP文件路线 IF gv_ftp_path IS NOT INITIAL. CONCATENATE 'cd' p_fpath INTO gt_ftp_com SEPARATED BY space. APPEND gt_ftp_com. ENDIF. CASE lv_ucomm. WHEN 'UPLOAD'. "获取文件夹路径，文件名，文件全路径 PERFORM frm_get_uppath CHANGING ls_up_path ls_up_file ls_up_fname. "指定本地文件路径 CONCATENATE 'lcd' ls_up_path INTO gt_ftp_com SEPARATED BY space. APPEND gt_ftp_com. "指定本地文件文件名 CONCATENATE 'put' ls_up_fname INTO gt_ftp_com SEPARATED BY space. APPEND gt_ftp_com. "执行FTP指令 PERFORM frm_execute_handle TABLES gt_ftp_com. WHEN 'DOWNLOAD'. "获取下载路径 PERFORM frm_get_dwpath CHANGING ls_dw_path. "获取FTP文件名 PERFORM frm_get_fname CHANGING ls_dw_fname. "检查文件是否存在 PERFORM frm_check_dw USING ls_dw_path ls_dw_fname. "指定本地文件路径 CONCATENATE 'lcd' ls_dw_path INTO gt_ftp_com SEPARATED BY space. APPEND gt_ftp_com. "指定获取文件名 CONCATENATE 'get' ls_dw_fname INTO gt_ftp_com SEPARATED BY space. APPEND gt_ftp_com. "执行FTP指令 PERFORM frm_execute_handle TABLES gt_ftp_com. WHEN 'ITAB_DL'. "获取FTP文件名 PERFORM frm_get_fname CHANGING ls_dw_fname. * "复制FTP文件到R3 * PERFORM frm_copy_file USING ls_dw_fname. "读取FTP文件 PERFORM frm_read_file USING ls_dw_fname. WHEN OTHERS. "断开FTP,RFC链接 PERFORM frm_ftp_disconnect. ENDCASE. "断开FTP,RFC链接 PERFORM frm_ftp_disconnect. ENDFORM. *&---------------------------------------------------------------------* *& Form FRM_FTP_DISCONNECT *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_ftp_disconnect . "断开FTP连接 CALL FUNCTION 'FTP_DISCONNECT' EXPORTING handle = gv_handle. "断开RFC连接 CALL FUNCTION 'RFC_CONNECTION_CLOSE' EXPORTING destination = gc_rfc_des EXCEPTIONS destination_not_open = 1 OTHERS = 2. ENDFORM. *&---------------------------------------------------------------------* *& Form frm_execute_uploda *&---------------------------------------------------------------------* *& text *&---------------------------------------------------------------------* *& --> p1 text *& <-- p2 text *&---------------------------------------------------------------------* FORM frm_execute_handle TABLES pt_ftp_path STRUCTURE gt_ftp_com. DATA:BEGIN OF lt_rs_data OCCURS 0, line(100) TYPE c, END OF lt_rs_data. CLEAR:lt_rs_data. FREE:lt_rs_data. LOOP AT pt_ftp_path FROM 1. "执行FTP指令 CALL FUNCTION 'FTP_COMMAND' EXPORTING handle = gv_handle command = pt_ftp_path-cmd compress = gc_compress TABLES data = lt_rs_data EXCEPTIONS tcpip_error = 1 command_error = 2 data_error = 3 OTHERS = 4. IF sy-subrc <> 0. PERFORM frm_ftp_disconnect. MESSAGE e001(00) WITH '操作执行失败！'. EXIT. ELSE. CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = 100

评论收藏

内容反馈