REPORT ZREP_EMAIL_ALV_SPOOL….<\/a><\/p>\n Click here for ABAP code and more info<\/a> Useful ABAP code example to demonstrate how to display an SAP ALV report which displays alist of PERNR details and then automatically allows the user to email ALV PDF as a document attchement. The code covers the following SAP ABAP report functionality: Email address input selection screen fields Display ALV report using Objects cl_salv_table Add […]<\/p>\n","protected":false},"author":1,"featured_media":1268,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[11,4],"tags":[],"yoast_head":"\n
\n![\"email](\"http:\/\/www.se80.co.uk\/training-education\/wp-content\/uploads\/2015\/11\/email_alv_spool.png\")
<\/p>\nABAP code to send ALV report as PDF<\/h2>\n
\r\n*& TITLE: Display ABAP report of pernrs and email output as PDF<\/span>\r\n*&-------------------------------*<\/span>\r\n*& Report ZREP_EMAIL_ALV_SPOOL<\/span>\r\n*&-------------------------------*<\/span>\r\n*&<\/span>\r\n*& SAP ABAP report functionality used<\/span>\r\n*& **********************************<\/span>\r\n*& Email address input selection screen fields<\/span>\r\n*& Display ALV report using Objects cl_salv_table<\/span>\r\n*& Add custom ALV column header<\/span>\r\n*& Change colour of ALV rows based on user start year<\/span>\r\n*& Get ALV Spool from background execution<\/span>\r\n*& Convert Spool to PDF and send as Email<\/span>\r\n*& Submit an ABAP report in background<\/span>\r\n*& ABAP report submits itself in background to create spool<\/span>\r\n*& Pass parameter and select option to report submit<\/span>\r\n*& Delete SAP spool request<\/span>\r\n*&-------------------------------*<\/span>\r\nREPORT ZREP_EMAIL_ALV_SPOOL.\r\n\r\nTABLES: PA0001<\/a>, PA0000<\/a>.\r\n\r\nSELECTION-SCREEN BEGIN OF block block1 WITH FRAME title text-001.\r\n SELECT-OPTIONS: so_pernr for pa0001-pernr.\r\n Parameters: p_keydat type datum DEFAULT sy-datum.\r\n Parameters: p_email type AD_SMTPADR default 'myemail@mydomain.com<\/span>'.\r\n* Ensure you always declare your email parameters using AD_SMTPADR. On one occasion<\/span>\r\n* when using somlreci1-receiver I found that the entered default resulted in a different<\/span>\r\n* underlying hexedecimal value which SAP did not recognise as a valid email address.<\/span>\r\n* For example during runtime take a look at the values contained in gd_email2 and<\/span>\r\n* gd_email3. You may notice that the hex values are different from p_email. Just<\/span>\r\n* somthing to think about if your email are not getting sent and SO_DOCUMENT_SEND_API1<\/span>\r\n* is returning an x_error.<\/span>\r\n\r\nSELECTION-SCREEN END OF block block1.\r\n\r\n*Data Declaration<\/span>\r\n*----------------<\/span>\r\ndata: r_objid type range of hrp1001-objid.\r\ndata: wa_objid like line of r_objid.\r\n\r\nTYPES: BEGIN OF t_report,\r\n pernr type p0000-pernr,\r\n vorna type p0002-vorna,\r\n nachn type p0002-nachn,\r\n ename type p0001-ename,\r\n begda type p0000-begda,\r\n orgeh type p0001-orgeh,\r\n details(20) type c,\r\n color TYPE lvc_t_scol, \"table for cell colouring<\/span>\r\n END OF t_report.\r\nDATA: it_report TYPE STANDARD TABLE OF t_report INITIAL SIZE 0,\r\n wa_report TYPE t_report.\r\n\r\nDATA alv_table TYPE REF TO cl_salv_table.\r\nDATA alv_columns TYPE REF TO cl_salv_columns_table.\r\nDATA single_column TYPE REF TO cl_salv_column.\r\n\r\ndata: objec_tab type STANDARD TABLE OF objec,\r\n it_dept type STANDARD TABLE OF objec,\r\n wa_objtab like line of objec_tab,\r\n struc_tab type STANDARD TABLE OF STRUC,\r\n wa_struc like line of struc_tab,\r\n ld_orgeh type orgeh.\r\n\r\nDATA: gd_recsize TYPE i.\r\n\r\nDATA: gd_eventid LIKE tbtcm-eventid,\r\n gd_eventparm LIKE tbtcm-eventparm,\r\n gd_external_program_active LIKE tbtcm-xpgactive,\r\n gd_jobcount LIKE tbtcm-jobcount,\r\n gd_jobname LIKE tbtcm-jobname,\r\n gd_stepcount LIKE tbtcm-stepcount,\r\n gd_error TYPE sy-subrc,\r\n gd_reciever TYPE sy-subrc.\r\n\r\nDATA: w_recsize TYPE i.\r\n\r\nDATA: gd_subject LIKE sodocchgi1-obj_descr,\r\n it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,\r\n it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,\r\n gd_sender_type LIKE soextreci1-adr_typ,\r\n gd_attachment_desc TYPE so_obj_nam,\r\n gd_attachment_name TYPE so_obj_des.\r\n\r\n* Spool to PDF conversions<\/span>\r\nDATA: gd_spool_nr LIKE tsp01-rqident,\r\n gd_destination LIKE rlgrap-filename,\r\n gd_bytecount LIKE tst01-dsize,\r\n gd_buffer TYPE string.\r\n\r\n* Spool IDs<\/span>\r\nTYPES: BEGIN OF t_tbtcp.\r\n INCLUDE STRUCTURE TBTCP.\r\nTYPES: END OF t_tbtcp.\r\nDATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,\r\n wa_tbtcp TYPE t_tbtcp.\r\n\r\n* Binary store for PDF<\/span>\r\nDATA: BEGIN OF it_pdf_output OCCURS 0.\r\n INCLUDE STRUCTURE TLINE.\r\nDATA: END OF it_pdf_output.\r\n\r\nDATA: seltab type table of rsparams,\r\n seltab_wa like line of seltab.\r\n\r\ndata: gd_email type somlreci1-receiver,\r\n gd_email2 type somlreci1-receiver, \"just for test\/demo<\/span>\r\n gd_email3 type AD_SMTPADR. \"just for test\/demo<\/span>\r\n\r\ndata: wa_addreess type sx_address.\r\n\r\n************************************************************************<\/span>\r\n* START-OF-SELECTION<\/span>\r\nSTART-OF-SELECTION.\r\n gd_email = p_email.\r\n gd_email2 = '#myemail@mydomain.com<\/span>'.\r\n gd_email3 = '#myemail@mydomain.com<\/span>'.\r\n\r\n PERFORM data_retrieval.\r\n PERFORM display_settings.\r\n perform set_row_colors.\r\n\r\n************************************************************************<\/span>\r\n* END-OF-SELECTION<\/span>\r\nEND-OF-SELECTION.\r\n perform display_alv_report.\r\n\r\n IF sy-batch EQ 'X'.\r\n PERFORM get_job_details.\r\n PERFORM obtain_spool_id.\r\n PERFORM convert_spool_to_pdf.\r\n PERFORM send_email_rep.\r\n PERFORM delete_spool.\r\n ELSE.\r\n perform submit_report_in_background.\r\n endif.\r\n\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM data_retrieval.<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM data_retrieval.\r\n data: ld_deptlines type i.\r\n\r\n select a~pernr a~begda b~vorna b~nachn c~ename c~orgeh\r\n from PA0000<\/a> as a inner join pa0002 as b\r\n on b~pernr eq a~pernr\r\n INNER JOIN pa0001 as c\r\n on c~pernr eq b~pernr\r\n into CORRESPONDING FIELDS OF table it_report\r\n \"for ALL ENTRIES IN it_emps<\/span>\r\n where \"a~pernr eq it_emps-pernr<\/span>\r\n a~pernr in so_pernr\r\n and a~begda le p_keydat\r\n and a~endda ge p_keydat\r\n and b~begda le p_keydat\r\n and b~endda ge p_keydat\r\n and c~begda le p_keydat\r\n and c~endda ge p_keydat.\r\nENDFORM. \" DATA_RETRIEVAL<\/span>\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM display_settings.<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM display_settings.\r\n DATA: err_message TYPE REF TO cx_salv_msg.\r\n\r\n TRY.\r\n cl_salv_table=>factory(\r\n IMPORTING\r\n r_salv_table = alv_table\r\n CHANGING\r\n t_table = it_report ).\r\n\r\n alv_columns = alv_table->get_columns( ).\r\n\r\n PERFORM build_layout.\r\n PERFORM build_fieldcatalog.\r\n PERFORM build_toolbar.\r\n PERFORM hide_columns.\r\n PERFORM report_settings.\r\n\r\n CATCH cx_salv_msg INTO err_message.\r\n* Add error processing<\/span>\r\n ENDTRY.\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM display_alv_report.<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM display_alv_report.\r\n* set_optimize will set columns optimised based on data and will remove<\/span>\r\n* any width specification setup within build_fieldcatalog column setup<\/span>\r\n* it_columns->set_optimize( ).<\/span>\r\n\r\n alv_table->display( ).\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM build_layout.<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM build_layout.\r\n DATA: layout TYPE REF TO cl_salv_layout.\r\n DATA: layout_key TYPE salv_s_layout_key.\r\n\r\n layout = alv_table->get_layout( ).\r\n\r\n layout_key-report = sy-repid.\r\n layout->set_key( layout_key ).\r\n\r\n layout->set_save_restriction( if_salv_c_layout=>restrict_none ).\r\nENDFORM. \"BUILD_LAYOUT<\/span>\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM hide_columns.<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM hide_columns.\r\n DATA: err_notfound TYPE REF TO cx_salv_not_found.\r\n\r\n TRY.\r\n single_column = alv_columns->get_column( 'VORNA' ).\r\n single_column->set_visible( if_salv_c_bool_sap=>false ).\r\n single_column = alv_columns->get_column( 'NACHN' ).\r\n single_column->set_visible( if_salv_c_bool_sap=>false ).\r\n\r\n CATCH cx_salv_not_found INTO err_notfound.\r\n* Add error processing<\/span>\r\n ENDTRY.\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM build_fieldcatalog.<\/span>\r\n*&-------------------------------*<\/span>\r\n* Your ALV report should get texts from the internal table used but you<\/span>\r\n* overwrite them here if you require<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM build_fieldcatalog.\r\n DATA: err_notfound TYPE REF TO cx_salv_not_found.\r\n\r\n TRY.\r\n single_column = alv_columns->get_column( 'BEGDA' ).\r\n single_column->set_short_text( 'Start Date' ). \"Will cause syntax error if text is too long<\/span>\r\n single_column->set_medium_text( 'Start Date' ).\r\n single_column->set_long_text( 'Employee Start Date' ).\r\n single_column->SET_OUTPUT_LENGTH( '10' ). \"Force column to be wider to accomodate heading<\/span>\r\n\r\n CATCH cx_salv_not_found INTO err_notfound.\r\n* Add error processing<\/span>\r\n ENDTRY.\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM build_toolbar.<\/span>\r\n*&-------------------------------*<\/span>\r\n* The code below simply displays all available functions but you can<\/span>\r\n* restrict this if you require<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM build_toolbar.\r\n DATA: toolbar_functions TYPE REF TO cl_salv_functions_list.\r\n\r\n toolbar_functions = alv_table->get_functions( ).\r\n toolbar_functions->set_all( ).\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& FORM report_settings.<\/span>\r\n*&-------------------------------*<\/span>\r\nFORM report_settings.\r\n DATA: report_settings TYPE REF TO cl_salv_display_settings.\r\n\r\n report_settings = alv_table->get_display_settings( ).\r\n report_settings->set_striped_pattern( if_salv_c_bool_sap=>true ).\r\n report_settings->set_list_header( 'Demo SAP ALV Report and PDF email' ).\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& Form SET_ROW_COLORS<\/span>\r\n*&-------------------------------*<\/span>\r\n* text<\/span>\r\n*----------------------------------------------------------------------*<\/span>\r\n* --> p1 text<\/span>\r\n* <-- p2 text<\/span>\r\n*----------------------------------------------------------------------*<\/span>\r\nFORM SET_ROW_COLORS .\r\n DATA: lo_cols_tab TYPE REF TO cl_salv_columns_table,\r\n lo_col_tab TYPE REF TO cl_salv_column_table.\r\n DATA: ls_color TYPE lvc_s_colo. \" Colors strucutre<\/span>\r\n\r\n data: lt_s_color TYPE lvc_t_scol,\r\n ls_s_color TYPE lvc_s_scol,\r\n ld_tabix type sy-tabix.\r\n\r\n* get Columns object<\/span>\r\n lo_cols_tab = alv_table->get_columns( ).\r\n\r\n*Set column colour<\/span>\r\n* TRY.<\/span>\r\n* lo_col_tab ?= lo_cols_tab->get_column( 'PERNR' ).<\/span>\r\n* ls_color-col = col_total.<\/span>\r\n* lo_col_tab->set_color( ls_color ).<\/span>\r\n* CATCH cx_salv_not_found.<\/span>\r\n* ENDTRY.<\/span>\r\n\r\n Loop at it_report into wa_report.\r\n ld_tabix = sy-tabix.\r\n\r\n if wa_report-begda(4) EQ sy-datum(4). \"this year.<\/span>\r\n ls_s_color-color-col = col_negative.\r\n ls_s_color-color-int = 1.\r\n ls_s_color-color-inv = 0.\r\n APPEND ls_s_color TO lt_s_color.\r\n CLEAR ls_s_color.\r\n else.\" eq other year<\/span>\r\n ls_s_color-color-col = 7.\r\n ls_s_color-color-int = 1.\r\n ls_s_color-color-inv = 0.\r\n APPEND ls_s_color TO lt_s_color.\r\n CLEAR ls_s_color.\r\n endif.\r\n\r\n wa_report-color = lt_s_color.\r\n MODIFY it_report FROM wa_report index ld_tabix.\r\n\r\n CLEAR lt_s_color.\r\n endloop.\r\n\r\n* We will set this COLOR table field name of the internal table to<\/span>\r\n* COLUMNS tab reference for the specific colors<\/span>\r\n TRY.\r\n lo_cols_tab->set_color_column( 'COLOR' ).\r\n CATCH cx_salv_data_error. \"#EC NO_HANDLER<\/span>\r\n ENDTRY.\r\nENDFORM. \" SET_ROW_COLORS<\/span>\r\n\r\n*---------------------------------------------------------------------*<\/span>\r\n* FORM get_job_details *<\/span>\r\n*---------------------------------------------------------------------*<\/span>\r\nFORM get_job_details.\r\n* Get current job details<\/span>\r\nCALL FUNCTION 'GET_JOB_RUNTIME_INFO'<\/a>\r\n IMPORTING\r\n eventid = gd_eventid\r\n eventparm = gd_eventparm\r\n external_program_active = gd_external_program_active\r\n jobcount = gd_jobcount\r\n jobname = gd_jobname\r\n stepcount = gd_stepcount\r\n EXCEPTIONS\r\n no_runtime_info = 1\r\n OTHERS = 2.\r\nENDFORM.\r\n\r\n*---------------------------------------------------------------------*<\/span>\r\n* FORM obtain_spool_id *<\/span>\r\n*---------------------------------------------------------------------*<\/span>\r\nFORM obtain_spool_id.\r\n CHECK NOT ( gd_jobname IS INITIAL ).\r\n CHECK NOT ( gd_jobcount IS INITIAL ).\r\n\r\n select * from TBTCP<\/a>\r\n INTO TABLE it_tbtcp\r\n WHERE jobname = gd_jobname\r\n AND jobcount = gd_jobcount\r\n AND stepcount = gd_stepcount\r\n AND listident <> '0000000000'\r\n ORDER BY jobname\r\n jobcount\r\n stepcount.\r\n\r\n READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.\r\n IF sy-subrc = 0.\r\n gd_spool_nr = wa_tbtcp-listident.\r\n MESSAGE s004(zdd) WITH gd_spool_nr.\r\n ELSE.\r\n MESSAGE s005(zdd).\r\n ENDIF.\r\nENDFORM.\r\n\r\n\r\n*---------------------------------------------------------------------*<\/span>\r\n* FORM convert_spool_to_pdf *<\/span>\r\n*---------------------------------------------------------------------*<\/span>\r\nFORM convert_spool_to_pdf.\r\n\r\nCALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'<\/a>\r\n EXPORTING\r\n src_spoolid = gd_spool_nr\r\n no_dialog = ' '\r\n dst_device = 'LOCL'\r\n IMPORTING\r\n pdf_bytecount = gd_bytecount\r\n TABLES\r\n pdf = it_pdf_output\r\n EXCEPTIONS\r\n err_no_abap_spooljob = 1\r\n err_no_spooljob = 2\r\n err_no_permission = 3\r\n err_conv_not_possible = 4\r\n err_bad_destdevice = 5\r\n user_cancelled = 6\r\n err_spoolerror = 7\r\n err_temseerror = 8\r\n err_btcjob_open_failed = 9\r\n err_btcjob_submit_failed = 10\r\n err_btcjob_close_failed = 11\r\n OTHERS = 12.\r\n\r\n CHECK sy-subrc = 0.\r\n\r\n* Transfer the 132-long strings to 255-long strings<\/span>\r\n LOOP AT it_pdf_output.\r\n TRANSLATE it_pdf_output USING ' ~'.\r\n CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.\r\n ENDLOOP.\r\n\r\n TRANSLATE gd_buffer USING '~ '.\r\n\r\n DO.\r\n it_mess_att = gd_buffer.\r\n APPEND it_mess_att.\r\n SHIFT gd_buffer LEFT BY 255 PLACES.\r\n IF gd_buffer IS INITIAL.\r\n EXIT.\r\n ENDIF.\r\n ENDDO.\r\nENDFORM.\r\n\r\n*---------------------------------------------------------------------*<\/span>\r\n* FORM send_email *<\/span>\r\n*---------------------------------------------------------------------*<\/span>\r\n* --> p_email *<\/span>\r\n*---------------------------------------------------------------------*<\/span>\r\nFORM send_email_rep.\r\n data: ld_sender type somlreci1-receiver.\r\n\r\n\r\n DESCRIBE TABLE it_mess_att LINES gd_recsize.\r\n CHECK gd_recsize > 0.\r\n\r\n CHECK NOT ( gd_email IS INITIAL ).\r\n\r\n ld_sender = gd_email.\r\n\r\n REFRESH it_mess_bod.\r\n\r\n* Default subject matter<\/span>\r\n gd_subject = 'Subject'.\r\n gd_attachment_desc = 'Attachname'.\r\n* CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.<\/span>\r\n it_mess_bod = 'Email Message Body text, line 1'.\r\n APPEND it_mess_bod.\r\n it_mess_bod = 'Email message Body text, line 2...'.\r\n APPEND it_mess_bod.\r\n\r\n* If no sender specified - default blank<\/span>\r\n IF ld_sender EQ space.\r\n gd_sender_type = space.\r\n ELSE.\r\n gd_sender_type = 'INT'.\r\n ENDIF.\r\n\r\n\r\n* Send file by email as .pdf attachment<\/span>\r\n PERFORM send_file_as_email_attachment\r\n TABLES IT_MESS_BOD\r\n it_mess_att\r\n using gd_email\r\n 'Example pdf document email attachment'\r\n 'PDF'\r\n gd_attachment_name\r\n gd_attachment_desc\r\n ld_sender\r\n gd_sender_type\r\n changing gd_error\r\n gd_reciever.\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& Form SEND_FILE_AS_EMAIL_ATTACHMENT<\/span>\r\n*&-------------------------------*<\/span>\r\n* Send email<\/span>\r\n*----------------------------------------------------------------------*<\/span>\r\nFORM SEND_FILE_AS_EMAIL_ATTACHMENT TABLES IT_MESSAGE\r\n it_attach\r\n using p_email\r\n p_mtitle\r\n p_format\r\n p_filename\r\n p_attdescription\r\n p_sender_address\r\n p_sender_addres_type\r\n changing p_error\r\n p_reciever.\r\n\r\n\r\n DATA: ld_error TYPE sy-subrc,\r\n ld_reciever TYPE sy-subrc,\r\n ld_mtitle LIKE sodocchgi1-obj_descr,\r\n ld_email LIKE somlreci1-receiver,\r\n ld_format TYPE so_obj_tp,\r\n ld_attdescription TYPE so_obj_nam,\r\n ld_attfilename TYPE so_obj_des,\r\n ld_sender_address LIKE soextreci1-receiver,\r\n ld_sender_address_type LIKE soextreci1-adr_typ,\r\n ld_receiver LIKE sy-subrc.\r\n\r\n data: t_packing_list like sopcklsti1 occurs 0 with header line,\r\n t_contents like solisti1 occurs 0 with header line,\r\n t_receivers like somlreci1 occurs 0 with header line,\r\n t_attachment like solisti1 occurs 0 with header line,\r\n t_object_header like solisti1 occurs 0 with header line,\r\n w_cnt type i,\r\n w_sent_all(1) type c,\r\n w_doc_data like sodocchgi1.\r\n\r\n\r\n ld_email = p_email.\r\n ld_mtitle = p_mtitle.\r\n ld_format = p_format.\r\n ld_attdescription = p_attdescription.\r\n ld_attfilename = p_filename.\r\n ld_sender_address = p_sender_address.\r\n ld_sender_address_type = p_sender_addres_type.\r\n\r\n\r\n* Fill the document data.<\/span>\r\n w_doc_data-doc_size = 1.\r\n\r\n* Populate the subject\/generic message attributes<\/span>\r\n w_doc_data-obj_langu = sy-langu.\r\n w_doc_data-obj_name = 'SAPRPT'.\r\n w_doc_data-obj_descr = ld_mtitle .\r\n w_doc_data-sensitivty = 'F'.\r\n\r\n* Fill the document data and get size of attachment<\/span>\r\n CLEAR w_doc_data.\r\n READ TABLE it_attach INDEX w_cnt.\r\n w_doc_data-doc_size =\r\n ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).\r\n w_doc_data-obj_langu = sy-langu.\r\n w_doc_data-obj_name = 'SAPRPT'.\r\n w_doc_data-obj_descr = ld_mtitle.\r\n w_doc_data-sensitivty = 'F'.\r\n CLEAR t_attachment.\r\n REFRESH t_attachment.\r\n t_attachment[] = it_attach[].\r\n\r\n* Describe the body of the message<\/span>\r\n CLEAR t_packing_list.\r\n REFRESH t_packing_list.\r\n t_packing_list-transf_bin = space.\r\n t_packing_list-head_start = 1.\r\n t_packing_list-head_num = 0.\r\n t_packing_list-body_start = 1.\r\n DESCRIBE TABLE it_message LINES t_packing_list-body_num.\r\n t_packing_list-doc_type = 'RAW'.\r\n APPEND t_packing_list.\r\n\r\n* Create attachment notification<\/span>\r\n t_packing_list-transf_bin = 'X'.\r\n t_packing_list-head_start = 1.\r\n t_packing_list-head_num = 1.\r\n t_packing_list-body_start = 1.\r\n\r\n DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.\r\n t_packing_list-doc_type = ld_format.\r\n t_packing_list-obj_descr = ld_attdescription.\r\n t_packing_list-obj_name = ld_attfilename.\r\n t_packing_list-doc_size = t_packing_list-body_num * 255.\r\n APPEND t_packing_list.\r\n\r\n* Add the recipients email address<\/span>\r\n CLEAR t_receivers.\r\n REFRESH t_receivers.\r\n t_receivers-receiver = ld_email.\r\n t_receivers-rec_type = 'U'.\r\n t_receivers-com_type = 'INT'.\r\n t_receivers-notif_del = 'X'.\r\n t_receivers-notif_ndel = 'X'.\r\n APPEND t_receivers.\r\n\r\nCALL FUNCTION 'SO_DOCUMENT_SEND_API1'<\/a>\r\n EXPORTING\r\n document_data = w_doc_data\r\n put_in_outbox = 'X'\r\n sender_address = ld_sender_address\r\n sender_address_type = ld_sender_address_type\r\n commit_work = 'X'\r\n IMPORTING\r\n sent_to_all = w_sent_all\r\n TABLES\r\n packing_list = t_packing_list\r\n contents_bin = t_attachment\r\n contents_txt = it_message\r\n receivers = t_receivers\r\n EXCEPTIONS\r\n too_many_receivers = 1\r\n document_not_sent = 2\r\n document_type_not_exist = 3\r\n operation_no_authorization = 4\r\n parameter_error = 5\r\n x_error = 6\r\n enqueue_error = 7\r\n OTHERS = 8.\r\n\r\n* Populate zerror return code<\/span>\r\n ld_error = sy-subrc.\r\n\r\n* Populate zreceiver return code<\/span>\r\n LOOP AT t_receivers.\r\n ld_receiver = t_receivers-retrn_code.\r\n ENDLOOP.\r\nENDFORM.\r\n\r\n*---------------------------------------------------------------------*<\/span>\r\n* FORM delete_spool *<\/span>\r\n*---------------------------------------------------------------------*<\/span>\r\nFORM delete_spool.\r\n DATA: ld_spool_nr TYPE tsp01_sp0r-rqid_char.\r\n\r\n ld_spool_nr = gd_spool_nr.\r\n check not ld_spool_nr is initial.\r\nCALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'<\/a>\r\n EXPORTING\r\n spoolid = ld_spool_nr.\r\nENDFORM.\r\n\r\n*&-------------------------------*<\/span>\r\n*& Form SUBMIT_REPORT_IN_BACKGROUND<\/span>\r\n*&-------------------------------*<\/span>\r\n* text<\/span>\r\n*----------------------------------------------------------------------*<\/span>\r\n* --> p1 text<\/span>\r\n* <-- p2 text<\/span>\r\n*----------------------------------------------------------------------*<\/span>\r\nFORM SUBMIT_REPORT_IN_BACKGROUND .\r\n data: jobname like tbtcjob-jobname value\r\n 'TRANSFER DATA'.\r\n data: jobcount like tbtcjob-jobcount,\r\n host like msxxlist-host.\r\n data: begin of starttime.\r\n INCLUDE STRUCTURE TBTCSTRT.\r\n data: end of starttime.\r\n data: starttimeimmediate like btch0000-char1 value 'X'.\r\n\r\n data: wa_PERNR like line of SO_PERNR.\r\n\r\n refresh: seltab.\r\n\r\n seltab_wa-selname = 'SO_PERNR'.\r\n\r\n loop at SO_PERNR into wa_PERNR.\r\n seltab_wa-sign = wa_PERNR-sign.\r\n seltab_wa-option = wa_PERNR-option.\r\n seltab_wa-low = wa_PERNR-low.\r\n seltab_wa-high = wa_PERNR-high.\r\n append seltab_wa to seltab.\r\n endloop.\r\n\r\n* Job open<\/span>\r\nCALL FUNCTION 'JOB_OPEN'<\/a>\r\n exporting\r\n delanfrep = ' '\r\n jobgroup = ' '\r\n jobname = jobname\r\n sdlstrtdt = sy-datum\r\n sdlstrttm = sy-uzeit\r\n importing\r\n jobcount = jobcount\r\n exceptions\r\n cant_create_job = 01\r\n invalid_job_data = 02\r\n jobname_missing = 03.\r\n if sy-subrc ne 0.\r\n \"error processing<\/span>\r\n endif.\r\n\r\n submit (sy-CPROG) and return \"<\/span>\r\n with selection-table seltab\r\n with p_keydat = p_keydat\r\n with p_sendto = gd_email\r\n user sy-uname\r\n via job jobname\r\n number jobcount.\r\n\r\n* SKIP.<\/span>\r\n* WRITE:\/ 'Program must be executed in background in-order for spool',<\/span>\r\n* 'request to be created.'.<\/span>\r\n\r\n* Close job<\/span>\r\n starttime-sdlstrtdt = sy-datum + 1.\r\n starttime-sdlstrttm = '220000'.\r\nCALL FUNCTION 'JOB_CLOSE'<\/a>\r\n exporting\r\n \" event_id = starttime-eventid<\/span>\r\n \" event_param = starttime-eventparm<\/span>\r\n \" event_periodic = starttime-periodic<\/span>\r\n jobcount = jobcount\r\n jobname = jobname\r\n\" laststrtdt = starttime-laststrtdt<\/span>\r\n\" laststrttm = starttime-laststrttm<\/span>\r\n\" prddays = 1<\/span>\r\n\" prdhours = 0<\/span>\r\n\" prdmins = 0<\/span>\r\n\" prdmonths = 0<\/span>\r\n\" prdweeks = 0<\/span>\r\n\" sdlstrtdt = starttime-sdlstrtdt<\/span>\r\n\" sdlstrttm = starttime-sdlstrttm<\/span>\r\n strtimmed = starttimeimmediate\r\n\" targetsystem = host<\/span>\r\n exceptions\r\n cant_start_immediate = 01\r\n invalid_startdate = 02\r\n jobname_missing = 03\r\n job_close_failed = 04\r\n job_nosteps = 05\r\n job_notex = 06\r\n lock_failed = 07\r\n others = 99.\r\n if sy-subrc eq 0.\r\n \"error processing<\/span>\r\n endif.\r\n\r\nENDFORM. \" SUBMIT_REPORT_IN_BACKGROUND<\/span><\/pre>\nText pool values<\/span><\/h2>\n
Selection Text: P_KEYDAT = Key date
Selection Text: SO_PERNR = Personnel Selection<\/div>\n","protected":false},"excerpt":{"rendered":"