Sending ALV output to the SAP Inbox.

Question

Hi
I'm using  SAP report <b>sendlist_bcs</b> for sending report output to the SAP inbox but attachment is not getting delivered.
Can anybody help to resolve the issue...
My report is:
*& Report  ZTTEST_SAGAR
REPORT  ZTTEST_SAGAR.
*& Report  SENDLIST_BCS
*& Sample report from note 190669 for sending lists via SAPconnect
*& using the BCS interface
*&  Note:
*&  1. Set a commit work statement after the sending
*&  2. Give binary data of type x not type c to send module, i.e.
*&     use structure solix instead of soli and give it to tables
*&     parameter contents_hex instead of contents_bin
*&     Do this by filling contents_hex directly from the module
*&     table_compress. In case of reading the data from spool, convert
*&     to solix using so_solitab_to_solixtab
*&  3. Don't calculate document size. It is done internally
*report sendlist_bcs no standard page heading message-id so.
selection-screen begin of block mode with frame title text-001.
parameters: submit radiobutton group mode default 'X'.
parameters: write  radiobutton group mode .
parameters: spool  radiobutton group mode.
selection-screen end of block mode.
global data
data g_list_content type solix_tab.
data g_text_content type soli_tab.
data sysid(10) TYPE C.
*---- start-of-selection -
start-of-selection.
  perform create_text_content changing g_text_content.
  perform create_list_content changing g_list_content.
  perform send using g_text_content
                     g_list_content.
a commit work has to be set somewhere after the sending!
  commit work.
Form routines                                                        *
*&      Form  create_list_content
form create_list_content changing list_content type solix_tab.
1st possibility - use "submit <report> exporting list to memory"
  if submit = 'X'.
    perform use_submit changing list_content.
  endif.
2nd possibility - create a new list within this report.
  if write = 'X'.
    perform write_a_list changing list_content.
  endif.
3rd possibility - get list from spool
  if spool = 'X'.
    perform get_list_from_spool changing list_content.
  endif.
endform.                                         "create_list_content
*&      Form  create_text_content
form create_text_content changing text_content type soli_tab.
  append 'This is the first line'  to text_content.         "#EC NOTEXT
  append 'This is the second line' to text_content.         "#EC NOTEXT
convert the content from RAW to TXT
  call function 'SO_RAW_TO_RTF'
    tables
      objcont_old = text_content
      objcont_new = text_content
    exceptions
      others      = 0.
endform.                                         "create_text_content
*&      Form  SEND
form send using text_content type soli_tab
                list_content type solix_tab.
  data  send_request       type ref to cl_bcs.
  data  text               type bcsy_text.
  data  document           type ref to cl_document_bcs.
  data  recipient          type ref to if_recipient_bcs.
  data  bcs_exception      type ref to cx_bcs.
  data  sent_to_all        type os_boolean.
  try.
    create the send request
      send_request = cl_bcs=>create_persistent( ).
    create the document with attachments
    main document
      append 'Hi,' to text.
      append 'attached you will find the list.' to text.
      document = cl_document_bcs=>create_document(
                                i_type    = 'RAW'
                                i_text    = text
                                i_subject = 'ABAPlist' ).
    add text attachment to document
      document->add_attachment( i_attachment_type    = 'TXT'
                                i_attachment_subject = text-002
                                i_att_content_text   = text_content ).
    add list attachment to document
      document->add_attachment( i_attachment_type    = 'ALI'
                                i_attachment_subject = text-003
                                i_att_content_hex    = list_content ).
    add document to send request
      send_request->set_document( document ).
      sysid = sy-sysid.
      data : uname type ad_uname.
      uname = 'USTZZSKAZI'.
    create recipient and add to send request
      recipient = cl_cam_address_bcs=>CREATE_RML_ADDRESS( i_syst     = sysid
                                                          i_client   = sy-mandt
                                                          i_username = uname ).
      send_request->add_recipient( i_recipient = recipient ).
    send
      sent_to_all = send_request->send( i_with_error_screen = 'X' ).
      if sent_to_all = 'X'.
       message s022.
      endif.
    catch cx_bcs into bcs_exception.
     message e865 with bcs_exception->error_type.
  endtry.
endform.                    "send
*&      Form  USE_SUBMIT
form use_submit changing contents_hex type solix_tab.
  data listobject type table of abaplist.
get the list object by calling the list in another report
F1 on submit gives more information
  submit balvsd03 exporting list to memory and return.
import the list from memory and store it in table listobject
  call function 'LIST_FROM_MEMORY'
    tables
      listobject = listobject
    exceptions
      not_found  = 1
      others     = 2.
  if sy-subrc <> 0.
   message e105 with 'LIST_FROM_MEMORY'.
  endif.
free memory
  call function 'LIST_FREE_MEMORY'
    tables
      listobject = listobject
    exceptions
      others     = 1.
  if sy-subrc <> 0.
   message e105 with 'LIST_FREE_MEMORY'.
  endif.
it's always necessary to compress the table.
SAPconnect will decompress it
  call function 'TABLE_COMPRESS'                            "#EC *
    tables
      in             = listobject
      out            = contents_hex
    exceptions
      compress_error = 1
      others         = 2.
  if sy-subrc <> 0.
   message e105 with 'TABLE_COMPRESS'.
  endif.
endform.                               " USE_SUBMIT
*&      Form  WRITE_A_LIST
form write_a_list changing contents_hex type solix_tab.
  data listobject type table of abaplist.
  perform write_list.
Save the list and store table listobject
  call function 'SAVE_LIST'
    exporting
      list_index         = sy-lsind
    tables
      listobject         = listobject
    exceptions
      list_index_invalid = 1.
  if sy-subrc = 1.
   message e105 with 'SAVE_LIST'.
  endif.
It's always necessary to compress the table
SAPconnect will decompress it
  call function 'TABLE_COMPRESS'                            "#EC *
    tables
      in             = listobject
      out            = contents_hex
    exceptions
      compress_error = 1
      others         = 2.
  if sy-subrc <> 0.
   message e105 with 'TABLE_COMPRESS'.
  endif.
endform.                               " WRITE_A_LIST
*&      Form  GET_LIST_FROM_SPOOL
form get_list_from_spool changing contents_hex type solix_tab.
  data spool_number     type rspoid.
  data contents_bin     type soli_tab.
  data print_parameters type pri_params.
  data valid            type c.
write a list into spool
  call function 'GET_PRINT_PARAMETERS'
    importing
      out_parameters         = print_parameters
      valid                  = valid
    exceptions
      archive_info_not_found = 1
      invalid_print_params   = 2
      invalid_archive_params = 3
      others                 = 4.
  if sy-subrc <> 0.
   message e105 with 'GET_PRINT_PARAMETERS'.
  elseif valid is initial.
    return.
  endif.
  new-page print on parameters print_parameters no dialog.
  perform write_list.
  new-page print off.
  spool_number = sy-spono.
you can also send OTF documents from spool with this function
module. The importing parameter real_type gives you the doc type
that you have to give to the send interface. The parameter is not
used here
  call function 'RSPO_RETURN_SPOOLJOB'
    exporting
      rqident              = spool_number
    tables
      buffer               = contents_bin
    exceptions
      no_such_job          = 1
      job_contains_no_data = 2
      selection_empty      = 3
      no_permission        = 4
      can_not_access       = 5
      read_error           = 6
      type_no_match        = 7
      others               = 8.
  if sy-subrc <> 0.
   message e105 with 'RSPO_RETURN_SPOOLJOB'.
  endif.
convert to hex table
  call function 'SO_SOLITAB_TO_SOLIXTAB'
    exporting
      ip_solitab  = contents_bin
    importing
      ep_solixtab = contents_hex.
endform.                               " GET_LIST_FROM_SPOOL
*&      Form  WRITE_LIST
form write_list.
  data lt_scarr type table of scarr.
  data carr type scarr.
  select * from scarr into table lt_scarr.
  format color = 1.
  uline at /1(46).
  write: / sy-vline,
         'CARRID',   10 sy-vline,
         'CARRNAME', 35 sy-vline,
         'CURRCODE', 46 sy-vline.
  format color = 2.
  uline at /1(46).
  loop at lt_scarr into carr.
    write: / sy-vline,
           carr-carrid,   10 sy-vline,
           carr-carrname, 35 sy-vline,
           carr-currcode, 46 sy-vline.
  endloop.
  uline at /1(46).
  new-line.
endform.                               " WRITE_LIST
Thanks,
sagar

Answer 1

hi Sagar
'SO_NEW_DOCUMENT_ATT_SEND_API1' function module for that.
Example::::
Data Declaration
data pdf like tline occurs 0.
data : objbin  like solisti1   occurs 0 with header line.
Data: docdata    like sodocchgi1,
      objpack    like sopcklsti1 occurs  1 with header line,
      objhead    like solisti1   occurs  1 with header line,
      objtxt     like solisti1   occurs 10 with header line,
       objbin     like solisti1   occurs 10 with header line,
      objhex     like solix      occurs 10 with header line,
      reclist    type table of SOMLRECI1   with header line.
Data: listobject like abaplist   occurs  1 with header line.
data : objhex2 like objhex occurs 0 with header line.
Data: tab_lines  type i,
      doc_size   type i,
      att_type   like SOODK-OBJTP.
data: ls_drao like drao occurs 0,
     i_data like drao-orblk occurs 0,
      ls_doc_file like dms_doc_file,
      ls_draw like draw.
data: begin of i_data occurs 0,
      orbkl like drao-orbkl,
       orblk like drao-orblk,
      end of i_data.
data: w_data like i_data,
     w_data2 type drao-orbkl,
      wa_drao type drao.
DATA: t_error(1) type c.
DATA: t_return like BAPIRET2.
*ls_draw-mandt = '200'.
ls_draw-dokar = 'GPO'.
ls_draw-doknr = 'Z10'.
ls_draw-dokvr = '00'.
ls_draw-doktl = '000'.
ls_draw-dttrg = 'SAP-SYSTEM'.
ls_draw-dAPPL = 'DOC'.
ls_doc_file-fileno = '1'.
ls_doc_file-dttrg = 'SAP-SYSTEM'.
*Debug the cv03n transaction to see how the FMs are used
CALL FUNCTION 'CV120_DOC_CHECKOUT_TO_TABLE'
  EXPORTING
  PS_COUT_DEF       =
    ps_doc_file       =   ls_doc_file
    ps_draw           =   LS_DRAW
  tables
  PT_DRAZ           =
    ptx_content       =    ls_drao
  PTX_DRAOZ         =
EXCEPTIONS
   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.
loop at ls_drao into wa_drao.
  move:  wa_drao-orblk to w_data-orblk.
  append w_data to i_data.
endloop.
OBJPACK-HEAD_START = 1.
DESCRIBE TABLE i_data LINES TAB_LINES.
CALL FUNCTION 'ZOUTPUT_X_TABLESIZE_CHG'
EXPORTING
  IV_APPEND          = ' '
   IV_BYTE_MODE       = 'X'
  IV_STRING          =
  IV_XSTRING         =
IMPORTING
  EV_SIZE            =
  EV_LINES           =
  EV_STRING          =
  EV_XSTRING         =
TABLES
   IT_DATA            = i_data
   ET_DATA            = objhex
EXCEPTIONS
   NOENTRIES          = 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.
loop at objhex.
  move-corresponding objhex to objhex2.
  append objhex2.
endloop.
docdata-obj_name  = 'TEST_ALI'.
docdata-obj_descr = 'Test including ALI/HTML Attachment'.
  Main Text
objtxt = 'Test Document.'.
append objtxt.
objtxt = 'You will find an ALI/HTML attachment '.
append objtxt.
objtxt = 'Have a nice day.'.
append objtxt.
  Write Packing List (Main)
describe table objtxt lines tab_lines.
read     table objtxt index tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + strlen( objtxt ).
clear objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'TXT'.
append objpack.
Create Message Attachment
  Write Packing List (Attachment)
att_type = 'PDF'.
describe table objhex lines tab_lines.
read     table objhex index tab_lines.
objpack-doc_size = ( tab_lines ) * 255 ."+ strlen( i_data ).
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = att_type.
objpack-obj_name   = 'ATTACHMENT1'.
objpack-obj_descr  = 'Attached Document1'.
append objpack.
Second attachment
loop at objhex.
  move-corresponding objhex to objhex2.
  append objhex2.
endloop.
*att_type = 'DOC'.
*describe table objhex lines tab_lines.
*read     table objhex index tab_lines.
*objpack-doc_size = ( tab_lines ) * 255 ."+ strlen( i_data ).
*objpack-transf_bin = 'X'.
*objpack-head_start = 1.
*objpack-head_num   = 0.
*objpack-body_start = 1.
*objpack-body_num   = tab_lines.
*objpack-doc_type   = att_type.
*objpack-obj_name   = 'ATTACHMENT2'.
*objpack-obj_descr  = 'Attached Document2'.
*append objpack.
Third attachment
*loop at objhex.
move-corresponding objhex to objhex2.
append objhex2.
*endloop.
*att_type = 'PDF'.
*describe table objhex lines tab_lines.
*read     table objhex index tab_lines.
*objpack-doc_size = ( tab_lines ) * 255 ."+ strlen( i_data ).
*objpack-transf_bin = 'X'.
*objpack-head_start = 1.
*objpack-head_num   = 0.
*objpack-body_start = 1.
*objpack-body_num   = tab_lines.
*objpack-doc_type   = att_type.
*objpack-obj_name   = 'ATTACHMENT3'.
*objpack-obj_descr  = 'Attached Document3'.
*append objpack.
Create receiver list
data: reclist1 type sadrfd .
reclist1-rec_fax = '650-467-2890'.
reclist1-REC_STATE = 'US'.
append reclist1.
*read table reclist1 index 1.
move reclist1(30) to reclist-receiver(30).
move reclist1346(3) to reclist-receiver346(3).
*reclist-receiver = reclist1."'US16503457900'.
*move reclist1-rec_fax to reclist-receiver.
*reclist-receiver = 'US16502796630'.  "'[phone])'.
reclist-REC_type = 'F'.
*reclist-country = 'US'.
*reclist-COM_TYPE = 'TELFAX'.
*reclist-fax = 'US1650-279-6630'.
append reclist.
*reclist-receiver = sy-uname.                "<-- change internal user
*reclist-rec_type = 'B'.
*append reclist.
Send Message
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
  EXPORTING
    document_data                     = docdata
     PUT_IN_OUTBOX                     = 'X'
     COMMIT_WORK                       = 'X'     "used from rel.6.10
  IMPORTING
    SENT_TO_ALL                        =
    NEW_OBJECT_ID                     =
  tables
    packing_list                      = objpack
    OBJECT_HEADER                     = objhead
    CONTENTS_BIN                      = objbin
    CONTENTS_TXT                      = objtxt
     CONTENTS_HEX                      = objhex
    OBJECT_PARA                        =
    OBJECT_PARB                        =
    receivers                         = 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
IF sy-subrc <> 0.
  message ID 'SO' TYPE 'S' NUMBER '023'
          with docdata-obj_name.
ENDIF.
**Please reward suitable points***
With Regards
Navin Khedikar