这是一个解压缩zip文件的程序，我也有一个要压缩的文件。

报告YFPZ0008。

 类型：
 t_xline（2048）TYPE x，" BINARY FILES

 开始于t_line，
 第（1024）行TYPE C，
 t_line的结尾。  "内容

 数据：
 尺寸类型

 数据：
 t_xline的data_tab类型标准表，
 text_tab t_line的标准类型表。

 数据：
 input_x类型xstring，"二进制内容输入
 output_x类型xstring。  "二进制输出


 数据：CL_ZIP类型参考CL_ABAP_ZIP。

 数据文件，例如cl_abap_zip =>文件。

 数据：
 名称类型字符串。

   参数：
     p_file TYPE字符串。

   参数：
     p_output TYPE字符串。

 呼叫方法CL_GUI_FRONTEND_SERVICES => GUI_UPLOAD
 出口
 FILENAME = p_file
 FILETYPE ='BIN'
 输入
 文件长度=大小
 改变
 DATA_TAB = data_tab。


 通话功能'SCMS_BINARY_TO_XSTRING'
 出口
 INPUT_LENGTH =大小
 输入
 缓冲区= input_x
 桌子
 BINARY_TAB = data_tab。

 创建对象cl_zip。

 呼叫方法cl_zip-> load（
 出口
 邮递区号= input_x
 ）。


 循环至cl_zip-> files INTO文件。

 清除output_x。
 移动文件名至名称。
 cl_zip-> GET（
 出口
 NAME =名称" Example.txt（zip文件中的文件）
 输入
 内容= output_x
 ）
 。

 刷新data_tab。

 通话功能'SCMS_XSTRING_TO_BINARY'
 出口
 缓冲区= output_x
 输入
 OUTPUT_LENGTH =大小
 桌子
 BINARY_TAB =数据标签
 。
 通话功能'SCMS_BINARY_TO_TEXT'
 出口
 INPUT_LENGTH =大小
 桌子
 BINARY_TAB =数据标签
 TEXT_TAB = text_tab
 。
 呼叫方法CL_GUI_FRONTEND_SERVICES => GUI_DOWNLOAD
 出口
 BIN_FILESIZE =大小
 FILENAME = p_output
 FILETYPE ='BIN'
 改变
 DATA_TAB = data_tab。