Alv output with lines

hi all,
is it possible to display alv report output when printed with horizontal, vertical lines.
when displayed we can see the lines, but i want to see the lines in the print out also.
how

Hi,
Try using this class SE24-> CL_GUI_ALV_GRID-> to display list in ALV format.
In the attributes section we can see tehe Printing Options like-
MC_FC_PRINT
MC_FC_PRINT_PREV
using them we can set the lines and thier display on printout aslo.
We can aslo use the loayout atribues method-SET_LAYOUT_PROPERTIES to set the properties you reuqire.
You can study more on this.
Reward if helpful.
Best Wishes,
Chandralekha

Similar Messages

Regarding ALV outputs ( with layout variants)

Hi,
I have a problem where in an ALV report when it is executed with a variant (there is one layout parameter in the screen which is also filled. This layout is set with a filter),
displays the output. But the displayed output doesn't filter the output as per the required criteria set in the layout filter.
When I execute the report with the same variant but now if I select the layout by pressing F4 on the layout field and select the same layout as earlier (which is having the filter criteria), now it displays the output as per the required criteria set in the filter.
I don't understand why if I execute the report with a variant with the layout value also filled, it is not able to give the required output as per the filter criteria set for the layout.
When the report is executed with the same variant but the layout value selected from F4, it dispalys the correct output with the filter criteria set for the layout.
In general, I mean why the program is not able to load the layout with filter when it is called from a variant?
Regards,
Rajesh

It depends on your Layout, How you saved it .
And one more question are you passing the layout parameter and Filter parameter to the Function module

How to get ALV Output with selected Layout

I have a program which displays the output in ALV list format and i changed the layout and saved
In the selection-screen i have a field to select the layout after selecting the layout it output is not coming with that layout
can anyone tell me what is the problem
or give me a sample code
Thank you

Hi,
Check this code.
Hope it helps.
*& Report zSALES_ORDER
report z_sales_order.
type-pools: slis.
*DATA DECLARATION.
types: begin of i_vbak,
       vbeln type vbeln_va,
       augru type augru,
       erdat type erdat,
       end of i_vbak.
types: begin of i_vbap,
       vbeln type vbeln_va,
       augru type augru,
       posnr type posnr_va,
       matnr type matnr,
       zmeng type dzmeng,
       end of i_vbap.
types: begin of i_makt,
       matnr type matnr,
       maktx type maktx,
       end of i_makt.
types: begin of i_lips,
       posnr type posnr_vl,
       matnr type matnr,
       lfimg type lfimg,
       end of i_lips.
types: begin of i_reason,
       spras type spras,
       augru type augru,
       bezei type bezei40,
       end of i_reason.
types: begin of i_vbpa,
       vbeln type vbeln,
       parvw type parvw,
       kunnr type kunnr,
       end of i_vbpa.
types: begin of i_kna1,
       kunnr type kunnr,
       name1 type name1_gp,
       end of i_kna1.
types: begin of i_final,
       vbeln type vbeln_va,
       posnr type posnr_va,
       matnr type matnr,
       zmeng type dzmeng,
       maktx type maktx,
       lfimg type lfimg,
       spras type spras,
       augru type augru,
       bezei type bezei40,
       parvw type parvw,
       kunnr type kunnr,
       name1 type name1_gp,
       end of i_final.
*INTERNAL TABLES
data: it_vbak type standard table of i_vbak.
data: it_vbap type standard table of i_vbap.
data: it_makt type standard table of i_makt.
data: it_lips type standard table of i_lips.
data: it_vbpa type standard table of i_vbpa.
data: it_kna1 type standard table of i_kna1.
data: it_final type standard table of i_final.
data: it_reason type standard table of i_reason.
data : v_flag.
*WORK AREA
data: wa_vbak type i_vbak.
data: wa_vbap type i_vbap.
data: wa_makt type i_makt.
data: wa_lips type i_lips.
data: wa_vbpa type i_vbpa.
data: wa_kna1 type i_kna1.
data: wa_final type i_final.
data: wa_reason type i_reason.
*DATA DECLARATION.
data: v_progname type sy-repid.
data: v_vbeln type vbak-vbeln.
data: v_gridtitle type lvc_title.
*PARAMETERS: D_VARI LIKE DISVARIANT-VARIANT.
data: i_variant like disvariant.
data: p_vari like disvariant-variant.
*DATA DECLARATION FOR CATALOGS LAYOUT SORT EVENTCATALOG TOPOFPAGE.
data: i_fieldcat type slis_t_fieldcat_alv.
data: i_layout type slis_layout_alv.
data: i_sortinfo type slis_t_sortinfo_alv.
data: i_listheader type slis_t_listheader.
data: i_eventcat type slis_t_event.
*INITIALIZATION - First point of execution of program
                To initialize Any variables that are to be
                used in the program, even before selection screen
                appears.
initialization.
v_progname = sy-repid.
v_flag = space.
perform z_default_variant.
*SELECTION SCREEN
selection-screen begin of block blk1 with frame title text-002.
select-options: s_vbeln for v_vbeln.
selection-screen end of block blk1.
*Variable for ALV Variant
selection-screen begin of block b_var with frame title text-020.
parameters: d_vari like disvariant-variant.
selection-screen end of block b_var.
*AT SLECTION-SCREEN.
at selection-screen.
perform z_validations.
*AT SELECTION SCREEN.
at selection-screen on d_vari.
CHECK FOR THE EXISTENCE OF THE VARIANT SELECTED
perform zf_check_var_exist.
at selection-screen on value-request for d_vari.
PROVIDE THE F4-HELP.
perform zf_variant_f4.
*START OF SELECTION.
start-of-selection.
perform z_select.
perform check_validation_flag.
perform z_fieldcat using i_fieldcat.
perform z_layout.
perform z_sortinfo using i_sortinfo.
perform z_eventcat using i_eventcat.
perform z_gridtitle.
perform z_listheader using i_listheader.
perform z_display.
*&      Form Z_VALIDATIONS
      text
--> p1        text
<-- p2        text
form z_validations .
select vbeln into v_vbeln
               up to 1 rows
               from vbak
               where vbeln in s_vbeln.
endselect.
if sy-subrc <> 0.
    message i002(sy) with 'No Records'.
    v_flag = 'X'.
endif.
endform.                    " Z_VALIDATIONS
*&      Form Z_FIELDCAT
      text
     -->P_I_FIELDCAT text
form z_fieldcat using p_i_fieldcat type slis_t_fieldcat_alv.
data: i_fieldcat type slis_fieldcat_alv.
*VBAK-VELN
i_fieldcat-col_pos     = '1'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'VBELN'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-key         = 'X'.                        " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
i_fieldcat-just        = 'C'.                        " FOR JUSTIFICATION.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'SALES ORDER'.              " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 15.                         " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'VBAK'.                     " FOR F1 & F4 HELP AS REFERNCED TO THE DDIC TABLE.
append i_fieldcat to p_i_fieldcat.
*VBAP-SPRAS
i_fieldcat-col_pos     = '2'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'SPRAS'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'LANGUAGE'.                     " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 5.                          " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'TVAUT'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*VBAP-AUGRU
i_fieldcat-col_pos     = '3'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'AUGRU'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'REASON'.                     " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 5.                          " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'VBAK'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*VBAP-bezei
i_fieldcat-col_pos     = '4'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'BEZEI'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'DESCRIPTION'.                     " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 20.                          " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'TVAUT'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*VBAP-POSNR
i_fieldcat-col_pos     = '5'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'POSNR'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'ITEM'.                     " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 8.                          " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'VBAP'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*VBAP-MATNR.
i_fieldcat-col_pos     = '6'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'MATNR'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'MATERIAL'.                 " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 10.                         " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'VBAP'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*VBAP-ZMENG
i_fieldcat-col_pos     = '7'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'ZMENG'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'QUANT'.                     " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 10.                          " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'VBAP'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*MAKT-MAKTX
i_fieldcat-col_pos     = '8'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'MAKTX'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'DESCRIPTION'.                     " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 20.                          " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'MAKT'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*LIPS-VBELN
i_fieldcat-col_pos     = '9'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'VBELN'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'DELIVERY'.                 " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 15.                         " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'LIPS'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*LIPS-LFIMG
i_fieldcat-col_pos     = '10'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'LFIMG'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-do_sum      = 'X'.
i_fieldcat-seltext_l   = 'LFIMG'.                    " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 18.                        " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'LIPS'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*parvw
i_fieldcat-col_pos     = '11'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'PARVW'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'PARTNER FUN'.                    " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 18.                        " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'VBPA'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*KUNNR
i_fieldcat-col_pos     = '12'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'KUNNR'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'SHIP'.                    " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 18.                        " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'VBPA'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
*NAME1
i_fieldcat-col_pos     = '13'.                        " POSITION OF THE COLUMN.
i_fieldcat-fieldname   = 'NAME1'.                    " FIELD FOR WHICH CATALOG ID FILLED.
i_fieldcat-tabname     = 'IT_FINAL'.                 " INTERNAL TABLE TO WHICH THE FIELD BELONGS TO.
i_fieldcat-lzero       = 'X'.                        " OUTPUT WITH LEADING ZEROS.
i_fieldcat-seltext_l   = 'NAME'.                    " LONG TEXT FOR HEADER.
i_fieldcat-outputlen   = 18.                        " SET THE OUTPUT LENGTH.
i_fieldcat-ref_tabname = 'KNA1'.                     " FOR F1 & F4 HELP AS REFERNCED TO TABLE.
append i_fieldcat to p_i_fieldcat.
endform.                    " Z_FIELDCAT
*&      Form Z_SELECT
      text
--> p1        text
<-- p2        text
form z_select .
select vbeln
         augru erdat into corresponding fields of table it_vbak
               from vbak
               where vbeln in s_vbeln.
loop at it_vbak into wa_vbak.
    wa_vbak-erdat = '99991231'.
    modify it_vbak from wa_vbak transporting erdat.
endloop.
select * from vbak into corresponding fields of table it_vbak
               for all entries in it_vbak
               where erdat = it_vbak-erdat.
if sy-subrc = 0.
    select vbeln
           posnr
           matnr
           zmeng into corresponding fields of table it_vbap
                 from vbap
                 for all entries in it_vbak
                 where vbeln = it_vbak-vbeln.
    if sy-subrc = 0.
      select spras
             augru
             bezei into corresponding fields of table it_reason
                   from tvaut
                   for all entries in it_vbak
                   where augru = it_vbak-augru.
      if sy-subrc = 0.
        select vbeln
               parvw
               kunnr into corresponding fields of table it_vbpa
                     from vbpa
                     for all entries in it_vbak
                     where vbeln = it_vbak-vbeln.
        if sy-subrc = 0.
          select kunnr
                 name1 into corresponding fields of table it_kna1
                       from kna1
                       for all entries in it_vbpa
                       where kunnr = it_vbpa-kunnr.
          if sy-subrc = 0.
            select posnr
                   matnr
                   lfimg into corresponding fields of table it_lips
                         from lips
                         for all entries in it_vbap
                         where posnr = it_vbap-posnr.
            if sy-subrc = 0.
              select matnr
                     maktx into corresponding fields of table it_makt
                           from makt
                           for all entries in it_vbap
                           where matnr = it_vbap-matnr.
            endif.
          endif.
        endif.
      endif.
    endif.
else.
    message i002(sy) with 'No Data found'.
    leave list-processing.
endif.
if sy-subrc = 0.
    loop at it_vbap into wa_vbap.
      read table it_vbak into wa_vbak with key vbeln = wa_vbap-vbeln binary search.
      if sy-subrc = 0.
*MOVE DATA INTO IT_FINAL.
        move: wa_vbak-vbeln to wa_final-vbeln,
              wa_vbak-augru to wa_final-augru,
              wa_vbap-posnr to wa_final-posnr,
              wa_vbap-matnr to wa_final-matnr,
              wa_vbap-zmeng to wa_final-zmeng.
      endif.
      read table it_lips into wa_lips with key posnr = wa_final-posnr binary search.
      if sy-subrc = 0.
        move: wa_lips-lfimg to wa_final-lfimg.
      endif.
      read table it_reason into wa_reason with key augru = wa_final-augru binary search.
      if sy-subrc = 0.
        move: wa_reason-spras to wa_final-spras,
              wa_reason-bezei to wa_final-bezei.
      endif.
      read table it_makt into wa_makt with key matnr = wa_final-matnr binary search.
      if sy-subrc = 0.
        move: wa_makt-maktx to wa_final-maktx.
      endif.
     read table it_vbpa into wa_vbpa with key vbeln = wa_final-vbeln binary search.
      if sy-subrc = 0.
        move: wa_vbpa-parvw to wa_final-parvw,
              wa_vbpa-kunnr to wa_final-kunnr.
      endif.
       read table it_kna1 into wa_kna1 with key kunnr = wa_final-kunnr binary search.
      if sy-subrc = 0.
        move: wa_kna1-name1 to wa_final-name1.
      endif.
      append wa_final to it_final.
      clear wa_final.
    endloop.
endif.
endform.                    " Z_SELECT
*&      Form Z_LAYOUT
      text
--> p1        text
<-- p2        text
form z_layout .
i_layout-zebra = 'X'.
i_layout-totals_text = 'Total'(a00).
i_layout-subtotals_text = 'SubTotal'(a01).
i_layout-box_tabname = 'IT_FINAL'.
endform.                    " Z_LAYOUT
*&      Form Z_SORTINFO
      text
     -->P_I_SORTINFO text
form z_sortinfo using    p_i_sortinfo type slis_t_sortinfo_alv.
data: i_sortinfo type slis_sortinfo_alv.
clear i_sortinfo.
i_sortinfo-spos = '1'.
i_sortinfo-fieldname = 'VBELN'.
i_sortinfo-tabname = 'IT_FINAL'.
i_sortinfo-up = 'X'.
i_sortinfo-group = 'UL'.                     " I.E UNDERLINE AFTER EVERY GROUP
i_sortinfo-subtot = 'X'.
append i_sortinfo to p_i_sortinfo.
endform.                    " Z_SORTINFO
*&      Form Z_EVENTCAT
      text
     -->P_I_EVENTCAT text
form z_eventcat using    p_i_eventcat type slis_t_event.
data: i_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
    exporting
      i_list_type     = 0
    importing
      et_events       = p_i_eventcat
    exceptions
      list_type_wrong = 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.
clear i_event.
read table p_i_eventcat with key name = slis_ev_top_of_page into
i_event.
if sy-subrc = 0.
    move 'TOP_OF_PAGE' to i_event-form.
    append i_event to p_i_eventcat.
endif.
read table p_i_eventcat with key name = slis_ev_pf_status_set into i_event.
if sy-subrc = 0.
    move 'SET_PF_STATUS' to i_event-form.
    append i_event to p_i_eventcat.
endif.
clear i_event.
read table p_i_eventcat into i_event with key name = slis_ev_user_command .
if sy-subrc = 0.
    move 'USER_COMMAND' to i_event-form.
    append i_event to p_i_eventcat.
endif.
endform.                    " Z_EVENTCAT
*&      Form Z_DISPLAY
      text
--> p1        text
<-- p2        text
form z_display .
call function 'REUSE_ALV_GRID_DISPLAY'
   exporting
     i_callback_program                = v_progname
     i_callback_pf_status_set          = 'SET_PF_STATUS'
     i_callback_user_command           = 'USER_COMMAND'
     i_callback_top_of_page            = 'TOP_OF_PAGE'
     i_grid_title                      = v_gridtitle
     i_save                            = 'A'
     is_layout                         = i_layout
     it_fieldcat                       = i_fieldcat[]
     it_sort                           = i_sortinfo
     it_events                         = i_eventcat
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    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.
endform.                    " Z_DISPLAY
*&      Form Z_GRIDTITLE
      text
--> p1        text
<-- p2        text
form z_gridtitle .
v_gridtitle = 'ALV FOR SALES ORDER DISPLAY'.
endform.                    " Z_GRIDTITLE
*TOP OF PAGE.
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
    exporting
      it_list_commentary = i_listheader.
endform.                    "TOP_OF_PAGE
*MENU SETTINGS.
form set_pf_status using rt_extab type slis_t_extab.
set pf-status 'ALV_MENU'.
endform.                    "SET_PF_STATUS
*USER-COMMAND
form user_command using p_ucomm type sy-ucomm
                        rs_selfield type slis_selfield.
data : vbeln type vbeln_va.
case p_ucomm.
    when 'BACK'.
      leave program.
    when '&IC1'.
      clear : vbeln.
      vbeln = rs_selfield-value.
      set parameter id: 'AUN' field vbeln.
      call transaction 'VA03' and skip first screen.
endcase.
endform.                    " USER_COMMAND
*&      Form Z_LISTHEADER
      text
     -->P_I_LISTHEADER text
form z_listheader using p_i_listheader type slis_t_listheader.
data: l_listheader type slis_listheader.
refresh p_i_listheader.
clear l_listheader.
l_listheader-typ = 'H'.
l_listheader-info = text-001.
append l_listheader to p_i_listheader.
clear l_listheader.
l_listheader-typ = 'H'.
l_listheader-info = text-002.
append l_listheader to p_i_listheader.
endform.                    " Z_LISTHEADER
*&      Form check_validation_flag
      text
--> p1        text
<-- p2        text
form check_validation_flag .
if not v_flag is initial.
    leave list-processing.
endif.
endform.                    " check_validation_flag
*&      Form Z_DEFAULT_VARIANT
      text
--> p1        text
<-- p2        text
form z_default_variant .
i_variant-report = v_progname.
call function 'REUSE_ALV_VARIANT_DEFAULT_GET'
    exporting
      i_save        = 'A'
    changing
      cs_variant    = i_variant
    exceptions
      wrong_input   = 1
      not_found     = 2
      program_error = 3
      others        = 4.
if sy-subrc = 0.
    p_vari = i_variant-variant.
   D_VARI = P_VARI.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform.                    " Z_DEFAULT_VARIANT
*&      Form ZF_CHECK_VAR_EXIST
      text
--> p1        text
<-- p2        text
form zf_check_var_exist .
data: l_variant like disvariant.
if not p_vari is initial.
    clear l_variant.
    l_variant-report = v_progname.
    l_variant-variant = p_vari.
    call function 'REUSE_ALV_VARIANT_EXISTENCE'
      exporting
        i_save        = 'U'
      changing
        cs_variant    = l_variant
      exceptions
        wrong_input   = 1
        not_found     = 2
        program_error = 3
        others        = 4.
    if sy-subrc = 0.
      clear i_variant.
      move: l_variant-variant to i_variant-variant,
            l_variant-report to i_variant-report.
    else.
      message id sy-msgid type sy-msgty number sy-msgno
         with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    endif.
endif.
endform.                    " ZF_CHECK_VAR_EXIST
*&      Form ZF_VARIANT_F4
      text
--> p1        text
<-- p2        text
form zf_variant_f4 .
data: x_variant like disvariant.
call function 'REUSE_ALV_VARIANT_F4'
    exporting
      is_variant                = i_variant
I_TABNAME_HEADER          =
I_TABNAME_ITEM            =
IT_DEFAULT_FIELDCAT       =
     i_save                    = 'U'
     i_display_via_grid        = 'X'
   importing
E_EXIT                    =
     es_variant                = x_variant
   exceptions
     not_found                 = 1
     program_error             = 2
     others                    = 3
if sy-subrc = 0.
    p_vari = x_variant-variant.
    d_vari = p_vari.
    clear i_variant.
    move: x_variant-variant to i_variant-variant,
          x_variant-report to i_variant-report.
else.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform.                    " ZF_VARIANT_F4
Regards,
Pritha.

Compare editable alv output with database fields

I generated 1 editable alv report with attaching flat file data,
but i want to change the wrong fields in alv output and compare with database filds for validation.
but when i do this . it takes previous entries of flat file.
how can i solve it?

Your title is much better than in the first post, however your problem description hasn't changed.
Let me guess, you are importing a flat file, present the contents in an editable ALV grid, some values are being changed, and now the changed values do not reflect in the internal table, instead you are seeing the values as imported from the file?
If yes -> FAQ, please search for the many previous discussions of this topic.
Thomas

Is it possible to create the ALV output with dropdown list for the columns

Hi forum experts,
Could the ALV output contain the dropdown list for the column names? if yes, then how we can acheive this to happen.
Thanks in advance,
Regards,
Samad.
Edited by: Samad arif on Aug 21, 2009 4:40 PM

Hi Arif,
Yes we can .FOr the codding check the article,
[dropdowns in ALV|https://wiki.sdn.sap.com/wiki/display/Snippets/DropdownsinALV]
regards,
Archana
Edited by: Archana Kumari on Aug 21, 2009 1:22 PM

Eidting alv output with fieldcatlog

hi abap guru's .
i have a requirement that , i want only one editable field , i am using fieldcatlog-edit = 'x'.
and not layout-edit b'coz i want only one editable field if i use layout-edit then all fieds are editable.
by using fieldcatlog-edit = 'x' it is allowing me to edit but internal table is not updated like that in
layout-edit and i want to updated internal table first & then database table.
thanks in advance.

My report is as follows ,
suppose i want to edit the field netpr
*& Report ZTESTFUNCTION
REPORT ZTESTFUNCTION.
tables:     ekko, ekpo.
type-pools: slis.                                 "ALV Declarations
*Data Declaration
types: begin of t_ekko,
sel,
CHECK TYPE SYMBOL,                         "stores which row user has selected
ebeln type ekpo-ebeln,
ebelp type ekpo-ebelp,
matnr type ekpo-matnr,
menge type ekpo-menge,
netpr type ekpo-netpr,
NETWR TYPE EKPO-NETWR,
end of t_ekko.
data: it_ekko type standard table of t_ekko initial size 0,
      wa_ekko type t_ekko.
DATA : IT_EKKO1 TYPE STANDARD TABLE OF T_EKKO WITH HEADER LINE .
DATA : IT_EKKO2 TYPE STANDARD TABLE OF T_EKKO WITH HEADER LINE .
*ALV data declarations
data:
      fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid.
     it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fieldcat LIKE LINE OF it_fieldcat.
DATA: ref_grid TYPE REF TO cl_gui_alv_grid,
      IT_EKKO3 TYPE T_EKKO .
select-options: so_EBELN FOR ekpo-EBELN.
*Start-of-selection.
start-of-selection.
*SET LOCALE LANGUAGE 'EN'
         country 'C'
          modifier 'M'.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform display_alv_report.
form build_fieldcatalog.
fieldcatalog-fieldname   = 'EBELN'.
fieldcatalog-TABNAME    = 'IT_EKKO'.
fieldcatalog-seltext_m   = 'Purchase Order'.
fieldcatalog-col_pos     = 1.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'EBELP'.
   fieldcatalog-TABNAME    = 'IT_EKKO'.
fieldcatalog-seltext_m   = 'PO Item'.
fieldcatalog-col_pos     = 2.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'MATNR'.
   fieldcatalog-TABNAME    = 'IT_EKKO'.
fieldcatalog-seltext_m   = 'MATERIAL NO'.
fieldcatalog-col_pos     = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'TXZ01'.
fieldcatalog-TABNAME    = 'IT_EKKO'.
fieldcatalog-seltext_m   = 'MATERIAL DESC'.
fieldcatalog-col_pos     = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
   fieldcatalog-fieldname   = 'MENGE'.
    fieldcatalog-TABNAME    = 'IT_EKKO'.
fieldcatalog-seltext_m   = 'PO quantity'.
fieldcatalog-col_pos     = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'NETPR'.
   fieldcatalog-TABNAME    = 'IT_EKKO'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 6.
fieldcatalog-outputlen   = 15.
fieldcatalog-edit     = 'X'.
fieldcatalog-input    = 'X'.
        "Display column total
fieldcatalog-datatype     = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname   = 'NETWRR'.
   fieldcatalog-TABNAME    = 'IT_EKKO'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 7.
fieldcatalog-outputlen   = 15.
fieldcatalog-do_sum      = 'X'. "Display column total
fieldcatalog-datatype     = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
endform.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
form build_layout.
gd_layout-box_fieldname     = 'SEL'.
                                 "set field name to store row selection
gd_layout-edit             = 'X'.
gd_layout-zebra             = 'X'.
endform.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
           i_callback_top_of_page   = 'TOP-OF-PAGE' "see FORM
            i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_fieldcat             = it_fieldcat
           it_special_groups       = gd_tabgroup
           IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
           is_variant              = z_template
       tables
            t_outtab                = it_ekko
       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.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
SELECT * FROM EKPO INTO
         CORRESPONDING FIELDS OF TABLE IT_EKKO
         WHERE EBELN IN SO_EBELN.
SORT IT_ekko DESCENDING BY MATNR .
endform.                    " DATA_RETRIEVAL

Unable to download data in ALV output with local file option

Hi,
I am displaying ouput in ALV grid display.Its showing output fine.When i am trying to down load the data into Excel file from ALV ouput .when i am downloaded the data by using Local file option,its down loading the data but its not downloading all the fields.
Could you plz provide me solution.Thanks!

Just Check that one of your parameters is defined in lower case letters.
Earlier it used to give dump on execution but now if you download then it will give ABAP dump.
I have seen this problem many times.
Regards,
Gaurav Sood

How to download the ALV output with colors into the excel sheet

Hi,
I'm having an ALV Grid report output where each and every row has some colors in it. When i download it to an excel sheet whatever the colors that comes on the output of the report the same should come in the excel sheet. When i download the output to an excel sheet using List --> Export -->Local file . If i open the excel files no colors are coming in the excel sheet.
can anyone tell how to get the colors in the excel sheet also. thanks...
Regards,
Rose.

Hi Camila,
Use the OLE concept.
Check the below threads:
Colors in Excel Sheet
colors in alv
Regards,
Soumya.

Output with line breaks seemingly randomly placed

Hola -
I've adapted Tyler Muth's RSS feed article (http://tylermuth.wordpress.com/2008/01/22/producing-rss-from-plsql/) for the most part successfully; however, my output has breaks in the lines at inappropriate places, often in the mddle of an XML element tag for example. The placement of the breaks varies if I change the values of l_idx, l_len, l_defrows, l_maxrows, and l_desclen, but the breaks persist. They're not reflected in the code below but I've added the utl_file.fflush to no good effect.
Examples of broken output:
<pre>
<title>Three
prehistoric inventions that shaped us /</title>
<guid
isPermaLink="false">226402455778123622</guid>
<pubDate>Thu, 04 Aug 2011 12:36:22
EST</pubDate>
<guid isPermaLink="fal
se">220922455778123622</guid>
<item
>
</pre>
It's a lot of data so I won't post it here, but here's the code & the table; any ideas as to where to start investigating will be greatly appreciated.
Code:
create or replace
PROCEDURE "RSSLOOP3" ( fund_in IN VARCHAR2, fund_in2 IN VARCHAR2 := 'XXX')
is
-- customizable parameters
l_title varchar2(255) := ' New Titles Since ' || to_char(sysdate - 90, 'MM/DD/YYYY');
l_link varchar2(255) := 'replace this' || fund_in || '.rss';
l_description varchar2(255) := 'This is a feed of changes to items ' || fund_in;
l_language varchar2(255) := 'en-us';
-- end customizable parameters
l_version varchar2(10) := '2.0';
l_clob clob;
l_idx pls_integer := 1;
l_len pls_integer := 255;
l_defrows pls_integer := 100;
l_maxrows pls_integer := 100;
l_desclen pls_integer := 250;
-- for output to file
fh UTL_FILE.FILE_TYPE;
path VARCHAR2(30);
filename VARCHAR2(30);
begin
path := '/http/live/screens/rss/';
filename := fund_in || '.rss';
fh := UTL_FILE.FOPEN(path, filename, 'w');
for i in (
select xmlelement( "rss",
-- Begin XML Header Block
xmlattributes( l_version as "version"),
xmlelement( "channel",
xmlforest( l_title as "title",
l_link as "link",
l_description as "description",
l_language as "language"),
-- End XML Header Block
-- Begin List of Individual Articles or Items
xmlagg(
xmlelement( "item",
xmlelement("title", x.title),
xmlelement("link", x.link),
xmlelement("description", convert(x.description, 'UTF8', 'AL32UTF8')),
xmlelement("callnum", x.callnum),
xmlelement("pubDate", to_char(x.updated_on,'Dy, DD Mon RRRR hh24:mi:ss')),
xmlelement("guid", XMLATTRIBUTES('false' as "isPermaLink"),x.id||to_char(x.updated_on,'JHH24MISS'))
-- End List of Individual Articles or Items
) as result
from ( -- Actual Database Query that populates the list of Items
select id,title,link,description,updated_on, callnum
from drx_rss_feeds
where (fund like fund_in||'%')
and rownum < (l_maxrows+1)) x)
loop
l_clob := xmltype.extract(i.result,'/').getclobval;
exit;
end loop; --i
--- OUTPUT RESULTS
for i in 1..ceil(dbms_lob.getlength(l_clob)/l_len) loop
UTL_FILE.PUT_LINE(fh,(substr(l_clob,l_idx,l_len)));
l_idx := l_idx + l_len;
end loop; --i
UTL_FILE.FCLOSE(fh);
end rssloop3;
Table:
CREATE TABLE "DRX_RSS_FEEDS"
"ID" VARCHAR2(32 BYTE),
"TITLE" VARCHAR2(255 BYTE),
"DESCRIPTION" VARCHAR2(4000 BYTE),
"LINK" VARCHAR2(1000 BYTE),
"AUTHOR" VARCHAR2(255 BYTE),
"UPDATED_ON" DATE,
"CALLNUM" VARCHAR2(255 BYTE),
"FUND" VARCHAR2(10 BYTE)
)

Or have a look at the Oracle Documentation, for instance at the parameters for utl_file.fopen
max_linesize Maximum number of characters for each line, including the
newline character, for this file (minimum value 1, maximum
value 32767). If unspecified, Oracle supplies a default value of
1024.It wouldn't surprise me if your randomly placed line breaks are all 1023 characters a part.
Anton

Alv output with pushbuttons

Hi all ,
how can i get alv out put with two push buttons?

Hi,
You can add push buttons in the application toolbar..
Go to SE41...
Press copy status..(Ctrl + F6)
Frm
Program         SAPLKKBL
Status          STANDARD
to
Program         Y_TEST_PROGRAM "GIve your program.
Status            TEST2
Press Copy..
Then go to change mode..And give function codes in the application tool bar..
Then check this program of how to display the new status..Marked in bold..
TYPE-POOLS: slis.
DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
DATA: s_layout       TYPE slis_layout_alv.
DATA: BEGIN OF itab OCCURS 0,
      icon TYPE icon-id,
      vbeln TYPE vbeln,
      kunnr TYPE kunnr,
      erdat TYPE erdat,
      box TYPE c,
END OF itab.
DATA: v_repid        TYPE syrepid.
START-OF-SELECTION.
Get the data.
SELECT vbeln kunnr erdat UP TO 100 ROWS
         FROM vbak
         INTO CORRESPONDING FIELDS OF TABLE itab.
IF sy-subrc <> 0.
    MESSAGE s208(00) WITH 'No data found'.
    LEAVE LIST-PROCESSING.
ENDIF.
Modify the record with red light.
itab-icon = '@0A@'.
MODIFY itab TRANSPORTING icon WHERE NOT vbeln IS initial.
v_repid = sy-repid.
Get the field catalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'ICON'.
s_fieldcatalog-tabname   = 'ITAB'.
s_fieldcatalog-seltext_l = 'Status'.
s_fieldcatalog-icon      = 'X'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'VBELN'.
s_fieldcatalog-tabname   = 'ITAB'.
s_fieldcatalog-rollname = 'VBELN'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'KUNNR'.
s_fieldcatalog-tabname   = 'ITAB'.
s_fieldcatalog-rollname = 'KUNNR'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'ERDAT'.
s_fieldcatalog-tabname   = 'ITAB'.
s_fieldcatalog-rollname = 'ERDAT'.
APPEND s_fieldcatalog TO t_fieldcatalog.
Set the layout.
s_layout-box_fieldname = 'BOX'.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
       EXPORTING
            i_callback_program       = v_repid
            is_layout                = s_layout
<b>            i_callback_pf_status_set = 'SET_PF_STATUS'</b>
            i_callback_user_command = 'USER_COMMAND'
            it_fieldcat              = t_fieldcatalog[]
       TABLES
            t_outtab                 = itab.
      FORM SET_PF_STATUS                                            *
--> EXTAB                                                         *
FORM set_pf_status USING extab TYPE slis_t_extab.
<b> SET PF-STATUS 'TEST2'.</b>
ENDFORM.
      FORM user_command                                             *
--> UCOMM                                                         *
--> SELFIELD                                                      *
FORM user_command USING ucomm LIKE sy-ucomm
                        selfield TYPE slis_selfield.
Check the ucomm.
IF ucomm = 'DETAIL'.
    LOOP AT itab WHERE box = 'X'.
      itab-icon = '@08@'.
      MODIFY itab TRANSPORTING icon.
    ENDLOOP.
ENDIF.
selfield-refresh = 'X'.
ENDFORM.
Thanks,
Naren

Alv output with 2 tables..

Hi gurus,
my requirement is as follows:
I have two radio buttons , for two radiobuttons i have two different tables ( different fields in final table ) to display in alv
How can i do this..?
Like the way we do in report program for alv grid display..
Need this urgently..
best regards,
navin fernandes.

hi
1 bind both the view , to 2 different context attribute of type WDUI_VISIBILITY
2 initially set both the views under ur ViewContainer to invisible
// set the context attrribute to '01' to make it invisible
3 now bind the VISIBLE property of ur views to the context attribute
4 now make a action for ur radiobutton & in OnAction of tht , set the attribute to '02' to make either of ur view visible
5 other view wud remain invisible still
u can use code wizard set_attribute method , press control +f7 and set the attribute to '02'
DATA lo_nd_cn_node TYPE REF TO if_wd_context_node.
    DATA lo_el_cn_node TYPE REF TO if_wd_context_element.
    DATA ls_cn_node TYPE wd_this->element_cn_node .
    DATA lv_attr LIKE ls_city-ca_attr.
*   navigate from <CONTEXT> to <CN_VISIBLE> via lead selection
    lo_nd_node = wd_context->get_child_node( name = wd_this->wdctx_ca_attr).
*   get element via lead selection
    lo_el_cn_node = lo_nd_cn_node->get_element( ).
*   set single attribute
    lo_el_cn_node->set_attribute(
      EXPORTING
        name = `CA_ATTR`
       value = '02' ).
// attribute CA_ATTR under node CN_NODE set to '02' now
regards,
amit

ALV output with different Titles

Hi,
I have one requirement,that we have set of radibuttons in selection screen.
when we are selecting that radiobutton ALV out put will be displayed.
but user wants the description of the selected radio button in Menu Title Bar of AlV out put.
can any one help me to know ,what is approach to sort this...?
Thanks...

Hi Sekhar,
go through this thread.
Changing title bar of ALV list
also try this code patch.
start-of-selection.
SET PF-STATUS 'MAIN'.
SET TITLEBAR 'TEST'.
write 'hi'.
at user-command.
if sy-ucomm = 'TEST'.
MESSAGE 'HI' TYPE 'I'.
ENDIF.
Regards,
Vijay

How to create blank line in alv output

Hi all,
Iam getting alv output with currency values like below
text1    20.0 10.0 30.0
text2    25.0 11.0 30.0
text3    27.0 19.0 30.0
text1    24.0 18.0 30.0
text2    27.0 16.0 30.0
text3    29.0 15.0 30.0
text1    23.0 17.0 30.0
text2    22.0 13.0 30.0
text3    21.0 14.0 30.0
and so on...
My requirement is to create blank line after text3. Since its currency field even i claer work area iam able to get 0.0.
If i use no-zero in field catalog i will be able to get blank values for all 0.0, but thats not required.
Can u help me out how to crate blank line after one set of values(text1, text2, text3) in alv display
Thanks

Hi,
If i use no-zero, then all 0.0 will be replaced by blank, but that is not required.
I want only blank line to be displayed after set of line items.
Skip doesn't help in alv. Secondly if i append blank work area i will be getting 0.0 as it is a currency field.

Alv output problem

I have alv output with some values, now I need to put a push button on application tool bar if I change any values in the out put and then press that push button then the new values should be updated with out re execution of the alv program .   how to do it.

Hi Kiran,
<li> The below code is more than enough. It works for your requirement.
<li>Define events
DATA: it_events TYPE slis_t_event,
           wa_event like line of it_events.
<li>Fill events like below.
wa_events-name = 'PF_STATUS_SET'.
wa_events-form = 'PF_STATUS_SET'.
append wa_events to it_events.
clear   wa_events.
wa_events-name = 'USER_COMMAND'.
wa_events-form = 'USER_COMMAND'.
append wa_events to it_events.
clear   wa_events.
<li>Set pf status like below.
FORM PF_STATUS_SET USING RT_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STATUS' EXCLUDING rt_extab.
"When you set pf-status using above statement, you dont see ALV toolbar. To get back all the tools copy status of the any "program status which is using ALV in SE41 transaction code to your program with status you mentioned here.
"Program :SAPLKKBL
"status    :STANDARD_FULLSCREEN
ENDFORM.
<li>Use USER_COMMAND event like below
*&      Form USER_COMMAND
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM RS_SELFIELD TYPE SLIS_SELFIELD.
IF R_UCOMM = 'REFRESH'."Create one button on ALV toolbar with function code REFRESH
    RS_SELFIELD-REFRESH = 'X'. "Set this one. It refreshes internal table data with new values
ENDIF.
ENDFORM.                    "USER_COMMAND
<li>Call function module like below
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
         EXPORTING
              i_callback_program = program
              it_fieldcat        = it_fieldcat
              it_events          = it_events
         TABLES
              t_outtab           = i_mard.
Let me know if you have any problem.
Thanks
Venkat.O

Printing ALV output

Hi All,
Thanks in advance.
I have requirement to have a checkbox on the selection screen to print.
If the check box is checked the report has to print the ALV output with page number
on the printer given on the selection screen .
Can anyone please suggest me how this can be done.
Thnanks,
Gayatri Hemnur
Moderator message: please research yourself first, look for available information and solutions.
Edited by: Thomas Zloch on Dec 15, 2010 3:29 PM

Hi,
I think you are talking about line-size.
... LINE-SIZE col
Effect
Creates a report with col columns per line.
If the LINE-SIZE specification is missing, the line length corresponds to the current screen width. The system field SY-LINSZ contains the current line size for generating lists. The maximum width of a list is 1023 characters. You should keep lists to the minimum possible size to improve useability and performance (recommendation: LINE-SIZE < 132). For very wide lists (LINE-SIZE > 255), you should consult the notes for using LINE-SIZE
greater than 255.
Notes
The specified LINE-SIZE must not appear in quotation marks.
If the you want the report list (i.e. the output) to be printable, do not define a LINE-SIZE with a value greater than 132 because most printers cannot handle wider lists. You cannot print lists wider than 255 characters at all using the standard print functions. To print the contents of the lists, you need to write a special print routine that arranges the data in shorter lines (for example, using the PRINT ON addition in the NEW-PAGE statement.
At the beginning of a new list level, you can set a fixed line width for the level using the ... LINE SIZE addition to the NEW-PAGE statement.
Example
REPORT ZREPNAME LINE-SIZE 132.
Kindly reward points by clicking the star on the left of reply,if it is useful.

Alv output with lines

Similar Messages

Maybe you are looking for