Problem with the ALV after sending the mail

Question

Good Morning Experts
I have a small issue with the ALV. I have a program, which has to sent email. In My program initially I am displaying basic list in the alv and user can navigate to secondary list also, by clicking on a contract number in the basic list.
I gave a tool button in the tool bar to the user in the basic list, to send the mail. When the user clicks on the I have to send the mail both the lists, basic list and seconday list in the mail as separate attachments.
Mail is going fine and later if the user chooses to see any contract in detail(Secondary List), that time ALV giving dump with message type X. And it is stopping some where in the ALV code
call method cl_gui_cfw=>get_subscriber_by_id
       exporting shellid = p_handle-shellid
       exceptions others = 1.
  if sy-subrc = 0.
    </B>message X007 with p_handle-clsid.<B>
  endif.
If anybody having an Idea, how to resolve it, please tell me.
Thanks in Advance
Praveen

Answer 1

Please find the code for user_command form and sending the mail. Please look into this advice me if anything wrongly I coded.
*&      Form  user_command
FORM user_command USING r_ucomm LIKE sy-ucomm
                              rs_selfield TYPE slis_selfield.
  IF r_ucomm EQ '&IC1' OR r_ucomm EQ 'SHOW'.
    REFRESH: it_all[],
             it_fcat1[],
             it_sort[].
    LOOP AT it_final INTO wa_final WHERE select EQ 'X' OR xblnr EQ rs_selfield-value.
      LOOP AT it_bsid INTO wa_bsid WHERE xblnr EQ wa_final-xblnr AND zuonr IS INITIAL.
        wa_all = wa_bsid.
        wa_all = wa_bsid.
        wa_all-booked = wa_bsid-dmbtr.
        IF wa_bsid-augdt IS NOT INITIAL AND wa_bsid-augbl IS NOT INITIAL.
          wa_all-paid = wa_bsid-dmbtr.
        ENDIF.
        wa_all-amtr = wa_all-booked - wa_all-paid.
        APPEND wa_all TO it_all.
        CLEAR: wa_all,
               wa_bsid.
      ENDLOOP.
      LOOP AT it_bsad INTO wa_bsad WHERE xblnr EQ wa_final-xblnr AND zuonr IS INITIAL.
        wa_all = wa_bsad.
        wa_all-booked = wa_bsad-dmbtr.
        IF wa_bsad-augdt IS NOT INITIAL AND wa_bsad-augbl IS NOT INITIAL.
          wa_all-paid = wa_bsad-dmbtr.
        ENDIF.
        wa_all-amtr = wa_all-booked - wa_all-paid.
        APPEND wa_all TO it_all.
        CLEAR: wa_all,
               wa_bsad.
      ENDLOOP.
    ENDLOOP.
    SORT it_all BY xblnr.
    PERFORM fill_fcat2.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
        i_callback_program                = sy-repid
        i_callback_top_of_page            = 'TOP_OF_PAGE'
        i_grid_title                      = 'Report to display selected contracts'
        is_layout                         = wa_layout1
        it_fieldcat                       = it_fcat1[]
   I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
        IT_SORT                           = it_sort[]
        i_default                         = 'X'
        i_save                            = 'A'
        is_variant                        = wa_variant
      TABLES
        t_outtab                          = it_all[]
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.
  ENDIF.
  CASE r_ucomm.
    WHEN 'BACK1' OR 'EXT1'.
      PERFORM exit IN PROGRAM  saplslvc_fullscreen.
    WHEN '&F12' or 'CANCEL'.
      PERFORM exit IN PROGRAM  saplslvc_fullscreen.
    WHEN 'MAIL'.
       PERFORM prepare_mail.
  ENDCASE.
ENDFORM.                    "user_command
*&      Form  prepare_mail
      text
-->  p1        text
<--  p2        text
FORM prepare_mail .
  DATA:
       l_lay    TYPE pri_params-paart,
       l_line  TYPE pri_params-linct,
       l_cols   TYPE pri_params-linsz,
       l_val    TYPE c,
       i_spno   TYPE tsp01-rqident,
       i_lines  TYPE i,
       i_bin    TYPE i,
       i_pack_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
       i_recivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
       i_contents LIKE solisti1 OCCURS 0 WITH HEADER LINE,
       i_header    LIKE solisti1  OCCURS 0 WITH HEADER LINE,
       i_docdata   LIKE sodocchgi1,
       i_excel     LIKE solisti1 OCCURS 0 WITH HEADER LINE.
  i_pos    type i.
  TYPES:
     t_pripar TYPE pri_params,
     t_arcpar TYPE arc_params.
  "Work areas
  DATA:
     lw_pripar TYPE t_pripar,
     lw_arcpar TYPE t_arcpar,
     w_no_of_bytes TYPE i.
  l_lay   = 'X_65_255'.
  l_line  = 65.
  l_cols  = 255.
  "Read, determine, change spool print parameters and archive parameters
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING
      in_archive_parameters  = lw_arcpar
      in_parameters          = lw_pripar
      layout                 = l_lay
      line_count             = l_line
      line_size              = l_cols
      no_dialog              = 'X'
    IMPORTING
      out_archive_parameters = lw_arcpar
      out_parameters         = lw_pripar
      valid                  = l_val
    EXCEPTIONS
      archive_info_not_found = 1
      invalid_print_params   = 2
      invalid_archive_params = 3
      OTHERS                 = 4.
*l_val eq space
  IF  sy-subrc = 0.
    lw_pripar-prrel = space.
    lw_pripar-primm = space.
    NEW-PAGE PRINT ON
      NEW-SECTION
      PARAMETERS lw_pripar
      ARCHIVE PARAMETERS lw_arcpar
      NO DIALOG.
  ENDIF.
  DATA: ls_prnt TYPE slis_print_alv.
  ls_prnt-print = ''.
  ls_prnt-prnt_title = 'X'.
  ls_prnt-no_coverpage = 'X'.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
      i_callback_program                = sy-repid
      i_callback_top_of_page            = 'TOP_OF_PAGE'
      i_grid_title                      = 'Report to display collection pattern on Clearing Date'
      is_layout                         = wa_layout
      it_fieldcat                       = it_fcat[]
      i_callback_user_command           = 'USER_COMMAND'
      i_callback_pf_status_set          = 'PF_STATUS_SET'
   IT_SORT                           = it_sort[]
      i_default                         = 'X'
      i_save                            = 'A'
      is_variant                        = wa_variant
    TABLES
      t_outtab                          = it_final[]
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.
WRITE 'Test program to generate and download as PDF'.
  NEW-PAGE PRINT OFF.
  CALL FUNCTION 'ABAP4_COMMIT_WORK'.
  i_spno = sy-spono.
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid   = i_spno
      no_dialog     = 'X'
    IMPORTING
      pdf_bytecount = w_no_of_bytes
     pdf_spoolid   = w_pdf_spoolid
     btc_jobname   = w_jobname
     btc_jobcount  = w_jobcount
    TABLES
      pdf           = it_pdf.
  LOOP AT it_pdf INTO wa_pdf.
    IF w_pos = 34170.
      PERFORM attach.
    ENDIF.
    w_stuff+w_pos(134) = wa_pdf.
    ADD 134 TO w_pos.
  ENDLOOP.
  IF NOT ( w_stuff IS INITIAL ).
    PERFORM attach.
  ENDIF.
  CLEAR wa_pdf.
  PERFORM fill_receivers TABLES i_recivers.
  PERFORM fill_contents TABLES i_contents.
  DESCRIBE TABLE i_contents LINES i_lines.
  READ TABLE i_contents INDEX i_lines.
  CLEAR i_pack_list-transf_bin.
  i_pack_list-head_start = 1.
  i_pack_list-head_num = 1.
  i_pack_list-body_start = 2.
  i_pack_list-body_num = i_lines.
  i_pack_list-doc_type = 'RAW'.
  APPEND i_pack_list.
  CLEAR i_pack_list.
*u2022  Attachment (pdf-Attachment)
CONCATENATE p_date6(2) p_date4(2) p_date+0(4) INTO w_date1 SEPARATED BY '.'.
  DESCRIBE TABLE it_att LINES i_lines.
  READ TABLE it_att INTO wa_att INDEX i_lines.
  i_pack_list-transf_bin = 'X'.
  i_pack_list-head_start = '1'.
  i_pack_list-head_num = '0'.
  i_pack_list-body_start = '1'.
  i_pack_list-body_num = i_lines.
  i_pack_list-doc_type = 'PDF'.
  i_pack_list-obj_name = 'Renewal List'.
  CONCATENATE 'Report to display outstanding premium' 'Executed on' w_date1 INTO i_pack_list-obj_descr SEPARATED BY space.
i_pack_list-obj_descr = 'Exchange Rates uploaded to the database'.
  i_pack_list-obj_langu = 'E'.
  i_pack_list-doc_size = i_lines * 255.
  APPEND i_pack_list.
  CLEAR i_pack_list.
  REFRESH: it_pdf[].
  CLEAR wa_pdf.
  REFRESH: it_all[],
            it_fcat1[],
            it_sort[].
  LOOP AT it_final INTO wa_final.
    LOOP AT it_bsid INTO wa_bsid WHERE xblnr EQ wa_final-xblnr AND zuonr IS INITIAL.
      wa_all = wa_bsid.
      wa_all-booked = wa_bsid-dmbtr.
      IF wa_bsid-augdt IS NOT INITIAL AND wa_bsid-augbl IS NOT INITIAL.
        wa_all-paid = wa_bsid-dmbtr.
      ENDIF.
      wa_all-amtr = wa_all-booked - wa_all-paid.
      APPEND wa_all TO it_all.
      CLEAR: wa_all,
             wa_bsid.
    ENDLOOP.
    LOOP AT it_bsad INTO wa_bsad WHERE xblnr EQ wa_final-xblnr AND zuonr IS INITIAL.
      wa_all = wa_bsad.
      wa_all-booked = wa_bsad-dmbtr.
      IF wa_bsad-augdt IS NOT INITIAL AND wa_bsad-augbl IS NOT INITIAL.
        wa_all-paid = wa_bsad-dmbtr.
      ENDIF.
      wa_all-amtr = wa_all-booked - wa_all-paid.
      APPEND wa_all TO it_all.
      CLEAR: wa_all,
             wa_bsad.
    ENDLOOP.
  ENDLOOP.
   NEW-PAGE PRINT ON
      NEW-SECTION
      PARAMETERS lw_pripar
      ARCHIVE PARAMETERS lw_arcpar
      NO DIALOG.
ENDIF.
  SORT it_all BY xblnr.
  PERFORM fill_fcat2.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
      i_callback_program                = sy-repid
      i_callback_top_of_page            = 'TOP_OF_PAGE'
      i_grid_title                      = 'Report to display selected contracts'
      is_layout                         = wa_layout1
      it_fieldcat                       = it_fcat1[]
   I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
      it_sort                           = it_sort[]
      i_default                         = 'X'
      i_save                            = 'A'
      is_variant                        = wa_variant
    TABLES
      t_outtab                          = it_all[]
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.
  NEW-PAGE PRINT OFF.
  CALL FUNCTION 'ABAP4_COMMIT_WORK'.
  i_spno = sy-spono.
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid   = i_spno
      no_dialog     = 'X'
    IMPORTING
      pdf_bytecount = w_no_of_bytes
     pdf_spoolid   = w_pdf_spoolid
     btc_jobname   = w_jobname
     btc_jobcount  = w_jobcount
    TABLES
      pdf           = it_pdf.
LOOP AT it_pdf INTO wa_pdf.
    IF w_pos = 34170.
      PERFORM attach1.
    ENDIF.
    w_stuff+w_pos(134) = wa_pdf.
    ADD 134 TO w_pos.
  ENDLOOP.
  IF NOT ( w_stuff IS INITIAL ).
    PERFORM attach1.
  ENDIF.
  CLEAR wa_pdf.
DESCRIBE TABLE it_att LINES i_lines.
  ADD 1 TO i_lines.
  DESCRIBE TABLE it_att1 LINES i_bin.
  READ TABLE it_att1 INTO wa_att INDEX i_bin.
DESCRIBE TABLE it_att LINES i_lines.
READ TABLE it_att INTO wa_att INDEX i_lines.
  i_pack_list-transf_bin = 'X'.
  i_pack_list-head_start = '1'.
  i_pack_list-head_num = '0'.
  i_pack_list-body_start = i_lines.
  i_pack_list-body_num = i_bin.
  i_pack_list-doc_type = 'PDF'.
  i_pack_list-obj_name = 'Renewal List-Details'.
  CONCATENATE 'Outstanding Premium-Details' w_date1 INTO i_pack_list-obj_descr SEPARATED BY space.
i_pack_list-obj_descr = 'Exchange Rates uploaded to the database'.
  i_pack_list-obj_langu = 'E'.
  i_pack_list-doc_size = i_bin * 255.
  APPEND i_pack_list.
  CLEAR i_pack_list.
  APPEND LINES OF it_att1 to it_att.
  i_docdata-obj_name = 'Renewal List'.
  CONCATENATE 'Oustanding Premium' 'as on' w_date1 INTO i_docdata-obj_descr SEPARATED BY space.
  CONDENSE i_docdata-obj_descr.
  i_docdata-obj_langu = 'E'.
  i_docdata-obj_prio = '1'.
  i_docdata-no_change = 'X'.
  i_docdata-sensitivty = 'F'.
  i_docdata-doc_size = ( i_lines - 1 ) * 255 + STRLEN( wa_att ).
***Data for Header
  i_header-line = 'Header'. APPEND i_header.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = i_docdata
      commit_work                = 'X'
    TABLES
      packing_list               = i_pack_list[]
      object_header              = i_header
      contents_bin               = it_att[]
      contents_txt               = i_contents[]
      receivers                  = i_recivers[]
    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.
  ELSE.
    MESSAGE 'Document Sent' TYPE 'S'.
  ENDIF.
ENDFORM.                    " prepare_mail
Thanks
Praveen