How to disable 'set filter' in alv list display

Hi Friends,
I am working on alv report and I came across a requirement that I need to disable the 'set filter' to restrict the user from filtering records in output.
please help on this.
thanks in advance.

HI
check these sample codes
Here are some code snippets:
FORM output_report.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = 'ZRRRMPROJSTAT'
is_layout = gs_layout
it_fieldcat = gt_fieldcat
it_sort = gt_sort
i_save = 'A'
it_events = gt_events
TABLES
t_outtab = i_project
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. " output_report
FORM build_fieldcat.
DATA: s_fieldcat TYPE slis_fieldcat_alv.
DATA: l_col_count like s_fieldcat-col_pos.
l_col_count = 1.
CLEAR s_fieldcat.
s_fieldcat-col_pos = l_col_count.
l_col_count = l_col_count + 1.
s_fieldcat-tabname = i_project.
s_fieldcat-fieldname = 'PSPID'.
s_fieldcat-datatype = 'CHAR'.
s_fieldcat-outputlen = '10'.
s_fieldcat-seltext_l = 'Project Number'.
s_fieldcat-seltext_m = 'Project Number'.
s_fieldcat-seltext_s = 'Project Number'.
s_fieldcat-key = 'X'.
s_fieldcat-fix_column = 'X'.
s_fieldcat-just = 'C'.
s_fieldcat-no_zero = 'X'.
APPEND s_fieldcat TO gt_fieldcat.
* and so on....
ENDFORM
FORM sort_layout.
DATA: ls_sort TYPE slis_sortinfo_alv.
REFRESH gt_sort.
CLEAR ls_sort.
ls_sort-spos = '1'.
ls_sort-tabname = 'i_project'.
ls_sort-fieldname = 'PSPID'.
APPEND ls_sort TO gt_sort.
CLEAR ls_sort.
ls_sort-spos = '2'.
ls_sort-tabname = 'i_project'.
ls_sort-fieldname = 'POSID'.
APPEND ls_sort TO gt_sort.
ENDFORM. " sort_layout
FORM build_layout.
CLEAR gs_layout.
* gs_layout-totals_before_items = 'X'.
gs_layout-zebra = 'X'.
gs_layout-numc_sum = 'X'.
gs_layout-get_selinfos = 'X'.
gs_layout-box_tabname = 'X'.
gs_layout-info_fieldname = 'COLOR'.
ENDFORM. "
Reward alll helpfull answers
Regards
Pavan

Similar Messages

How to get subtotal value in ALV list display

Hi all,
How to give condition on the value of subtotal line in ALV list display,
i.e.if value of subtotal of plan quantity = actual quantity (in red oval) it should show the message
'ON TIME DELIVERY' else it should not show messagee.In my case(shown in red oval) its
showing for each subtotal value. I know how to change the subtotal text but i want to change
with respect to value of the subtotal.(plz refer attachment)
Any input regard to this will be achieved great.
Many thanks in advance.
samadhan shinde.

Hi Samadhan,
I am awaiting for solution for this problem.....but as i think dynamically displaying sub total based on
matching actual quantity and planned quantity is bit complicated.
My idea is to display matched quantities in one block and unmatched quantities in another. I mean using blocked list.
awaiting suggestions.
regards,

How to read green light from ALV list display during BDC

Hi,
I am currently writing a BDC on CK11 transaction, after the user enters all the data he has to check log for any errors. The log is shown using ALV LIST DISPLAY and the errors are identified by RED lights on ALV LIST DISPLAY. At this point in BDC i have to either save or exit depending the status lights shown on the screen.
Does anybody has any idea on how to read these lights from the screen ?
thanks
Udai

Hi,
I agree with Rich here. Never seen this done before (and I'm pretty sure you can't do it), but if someone has a funky way of doing it please share!
Cheers,
Pat.

How to edit particular field in alv list display-urgent

HI ALL,
my requirement is i am displaying output using alv list display. now my rewuirement :
i am displaying out in edit mode only. when user clicks one particular field
for example record is like
runrate a01 maheed -> if user clicks on a01 this field should be editable. i have a following code
w_field-edit = w_edit.
w_field-input = 'X'.    -> using this code i can able to display entire colomn in edit mode. this not suits my requirement.anybody can send me the sample code please.
thanks,
maheedhar.t

Can you please send me the sample code plz.
i am sending my code below.
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
        include structure t_header1.
data :   checkbox type c value 'X',
        action type c,
      end of it_secobjects.
data : begin of it_secobjects1 occurs 0.
        include structure ZUSER_SECOBJECTS.
data :   checkbox type c VALUE 'X',
      end of it_secobjects1.
data : wa_ita like line of it_secobjects.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data :   it_filt type slis_t_filter_alv   with header line,
         it_evts type slis_t_event        with header line.
DATA : is_vari type disvariant.
constants :   c_default_vari value 'X',
              c_save_vari    value 'U',
               c_checkfield type slis_fieldname     value 'ACTION',
               c_f2code     type sy-ucomm           value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
case p_ucomm.
    when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
      loop at it_secobjects into wa_ita.
        wa_ita-checkbox = 'X'.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
when 'DESLCT_ALL'.
    loop at it_secobjects into wa_ita.
        wa_ita-checkbox = ' '.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
   is_lout-f2code               = c_f2code.
   is_lout-box_fieldname        = c_checkfield.
   is_lout-get_selinfos         = 'X'.
   is_lout-detail_popup         = 'X'.
   is_lout-detail_initial_lines = 'X'.
maheed-start.
*when 'SAVE'.
*LOOP AT IT_SECOBJECTS WHERE CHECKBOX = 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
CLEAR IT_SECOBJECTS1.
DELETE IT_SECOBJECTS.
*ENDLOOP.
*DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
WHEN 'DELETE'.
    loop at it_SECOBJECTS where checkbox eq 'X'.
        delete it_SECOBJECTS.
    endloop.
*RS_SELFIELD-REFRESH = 'X'.
maheed-end.
maheed-start. apr 13
WHEN 'DELETE'.
loop at it_SECOBJECTS where checkbox eq 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
delete it_SECOBJECTS.
endloop.
RS_SELFIELD-REFRESH = 'X'.
when 'SAVE'.
DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
commit work.
refresh :IT_SECOBJECTS1.
maheed-end.    apr 13
*when 'SAVE'.
*LOOP AT IT_SECOBJECTS WHERE CHECKBOX = 'X'.
MOVE-CORRESPONDING IT_SECOBJECTS TO IT_SECOBJECTS1.
APPEND IT_SECOBJECTS1.
CLEAR IT_SECOBJECTS1.
DELETE IT_SECOBJECTS.
*ENDLOOP.
*DELETE ZUSER_SECOBJECTS FROM TABLE IT_SECOBJECTS1.
ENDCASE.
endform.
*&      Form delete
form delete.
data : begin of is_secobjects occurs 0.
          include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
    from it_secobjects
    transporting checkbox
where checkbox = 'X'.
endform.
*&      Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform.                    " get_data
*&      Form prepare_fieldcatalog
      text
--> p1        text
<-- p2        text
form prepare_fieldcatalog." USING w_edit TYPE any.
data : w_edit type c.
clear w_edit.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-EDIT = 'X'.      "maheed
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_PARTNER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m03.
w_field-edit = w_edit.
w_field-input = 'X'.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'INACTIVE'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 3.
append w_field to i_field.
clear w_field.
endform.                    " prepare_fieldcatalog
*&      Form ALV_LIST_DISPLAY
      text
--> p1        text
<-- p2        text
form alv_list_display.
DATA : LC_GLAY TYPE LVC_S_GLAY.
LC_GLAY-EDT_CLL_CB = 'X'.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'ACTION'.
call function 'REUSE_ALV_LIST_DISPLAY'
       exporting
            i_callback_program       = i_repid
            i_callback_pf_status_set = 'PF_STATUS_SET'
            i_callback_user_command = 'USER_COMMAND'
            is_layout                = is_lout
            it_fieldcat              = i_field[]
            it_filter                = it_filt[]
             it_events                = it_evts[]
            i_default                = c_default_vari
            i_save                   = c_save_vari
            is_variant               = is_vari
       tables
            t_outtab                 = it_secobjects.
endform.                    " ALV_LIST_DISPLAY
*&      Form display
      text
     -->P_I_OBJECT text
form display using    object.
case object.
ENDCASE.
endform.                    " display
thanks,
maheedhar.t

How to edit particular field in alv list display

hi,
i am displaying output using alv list display. my as follows.
runrate maheed a01.
here if i click a01 it has to show iin edit mode earlier it has to show display mode only. when i select by that time it has to show edit mode there i will change into a02 and i will click save button this is my requirement.
anybody can send me the sample code please.
thanks,
maheedhar.t

following is my field cata log
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
now i am writng like this
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-EDIT = 'X'. "maheed
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
eventhough it is not allowing me to edit the field when i click that field in the output.
thanks,
maheedhar.t

How to print check box in ALV list display and how to pick selected ones

Hi
i am displaying one ALV list dispaly. for that im adding one check box fields by filling the fieldcat as below:
wa_fldcat-checkbox = 'X'.
wa_fldcat-edit = 'X'.
but the check box is showing disable mode only. i want to display that check box and if i select that check box i want pick that records. for ALV grid i found one FM to pick records of selectedones as below.
DATA ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF ref_grid IS NOT INITIAL.
    CALL METHOD ref_grid->check_changed_data.
ENDIF.
but how can i do for list display to pick those selected one records.
Can any one sugget regarding this.
Thanks in advance.
Rahul.

Hi,
Thanks. now it's enabled. but how can we pick the records from that list whichever i selected through that check box.
i found this one for ALV grid:
DATA ref_grid TYPE REF TO cl_gui_alv_grid.
IF ref_grid IS INITIAL.
    CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
      IMPORTING
        e_grid = ref_grid.
ENDIF.
IF ref_grid IS NOT INITIAL.
    CALL METHOD ref_grid->check_changed_data.
ENDIF.
but how for ALV normal list display.
Thanks.
rahul

How to delete particular row in ALV list display

Hi All,
My requirement is :
I am displaying ouput using lav list dispplay befor the first colomn i am displaying check box. i defined my own pf status here . in pf status i have 3 buttons .
1 select all
2 deselect all
3 delete.
First two options are working fine when i click select all it is selecting all the rown in a program(selectiong all the check boxex) like working fine for deselecting all.
3 optioin Delete when i click delete option it has to delete partcular row in a list display and at the same time this entry should delete from the table. this is my requirement. for the third point(delete) option i dont have any logic. anybody can suggest me or send me the sameple code. i am sending my code below.if possible please modify the code and resend it to me.
type-pools : slis.
tables : zuser_secobjects.
data : t_header1 like zuser_secobjects.
data : begin of it_secobjects occurs 0.
        include structure t_header1.
*data : box,
       input(1) type c,
data :   checkbox type c,
        flag type c,
      end of it_secobjects.
data : wa_ita like line of it_secobjects.
*data : it_secobjects like zuser_secobjects occurs 0 with header line.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data :   it_filt type slis_t_filter_alv   with header line,
         it_evts type slis_t_event        with header line.
DATA : is_vari type disvariant.
constants :   c_default_vari value 'X',
              c_save_vari    value 'U',
               c_checkfield type slis_fieldname     value 'ACTION',
               c_f2code     type sy-ucomm           value '&ETA'.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
p_edate(10) default '12/31/9999',
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
form user_command using p_ucomm like sy-ucomm
rs_selfield type slis_selfield.
*DATA :   it_filt type slis_t_filter_alv   with header line.
case p_ucomm.
    when 'SELECT_ALL'. " SELALL is the FCODE of ur push button
      loop at it_secobjects into wa_ita.
        wa_ita-checkbox = 'X'.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
when 'DESLCT_ALL'.
    loop at it_secobjects into wa_ita.
        wa_ita-checkbox = ' '.
        modify it_secobjects from wa_ita.
      endloop.
rs_selfield-refresh = 'X'.   "<- ADD THIS
    is_lout-f2code               = c_f2code.
    is_lout-box_fieldname        = c_checkfield.
    is_lout-get_selinfos         = 'X'.
    is_lout-detail_popup         = 'X'.
    is_lout-detail_initial_lines = 'X'.
when 'HIDE_DEL'.
      rs_selfield-exit = 'X'.
      it_filt-fieldname = 'ACTION'.
      it_filt-tabname   = '1'.
      it_filt-valuf     = 'X'.
      it_filt-intlen    = '1'.
      it_filt-inttype   = 'C'.
      it_filt-datatype = 'CHAR'.
      it_filt-valuf_int = 'X'.
      it_filt-sign0     = 'E'.
      it_filt-optio     = 'EQ'.
      if it_filt[] is initial.
        append it_filt.
      else.
        modify it_filt index 1.
      endif.
     perform display using i_object.
PERForm ALV_LIST_DISPLAY.
WHEN 'SHOW_DEL'.
      rs_selfield-exit = 'X'.
      free it_filt.
PERForm ALV_LIST_DISPLAY.
when 'SAVE1'.
       select * from zuser_secobjects where
                    appln = zuser_secobjects-appln
              and   appln_partner = zuser_secobjects-appln_partner
              and   partner_type = zuser_secobjects-partner_type
              and   start_date = zuser_secobjects-start_date
              and   end_date = zuser_secobjects-end_date.
      endselect.
      if sy-subrc eq 0.
        message e000(ZV) with 'Duplicate Entry'.
      endif.
endcase.
endform.
*&      Form delete
form delete.
data : begin of is_secobjects occurs 0.
          include structure zuser_secobjects.
data : checkbox type c.
data : end of is_secobjects.
is_secobjects-checkbox = 'X'.
modify is_secobjects
    from it_secobjects
    transporting checkbox
where checkbox = 'X'.
endform.
*&      Form get_data
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform.                    " get_data
*&      Form prepare_fieldcatalog
      text
--> p1        text
<-- p2        text
form prepare_fieldcatalog.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
endform.                    " prepare_fieldcatalog
*&      Form ALV_LIST_DISPLAY
      text
--> p1        text
<-- p2        text
form alv_list_display.
i_repid = sy-repid.
is_lout-box_fieldname = 'CHECKBOX'.
it_filt-fieldname = 'ACTION'.
call function 'REUSE_ALV_LIST_DISPLAY'
       exporting
            i_callback_program       = i_repid
            i_callback_pf_status_set = 'PF_STATUS_SET'
            i_callback_user_command = 'USER_COMMAND'
            is_layout                = is_lout
            it_fieldcat              = i_field[]
            it_filter                = it_filt[]
             it_events                = it_evts[]
            i_default                = c_default_vari
            i_save                   = c_save_vari
            is_variant               = is_vari
       tables
            t_outtab                 = it_secobjects.
endform.                    " ALV_LIST_DISPLAY
*&      Form display
      text
     -->P_I_OBJECT text
form display using    object.
case object.
ENDCASE.
endform.                    " display
thanks,
maheedhar.t

HI
In my program checkbox(before the record is displayed)
I used following lines to display checkbox .
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'. <- Using this command i am getting checkbox
i_field-input = 'X'.
when i select this checkbox i press delete option then this entry will remove from internal table and refresh the screen and at the same time i will click on save button this ztable has to update according to that action.
this is my requirement.
thanks,
maheedhar.

Disabling sort button on the alv list display

Hi,
how to disable sort button on alv list display
thanks

Fill an itab
1- Create an itab type SLIS_T_EXTAB.
2- Populate it with the Function codes you want to exclude ('&OUP', '&ODN').
3- Pass it as parameter to IT_EXCLUDING
Regards
Edited by: Jordi Escoda Ruiz on Apr 24, 2008 10:39 AM

How to send the alv list display to spool

Hi all,
I am executing a program in foreground. My requirement is sending alv list output to spool. When i execute the smae program in background mode the SAP is handling the spool output in hierarchial list display. How to get the same output in foreground also.
Thanks and Regards,
Vijay.

Hi max,
I think my question is not clear.
when I execute my report in background mode, I can able to see the output in the spool.
But when I execute the same report in foreground no spool output is getting generated.
To handle this I am calling some function modules like RSPO_OPEN_SPOOLREQUEST , RSPO_WRITE_SPOOLREQUEST, RSPO_WRITE_SPOOLREQUEST. But by using this i cannot able to get the desired output in alv list display format. what to do to get my desired output.
Thanks and Regards,
Vijay.

HOW TO DISPLAY MY OWN PF STATUS IN ALV LIST DISPLAY

Hi All,
i am developing one program in this program i am displaying output by using alv list display. after displaying the out SAP predefined pf status is coming. here i need my own pf status. any body can send me the sample code ir modify my code if possible.
i am sending my code below.
report zmahi6.
type-pools : slis.
tables : zuser_secobjects.
data : it_secobjects like zuser_secobjects occurs 0 with header line.
data : i_field type slis_t_fieldcat_alv with header line.
data : w_field like line of i_field.
data : i_sort type slis_t_sortinfo_alv.
data : w_sort like line of i_sort.
data : it_filt1 type slis_t_filter_alv with header line.
data:
i_tabname type tabname,
i_repid like sy-repid,
is_lout type slis_layout_alv.
data : chk_box type slis_fieldname.
selection-screen: begin of block b1 with frame title text-t01.
parameters : p_appln type zuser_secobjects-appln.
parameters : p_user type usr02-bname, "zuser_secobjects-appln_user,
p_partnr type zuser_secobjects-appln_partner,
p_ptype type zuser_secobjects-partner_type default '02',
p_upostn type zuser_secobjects-user_position,
p_sdate like likp-erdat default sy-datum,
"type zuser_secobjects-start_date
p_edate(10) default '12/31/9999',
type zuser_secobjects-end_date,
p_revnum type zuser_secobjects-revnum,
p_cted type zuser_secobjects-created_by,
p_cdate type zuser_secobjects-creation_date,
p_ctime type zuser_secobjects-creation_time,
p_chnby type zuser_secobjects-changed_by,
p_cdate1 type zuser_secobjects-changed_date,
p_ctime1 type zuser_secobjects-changed_time.
selection-screen: end of block b1.
start-of-selection.
perform get_data.
check sy-subrc eq 0.
set pf-status 'ZMAHEE'.
perform prepare_fieldcatalog.
perform alv_list_display.
*& Form PREPARE_FIELDCATALOG
text
--> p1 text
<-- p2 text
form prepare_fieldcatalog.
clear: w_field,i_field.
refresh:i_field.
i_field-key = 'X'.
i_field-col_pos = 1.
i_field-ddictxt = 'S'.
i_field-seltext_s = '@11@'.
i_field-checkbox = 'X'.
i_field-input = 'X'.
i_field-fieldname = 'HEADER'.
i_field-outputlen = 0.
append i_field.
clear i_field.
w_field-fieldname = 'APPLN'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-seltext_l = text-m01.
w_field-outputlen = '10'.
w_field-col_pos = 1.
append w_field to i_field.
clear w_field.
w_field-fieldname = 'APPLN_USER'.
w_field-tabname = 'IT_SECOBJECTS'.
w_field-just = 'C'.
w_field-seltext_l = text-m02.
w_field-outputlen = '7'.
w_field-col_pos = 2.
append w_field to i_field.
clear w_field.
endform. " PREPARE_FIELDCATALOG
*form pf_status_set using rt_extab type slis_t_extab.
set pf-status '0001'.
*endform.
*& Form ALV_LIST_DISPLAY
text
--> p1 text
<-- p2 text
form alv_list_display.
call function 'REUSE_ALV_LIST_DISPLAY'
exporting
i_callback_program = i_repid
i_callback_pf_status_set = 'PF_STATUS_SET'
i_callback_user_comomand = 'USER_COMMAND'
is_layout = is_lout
it_fieldcat = i_field[]
it_sort = i_sort
it_events = it_evts[]
tables
t_outtab = it_secobjects.
endform. " ALV_LIST_DISPLAY
*& Form GET_DATA
text
--> p1 text
<-- p2 text
form get_data.
select * from zuser_secobjects
into table it_secobjects.
endform. " GET_DATA
thanks,
maheedhar.t

Follow this steps.
I ahve done it once and hope wuld work for you as well.
Go to SE80. Open a a standard ABAP program - SAPLKKBL. diasplay object.
This program has many standard GUI status. Copy the one which suits you the best. May be any one standars status. Right click it and copy to your custom report. Now open your Z-Program in SE80. You will see the GUI status and when you open it you see the name of the status that you have copied from.
Now you can go and do any modifications in the screen.
Remember you have to use the same status in the program as well.
Please check this piece of code.
call the ABAP list viewer                                            *
FORM list_display TABLES a_output.
pgm = disvariant-report = sy-repid.
disvariant-variant = variant.
call list viewer
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
    EXPORTING
      i_callback_program       = pgm
      i_callback_pf_status_set = 'SET_PF_STATUS'
      it_fieldcat              = fieldcat
      is_variant               = disvariant
      is_layout                = layout
      is_print                 = print
      i_save                   = 'A'
      it_events                = eventcat
      it_sort                  = sortcat
      i_callback_user_command = 'USER_COMMAND'
    TABLES
      t_outtab                 = a_output
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
ENDFORM.                    "LIST_DISPLAY
FORM SET_PF_STATUS *
FORM set_pf_status USING extab TYPE slis_t_extab.
SET PF-STATUS 'STATUS1'.
ENDFORM.                    "set_pf_status
FORM USER_COMMAND *
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
DATA t_difference TYPE i.
CASE ucomm.
    WHEN 'ENT1'.<----Function code
D0 your processing.
ENDCASE.
selfield-refresh = 'X'.
ENDFORM.                    "user_command
HOpe this helps.
Shreekant

How to give colors to the top-of-page in ALV List Display

how to give colors to the top-of-page in ALV List Display....

Check this blog.........
It provides your required output...........
/people/vijaybabu.dudla/blog/2006/07/21/topofpage-in-alv-using-clguialvgrid
See the point 7 for complete code...
Regards,
Pavan

How to disable Setting button in Tools - Options - Advanced - Network from windows registry?

Dear support,
Now, my office use Firefox as default browser to access WebServer. And there are some policy that users must use ProxyServer. I do not want user change proxy setting in Firefox. How to disable Setting button in Tools - Options - Advanced - Network from windows registry?
Thank you.
Treky

You can not use the Windows registry to disable items in Firefox. This link shows how to lock down Firefox proxy settings, change the values to suit your needs:
http://www.stbernard.com/ip5kb/iPrism/WhatsNew/50SupportFiles/SupportFiles/IP0460.htm
One minor variation, in step 4 instead of adding that line to all-js, you can create a file called ''local-settings.js'' containing the line shown and save the file in the same folder as all.js

How to disable Setting button in Tools - Options - Advanced - Network..i've read an article that solved this problem..but thats problem contains web adress that couldn't be opened..any other solution??? thanks before best regard

How to disable Setting button in Tools - Options - Advanced - Network..i've read an article that solved this problem..but thats problem contains web adress that couldn't be opened..any other solution???
thanks before
best regard
-ariansyah-

You can disable or remove that button, but that won't prevent users from making the changes on the about:config page directly.<br />
You can lock the related network.proxy prefs if you do not want users to change the connection settings.
See:
*http://kb.mozillazine.org/Locking_preferences
* http://kb.mozillazine.org/network.proxy.type
* http://kb.mozillazine.org/network.proxy.%28protocol%29
* http://kb.mozillazine.org/network.proxy.%28protocol%29_port

How To avoid column heading for only total line in ALV list Display

Hi,
How To avoid column heading for only total line in ALV list Display.

Hi,
to change colunm header field catlog is built
look at the example below
Changing column text headers
use this to change, hide, or alter the ALV columns
CLEAR: gt_fcat.
READ TABLE gt_fcat WITH KEY fieldname = 'TEXT1' " ***
*TEXT1 is your field name
   ASSIGNING <gtfcat>.
IF sy-subrc = 0.
   <gtfcat>-coltext   = 'Date Type'.
   <gtfcat>-no_out    = ' '.
   <gtfcat>-tooltip   = 'Date Type Text from IT0019'.
   <gtfcat>-seltext   = 'IT0019'.
keep seltext to '' if u want to hide
ENDIF.
regards
austin

How to hide ,unhide columns in ALV List

Hi all,
How to hide ,unhide columns in ALV List..
Plz guide me.
Thanks in advance..
Albert

Hi Joseph,
Check the following thread:
Hide Unhide columns of ALV grid Report.
Regards,
Archana

How to disable 'set filter' in alv list display

Similar Messages

Maybe you are looking for