How to ZIP a PDF file email attachment

Question

Hi,
   We have an ABAP report requirement to send an email to a user. This program will send an email with PDF attachement. However, the PDF attachment is quite big (9MB) and our email server couldn't handle it (5MB only). Is there any way to ZIP this PDF file attachment?
   I am using a SAP release 4.6C with OS WinNT. And the ABAP program should be able to run in Foreground/Background.
   Thanks for your help in advance...
Kind regards,
Herson

Answer 1

Read Notes:
616958
644640
You can create a class method:
    CALL METHOD zca_tools=>zip_table
      EXPORTING
        i_data_table = <data_struc>
        i_filename   = 'aa'
      IMPORTING
        e_bin_table  = t_zipped
        e_bin_length = lines.
METHOD zip_table.
  DATA: lv_original_length(10) TYPE n,
        lv_data_ref            TYPE REF TO data,
        lv_struc_ref           TYPE REF TO data.
  DATA: lv_zip  TYPE REF TO cl_abap_zip,
        lv_lines  TYPE i,
        lv_length TYPE i,
        lv_data_to_zip TYPE xstring,
        lv_zip_file    TYPE xstring,
        lv_catch       TYPE REF TO cx_root,
        lv_message     TYPE string.
  FIELD-SYMBOLS: <data_struc>       TYPE ANY,
                 <final_data>       TYPE ANY,
                 <final_data_table> TYPE STANDARD TABLE,
                 <aux>              TYPE x.
  LOOP AT i_data_table ASSIGNING <data_struc>.
    DESCRIBE FIELD <data_struc> LENGTH lv_original_length IN CHARACTER MODE.
    EXIT.
  ENDLOOP.
  TRY.
      CREATE DATA lv_data_ref TYPE c LENGTH lv_original_length.
      ASSIGN lv_data_ref->* TO <final_data>.
      CREATE DATA lv_data_ref LIKE STANDARD TABLE OF <final_data>.
      ASSIGN lv_data_ref->* TO <final_data_table>.
      APPEND LINES OF i_data_table TO <final_data_table>.
      DESCRIBE TABLE <final_data_table> LINES lv_lines.
      ASSIGN COMPONENT 1 OF STRUCTURE <final_data> TO <aux> CASTING.
      IF sy-subrc NE 0 OR NOT <aux> IS ASSIGNED.
        ASSIGN COMPONENT 0 OF STRUCTURE <final_data> TO <aux> CASTING.
      ENDIF.
      DESCRIBE FIELD <aux> LENGTH lv_length IN BYTE MODE.
      MULTIPLY lv_length BY lv_lines.
    CATCH cx_root INTO lv_catch.                         "#EC CATCH_ALL
      lv_message = lv_catch->get_text( ).
      MESSAGE lv_message TYPE 'E' RAISING error.
  ENDTRY.
  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
    EXPORTING
      input_length = lv_length
      first_line   = 1
      last_line    = lv_lines
    IMPORTING
      buffer       = lv_data_to_zip
    TABLES
      binary_tab   = <final_data_table>
    EXCEPTIONS
      failed       = 1
      OTHERS       = 2.
  IF sy-subrc NE 0.
    IF sy-msgty IS INITIAL.
      sy-msgty = 'S'.
    ENDIF.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 RAISING error.
  ENDIF.
  CREATE OBJECT lv_zip.
  CALL METHOD lv_zip->add
    EXPORTING
      name    = i_filename
      content = lv_data_to_zip.
  CALL METHOD lv_zip->save
    RECEIVING
      zip = lv_zip_file.
  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      buffer     = lv_zip_file
    TABLES
      binary_tab = e_bin_table.
  TRY.
      DESCRIBE TABLE e_bin_table LINES lv_lines.
      e_bin_length = lv_lines * 255.   "255 is the length of each line of e_bin_table
    CATCH cx_root INTO lv_catch.                         "#EC CATCH_ALL
      lv_message = lv_catch->get_text( ).
      MESSAGE lv_message TYPE 'E' RAISING error.
  ENDTRY.
ENDMETHOD.
I hope it helps!
Regards,
Frinee