How to ZIP a file????
This Program will take the data from selection screen and put into text file and ZIP that file and download into your desktop.REPORT ztest_program.
DATA:g_val TYPE c,
file_tab TYPE STANDARD TABLE OF solisti1,
bin_file TYPE xstring,
bytecount TYPE i,
path_table TYPE TABLE OF char1024.
TYPES:
BEGIN OF ty_bin_file,
name TYPE string,
size TYPE i,
data TYPE solix_tab,
END OF ty_bin_file.
TYPES :BEGIN OF ty_data,
data TYPE c LENGTH 255,
END OF ty_data.
DATA: gt_bindata TYPE STANDARD TABLE OF ty_bin_file,
gt_data TYPE TABLE OF ty_data,
gs_data1 TYPE ty_data.
DATA:gs_data TYPE kna1.
DATA:gt_kna1 TYPE TABLE OF kna1.
DATA:gcl_zip TYPE REF TO cl_abap_zip.
"Select options
SELECT-OPTIONS:s_kunnr FOR gs_data-kunnr.
START-OF-SELECTION.
"Get the data from Kna1 table
PERFORM get_data.
*&---------------------------------------------------------------------*
*&
Form GET_DATA
*&---------------------------------------------------------------------*
*
FORM get_data .
DATA:ls_knumv TYPE konv.
DATA:lt_content TYPE soli_tab.
DATA: lv_string TYPE string,
lv_data TYPE string.
FIELD-SYMBOLS:<fs_data> TYPE ANY,
<fs_field> TYPE ANY.
DATA:lv_separator TYPE c LENGTH 1 VALUE '|'.
SELECT * FROM kna1 INTO TABLE gt_kna1
WHERE kunnr IN s_kunnr.
IF sy-subrc = 0.
LOOP AT gt_kna1 ASSIGNING <fs_data>.
DO.
ASSIGN COMPONENT sy-index OF STRUCTURE <fs_data>
TO <fs_field>.
IF sy-subrc = 0.
lv_data = <fs_field>.
CONCATENATE lv_string
lv_data lv_separator
INTO lv_string.
CLEAR:lv_data.
ELSE.
gs_data1-data = lv_string.
APPEND gs_data1 TO gt_data.
EXIT.
ENDIF.
ENDDO.
ENDLOOP.
ENDIF.
PERFORM zip_file TABLES lt_content.
ENDFORM.
" GET_DATA
*&---------------------------------------------------------------------*
*&
Form zipping_pdf_file
*&---------------------------------------------------------------------*
FORM zip_file TABLES lt_content.
DATA:zip TYPE xstring.
DATA:ls_content TYPE soli,
lv_len TYPE i.
DATA:lv_xstring TYPE xstring,
lv_name TYPE string.
* create our zipper object
CREATE OBJECT gcl_zip.
CALL FUNCTION 'SCMS_TEXT_TO_BINARY'
IMPORTING
output_length = lv_ len
TABLES
text_tab = gt_data
binary_tab = lt_content[]
EXCEPTIONS
FAILED = 1
OTHERS = 2
.
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
EXPORTING
input_length = lv_len
IMPORTING
buffer = lv_xstring
TABLES
binary_tab = lt_content[]
EXCEPTIONS
failed = 1
OTHERS = 2.
IF sy-subrc <> 0.
RAISE ex_bin_conv_error.
ENDIF.
* add file to zip
lv_name = 'knumv.txt'.
CALL METHOD gcl_zip->add
EXPORTING
name = lv_name
content = lv_xstring.
* "save zip
CALL METHOD gcl_zip->save
RECEIVING
zip = zip.
PERFORM download_zip_file TABLES lt_content
USING zip.
ENDFORM.
" zipping_pdf_file
*&---------------------------------------------------------------------*
*&
Form download_zip_file
*&---------------------------------------------------------------------*
*
text
*----------------------------------------------------------------------*
*
-->ZIP
text
*----------------------------------------------------------------------*
FORM download_zip_file TABLES lt_contents
USING zip.
DATA:lv_out TYPE i.
DATA:lv_filename TYPE string,
lv_path TYPE string,
pv_dest_filepath TYPE string.
** Get the binary stream for ZIP file
*
** Convert the XSTRING to Binary table
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = zip
IMPORTING
output_length = lv_out
TABLES
binary_tab = lt_contents[].
cl_gui_frontend_services=>file_save_dialog(
EXPORTING
window_title = 'Select the File Save Location'
file_filter = '(*.zip)|*.zip|'
CHANGING
filename = lv_filename
path = lv_path
fullpath = pv_dest_filepath
EXCEPTIONS
cntl_error = 1
error_no_gui = 2
n
ot_supported_by_gui = 3
OTHERS = 4
).
cl_gui_frontend_services=>gui_download(
EXPORTING
bin_filesize = lv_out
filename = pv_dest_filepath
filetype = 'BIN'
CHANGING
data_tab = lt_contents[]
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
not_supported_by_gui = 22
error_no_gui = 23
OTHERS = 24
).
ENDFORM. " download