ABAP读写SAP服务器文件

使用方式：

1、在应用服务器中打开文件OPEN DATASET [options]此句打开文件。如果不指定任何模式选项，则文件将按二进制模式打开。如果系统不能打开文件，则将系统字段SY-SUBRC设置为8，否则SY-SUBRC返回0

2、打开文件读取OPEN DATASET FOR INPUT IN TEXT MODE ENCODING DEFAULT .（以TXT文件打开）

3、打开文件写入OPEN DATASET FOR OUTPUT IN TEXT MODE ENCODING DEFAULT .（以TXT文件打开写入，这种是打开文件完全重写）

4、打开文件追加 OPEN DATASET FOR APPENDING IN TEXT MODE ENCODING DEFAULT .（以TXT文件打开写入，这种是打开文件追加记录）

5、关闭应用服务器上的文件 CLOSE DATASET .

6、删除应用服务器上的文件 DELETE DATASET .

7、向应用服务器上文件上写入数据TRANSFER to [LENGTH ].

8、向应用服务器上文件上读取数据READ DATASET INTO [LENGTH ].

常用事务代码：

1．AL11，服务器上的文件

2．CG3Y 下载文件

3．CG3Z 上传文件

以上总结来自"蜡笔小彭"博主

以下是我测试的代码

写入效果：

写入后最好使用CG3Y下载上传至SAP服务器的文件看内容是否有问题

REPORT ztest MESSAGE-ID 00.************************************************************************
* Tables Definitions
************************************************************************
TABLES: rlgrap.************************************************************************
* Data Definitions                定义数据
************************************************************************
TYPES: BEGIN OF ty_file,line(1024) TYPE x,END OF ty_file.DATA: gt_file TYPE TABLE OF ty_file.DATA: gv_file_name TYPE sdbah-actid,gv_file_type TYPE sdbad-funct,gv_file      TYPE xstring.************************************************************************
* Includes Module                 包含模块
************************************************************************************************************************************************
* Selection Screen                选择屏幕
************************************************************************
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY.************************************************************************
* Initialization                  初始化事件
************************************************************************
INITIALIZATION.************************************************************************
* At Selection Screen             PAI事件
************************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.PERFORM frm_f4_file.************************************************************************
* At Selection Screen Output      PBO事件
************************************************************************
AT SELECTION-SCREEN OUTPUT.************************************************************************
* Report Format                   报表格式
************************************************************************
TOP-OF-PAGE.END-OF-PAGE.************************************************************************
* Main Process                    主要逻辑
************************************************************************
START-OF-SELECTION."读取上传文件PERFORM frm_read_upload_file."上传文件至SAP服务器PERFORM frm_upload_file_to_sap.cl_demo_output=>write( '1' ).cl_demo_output=>write( '2' ).cl_demo_output=>display(  ).END-OF-SELECTION.*&---------------------------------------------------------------------*
*& Form FRM_F4_FILE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_f4_file .CALL FUNCTION 'F4_FILENAME'IMPORTINGfile_name = p_file.
ENDFORM.*&---------------------------------------------------------------------*
*& Form FRM_READ_UPLOAD_FILE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_read_upload_file .DATA: lv_file_path   TYPE string,lv_file_length TYPE i,lv_file_name   TYPE dbmsgora-filename.lv_file_path = p_file.lv_file_name = p_file.CALL FUNCTION 'SPLIT_FILENAME'EXPORTINGlong_filename  = lv_file_name "上传文件路径IMPORTINGpure_filename  = gv_file_name "文件名称pure_extension = gv_file_type. "文件后缀CALL FUNCTION 'GUI_UPLOAD'EXPORTINGfilename                = lv_file_pathfiletype                = 'BIN'IMPORTINGfilelength              = lv_file_lengthTABLESdata_tab                = gt_fileEXCEPTIONSfile_open_error         = 1file_read_error         = 2no_batch                = 3gui_refuse_filetransfer = 4invalid_type            = 5no_authority            = 6unknown_error           = 7bad_data_format         = 8header_not_allowed      = 9separator_not_allowed   = 10header_too_long         = 11unknown_dp_error        = 12access_denied           = 13dp_out_of_memory        = 14disk_full               = 15dp_timeout              = 16OTHERS                  = 17.IF sy-subrc <> 0.MESSAGE s001 WITH '上传文件失败' DISPLAY LIKE 'E'.LEAVE LIST-PROCESSING.ENDIF.ENDFORM.*&---------------------------------------------------------------------*
*& Form FRM_UPLOAD_FILE_TO_SAP
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_upload_file_to_sap .DATA: ls_file TYPE ty_file.DATA: lv_folder TYPE eps2filnam."指定目录和文件名lv_folder = '/hybris/FI/2023/202307/' && gv_file_name && '.' && gv_file_type."在应用服务器打开文件（二进制模式）OPEN DATASET lv_folder FOR OUTPUT IN BINARY MODE.IF sy-subrc = 0.LOOP AT gt_file INTO ls_file."向应用服务器上文件上写入数据TRANSFER ls_file TO lv_folder.ENDLOOP."关闭应用服务器文件CLOSE DATASET lv_folder.MESSAGE s001 WITH '写入文件成功' DISPLAY LIKE 'S'.LEAVE LIST-PROCESSING.ELSE.MESSAGE s001 WITH '在应用服务器打开文件失败' DISPLAY LIKE 'E'.LEAVE LIST-PROCESSING.ENDIF.
ENDFORM.

读取效果：

TYPES: BEGIN OF ty_upload_file,file_name TYPE string,file_type TYPE string,file_size TYPE i,file      TYPE xstring,END OF ty_upload_file.DATA: lt_upload_file TYPE TABLE OF ty_upload_file,ls_upload_file TYPE ty_upload_file.DATA: lt_file   TYPE TABLE OF eps2fili,ls_file   TYPE eps2fili,lv_folder TYPE eps2filnam.DATA: lt_binary TYPE TABLE OF rcgrepfile,ls_binary TYPE rcgrepfile.DATA: lv_file_path TYPE dbmsgora-filename,lv_file_name TYPE sdbah-actid,lv_file_type TYPE sdbad-funct.DATA: lv_msg      TYPE string,lv_xstring  TYPE xstring,lv_file_len TYPE i,lv_len      TYPE i."指定目录
lv_folder = '/hybris/FI/2023/202307/'."获取指定目录下所有的文件
CALL FUNCTION 'EPS2_GET_DIRECTORY_LISTING'EXPORTINGiv_dir_name            = lv_folderTABLESdir_list               = lt_fileEXCEPTIONSinvalid_eps_subdir     = 1sapgparam_failed       = 2build_directory_failed = 3no_authorization       = 4read_directory_failed  = 5too_many_read_errors   = 6empty_directory_list   = 7OTHERS                 = 8.
IF sy-subrc <> 0.lv_msg  = '读取指定目录下的文件失败'.
ELSE.LOOP AT lt_file INTO ls_file WHERE name CS 'pdf' AND size > 0.CLEAR: lt_binary."文件完整的路径lv_file_path = lv_folder && ls_file-name."根据文件完整的路径获取文件名和后缀CALL FUNCTION 'SPLIT_FILENAME'EXPORTINGlong_filename  = lv_file_path "上传文件路径IMPORTINGpure_filename  = lv_file_name "文件名称pure_extension = lv_file_type. "文件后缀"在应用服务器打开文件（二进制模式）OPEN DATASET lv_file_path FOR INPUT IN BINARY MODE.IF sy-subrc = 0."按照2550长度读取文件，读到最后不足2550长度则跳出读取模式DO.CLEAR lv_len.READ DATASET lv_file_path INTO ls_binary LENGTH lv_len.IF sy-subrc <> 0.IF lv_len > 0.ADD lv_len TO lv_file_len.ENDIF.APPEND ls_binary TO lt_binary.EXIT.ENDIF.ADD lv_len TO lv_file_len.APPEND ls_binary TO lt_binary.ENDDO.ENDIF."关闭应用服务器文件CLOSE DATASET lv_file_path."二进制转XStringCALL FUNCTION 'SCMS_BINARY_TO_XSTRING'EXPORTINGinput_length = lv_file_lenIMPORTINGbuffer       = lv_xstringTABLESbinary_tab   = lt_binaryEXCEPTIONSfailed       = 1OTHERS       = 2.IF sy-subrc = 0.ls_upload_file-file_name = lv_file_name.ls_upload_file-file_type = lv_file_type.ls_upload_file-file_size = xstrlen( lv_xstring ).ls_upload_file-file = lv_xstring.APPEND ls_upload_file TO lt_upload_file.CLEAR ls_upload_file.ENDIF.ENDLOOP.
ENDIF.cl_demo_output=>write( lv_msg ).
cl_demo_output=>write( lt_upload_file ).
cl_demo_output=>display(  ).