Please provide a SD related report

Question

Please provide a complete programming example of SD report that uses the following:
1. ALVs
2. No TABLES statement
3. No JOINS in Select statement. Instead of this, it can contain FOR ALL ENTRIES

Answer 1

Hi,
The code:
report ztest.
type-pools: slis.
tables: vbak, vbpa, serpsls_blockeddoc.
data: lrt_fieldcat type slis_t_fieldcat_alv,
      lrs_fieldcat like line of lrt_fieldcat,
      lrs_layout type slis_layout_alv,
      lrv_status type slis_formname value 'SET_STATUS',
      lrv_user_command type slis_formname value 'USER_COMMAND',
      lrv_repid like sy-repid value sy-repid.
data: lrs_doc type serpsls_blockeddoc,
      lrt_doc type terpsls_blockeddoc.
selection-screen begin of block docdata with frame title text-doc.
  select-options: strvog for serpsls_blockeddoc-trvog,
                  sauart for serpsls_blockeddoc-auart,
                  skunnr for serpsls_blockeddoc-kunnr,
                  serdat for serpsls_blockeddoc-erdat.
selection-screen end of block docdata.
selection-screen begin of block partnerdata with frame title text-par.
  parameters: pzpavw like serpsls_blockeddoc-zpavw.
  select-options: szpers for serpsls_blockeddoc-zpers matchcode object prem,
                  sernam for serpsls_blockeddoc-ernam.
selection-screen end of block partnerdata.
selection-screen begin of block orgdata with frame title text-org.
  select-options: svkorg for serpsls_blockeddoc-vkorg memory id vko,
                  svtweg for serpsls_blockeddoc-vtweg memory id vtw,
                  sspart for serpsls_blockeddoc-spart memory id spa,
                  svkbur for serpsls_blockeddoc-vkbur memory id vkb,
                  svkgrp for serpsls_blockeddoc-vkgrp memory id vkg.
selection-screen end of block orgdata.
selection-screen begin of block adddata with frame title text-add.
  select-options: sfaksk for serpsls_blockeddoc-faksk.
  selection-screen skip.
  parameters: popen radiobutton group 1,
              pall  radiobutton group 1.
selection-screen end of block adddata.
start-of-selection.
  perform data_selection.
  if lrt_doc[] is initial.
    message s490(vr).
    exit.
  endif.
end-of-selection.
  perform fill_fieldcatalog.
  perform build_layout.
  perform reuse_alv_list_display.
form routines
form data_selection.
  data: lf_opendoc type char1.
  if popen is not initial.
    lf_opendoc = 'X'.
  endif.
  call function 'ERPSLS_BILLBLOCKDOC'
    exporting
      it_rg_trvog  = strvog[]
      it_rg_auart  = sauart[]
      it_rg_kunnr  = skunnr[]
      it_rg_erdat  = serdat[]
      iv_zpavw     = pzpavw
      it_rg_zpers  = szpers[]
      it_rg_ernam  = sernam[]
      it_rg_vkorg  = svkorg[]
      it_rg_vtweg  = svtweg[]
      it_rg_spart  = sspart[]
      it_rg_vkbur  = svkbur[]
      it_rg_vkgrp  = svkgrp[]
      it_rg_faksk  = sfaksk[]
      if_opendoc   = lf_opendoc
    importing
      et_doc       = lrt_doc.
endform.
form set_status using extab type slis_t_extab.
  delete extab where fcode = '&AVE'.
  delete extab where fcode = '&OAD'.
  delete extab where fcode = '&ERW'.
  set pf-status 'STATUS_DOCLIST_1' excluding extab.
endform.
form user_command using r_ucomm like sy-ucomm
                        rs_selfield type slis_selfield.
  case r_ucomm.
    when  'DISPLAY'.
      check rs_selfield-tabindex > 0.
      read table lrt_doc into lrs_doc index rs_selfield-tabindex.
      call function 'RV_CALL_DISPLAY_TRANSACTION'
        exporting
          vbeln = lrs_doc-vbeln.
    when  'CHANGE'.
      check rs_selfield-tabindex > 0.
      read table lrt_doc into lrs_doc index rs_selfield-tabindex.
      call function 'RV_CALL_CHANGE_TRANSACTION'
        exporting
          vbeln = lrs_doc-vbeln.
  endcase.
endform.
form fill_fieldcatalog.
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    exporting
         i_structure_name = 'SERPSLS_BLOCKEDDOC'
    changing
         ct_fieldcat      = lrt_fieldcat.
  delete lrt_fieldcat where fieldname = 'LIFSK'.
  delete lrt_fieldcat where fieldname = 'LIFSKT'.
  delete lrt_fieldcat where fieldname = 'AWAHR'.
  read table lrt_fieldcat
       into lrs_fieldcat
       with key fieldname = 'KS'.
  if sy-subrc = 0.
    lrs_fieldcat-seltext_s = text-kss.
    lrs_fieldcat-seltext_m = text-ksm.
    lrs_fieldcat-seltext_l = text-ksl.
    modify lrt_fieldcat from lrs_fieldcat index sy-tabix.
  endif.
  read table lrt_fieldcat
       into lrs_fieldcat
       with key fieldname = 'PS'.
  if sy-subrc = 0.
    lrs_fieldcat-seltext_s = text-pss.
    lrs_fieldcat-seltext_m = text-psm.
    lrs_fieldcat-seltext_l = text-psl.
    modify lrt_fieldcat from lrs_fieldcat index sy-tabix.
  endif.
  read table lrt_fieldcat
       into lrs_fieldcat
       with key fieldname = 'AS'.
  if sy-subrc = 0.
    lrs_fieldcat-seltext_s = text-***.
    lrs_fieldcat-seltext_m = text-asm.
    lrs_fieldcat-seltext_l = text-asl.
    modify lrt_fieldcat from lrs_fieldcat index sy-tabix.
  endif.
  read table lrt_fieldcat
       into lrs_fieldcat
       with key fieldname = 'KR'.
  if sy-subrc = 0.
    lrs_fieldcat-seltext_s = text-krs.
    lrs_fieldcat-seltext_m = text-krm.
    lrs_fieldcat-seltext_l = text-krl.
    modify lrt_fieldcat from lrs_fieldcat index sy-tabix.
  endif.
endform.
form build_layout.
  lrs_layout-colwidth_optimize = 'X'.
  lrs_layout-detail_initial_lines = 'X'.
endform.
form reuse_alv_list_display.
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program        = lrv_repid
      i_callback_pf_status_set  = lrv_status
      i_callback_user_command   = lrv_user_command
      is_layout                 = lrs_layout
      it_fieldcat               = lrt_fieldcat
      i_save                    = 'A'
    tables
      t_outtab                  = lrt_doc
    exceptions
      program_error             = 1
      others                    = 2.
endform.
Inside the report they use function module ERPSLS_BILLBLOCKDOC which contains for all entries too.
Pls reward points if useful
Regards,
Renjith Michael.