Satndard AVL function code in interactive reports

Question

hai
can any one give some frequently used alv function codes for interctie display
thanking u
regards
murali

Answer 1

Hi Murali,
please find the attached code. hope it helps you....
report  zptest_alv1.
**TABLES DECLN
tables: vbrk,vbrp,t001.
type-pools: slis.
type-pools: icon.
***DATA DECLN.
data: v_vbeln like vbrk-vbeln,
      v_matnr like vbrp-matnr.
constants: c_user_command type slis_formname value 'F_USER_COMMAND',
           c_pf_status type slis_formname value 'F_SET_PF_STATUS'.
**ALV RELATED TABLES.
*--Field Catalog
data:   it_fieldcat type standard table of
                        slis_fieldcat_alv  with header line,
        it_fieldcat1 type standard table of
                        slis_fieldcat_alv with header line ,
        wa_fieldcat type slis_fieldcat_alv,
*--Layout
       wa_layout type slis_layout_alv,
*--Sort
       it_sort type slis_t_sortinfo_alv,
       wa_sort type slis_sortinfo_alv  ,
**-Structure for excluding function codes
       wa_extab type slis_extab,
**-To hold function codes to be excluded in ALV toolbar
       it_extab type slis_t_extab.
***INTERNAL TABLE DECLN.
data: begin of it_vbrk occurs 0,
      vbeln like vbrk-vbeln,
      waerk like vbrk-waerk,
      vkorg like vbrk-vkorg,
      fkdat like vbrk-fkdat,
      bukrs like vbrk-bukrs,
      netwr like vbrk-netwr,
      end of it_vbrk.
data: begin of itab occurs 0,
      vbeln like vbrp-vbeln,
      posnr like vbrp-posnr,
      fkimg like vbrp-fkimg,
      vrkme like vbrp-vrkme,
      netwr like vbrp-netwr,
      matnr like vbrp-matnr,
      arktx like vbrp-arktx,
      end of itab.
data: it_vbrp like itab occurs 0 with header line.
***selection screen.
selection-screen: begin of block b1 with frame title text-001.
select-options: s_vbeln for vbrk-vbeln,
              s_fkdat for vbrk-fkdat obligatory,
                s_matnr for vbrp-matnr.
selection-screen: end of block b1.
**INITIALIZATION.
initialization.
  s_fkdat-low = sy-datum - 200.
  s_fkdat-high = sy-datum.
  append s_fkdat.
***AT SELECTION-SCREEN.
at selection-screen.
  if not s_vbeln is initial.
    select single vbeln from vbrk
           into v_vbeln
           where vbeln in s_vbeln.
    if sy-subrc <> 0.
      message e001(zz2).
    endif.
  endif.
  if not s_matnr is initial.
    select single matnr from mara
           into v_matnr
           where matnr in s_matnr.
    if sy-subrc <> 0.
      message e001(zz2).
    endif.
  endif.
***START-OF-SELECTION.
start-of-selection.
  perform get_data_vbrk.
  perform get_data_vbrp.
***END-OF-SELECTION.
end-of-selection.
*--Sort the Output Fields
perform sort_fields.
*--Build Field catalog for the Output fields
  perform get_field_catalog.
***MODIFY LAYOUT.
perform modify_layout.
*--Display ALV output
  perform list_disp  tables it_vbrk
                           using  c_user_command.
*&      Form  GET_DATA_VBRK
      text
-->  p1        text
<--  p2        text
form get_data_vbrk.
  select vbeln
         waerk
         vkorg
         fkdat
         bukrs
         netwr
         into table it_vbrk
         from vbrk
         where vbeln in s_vbeln
         and fkdat in s_fkdat.
endform.                    " GET_DATA
*&      Form  GET_DATA_VBRP
      text
-->  p1        text
<--  p2        text
form get_data_vbrp .
SELECT VBELN
        POSNR
        FKIMG
        VRKME
        NETWR
        MATNR
        ARKTX
        FROM VBRP
        INTO TABLE IT_VBRP
        FOR ALL ENTRIES IN IT_VBRK
        WHERE VBELN = IT_VBRK-VBELN.
  select vbeln
         posnr
         fkimg
         vrkme
         netwr
         matnr
         arktx
         from vbrp
         into table itab
         for all entries in it_vbrk
         where vbeln = it_vbrk-vbeln.
endform.                    " GET_DATA_VBRP
*&      Form  GET_FIELD_CATALOG
      text
-->  p1        text
<--  p2        text
form get_field_catalog .
  call function 'REUSE_ALV_FIELDCATALOG_MERGE'
    exporting
      i_program_name         = sy-repid
      i_internal_tabname     = 'IT_VBRK'
      i_inclname             = sy-repid
    changing
      ct_fieldcat            = it_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.
endform.                    " GET_FIELD_CATALOG
*&      Form  SORT_FIELDS
      text
-->  p1        text
<--  p2        text
form sort_fields .
  clear wa_sort.
  wa_sort-spos = '01'.
  wa_sort-fieldname = 'VBELN' .
  wa_sort-tabname   = 'IT_VBRK'.
  wa_sort-up        = 'X'.
  append wa_sort to it_sort.
  clear  wa_sort.
  wa_sort-spos = '02'.
  wa_sort-fieldname = 'POSNR' .
  wa_sort-tabname   = 'IT_VBRP'.
  wa_sort-up        = 'X'.
  append wa_sort to it_sort.
endform.                    " SORT_FIELDS
*&      Form  MODIFY_LAYOUT
      text
-->  p1        text
<--  p2        text
form modify_layout .
  wa_layout-default_item = 'X'.
  wa_layout-zebra = 'X'.
  wa_layout-expand_fieldname = 'EXPAND'.
  wa_layout-colwidth_optimize = 'X'.
endform.                    " MODIFY_LAYOUT
*&      Form  LIST_DISP
      text
-->  p1        text
<--  p2        text
form list_disp  tables   p_it_vbrk
                   using    p_user_command type slis_formname.
*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM       = SY-REPID
     I_CALLBACK_PF_STATUS_SET = 'POPUP'
     I_CALLBACK_USER_COMMAND  = 'HANDLE_USER_COMMAND'
     IS_LAYOUT                = WA_LAYOUT
     IT_FIELDCAT              = IT_FIELDCAT[]
     IT_EXCLUDING             = IT_EXTAB[]
   TABLES
     T_OUTTAB                 = IT_VBRK
   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.
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'POPUP'
      i_callback_user_command  = 'HANDLE_USER_COMMAND'
      is_layout                = wa_layout
      it_fieldcat              = it_fieldcat[]
    tables
      t_outtab                 = p_it_vbrk
    exceptions
      program_error            = 1
      others                   = 2.
endform.                    " LIST_DISP
*&      Form  POPUP
      text
     -->P_EXTAB    text
form popup using it_extab type slis_t_extab.
*- Pf status
  set pf-status 'POPUP'.
endform.                 " POPUP
*&      Form F_USER_COMMAND
form handle_user_command using r_ucomm     like sy-ucomm
                               rs_selfield type slis_selfield.
  case r_ucomm.
    when '&IC1'.
        clear it_fieldcat1[].
        clear it_vbrp[].
        if rs_selfield-fieldname = 'VBELN'.
        read table it_vbrk index rs_selfield-tabindex.
        loop at itab where vbeln = it_vbrk-vbeln.
        move-corresponding itab to it_vbrp.
        append it_vbrp.
        endloop.
        perform interactive_report.
        endif.
  endcase.
endform.                    "HANDLE_USER_COMMAND
*&      Form  INTERACTIVE_REPORT
      text
-->  p1        text
<--  p2        text
form interactive_report .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     I_PROGRAM_NAME         = SY-REPID
     I_INTERNAL_TABNAME     = 'ITAB'
     I_INCLNAME             = SY-REPID
   CHANGING
     CT_FIELDCAT            = IT_FIELDCAT1[]
   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.
  wa_fieldcat-fieldname = 'VBELN'.
  wa_fieldcat-seltext_l = 'BILLING DOC'.
  wa_fieldcat-tabname = 'IT_VBRP'.
  wa_fieldcat-col_pos  = 1.
  append wa_fieldcat to it_fieldcat1.
  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'POSNR'.
  wa_fieldcat-seltext_l = 'ITEM'.
  wa_fieldcat-tabname = 'IT_VBRP'.
  wa_fieldcat-col_pos  = 2.
  append wa_fieldcat to it_fieldcat1.
  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'FKIMG'.
  wa_fieldcat-seltext_m = 'INV QTY'.
  wa_fieldcat-tabname = 'IT_VBRP'.
  wa_fieldcat-col_pos  = 3.
  append wa_fieldcat to it_fieldcat1.
  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'VRKME'.
  wa_fieldcat-seltext_m = 'SALES UNIT'.
  wa_fieldcat-tabname = 'IT_VBRP'.
  wa_fieldcat-col_pos  = 4.
  append wa_fieldcat to it_fieldcat1.
  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'NETWR'.
  wa_fieldcat-seltext_m = 'NET PRICE'.
  wa_fieldcat-tabname = 'IT_VBRP'.
  wa_fieldcat-do_sum = 'X'.
  wa_fieldcat-col_pos  = 5.
  append wa_fieldcat to it_fieldcat1.
  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'MATNR'.
  wa_fieldcat-seltext_m = 'MATERIAL'.
  wa_fieldcat-tabname = 'IT_VBRP'.
  wa_fieldcat-col_pos  = 6.
  append wa_fieldcat to it_fieldcat1.
  clear wa_fieldcat.
  wa_fieldcat-fieldname = 'ARKTX'.
  wa_fieldcat-seltext_m = 'SALES ORDER'.
  wa_fieldcat-tabname = 'IT_VBRP'.
  wa_fieldcat-col_pos  = 7.
  append wa_fieldcat to it_fieldcat1.
  clear wa_fieldcat.
*CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM       = SY-REPID
     IS_LAYOUT                = WA_LAYOUT
     IT_FIELDCAT              = IT_FIELDCAT1[]
     IT_SORT                  = IT_SORT
   TABLES
     T_OUTTAB                 = IT_VBRP
   EXCEPTIONS
     PROGRAM_ERROR            = 1
     OTHERS                   = 2.
  call function 'REUSE_ALV_GRID_DISPLAY'
    exporting
      i_callback_program = sy-repid
      is_layout          = wa_layout
      it_fieldcat        = it_fieldcat1[]
    tables
      t_outtab           = it_vbrp
    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.                    " INTERACTIVE_REPORT
Madhavi