Broadcasting reports via mail with PDF-attachment

[Former Member]

Greetings

So after waiting my application for a while, I could manage to join the SDN community as a blogger. It took me hundreds of hours to solve those odd psychological quizes (didn't you?), having a blood test done (thank God I'm quite healthy) and proving I can walk upside-down with an SAP FI manual on my feet... Well, first of all, thanks very much for watching my first weblog. It's always nice having something to contribute to the Community.

Introduction

I once had a request for development, and was this one: every time an advance payment is posted, special G/L indicator (BSIK-UMSKZ) is of course populated. My users wanted to keep track of what advance payments exist as open items in SAP, and then print a list which could be distributed/broadcasted to the people who requested these postings. So first of all, the information on what SAP-user requested an advance payment should be kept in a field, let's say Reference key BSIK-XREF3.

The procedure

OK, now I have an ALV-list with some postings and the users who I want to broadcast the list to. The main goal is:

• Slice the list into pieces, one for each receiver
• Print the sub-listings to the SAP spool, and keep track of the spool numbers
• Convert the spools to PDF
• Use function module SO_NEW_DOCUMENT_ATT_SEND_API1 to send this PDF as an attachment (I followed Sending E-Mail from ABAP - Version 46D and Lower - API Interface)

... and that's it! Important! Field BSEG-XREF3 is filled with SAP user codes, and I retrieve the e-mail from the SAP User Maintenance (tables USR21 and ADRP). You may of course use another fields rather than this one (but remember to change slightly the ABAP code!)

The whole code

I'm working with SAP R/3 release 4.6C. Please pay special attention to these routines:

• send_mail, which prepares all the data like print parameters, generates the spool request and converts it to PDF
• build_mail, which builds the mail text and calls function module SO_NEW_DOCUMENT_ATT_SEND_API1

REPORT z_broadcasting_example  NO STANDARD PAGE HEADING  LINE-SIZE 254.************************************************************************* REPORT  z_broadcasting_example - Advance payments open items         **                                  Broadcasting example                **----------------------------------------------------------------------** AUTHOR:         Álvaro Vidal-Abarca Verdú         ( User: ALVAVIDA ) **----------------------------------------------------------------------** CORRECTIONS LOG:                                                     **                                                                      **************************************************************************----------------------------------------------------------------------** Tables*----------------------------------------------------------------------*TABLES: adrp,  "Persons (central address administration)        bhdgd, "Common data area batch heading routine        bsik,  "Accounting: Secondary Index for Vendors        usr21, "Assign user name address key        zt001. "Textos aviso pago anticipos y liquidaciones gastos viaje*----------------------------------------------------------------------** General data definition*----------------------------------------------------------------------*TYPE-POOLS: icon. "Zuordnung: Ikonenbezeichner in Listen zu ASCII-CodesTYPE-POOLS: slis. "Globale Typen für generische ListbausteineDATA: d_linsz            LIKE sy-linsz.*----------------------------------------------------------------------** Constants*----------------------------------------------------------------------*CONSTANTS: c_yes(1)        TYPE c VALUE 'X'.*----------------------------------------------------------------------** Structures*----------------------------------------------------------------------*DATA: e_variant  TYPE disvariant.*----------------------------------------------------------------------** Internal tables*----------------------------------------------------------------------*DATA: BEGIN OF t_list OCCURS 0,        checkbox(1) TYPE c,        xref3_tech LIKE bsik-xref3,        lifnr LIKE bsik-lifnr,        name1 LIKE lfa1-name1,        bukrs LIKE bsik-bukrs,        belnr LIKE bsik-belnr,        gjahr LIKE bsik-gjahr,        buzei LIKE bsik-buzei,        budat LIKE bsik-budat,        shkzg LIKE bsik-shkzg,        wrbtr LIKE bsik-wrbtr,        waers LIKE bsik-waers,        xref1 LIKE bsik-xref1,        xref3 LIKE bsik-xref3,        sgtxt LIKE bsik-sgtxt,        tabix_tech LIKE sy-tabix,      END OF t_list.DATA: BEGIN OF t_items OCCURS 0,        bukrs LIKE bsik-bukrs,        belnr LIKE bsik-belnr,        gjahr LIKE bsik-gjahr,        buzei LIKE bsik-buzei,        xref3 LIKE bsik-xref3,      END OF t_items.*----------------------------------------------------------------------** Ranges*----------------------------------------------------------------------**----------------------------------------------------------------------** Selection-screen*----------------------------------------------------------------------*SELECTION-SCREEN: BEGIN OF BLOCK aaa WITH FRAME TITLE text-000.SELECT-OPTIONS: s_lifnr FOR bsik-lifnr,                s_bukrs FOR bsik-bukrs,                s_umskz FOR bsik-umskz,                s_budat FOR bsik-budat,                s_wrbtr FOR bsik-wrbtr,                s_dmbtr FOR bsik-dmbtr,                s_ebeln FOR bsik-ebeln,                s_sgtxt FOR bsik-sgtxt,                s_xref1 FOR bsik-xref1,                s_xref3 FOR bsik-xref3.SELECTION-SCREEN: SKIP.PARAMETERS: p_vari LIKE disvariant-variant.SELECTION-SCREEN: END OF BLOCK aaa.PARAMETERS: p_spool(1) TYPE c NO-DISPLAY DEFAULT space.*----------------------------------------------------------------------** Events*----------------------------------------------------------------------*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.  CLEAR e_variant.  e_variant-report   = sy-cprog.  e_variant-username = sy-uname.  CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'       EXPORTING            i_save     = c_yes       CHANGING            cs_variant = e_variant       EXCEPTIONS            not_found  = 2.  IF sy-subrc = 0.    p_vari = e_variant-variant.  ENDIF.  PERFORM f4_for_variant.*----------------------------------------------------------------------** Main program*----------------------------------------------------------------------*START-OF-SELECTION.  CLEAR e_variant.  e_variant-report   = sy-cprog.  e_variant-username = sy-uname.  e_variant-variant  = p_vari.  PERFORM load_data.  PERFORM show_list.END-OF-SELECTION.*----------------------------------------------------------------------** Routines*----------------------------------------------------------------------**&---------------------------------------------------------------------**&      Form  f4_for_variant*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM f4_for_variant.*  DATA: l_exit(1) TYPE c.  CALL FUNCTION 'REUSE_ALV_VARIANT_F4'       EXPORTING            is_variant          = e_variant            i_tabname_header    = 'T_LIST'*           i_tabname_item      = ' '*           IT_DEFAULT_FIELDCAT =            i_save              = 'A'       IMPORTING            e_exit              = l_exit            es_variant          = e_variant       EXCEPTIONS            not_found           = 2.  IF sy-subrc = 2.    MESSAGE ID sy-msgid TYPE 'S'  NUMBER sy-msgno            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  ELSE.    IF l_exit = space.      p_vari = e_variant-variant.    ENDIF.  ENDIF.*ENDFORM.                    " f4_for_variant*&---------------------------------------------------------------------**&      Form  top_of_list*&---------------------------------------------------------------------**       Mostramos la cabecera del listado de errores, usando*       la rutina BATCH-HEADING del programa RSBTCHH0 (consultar*       documentación de dicho programa).*----------------------------------------------------------------------*FORM top_of_list.*  bhdgd-line1 = sy-title.  bhdgd-line2 = space.  CATCH SYSTEM-EXCEPTIONS bcd_field_overflow = 1.    bhdgd-lines = sy-linsz.  ENDCATCH.  IF sy-subrc = 1.    bhdgd-lines = 999.  ENDIF.  bhdgd-uname = sy-uname.  bhdgd-repid = sy-cprog.  bhdgd-inifl = 0.  PERFORM batch-heading(rsbtchh0).  ULINE.  FORMAT INTENSIFIED OFF.*ENDFORM.                    " top_of_list*&---------------------------------------------------------------------**&      Form  print_selections*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM print_selections.*  DATA: BEGIN OF lt_selecciones OCCURS 100,          flag(1) TYPE c,          olength TYPE x,          line LIKE raldb-infoline,        END OF lt_selecciones.  d_linsz = sy-linsz - 2.  sy-lisel = '*** Final de listado ***'(010).  PERFORM just_routine(rsbtchh0)    USING sy-lisel sy-linsz.  FORMAT RESET.  ULINE.  WRITE: / sy-vline NO-GAP, sy-lisel+2(d_linsz) NO-GAP, sy-vline.  ULINE.  SKIP.  CALL FUNCTION 'PRINT_SELECTIONS'       EXPORTING            mode      = 'TABLE'            rname     = sy-cprog            rvariante = ''       TABLES            infotab   = lt_selecciones.  LOOP AT lt_selecciones.    WRITE: / lt_selecciones-line COLOR COL_NORMAL INTENSIFIED OFF.  ENDLOOP.*ENDFORM.                    " print_selections*&---------------------------------------------------------------------**&      Form  load_data*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM load_data.*  CLEAR: t_list.  REFRESH: t_list.  IF p_spool IS INITIAL.    SELECT *      INTO CORRESPONDING FIELDS OF TABLE t_list      FROM bsik      WHERE lifnr IN s_lifnr        AND bukrs IN s_bukrs        AND umskz IN s_umskz        AND budat IN s_budat        AND wrbtr IN s_wrbtr        AND dmbtr IN s_dmbtr        AND ebeln IN s_ebeln        AND sgtxt IN s_sgtxt        AND xref1 IN s_xref1        AND xref3 IN s_xref3.  ELSE.    CLEAR: t_items.    REFRESH: t_items.    IMPORT t_items FROM MEMORY ID 'ADV_PAYMENTS'.    SELECT *      INTO CORRESPONDING FIELDS OF TABLE t_list      FROM bsik      FOR ALL ENTRIES IN t_items      WHERE bukrs = t_items-bukrs        AND belnr = t_items-belnr        AND gjahr = t_items-gjahr        AND buzei = t_items-buzei        AND lifnr IN s_lifnr        AND bukrs IN s_bukrs        AND umskz IN s_umskz        AND budat IN s_budat        AND wrbtr IN s_wrbtr        AND dmbtr IN s_dmbtr        AND ebeln IN s_ebeln        AND sgtxt IN s_sgtxt        AND xref1 IN s_xref1        AND xref3 IN s_xref3.  ENDIF.  SORT t_list    BY lifnr       gjahr       bukrs       belnr       buzei.* Fill data:*   - Vendor name*   - Technical fields*   - Signed amount  LOOP AT t_list.    CLEAR: t_list-name1.    SELECT SINGLE name1      INTO t_list-name1      FROM lfa1      WHERE lifnr = t_list-lifnr.    IF t_list-shkzg = 'H'.      t_list-wrbtr = t_list-wrbtr * ( -1 ).    ENDIF.    t_list-xref3_tech = t_list-xref3.    t_list-tabix_tech = sy-tabix.    MODIFY t_list.  ENDLOOP.*ENDFORM.                    " load_data*&---------------------------------------------------------------------**&      Form  show_list*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM show_list.*  DATA: le_layout   TYPE slis_layout_alv.  DATA: lt_fieldcat TYPE slis_t_fieldcat_alv.  DATA: lt_events   TYPE slis_t_event.  DATA: le_events   TYPE slis_alv_event.  DATA: le_print    TYPE slis_print_alv.* Layout control  CLEAR le_layout.  le_layout-f2code               = '&ETA'.  le_layout-colwidth_optimize    = space.  le_layout-no_colhead           = space.  le_layout-zebra                = c_yes.  le_layout-box_fieldname        = 'CHECKBOX'.  le_layout-detail_initial_lines = c_yes.  le_layout-detail_popup         = space.  le_layout-confirmation_prompt  = c_yes.* Fill the field catalog  PERFORM fill_field_catalog    USING lt_fieldcat.* Events TOP-OF-PAGE y END-OF-LIST.  le_events-name = 'TOP_OF_PAGE'.  le_events-form = 'TOP_OF_LIST'.  APPEND le_events TO lt_events.  le_events-name = 'END_OF_LIST'.  le_events-form = 'PRINT_SELECTIONS'.  APPEND le_events TO lt_events.* Printing control  le_print-no_print_selinfos  = c_yes.  le_print-no_coverpage       = c_yes.  le_print-no_print_listinfos = c_yes.  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'    EXPORTING*     I_INTERFACE_CHECK              = ' '*     I_BYPASSING_BUFFER             =*     I_BUFFER_ACTIVE                = ' '      i_callback_program             = sy-cprog      i_callback_pf_status_set       = 'SET_PF_STATUS'      i_callback_user_command        = 'USER_COMMAND'*     I_STRUCTURE_NAME               =      is_layout                      = le_layout      it_fieldcat                    = lt_fieldcat*     IT_EXCLUDING                   =*     IT_SPECIAL_GROUPS              =*     IT_SORT                        =*     IT_FILTER                      =*     IS_SEL_HIDE                    =*     I_DEFAULT                      = 'X'*      i_save                         = 'U'      i_save                         = 'A'      is_variant                     = e_variant      it_events                      = lt_events*     IT_EVENT_EXIT                  =      is_print                       = le_print*     IS_REPREP_ID                   =*     I_SCREEN_START_COLUMN          = 0*     I_SCREEN_START_LINE            = 0*     I_SCREEN_END_COLUMN            = 0*     I_SCREEN_END_LINE              = 0*   IMPORTING*     E_EXIT_CAUSED_BY_CALLER        =*     ES_EXIT_CAUSED_BY_USER         =    TABLES      t_outtab                       = t_list    EXCEPTIONS      program_error                  = 1      OTHERS                         = 2.  IF sy-subrc <> 0.    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.  ENDIF.*ENDFORM.                    " show_list*&---------------------------------------------------------------------**&      Form  fill_field_catalog*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->_T_FIELDCAT  text*----------------------------------------------------------------------*FORM fill_field_catalog  USING _t_fieldcat TYPE slis_t_fieldcat_alv.*  DATA: le_fieldcat TYPE slis_fieldcat_alv.  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'    EXPORTING      i_program_name               = sy-cprog      i_internal_tabname           = 'T_LIST'*     I_STRUCTURE_NAME             =      i_client_never_display       = c_yes      i_inclname                   = sy-cprog*     I_BYPASSING_BUFFER           =*     I_BUFFER_ACTIVE              =    CHANGING      ct_fieldcat                  = _t_fieldcat*   EXCEPTIONS*     INCONSISTENT_INTERFACE       = 1*     PROGRAM_ERROR                = 2*     OTHERS                       = 3            .  IF sy-subrc <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.  le_fieldcat-key = space.  le_fieldcat-emphasize = c_yes.  MODIFY _t_fieldcat    FROM le_fieldcat    TRANSPORTING key emphasize    WHERE key = c_yes.  le_fieldcat-tech = c_yes.  MODIFY _t_fieldcat    FROM le_fieldcat    TRANSPORTING tech    WHERE fieldname CP '*TECH'.  le_fieldcat-tech = c_yes.  MODIFY _t_fieldcat    FROM le_fieldcat    TRANSPORTING tech    WHERE fieldname = 'SHKZG'.  le_fieldcat-cfieldname = 'WAERS'.  MODIFY _t_fieldcat    FROM le_fieldcat    TRANSPORTING cfieldname    WHERE datatype = 'CURR'.*ENDFORM.                    " fill_field_catalog*&---------------------------------------------------------------------**&      Form  set_pf_status*&---------------------------------------------------------------------*FORM set_pf_status USING rt_extab TYPE slis_t_extab.*  SET PF-STATUS 'MAIN' EXCLUDING rt_extab.*ENDFORM.                    " set_pf_status*&---------------------------------------------------------------------**&      Form  user_command*&---------------------------------------------------------------------*FORM user_command  USING r_ucomm LIKE sy-ucomm                         rs_selfield TYPE slis_selfield.*  CASE r_ucomm.    WHEN 'MAIL'.      LOOP AT t_list        TRANSPORTING NO FIELDS        WHERE NOT checkbox IS initial.        EXIT.      ENDLOOP.      IF sy-subrc = 0.        PERFORM broadcast_mails.        CLEAR: t_list-checkbox.        MODIFY t_list          TRANSPORTING checkbox          WHERE NOT checkbox IS initial.      ELSE.        MESSAGE s780(3g).      ENDIF.    WHEN OTHERS.  ENDCASE.  rs_selfield-refresh    = c_yes.  rs_selfield-col_stable = c_yes.  rs_selfield-row_stable = c_yes.*ENDFORM.                    " user_command*&---------------------------------------------------------------------**&      Form  broadcast_mails*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------*FORM broadcast_mails.*  SORT t_list    BY checkbox       xref3_tech       lifnr       bukrs.  LOOP AT t_list.    IF NOT t_list-checkbox IS INITIAL.      AT NEW xref3_tech.        CLEAR: t_items.        REFRESH: t_items.      ENDAT.      MOVE-CORRESPONDING t_list TO t_items.      APPEND t_items.      AT END OF xref3_tech.        EXPORT t_items TO MEMORY ID 'ADV_PAYMENTS'.        PERFORM send_mail          USING t_list-xref3_tech.      ENDAT.    ENDIF.  ENDLOOP.  SORT t_list    BY tabix_tech.*ENDFORM.                    " broadcast_mails*&---------------------------------------------------------------------**&      Form  send_mail*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->_RECEIVER  text*----------------------------------------------------------------------*FORM send_mail USING    _receiver TYPE c.*  DATA: le_parameters LIKE pri_params.  DATA: l_valid(1) TYPE c.  DATA: lt_pdf TYPE TABLE OF tline WITH HEADER LINE.  DATA: l_spool_c LIKE tsp01_sp0r-rqid_char.  DATA: l_spool_i LIKE tsp01-rqident.* Retrieve default print parameters  CALL FUNCTION 'GET_PRINT_PARAMETERS'    EXPORTING*     ARCHIVE_ID                   = C_CHAR_UNKNOWN*     ARCHIVE_INFO                 = C_CHAR_UNKNOWN*     ARCHIVE_MODE                 = C_CHAR_UNKNOWN*     ARCHIVE_TEXT                 = C_CHAR_UNKNOWN*     AR_OBJECT                    = C_CHAR_UNKNOWN*     ARCHIVE_REPORT               = C_CHAR_UNKNOWN*     AUTHORITY                    = C_CHAR_UNKNOWN*     COPIES                       = C_NUM3_UNKNOWN*     COVER_PAGE                   = C_CHAR_UNKNOWN*     DATA_SET                     = C_CHAR_UNKNOWN*     DEPARTMENT                   = C_CHAR_UNKNOWN*     DESTINATION                  = C_CHAR_UNKNOWN*     EXPIRATION                   = C_NUM1_UNKNOWN*     IMMEDIATELY                  = C_CHAR_UNKNOWN*     IN_ARCHIVE_PARAMETERS        = ' '*     IN_PARAMETERS                = ' '*     LAYOUT                       = C_CHAR_UNKNOWN*     LINE_COUNT                   = C_INT_UNKNOWN*     LINE_SIZE                    = C_INT_UNKNOWN*     LIST_NAME                    = C_CHAR_UNKNOWN*     LIST_TEXT                    = C_CHAR_UNKNOWN*     MODE                         = ' '*     NEW_LIST_ID                  = C_CHAR_UNKNOWN      no_dialog                    = c_yes*     RECEIVER                     = C_CHAR_UNKNOWN*     RELEASE                      = C_CHAR_UNKNOWN*     REPORT                       = C_CHAR_UNKNOWN*     SAP_COVER_PAGE               = C_CHAR_UNKNOWN*     HOST_COVER_PAGE              = C_CHAR_UNKNOWN*     PRIORITY                     = C_NUM1_UNKNOWN*     SAP_OBJECT                   = C_CHAR_UNKNOWN*     TYPE                         = C_CHAR_UNKNOWN*     USER                         = SY-UNAME*     DRAFT                        = C_CHAR_UNKNOWN    IMPORTING*     OUT_ARCHIVE_PARAMETERS       =      out_parameters               = le_parameters      valid                        = l_valid*   EXCEPTIONS*     ARCHIVE_INFO_NOT_FOUND       = 1*     INVALID_PRINT_PARAMS         = 2*     INVALID_ARCHIVE_PARAMS       = 3*     OTHERS                       = 4            .  IF sy-subrc <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Fill the following parameters:*   - Print immediately: no*   - Delete after output: no*   - New SPOOL request: yes  le_parameters-primm = space.  le_parameters-prrel = space.  le_parameters-prnew = c_yes.* Retrieve width and print format  PERFORM prepare_print_format    USING le_parameters.* Call the list on background  SUBMIT (sy-repid)    TO SAP-SPOOL    SPOOL PARAMETERS le_parameters    WITHOUT SPOOL DYNPRO*    USING SELECTION-SET p_vari1    WITH p_spool = c_yes    AND RETURN.* Get the SPOOL number  GET PARAMETER ID 'SPI' FIELD l_spool_c.  l_spool_i = l_spool_c.* Convert SPOOL to PDF  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'    EXPORTING      src_spoolid                    = l_spool_i*     NO_DIALOG                      =*     DST_DEVICE                     =*     PDF_DESTINATION                =*   IMPORTING*     PDF_BYTECOUNT                  =*     PDF_SPOOLID                    =*     LIST_PAGECOUNT                 =*     BTC_JOBNAME                    =*     BTC_JOBCOUNT                   =    TABLES      pdf                            = lt_pdf*   EXCEPTIONS*     ERR_NO_ABAP_SPOOLJOB           = 1*     ERR_NO_SPOOLJOB                = 2*     ERR_NO_PERMISSION              = 3*     ERR_CONV_NOT_POSSIBLE          = 4*     ERR_BAD_DESTDEVICE             = 5*     USER_CANCELLED                 = 6*     ERR_SPOOLERROR                 = 7*     ERR_TEMSEERROR                 = 8*     ERR_BTCJOB_OPEN_FAILED         = 9*     ERR_BTCJOB_SUBMIT_FAILED       = 10*     ERR_BTCJOB_CLOSE_FAILED        = 11*     OTHERS                         = 12            .  IF sy-subrc <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.  ENDIF.* Build the mail  PERFORM build_mail    TABLES lt_pdf    USING _receiver.*ENDFORM.                    " send_mail*&---------------------------------------------------------------------**&      Form  prepare_print_format*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      <->_PARAMETERS  text*----------------------------------------------------------------------*FORM prepare_print_format USING    _parameters LIKE pri_params.*  DATA: BEGIN OF lt_report_source OCCURS 0,          line(72) TYPE c,        END OF lt_report_source.  DATA: l_string_linsz TYPE string.  DATA: l_tabix LIKE sy-tabix.  DATA: BEGIN OF lt_sentencia OCCURS 0,          line(72) TYPE c,        END OF lt_sentencia.  DATA: lt_tsp1d TYPE TABLE OF tsp1d WITH HEADER LINE.  READ REPORT sy-repid INTO lt_report_source.  CHECK sy-subrc = 0.  CLEAR: l_tabix.  WHILE NOT l_string_linsz CS '.'.    ADD 1 TO l_tabix.    READ TABLE lt_report_source      INDEX l_tabix.    TRANSLATE lt_report_source-line TO UPPER CASE.    IF l_string_linsz CS 'REPORT'      OR lt_report_source-line CS 'REPORT'.      CONCATENATE l_string_linsz                  lt_report_source-line        INTO l_string_linsz        SEPARATED BY space.      CONDENSE l_string_linsz.    ENDIF.  ENDWHILE.  TRANSLATE l_string_linsz USING '. '.  CLEAR: lt_report_source.  REFRESH: lt_report_source.  FREE: lt_report_source.  SPLIT l_string_linsz AT space INTO TABLE lt_sentencia.  LOOP AT lt_sentencia    WHERE line CS 'LINE-SIZE'.    l_tabix = sy-tabix.    EXIT.  ENDLOOP.  ADD 1 TO l_tabix.  READ TABLE lt_sentencia    INDEX l_tabix.  SELECT *    INTO CORRESPONDING FIELDS OF TABLE lt_tsp1d    FROM tsp1d    WHERE type = 'L'      AND outcolumns >= lt_sentencia-line.  SORT lt_tsp1d    BY outcolumns.  READ TABLE lt_tsp1d    INDEX 1.  _parameters-linct = lt_tsp1d-outrows.  _parameters-linsz = lt_sentencia-line.  _parameters-paart = lt_tsp1d-papart.*ENDFORM.                    " prepare_print_format*&---------------------------------------------------------------------**&      Form  build_mail*&---------------------------------------------------------------------**       text*----------------------------------------------------------------------**      -->_T_PDF  text*      -->_RECEIVER  text*----------------------------------------------------------------------*FORM build_mail     TABLES _t_pdf STRUCTURE tline                    USING _receiver TYPE c.*  DATA: l_length_t_pdf TYPE i.  DATA: l_string TYPE xstring.  DATA: l_string_bck TYPE string.  DATA: l_length_string TYPE i.  DATA: l_length_objbin TYPE i.  DATA: l_max_tabix TYPE i.  DATA: l_dif TYPE i.  DATA: l_hex_null TYPE x VALUE '00'.  DATA: lt_objtxt           LIKE solisti1   OCCURS 10 WITH HEADER LINE.  DATA: l_tab_lines         LIKE sy-tabix.  DATA: le_doc_chng         LIKE sodocchgi1.  DATA: lt_objpack          LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.  DATA: lt_objhead          LIKE solisti1   OCCURS 1 WITH HEADER LINE.  DATA: lt_reclist          LIKE somlreci1  OCCURS 5 WITH HEADER LINE.  DATA: lt_contents_bin     LIKE solisti1   OCCURS0 WITH HEADER LINE.* Mail text* (...here you should fill table lt_objtxt-line)  lt_objtxt-line = 'First line of text'.  append lt_objtxt.  lt_objtxt-line = 'Second line'.  append lt_objtxt.  DESCRIBE TABLE lt_objtxt LINES l_tab_lines.  READ TABLE lt_objtxt INDEX l_tab_lines.  le_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255                         + STRLEN( lt_objtxt ).  le_doc_chng-obj_descr = 'This mail is about broadcasting'.  CLEAR lt_objpack-transf_bin.  lt_objpack-head_start = 1.  lt_objpack-head_num   = 0.  lt_objpack-body_start = 1.  lt_objpack-body_num   = l_tab_lines.  lt_objpack-doc_type   = 'RAW'.  APPEND lt_objpack.* Attached file, in PDF-format  DESCRIBE FIELD _t_pdf LENGTH l_length_t_pdf.  CLEAR: l_string_bck,         l_string.  LOOP AT _t_pdf.    CONCATENATE l_string_bck _t_pdf INTO l_string_bck.    l_dif = l_length_t_pdf - STRLEN( _t_pdf ).    DO l_dif TIMES.      CONCATENATE l_string_bck l_hex_null INTO l_string_bck.    ENDDO.    CONCATENATE l_string _t_pdf INTO l_string.  ENDLOOP.  sy-subrc = 0.  WHILE sy-subrc = 0.    REPLACE l_hex_null WITH space INTO l_string_bck.  ENDWHILE.  l_length_string = strlen( l_string_bck ).  DESCRIBE FIELD lt_contents_bin LENGTH l_length_objbin.  l_max_tabix = ceil( l_length_string / l_length_objbin * '1.0' ).  DO l_max_tabix TIMES.    lt_contents_bin = l_string_bck.    APPEND lt_contents_bin.    IF sy-tabix <> l_max_tabix.      l_string_bck = l_string_bck+l_length_objbin.    ENDIF.  ENDDO.  DESCRIBE TABLE lt_contents_bin LINES l_tab_lines.  APPEND lt_objhead.  lt_objpack-transf_bin = c_yes.  lt_objpack-head_start = 1.  lt_objpack-head_num   = 1.  lt_objpack-body_start = 1.  lt_objpack-body_num   = l_tab_lines.  lt_objpack-doc_type   = 'PDF'.  lt_objpack-obj_name   = 'Advance payments'.  WRITE sy-datum TO lt_objpack-obj_descr.  CONCATENATE 'List of advance payments till'              lt_objpack-obj_descr    INTO lt_objpack-obj_descr    SEPARATED BY space.  CONCATENATE lt_objpack-obj_descr              '.PDF'    INTO lt_objpack-obj_descr.  lt_objpack-doc_size   = ( l_tab_lines - 1 ) * 255.  LOOP AT lt_contents_bin.  ENDLOOP.  lt_objpack-doc_size = lt_objpack-doc_size + STRLEN( lt_contents_bin ).  APPEND lt_objpack.* Receiver list  SELECT SINGLE adr6~smtp_addr    INTO lt_reclist-receiver    FROM adr6 INNER JOIN usr21 ON adr6~addrnumber = usr21~addrnumber                              AND adr6~persnumber = usr21~persnumber    WHERE usr21~bname = _receiver      AND adr6~date_from <= sy-datum      AND adr6~flgdefault = c_yes.  lt_reclist-rec_type = 'U'.  APPEND lt_reclist.* Finally! we send the mail  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'    EXPORTING      document_data                    = le_doc_chng      put_in_outbox                    = c_yes    TABLES      packing_list                     = lt_objpack      object_header                    = lt_objhead      contents_bin                     = lt_contents_bin*      contents_hex                     =      contents_txt                     = lt_objtxt      receivers                        = lt_reclist    EXCEPTIONS      too_many_receivers               = 1      document_not_sent                = 2      document_type_not_exist          = 3      operation_no_authorization       = 4      parameter_error                  = 5      x_error                          = 6      enqueue_error                    = 7      OTHERS                           = 8.*ENDFORM.                    " build_mail

The result

1. The selection screen: I populate Special G/L indicator = "A"
2. This is the list:
   
3. And this is the final mail:
   

OK, I hope you enjoyed this. I'll use this functionality to several other types of reports, with the goal of broadcasting.