Crear un fichero de texto comprimido en ZIP

Existe una clase estándard en SAP, CL_ABAP_ZIP, que permite crear archivos de texto comprimidos en ZIP. Existen varios modos de conseguir dicho fin. Un objeto de la clase CL_ABAP_ZIP puede contener más de un archivo. Todos los archivos que contengan deben estar codificados en binario (XSTRING).

A continuación se muestra un ejemplo de cómo convertir el contenido de una tabla interna a un fichero ZIP.

CALL FUNCTION 'SCMS_TEXT_TO_XSTRING' IMPORTING buffer = input_x TABLES text_tab = lt_txt_table[] EXCEPTIONS failed = 1 OTHERS = 2. cl_zip->add( EXPORTING name = txt_filename " nombre del fichero de texto que contiene el ZIP content = input_x " contenido del fichero en formato binario ). cl_zip->save( RECEIVING zip = output_x " contenido del ZIP en formato binario ). REFRESH data_tab. CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTING buffer = output_x IMPORTING output_length = size TABLES binary_tab = data_tab. CALL METHOD cl_gui_frontend_services=>gui_download EXPORTING bin_filesize = size filename = output_path filetype = 'BIN' CHANGING data_tab = data_tab.

Si lo que se desea es comprimir un archivo que se encuentra en una ubicación determinada, lo que deberemos hacer es, en primer lugar, leer el contenido del archivo en una variable de tipo binaria (xstring) y a continuación pasarle el contenido de esa variable al objeto de la clase CL_ABAP_ZIP que la vaya a contener.

CALL METHOD cl_gui_frontend_services=>gui_upload EXPORTING filename = ruta filetype = 'BIN' IMPORTING filelength = size CHANGING data_tab = data_tab. CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' EXPORTING input_length = size IMPORTING buffer = input_x TABLES binary_tab = data_tab EXCEPTIONS failed = 1 OTHERS = 2.