Re: ALV report

Former Member — Thu, 17 Jan 2008 08:36:15 GMT

Hi,

check this link for example

http://abapprogramming.blogspot.com/search/label/ABAP%20ALV%20REPORTS%20%20SAMPLE%20CODES

Regards

Re: ALV report

former_member386202 — Thu, 17 Jan 2008 08:37:20 GMT

Hi,

In fieldcatalog there are one field named checkbox, just pass X to that field.

wa_fieldcat-checkbox = 'X'.

append wa_fieldcat to it_fieldcat.

Regards,

Prashant

Re: ALV report

Former Member — Thu, 17 Jan 2008 08:47:30 GMT

Hi,

Check the following code.

type-pools: slis.

types:

begin of ty_output,

chk type c,

number type i,

name(20) type c,

end of ty_output.

data: gt_output type standard table of ty_output,

gs_output type ty_output.

data: wa_layout type slis_layout_alv.

data: it_fieldcatalog type slis_t_fieldcat_alv,

wa_fieldcatalog type slis_fieldcat_alv.

*initialization.

data p_selfld type slis_selfield.

data ok_code type sy-ucomm.

controls: tc_display type tableview using screen '0100'.

selection-screen begin of block b2 with frame title text-b02.

parameters:

r_grid radiobutton group g1,

r_list radiobutton group g1 default 'X'.

selection-screen end of block b2.

start-of-selection.

perform get_data.

if r_grid is not initial.

perform alv_grid.

else.

perform alv_list.

endif.

&----

*& Form USER_COMMAND

&----

form user_command_grid using p_ucomm type sy-ucomm

p_selfld type slis_selfield.

data ref1 type ref to cl_gui_alv_grid.

call function 'GET_GLOBALS_FROM_SLVC_FULLSCR'

importing

e_grid = ref1.

call method ref1->check_changed_data.

case p_ucomm.

when 'HELLO'.

delete gt_output where chk = space.

call screen 100.

WHEN OTHERS.
WRITE: 'hi'.

endcase.

endform. "user_command

&----

*& Form USER_COMMAND

&----

form user_command_list using p_ucomm type sy-ucomm

p_selfld type slis_selfield.

case p_ucomm.

when 'HELLO'.

delete gt_output where chk = space.

call screen 100.

when 'BACK' or 'EXIT'.

leave to screen 0.

endcase.

endform. "user_command

&----

*& Form set_pf_status

&----

text

----

form pf_status using pa_extab type slis_t_extab.

p_selfld-refresh = 'X'.

set pf-status 'STATUS'.

p_selfld-refresh = 'X'.

endform. "SET_PF_STATUS

&----

*& Form alv_grid

&----

text

----

--> p1 text
<-- p2 text

----

form alv_grid .

perform grid_catlog.

call function 'REUSE_ALV_GRID_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

i_callback_pf_status_set = 'PF_STATUS'

i_callback_user_command = 'USER_COMMAND_GRID'

I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =

is_layout = wa_layout

it_fieldcat = it_fieldcatalog

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = gt_output

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. " alv_grid

&----

*& Form alv_list

&----

text

----

--> p1 text
<-- p2 text

----

form alv_list .

perform list_catlog.

call function 'REUSE_ALV_LIST_DISPLAY'

exporting

I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '

i_callback_program = sy-repid

i_callback_pf_status_set = 'PF_STATUS'

i_callback_user_command = 'USER_COMMAND_LIST'

I_STRUCTURE_NAME =

is_layout = wa_layout

it_fieldcat = it_fieldcatalog

IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =

tables

t_outtab = gt_output

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. " alv_list

&----

*& Module STATUS_0100 OUTPUT

&----

text

----

module status_0100 output.

set pf-status 'STATUS2'.

SET TITLEBAR 'xxx'.

endmodule. " STATUS_0100 OUTPUT

&----

*& Module USER_COMMAND_0100 INPUT

&----

text

----

module user_command_0100 input.

case ok_code.

when 'BACK' or 'EXIT'.

perform get_data.

leave to screen 0.

endcase.

endmodule. " USER_COMMAND_0100 INPUT

&----

*& Form get_data

&----

text

----

--> p1 text
<-- p2 text

----

form get_data .

clear gs_output.

refresh gt_output.

gs_output-number = 1000.

gs_output-name = 'TEST1'.