From ALV output list to selection screen

Hi,
I created one ALV report.
After executing the program, it displays an ALV list.
When I click on the back/exit/cancel buttons on the screen, it should take me to the selection screen.
But that is not happening. it is taking to one screen which shows the report heading. IF i click back/cancel/exit buttons in this screen, it is taking me to the selection screen.
I checked the program for any write statement, but therre are no write statements.
Even i tried to remove the end-of-selection event in the program. but not working.
Can any one help me on this how to overcome this issue.
Thank you.
Kumar

hi check this example...
REPORT zalv_sel_screen .TABLES: mara.DATA: BEGIN OF i_alv OCCURS 0,
      matnr TYPE mara-matnr,
      mtart TYPE mara-mtart,
      matkl TYPE mara-matkl,
      groes TYPE mara-groes,
      maktx TYPE makt-maktx,
      END OF i_alv.DATA: alv_container TYPE REF TO cl_gui_docking_container.
DATA: alv_grid       TYPE REF TO cl_gui_alv_grid.
DATA: layout    TYPE lvc_s_layo.
DATA: fieldcat TYPE lvc_t_fcat.PARAMETERS: p_check.INITIALIZATION. PERFORM get_data.AT SELECTION-SCREEN OUTPUT. DATA: variant TYPE disvariant.
DATA: repid TYPE sy-repid. repid = sy-repid. variant-report = sy-repid.
variant-username = sy-uname. layout-zebra = 'X'.
layout-edit_mode = 'X'. CHECK alv_container IS INITIAL. CREATE OBJECT alv_container
              EXPORTING repid     = repid
                        dynnr     = sy-dynnr
                        side      = alv_container->dock_at_left
                        extension = 1500. CREATE OBJECT alv_grid
         EXPORTING
               i_parent          = alv_container.* ALV Specific. Data selection.
Populate Field Catalog
PERFORM get_fieldcatalog. CALL METHOD alv_grid->set_table_for_first_display
    EXPORTING
      is_layout        = layout
      is_variant       = variant
      i_save           = 'U'
      i_structure_name = 'I_ALV'
    CHANGING
      it_outtab        = i_alv[]
      it_fieldcatalog = fieldcat[].
START-OF-SELECTION.
FORM GET_DATA
FORM get_data. SELECT * INTO CORRESPONDING FIELDS OF TABLE i_alv
        FROM mara
          INNER JOIN makt
            ON maramatnr = maktmatnr
                   UP TO 100 ROWS
               WHERE makt~spras = sy-langu. SORT i_alv ASCENDING BY matnr.ENDFORM.                    "get_data***************************************************************
     Form Get_Fieldcatalog - Set Up Columns/Headers
FORM get_fieldcatalog. DATA: ls_fcat TYPE lvc_s_fcat.
REFRESH: fieldcat. CLEAR: ls_fcat.
ls_fcat-reptext    = 'Material Number'.
ls_fcat-fieldname = 'MATNR'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '18'.
ls_fcat-fix_column = 'X'.
ls_fcat-key        = 'X'.
ls_fcat-col_pos    = '1'.
APPEND ls_fcat TO fieldcat. CLEAR: ls_fcat.
ls_fcat-reptext    = 'Material Type'.
ls_fcat-fieldname = 'MTART'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '10'.
ls_fcat-fix_column = 'X'.
ls_fcat-key        = 'X'.
ls_fcat-col_pos    = '2'.
APPEND ls_fcat TO fieldcat. CLEAR: ls_fcat.
ls_fcat-reptext    = 'Material Group'.
ls_fcat-fieldname = 'MATKL'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '12'.
ls_fcat-col_pos    = '3'.
APPEND ls_fcat TO fieldcat. CLEAR: ls_fcat.
ls_fcat-reptext    = 'Size'.
ls_fcat-fieldname = 'GROES'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '30'. ls_fcat-col_pos    = '4'.
APPEND ls_fcat TO fieldcat. CLEAR: ls_fcat.
ls_fcat-reptext    = 'Material Description'.
ls_fcat-fieldname = 'MAKTX'.
ls_fcat-ref_table = 'I_ALV'.
ls_fcat-outputlen = '40'. ls_fcat-col_pos    = '5'.
APPEND ls_fcat TO fieldcat.ENDFORM.                    "get_fieldcatalog
regards,
venkat

Similar Messages

Alv Output after dynamic selection screen

Hi Guys
I have coded a dynamic selection screen (shown below). I want to create an ALV report based on what the user enters in the selection screen. Is the right way of doing this to code an IF s_matnr is not initial statement then call all the subroutines for output of material data and then else call a second batch of subroutines for billing data. It seems a bit long winded to me but I haven't been able to find anything on google that clearly explains the approach.
REPORT ZTREVOR_DYNAMIC_ALV_MAKT_VBRP.
TABLES : makt,
marc,
t001w,
vbrk,
vbrp.
CONSTANTS : c_yes TYPE c VALUE '1',
c_no TYPE c VALUE '0'.
Selection-screen begin of block b1 with frame title text-sc1.
PARAMETERS : p_opt1 TYPE c RADIOBUTTON GROUP radi USER-COMMAND op1, "Material
p_opt2 TYPE c RADIOBUTTON GROUP radi. "Billing Document
Selection-screen end of block b1.
Selection-screen begin of block b2 with frame title text-sc2.
SELECT-OPTIONS : s_matnr FOR makt-matnr MODIF ID op1, "Material
s_vbeln FOR vbrp-vbeln MODIF ID op2. "Billing Document
Selection-screen end of block b2.
T SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN .
IF screen-group1 = 'OP1' .
IF p_opt1 = 'X' .
screen-invisible = c_no .
screen-active = c_yes .
ELSE.
screen-invisible = c_yes .
screen-active = c_no .
ENDIF.
MODIFY SCREEN .
ENDIF.
IF screen-group1 = 'OP2' .
IF p_opt2 = 'X' .
screen-invisible = c_no .
screen-active = c_yes .
ELSE.
screen-invisible = c_yes .
screen-active = c_no .
ENDIF.
MODIFY SCREEN .
ENDIF.
ENDLOOP.

Hi,
First of all, you should check your radiobutton instead of select-option...
Then you will have to build the output internal table dynamically based on the option chosen. There are lot of example on SDN...
Here is a start: http://wiki.sdn.sap.com/wiki/display/Snippets/Tutorialabap-CodeforDynamicAlv+grid
Kr,
m.

How to create 2 ALV output lists in a single output?

Hi guys...
My clients requirement is to create 2 ALV output lists in a single output list.how can i do this?i mean which function module i can use for this requirement?please help me out...
Regards..

*& Report ZLCL_ALV_INT_INVOICE *
REPORT ZLCL_ALV_INT_INVOICE .
DATA: O_CONT1 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
 O_CONT2 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,
 O_GRID1 TYPE REF TO CL_GUI_ALV_GRID,
 O_GRID2 TYPE REF TO CL_GUI_ALV_GRID.
DATA: IT_VBRK LIKE VBRK OCCURS 1 WITH HEADER LINE.
DATA: IT_VBRP LIKE VBRP OCCURS 1 WITH HEADER LINE.
DATA: WA_VBRK LIKE VBRK.
*--Layout
DATA: WA_LAYO TYPE LVC_S_LAYO.
 CLASS LCL_BILLING DEFINITION
CLASS LCL_BILLING DEFINITION.
PUBLIC SECTION.
 CLASS-METHODS: HANDLE_HOTSPOT_CLICK
 FOR EVENT HOTSPOT_CLICK
 OF CL_GUI_ALV_GRID
 IMPORTING E_ROW_ID.
ENDCLASS. "LCL_BILLING DEFINITION
 CLASS LCL_BILLING IMPLEMENTATION
CLASS LCL_BILLING IMPLEMENTATION.
METHOD HANDLE_HOTSPOT_CLICK.
 IF NOT E_ROW_ID IS INITIAL.
*--Reading selected billing docno
 READ TABLE IT_VBRK INTO WA_VBRK INDEX E_ROW_ID-INDEX.
*--GETTING BILLING DOC ITEMS
 REFRESH IT_VBRP.
 SELECT *
 FROM VBRP
 INTO TABLE IT_VBRP
 WHERE VBELN = WA_VBRK-VBELN.
 CALL SCREEN 200.
 ENDIF.
ENDMETHOD. "HANDLE_HOTSPOT_CLICK
ENDCLASS. "LCL_BILLING IMPLEMENTATION
SELECT-OPTIONS: S_VBELN FOR IT_VBRK-VBELN.
START-OF-SELECTION.
PERFORM GET_DATA.
SET SCREEN 100.
*& Form GET_DATA
 text
FORM GET_DATA .
*--billing header data
SELECT *
 FROM VBRK
 INTO TABLE IT_VBRK
 WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'No Data Found'.
ENDIF.
EXIT.
ENDFORM. " GET_DATA
*& Module STATUS_0100 OUTPUT
 text
MODULE STATUS_0100 OUTPUT.
SET PF-STATUS 'MENU'.
ENDMODULE. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK'.
 PERFORM EXIT_PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_0100 INPUT
*& Module PBO_100 OUTPUT
 text
MODULE PBO_100 OUTPUT.
IF O_CONT1 IS INITIAL.
 CREATE OBJECT O_CONT1
 EXPORTING
 CONTAINER_NAME = 'VBRK_CONT'
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 CREATE_ERROR = 3
 LIFETIME_ERROR = 4
 LIFETIME_DYNPRO_DYNPRO_LINK = 5
 OTHERS = 6
 IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in container'.
 EXIT.
 ENDIF.
 CREATE OBJECT O_GRID1
 EXPORTING
 I_PARENT = O_CONT1
 EXCEPTIONS
 ERROR_CNTL_CREATE = 1
 ERROR_CNTL_INIT = 2
 ERROR_CNTL_LINK = 3
 ERROR_DP_CREATE = 4
 OTHERS = 5
 IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in Grid'.
 EXIT.
 ENDIF.
ENDIF.
*--Layout for 1st grid
WA_LAYO-KEYHOT = 'X'.
WA_LAYO-GRID_TITLE = 'Billing Document Header Data'.
CALL METHOD O_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 I_STRUCTURE_NAME = 'VBRK'
 IS_LAYOUT = WA_LAYO
 CHANGING
 IT_OUTTAB = IT_VBRK[]
 EXCEPTIONS
 INVALID_PARAMETER_COMBINATION = 1
 PROGRAM_ERROR = 2
 TOO_MANY_LINES = 3
 OTHERS = 4.
IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in showing grid'.
 EXIT.
ENDIF.
*-Setting the focus on the grid
CALL METHOD CL_GUI_CONTROL=>SET_FOCUS
 EXPORTING
 CONTROL = O_GRID1 "Grid control object
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in setting focus'.
ENDIF.
*--Event handler registration
SET HANDLER LCL_BILLING=>HANDLE_HOTSPOT_CLICK FOR O_GRID1.
ENDMODULE. " PBO_100 OUTPUT
*& Module STATUS_0200 OUTPUT
 text
MODULE STATUS_0200 OUTPUT.
SET PF-STATUS 'MENU'.
ENDMODULE. " STATUS_0200 OUTPUT
*& Module USER_COMMAND_0200 INPUT
 text
MODULE USER_COMMAND_0200 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK'.
 LEAVE TO SCREEN 100.
ENDCASE.
ENDMODULE. " USER_COMMAND_0200 INPUT
*& Module PBO_200 OUTPUT
 text
MODULE PBO_200 OUTPUT.
IF O_CONT2 IS INITIAL.
 CREATE OBJECT O_CONT2
 EXPORTING
 CONTAINER_NAME = 'VBRP_CONT'
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 CREATE_ERROR = 3
 LIFETIME_ERROR = 4
 LIFETIME_DYNPRO_DYNPRO_LINK = 5
 OTHERS = 6
 IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in container'.
 EXIT.
 ENDIF.
 CREATE OBJECT O_GRID2
 EXPORTING
 I_PARENT = O_CONT2
 EXCEPTIONS
 ERROR_CNTL_CREATE = 1
 ERROR_CNTL_INIT = 2
 ERROR_CNTL_LINK = 3
 ERROR_DP_CREATE = 4
 OTHERS = 5.
 IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in grid linking'.
 EXIT.
 ENDIF.
 CALL METHOD O_GRID2->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 I_STRUCTURE_NAME = 'VBRP'
 CHANGING
 IT_OUTTAB = IT_VBRP[]
 EXCEPTIONS
 INVALID_PARAMETER_COMBINATION = 1
 PROGRAM_ERROR = 2
 TOO_MANY_LINES = 3
 OTHERS = 4.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ELSE.
*--refreshing the alv grid with the latest content of the internal table
*--which is linked
 CALL METHOD O_GRID2->REFRESH_TABLE_DISPLAY
 EXCEPTIONS
 FINISHED = 1
 OTHERS = 2.
 IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in Refreshing gird'.
 ENDIF.
ENDIF.
ENDMODULE. " PBO_200 OUTPUT
*& Form EXIT_PROGRAM
 text
FORM EXIT_PROGRAM .
*--Deallocating the memory
IF NOT O_CONT2 IS INITIAL.
 CALL METHOD O_CONT2->FREE
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 OTHERS = 3.
 IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in deallocating memory'.
 EXIT.
 ENDIF.
 CLEAR: IT_VBRP,
 IT_VBRP[].
 FREE: IT_VBRP,
 IT_VBRP[].
ENDIF.
IF NOT O_CONT1 IS INITIAL.
 CALL METHOD O_CONT1->FREE
 EXCEPTIONS
 CNTL_ERROR = 1
 CNTL_SYSTEM_ERROR = 2
 OTHERS = 3.
 IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in deallocating memory'.
 EXIT.
 ENDIF.
 CLEAR: IT_VBRK,
 IT_VBRK[].
 FREE: IT_VBRK,
 IT_VBRK[].
ENDIF.
*--Cearing the buffered content
CALL METHOD CL_GUI_CFW=>FLUSH
 EXCEPTIONS
 CNTL_SYSTEM_ERROR = 1
 CNTL_ERROR = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 MESSAGE I000(Z00) WITH 'Error in clearing Buffer'.
 EXIT.
ENDIF.
LEAVE PROGRAM.
ENDFORM. " EXIT_PROGRAM
SCREEN 100
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
MODULE PBO_100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
SCREEN200
PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
MODULE PBO_200.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0200.

How can we modify alv output list

Hi
this is fazil.
Please tell me any body How can we modify alv output list.
Thanks & Regards
Fazil
[email protected]

Fazil,
check the program,
You can find the code in this program 'BCALV_FIELDCAT_TEST'
*& Report BCALV_FIELDCAT_TEST *
This report allows to modify the fieldcatalog of a corresponding
output table and to view the effects of your changes directly.
Note that for some changes you need to newly display the whole
ALV Grid Control, e.g., DDIC-Fields are read only the first time
you call SET_READY_FOR_FIRST_DISPLAY.
Note also that not all scenarios can be tested since the output
table does not comprise all fields to test available features
of the fieldcatalog. Copy this program and extend the output
table accordingly if you want to test such a special feature.
(The field CARRNAME in 'gt_sflight' was added to test field REF_FIELD
and TXT_FIELD of the fieldcatalog - see what happens if you
calculate subtotals by carrier-id).
report bcalvt_fieldcatalog .
data: ok_code type sy-ucomm,
 save_ok_code type sy-ucomm,
fieldcatalog for output table
 gt_fieldcat type lvc_t_fcat,
fieldcatalog for fieldcatalog itself:
 gt_fcatfcat type lvc_t_fcat,
 gs_fcatlayo type lvc_s_layo.
Output table
data: begin of gt_sflight occurs 0.
data: carrname type s_carrname.
 include structure sflight.
data: end of gt_sflight.
data: g_max type i value 100.
data: g_all type c value SPACE.
Controls to display gt_sflight and corresponding fieldcatalog
data: g_docking type ref to cl_gui_docking_container,
 g_alv type ref to cl_gui_alv_grid.
data: g_custom_container type ref to cl_gui_custom_container,
 g_editable_alv type ref to cl_gui_alv_grid.
LOCAL CLASS Definition
class lcl_event_receiver definition.
public section.
 methods handle_data_changed
 for event data_changed of cl_gui_alv_grid
 importing er_data_changed.
endclass.
class lcl_event_receiver implementation.
method handle_data_changed.
at the time being, no checks are made...
endmethod.
endclass.
data: event_receiver type ref to lcl_event_receiver.
end-of-selection.
set screen 100.
*& Module STATUS_0100 OUTPUT
 text
module status_0100 output.
set pf-status 'BASIC'.
set titlebar 'BASICTITLE'.
create ALV Grid Control in the first run
if g_docking is initial.
 perform create_and_init_controls.
endif.
endmodule. " STATUS_0100 OUTPUT
*& Module USER_COMMAND_0100 INPUT
 text
module user_command_0100 input.
save_ok_code = ok_code.
clear ok_code.
case save_ok_code.
 when 'SUBMIT'.
set the frontend fieldcatalog
ATTENTION: DDIC-Fields are not updated using this method!
(see 'RESTART')
 call method g_alv->set_frontend_fieldcatalog
 exporting
 it_fieldcatalog = gt_fieldcat.
 call method g_alv->refresh_table_display.
 call method cl_gui_cfw=>flush.
 when 'RESTART'.
Destroy the control currently visible and display it again
using the changed fieldcatalog.
 perform restart_sflight.
 when '&ALL'.
 perform switch_visibility.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
*& Form CREATE_AND_INIT_CONTROLS
 text
--> p1 text
<-- p2 text
form create_and_init_controls.
create object g_docking
 exporting
 dynnr = '100'
 extension = 150
 side = cl_gui_docking_container=>dock_at_bottom.
create object g_alv
 exporting
 i_parent = g_docking.
create object g_custom_container
 exporting
 container_name = 'CC_0100_FIELDCAT'.
create object g_editable_alv
 exporting
 i_parent = g_custom_container.
register events
create object event_receiver.
set handler event_receiver->handle_data_changed for g_editable_alv.
call method g_editable_alv->register_edit_event
 exporting
 i_event_id = cl_gui_alv_grid=>mc_evt_modified.
perform build_fieldcatalogs changing gt_fieldcat gt_fcatfcat.
perform modify_fieldcatalog changing gt_fcatfcat.
perform select_data. "CHANGING gt_sflight
call method g_alv->set_table_for_first_display
 changing
 it_outtab = gt_sflight[]
 it_fieldcatalog = gt_fieldcat[].
optimize column width of grid displaying fieldcatalog
gs_fcatlayo-cwidth_opt = 'X'.
Get fieldcatalog of table sflight - alv might have
modified it after passing.
call method g_alv->get_frontend_fieldcatalog
 importing et_fieldcatalog = gt_fieldcat[].
call method cl_gui_cfw=>flush.
Display fieldcatalog of table sflight:
call method g_editable_alv->set_table_for_first_display
 exporting
 is_layout = gs_fcatlayo
 changing
 it_outtab = gt_fieldcat[]
 it_fieldcatalog = gt_fcatfcat[].
register events
create object event_receiver.
set handler event_receiver->handle_data_changed for g_editable_alv.
endform. " CREATE_AND_INIT_CONTROLS
*& Form restart_sflight
 text
--> p1 text
<-- p2 text
form restart_sflight.
data: ls_fieldcat type lvc_s_fcat.
free g_docking and thus g_alv
call method g_docking->free.
clear g_docking.
clear g_alv.
create new instances
create object g_docking
 exporting
 dynnr = '100'
 extension = 150
 side = cl_gui_docking_container=>dock_at_bottom.
create object g_alv
 exporting
 i_parent = g_docking.
This is an internal method to invalidate all fields in the fieldcat
loop at gt_fieldcat into ls_fieldcat.
 clear ls_fieldcat-tech_comp.
 modify gt_fieldcat from ls_fieldcat.
endloop.
Newly display the list with current fieldcatalog.
call method g_alv->set_table_for_first_display
 changing
 it_outtab = gt_sflight[]
 it_fieldcatalog = gt_fieldcat.
Get fieldcatalog - it might be changed by ALV in the last call
call method g_alv->get_frontend_fieldcatalog
 importing
 et_fieldcatalog = gt_fieldcat[].
call method g_editable_alv->refresh_table_display.
call method cl_gui_cfw=>flush.
endform. " restart_sflight
*& Form select_data
 text
--> p1 text
<-- p2 text
form select_data.
data: lt_sflight type table of sflight with header line,
 ls_scarr type scarr.
select data of sflight
select * from sflight into table lt_sflight up to g_max rows.
copy data to gt_sflight and update CARRNAME
loop at lt_sflight.
 move-corresponding lt_sflight to gt_sflight.
 select single * from scarr into ls_scarr
 where carrid = gt_sflight-carrid.
 gt_sflight-carrname = ls_scarr-carrname.
 append gt_sflight.
endloop.
endform. " select_data
*& Form BUILD_FIELDCATALOGS
 text
 <--P_GT_FIELDCAT text
 <--P_GT_FCATFCAT text
form build_fieldcatalogs changing p_fieldcat type lvc_t_fcat
 p_fcatfcat type lvc_t_fcat.
data: ls_fcat type lvc_s_fcat.
Fieldcatalog for table SFLIGHT: p_fieldcat
generate fieldcatalog automatically
call function 'LVC_FIELDCATALOG_MERGE'
 exporting
 i_structure_name = 'SFLIGHT'
 I_CLIENT_NEVER_DISPLAY = 'X'
 changing
 ct_fieldcat = p_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.
shift all column positions to the right except for MANDT
loop at p_fieldcat into ls_fcat.
 if ls_fcat-fieldname ne 'MANDT'.
 add 1 to ls_fcat-col_pos.
 if ls_fcat-fieldname = 'CARRID'.
 ls_fcat-txt_field = 'CARRNAME'."link CARRNAME to CARRID
 endif.
 modify p_fieldcat from ls_fcat.
 endif.
endloop.
create a new line for CARRNAME in p_fieldcat
clear ls_fcat.
ls_fcat-fieldname = 'CARRNAME'.
ls_fcat-ref_table = 'SCARR'.
ls_fcat-col_pos = 1.
insert new line before CARRID (do not forget MANDT!).
insert ls_fcat into p_fieldcat index 1.
Fieldcatalog for table LVC_T_FCAT:p_fcatfcat
Generate fieldcatalog of fieldcatalog structure.
This fieldcatalog is used to display fieldcatalog 'p_fieldcat'
on the top of the screen.
call function 'LVC_FIELDCATALOG_MERGE'
 exporting
 i_structure_name = 'LVC_S_FCAT'
 I_CLIENT_NEVER_DISPLAY = 'X'
 changing
 ct_fieldcat = p_fcatfcat[]
 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.
Hide all fields that are not documented (valid for release 4.6A)
perform hide_fields changing p_fcatfcat.
endform. " BUILD_FIELDCATALOGS
*& Module EXIT_PROGRAM INPUT
 text
module exit_program input.
leave program.
endmodule. " EXIT_PROGRAM INPUT
*& Form MODIFY_FIELDCATALOG
 text
 <--P_GT_FCATFCAT text
form modify_fieldcatalog changing p_fcatfcat type lvc_t_fcat.
data ls_fcat type lvc_s_fcat.
loop at p_fcatfcat into ls_fcat.
 ls_fcat-coltext = ls_fcat-fieldname.
 ls_fcat-edit = 'X'.
 if ls_fcat-fieldname = 'COL_POS' or ls_fcat-fieldname = 'FIELDNAME'.
 ls_fcat-key = 'X'.
 endif.
 modify p_fcatfcat from ls_fcat.
endloop.
endform. " MODIFY_FIELDCATALOG
form hide_fields changing p_fieldcat type lvc_t_fcat.
data: ls_fcat type lvc_s_fcat.
Only show documented fields of fieldcatalog.
For a documentation choose "Help->Application Help" in the menu.
loop at p_fieldcat into ls_fcat.
 if not (
 ls_fcat-fieldname eq 'CFIELDNAME'
 or ls_fcat-fieldname eq 'COL_POS'
 or ls_fcat-fieldname eq 'COLDDICTXT'
 or ls_fcat-fieldname eq 'COLTEXT'
 or ls_fcat-fieldname eq 'CURRENCY'
 or ls_fcat-fieldname eq 'DD_OUTLEN'
 or ls_fcat-fieldname eq 'DECIMALS_O'
 or ls_fcat-fieldname eq 'DECMLFIELD'
 or ls_fcat-fieldname eq 'DO_SUM'
 or ls_fcat-fieldname eq 'DRAGDROPID'
 or ls_fcat-fieldname eq 'EDIT_MASK'
 or ls_fcat-fieldname eq 'EMPHASIZE'
 or ls_fcat-fieldname eq 'EXPONENT'
 or ls_fcat-fieldname eq 'FIELDNAME'
 or ls_fcat-fieldname eq 'HOTSPOT'
 or ls_fcat-fieldname eq 'ICON'
 or ls_fcat-fieldname eq 'INTLEN'
 or ls_fcat-fieldname eq 'INTTYPE'
 or ls_fcat-fieldname eq 'JUST'
 or ls_fcat-fieldname eq 'KEY'
 or ls_fcat-fieldname eq 'LOWERCASE'
 or ls_fcat-fieldname eq 'LZERO'
 or ls_fcat-fieldname eq 'NO_OUT'
 or ls_fcat-fieldname eq 'NO_SIGN'
 or ls_fcat-fieldname eq 'NO_SUM'
 or ls_fcat-fieldname eq 'NO_ZERO'
 or ls_fcat-fieldname eq 'OUTPUTLEN'
 or ls_fcat-fieldname eq 'QFIELDNAME'
 or ls_fcat-fieldname eq 'QUANTITY'
 or ls_fcat-fieldname eq 'REF_FIELD'
 or ls_fcat-fieldname eq 'REF_TABLE'
 or ls_fcat-fieldname eq 'REPREP'
 or ls_fcat-fieldname eq 'REPTEXT'
 or ls_fcat-fieldname eq 'ROLLNAME'
 or ls_fcat-fieldname eq 'ROUND'
 or ls_fcat-fieldname eq 'ROUNDFIELD'
 or ls_fcat-fieldname eq 'SCRTEXT_L'
 or ls_fcat-fieldname eq 'SCRTEXT_M'
 or ls_fcat-fieldname eq 'SCRTEXT_S'
 or ls_fcat-fieldname eq 'SELDDICTXT'
 or ls_fcat-fieldname eq 'SELTEXT'
 or ls_fcat-fieldname eq 'SP_GROUP'
 or ls_fcat-fieldname eq 'SYMBOL'
 or ls_fcat-fieldname eq 'TECH'
 or ls_fcat-fieldname eq 'TIPDDICTXT'
 or ls_fcat-fieldname eq 'TOOLTIP'
 or ls_fcat-fieldname eq 'TXT_FIELD' ).
 ls_fcat-tech = 'X'.
 endif.
 modify p_fieldcat from ls_fcat.
endloop.
endform.
form switch_visibility.
data: lt_fcatfcat type lvc_t_fcat,
 ls_fcat type lvc_s_fcat.
call method g_editable_alv->get_frontend_fieldcatalog
 importing ET_FIELDCATALOG = lt_fcatfcat.
if not g_all is initial.
 perform hide_fields changing lt_fcatfcat.
 g_all = SPACE.
else.
 loop at lt_fcatfcat into ls_fcat.
 if ls_fcat-tech eq 'X'.
 ls_fcat-tech = SPACE.
 ls_fcat-no_out = 'X'.
 modify lt_fcatfcat from ls_fcat.
 endif.
 endloop.
 g_all = 'X'.
endif.
call method g_editable_alv->set_frontend_fieldcatalog
 exporting it_fieldcatalog = lt_fcatfcat.
call method g_editable_alv->refresh_table_display.
endform.
Don't forget to rewaard if useful..

Display list on selection-screen

Hello everyone,
I've got a question concerning selection screen. I want to know, if there is a way to display list/table on selection screen after user input. Specifically, when user enters for example 30 invoice numbers into select-options, I need those 30 numbers displayed on the same selection screen.
Thanks in advance

instead u can print selection screen....along with output.....
for this....
You can use given function module to print your
selection screen
RS_REFRESH_FROM_SELECTOPTIONS
>This will get Current contents of selection screen
RS_LIST_SELECTION_TABLE
>This will Generates list according to values in selection table(RSPARAMS)
Sample
CALL FUNCTION 'RS_REFRESH_FROM_SELECTOPTIONS'
EXPORTING
curr_report = p_repid
TABLES
selection_table = it_int_tab
EXCEPTIONS
not_found = 1
no_report = 2
OTHERS = 3.
IF sy-subrc EQ 0.
WRITE:1 'Selection Criteria'(i19),
/1 sy-uline(18),
/1 'Variant Name'(i21),
23 sy-slset.
*-- This function module lists the Selection Screen contents
CALL FUNCTION 'RS_LIST_SELECTION_TABLE'
EXPORTING
report = p_repid
seltext = 'X'
newpage = space
TABLES
sel_tab = it_int_tab
EXCEPTIONS
sel_tab_empty = 1
OTHERS = 2.

Add button to QA33 ALV output list

Hi, SAP experts:
I need to add a custom button to the ALV output list display in QA33 transaction.
I´ve only found the BAdi ALV_SWITCH_GRID_LIST, but it doesn´t fit my requirements at all.
Any idea?
Thank you very much!

Hi,
Please check if this explanation helps you,
Custom Butoon in REUSE_ALV_GRID_DISPLAY_LVC
Regards
Ram

What r the list of selection screen events

What r the list of selection screen events

hi,
chk out the following links...
http://help.sap.com/saphelp_nw04/helpdata/en/56/1eb6c705ad11d2952f0000e8353423/content.htm
http://help.sap.com/saphelp_nw04/helpdata/en/9f/db9a2e35c111d1829f0000e829fbfe/content.htm
http://www.sap-img.com/abap/different-types-of-selection-screens.htm
Regards,
Viji

Add check box in alv output list in web dynpro

Dear Friends,
I want to Add check box in begining of each row of alv output list for WEB DYNPRO Program.
ISHA

Lalsha - you need an attribute (I will named check_box) in your context node to be in the 1st position of your ALV context node
Data: lv_check_box          type ref to cl_salv_wd_uie_checkbox,
         lr_table_settigns      type ref to if_salv_wd_table_settings,
         l_value                     type ref to cl_salv_wd_config_table,
         lt_columns               type salv_wd_t_column_ref,
         ls_column                type salv_wd_s_column_ref,
         l_col_name              type string.
if l_value is not initial.
lr_table_settings ?= l_value.
lt_columns = l_value->if_salv_wd_column_settings~get_columns( ).
Loop AT lt_columns into ls_column.
l_col_name = ls_column-r_column->get_id( ).
IF l_col_name = 'check_box'   *your attribute name*
CREATE OBJECT lv_check_box
EXPORTING
checked_fieldname = l_col_name.
ls_column-r-column->set_cell_editor( value = lv_check_box ).
endif.
endloop
Hope this help
Jason P-V

From ALV list to Selection-screen

Hi,
I have problem in coming back to selection screen after displaying ALV List.
In ALV list i'm using check box option to delete selected records. After deletion I'm displaying the remaining records with one more call to ALV function module.
As this is not a secondary list i'm not able to use SY-LSIND and even call selection-screen or leave to screen 0 are not working.
could you please help me out.
Thanks,
Vinay.

Hi
You don't have to show the remaining records in another ALV.
In the user command sub-routine we will be passing the parameter RS_SELFIELD TYPE SLIS_SELFIELD.
When you delete the rows from the internal table in the user command set the refresh field to on.
RS_SELFIELD-REFRESH = 'X'.
Please let me know if it works.
Thanks,
Naren

ALV Report output as per selection screen

Hi,
I got a requirement. In selection screen there is field where i can entered 1 to 12 numbers. When i entered a number, so that in output of an alv report should display that many fields
for eg.
if i entered 5 in selection screen
in out put 5 fields of alv report should display.
Thanks....
Moderator message : Spec dumping / Outsourcing is not allowed. Thread locked.
Edited by: Vinod Kumar on Jul 15, 2011 11:34 AM

hi,
u sort the internal table by the materials in our variant.
like sort itab by jtab
itab consists of all materials
jtab cosists of materials in variant.
hope it may helpful,
regards,
chandu

How to capture row selection in ALV output List

Hi experts,
I am displaying some output using ALV function module. My requirement is i have to capture how much rows user has selected in the output list, based on this information i have to perform some actions.
Please help me
Regards,
Sachin

Hi Sachin,
For this first you have to define a variable in your internal table of type c with length 1 and then while building the layout of the ALV, you have to pass this variable name to the layout field BOX_FIELDNAME.
Now when you select a particular row, then the corresponding field in your internal table willl be marked with X. So, for further processing, you can just loop through the table where 'BOX = 'X' and proceed.
For Example:
*      Structure for output details
TYPES: BEGIN OF gs_output.
        INCLUDE STRUCTURE zas_water_qlty_rep.
TYPES: selected(1) TYPE c,
       END OF gs_output.
DATA: object_tab            TYPE STANDARD TABLE OF gs_output.
CONSTANTS: lc_selected(8)             TYPE c VALUE 'SELECTED'.
lw_layout-box_fieldname     =   lc_selected.    "Field for checkbox
* Local workarea
DATA: lw_layout TYPE slis_layout_alv.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_buffer_active          = gc_x
            i_bypassing_buffer       = gc_x
            i_callback_program       = lv_repid
            i_callback_pf_status_set = g_form_set_pf_stat
            i_callback_user_command = lc_uform
            i_structure_name         = lv_zas_water_qlty_rep
            is_layout                = lw_layout
            it_fieldcat              = g_fieldcat_tab[]
            it_events                = g_events_tab[]
            it_event_exit            = g_event_exit_tab[]
       TABLES
            t_outtab                 = p_object_tab
       EXCEPTIONS
            program_error            = 1
            OTHERS                   = 2.
Hope this helps.
Regards,
Phani.

Selecting multiple lines from ALV output for further validation

Hi guru's,
 i have created a ALV report with a check box in the output,i need to select multiple lines by checking 'X' in the check box
after that i need to do further validation..like updating etc..how to read the selected lines( check box = 'X' )from the output of the ALV report.Is there any function for that.plz help me with this regard.
Thanks & Regards,
Balaji.S

Hi Balaji,
Try this way.
<pre>
REPORT ztest_alv_row_selection.
DATA: BEGIN OF it_output OCCURS 0,
 select TYPE c, "This variable stores the value when row selected.
 bukrs TYPE t001-bukrs,
 butxt TYPE t001-butxt,
 END OF it_output.
TYPE-POOLS:slis.
DATA:it_events TYPE STANDARD TABLE OF slis_alv_event,
 it_fieldcat TYPE STANDARD TABLE OF slis_fieldcat_alv,
 wa_fieldcat TYPE slis_fieldcat_alv,
 wa_events TYPE slis_alv_event,
 wa_layout TYPE slis_layout_alv.
DATA:g_program TYPE sy-repid VALUE sy-repid.
START-OF-SELECTION.
SELECT * FROM t001 INTO CORRESPONDING FIELDS OF TABLE it_output UP TO 100 ROWS.
DEFINE fieldcatalog.
 wa_fieldcat-fieldname = &1.
 wa_fieldcat-tabname = &2.
 wa_fieldcat-seltext_l = &3.
 append wa_fieldcat to it_fieldcat.
 clear wa_fieldcat.
END-OF-DEFINITION.
fieldcatalog: "Column table col text
 'BUKRS' 'IT_OUTPUT' 'BUKRS',
 'BUTXT' 'IT_OUTPUT' 'BUTXT'.
wa_layout-box_fieldname = 'SELECT'. "This has to be set to get selection
wa_layout-colwidth_optimize = 'X'.
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.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = g_program
 is_layout = wa_layout
 it_fieldcat = it_fieldcat
 it_events = it_events
 TABLES
 t_outtab = it_output.
*& Form PF_STATUS_SET
FORM pf_status_set USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZTEST'.
1. When you set Pf status ZTEST, standard application tools will be removed.
2. Goto SE41 give program 'SAPLKKBL' and status 'STANDARD_FULLSCREEN'.
3. Copy the status from those to ZTEST of our program. Now you will see all standard functions.
ENDFORM. "PF_STATUS_SET
 FORM USER_COMMAND *
FORM user_command USING r_ucomm LIKE sy-ucomm rs_selfield TYPE slis_selfield.
Check function code
CASE r_ucomm.
 WHEN 'DISPLAY'. "user presses SAVE
 LOOP AT it_output.
 IF it_output-select EQ 'X'.
 Process records that have been selected
 WRITE:/ it_output.
 ENDIF.
 ENDLOOP.
ENDCASE.
ENDFORM. "user_command</pre>
Thanks
Venkat.O

Values from alv hierarchical list display

hi all,
i need to display sme values from vbak and vbap tables in ALV hierarchical list display.if i click on the sales order of the header, it should directly go to the second screen of transaction VA03 with the sales details displayed..
 i got the parameter id, how can i assign the selected sales order value to this parameter id?...
regards,
Hamsa Priya

Hi,
Check this example..Marked in bold..
TYPE-POOLS: slis.
DATA: BEGIN OF itab OCCURS 0,
 vbeln TYPE vbeln,
 expand,
 END OF itab.
DATA: BEGIN OF itab1 OCCURS 0,
 vbeln TYPE vbeln,
 posnr TYPE posnr,
 matnr TYPE matnr,
 netpr TYPE netpr,
 END OF itab1.
DATA: t_fieldcatalog TYPE slis_t_fieldcat_alv.
DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'VBELN'.
s_fieldcatalog-tabname = 'ITAB'.
s_fieldcatalog-rollname = 'VBELN'.
s_fieldcatalog-outputlen = '12'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '1'.
s_fieldcatalog-fieldname = 'VBELN'.
s_fieldcatalog-tabname = 'ITAB1'.
s_fieldcatalog-rollname = 'VBELN'.
s_fieldcatalog-outputlen = '12'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '2'.
s_fieldcatalog-fieldname = 'POSNR'.
s_fieldcatalog-tabname = 'ITAB1'.
s_fieldcatalog-rollname = 'POSNR'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '3'.
s_fieldcatalog-fieldname = 'MATNR'.
s_fieldcatalog-tabname = 'ITAB1'.
s_fieldcatalog-rollname = 'MATNR'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
s_fieldcatalog-col_pos = '4'.
s_fieldcatalog-fieldname = 'NETPR'.
s_fieldcatalog-tabname = 'ITAB1'.
s_fieldcatalog-rollname = 'NETPR'.
s_fieldcatalog-do_sum = 'X'.
APPEND s_fieldcatalog TO t_fieldcatalog.
CLEAR: s_fieldcatalog.
DATA: s_layout TYPE slis_layout_alv.
s_layout-subtotals_text = 'SUBTOTAL TEXT'.
s_layout-key_hotspot = 'X'.
s_layout-expand_fieldname = 'EXPAND'.
SELECT vbeln UP TO 100 ROWS
 FROM
 vbak
 INTO TABLE itab
 WHERE vbeln > '0060000040'.
IF NOT itab[] IS INITIAL.
SELECT vbeln posnr matnr netpr
 FROM vbap
 INTO TABLE itab1
 FOR ALL ENTRIES IN itab
 WHERE vbeln = itab-vbeln.
ENDIF.
DATA: v_repid TYPE syrepid.
v_repid = sy-repid.
DATA: s_keyinfo TYPE slis_keyinfo_alv.
s_keyinfo-header01 = 'VBELN'.
s_keyinfo-item01 = 'VBELN'.
CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
 EXPORTING
 i_callback_program = v_repid
 i_callback_user_command = 'USER_COMMAND'
 is_layout = s_layout
 it_fieldcat = t_fieldcatalog
 i_tabname_header = 'ITAB'
 i_tabname_item = 'ITAB1'
 is_keyinfo = s_keyinfo
 TABLES
 t_outtab_header = itab
 t_outtab_item = itab1
 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.
FORM user_command USING ucomm LIKE sy-ucomm
selfield TYPE slis_selfield.
IF ucomm = '&IC1' AND selfield-fieldname = 'VBELN'.
 READ TABLE itab INDEX selfield-tabindex.
 IF sy-subrc = 0.
document
 SET PARAMETER ID 'AUN' FIELD itab-vbeln.
 CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
 ENDIF.
ENDIF.
ENDFORM.
Thanks,
Naren

ALV + layout varient on selection screen

hiii
with ALV list i want to know with how to allow to put the layout on the selection screen and when user press F4 he will be able to use the list of layout he has save on the ALV output
Note for the layout button to appear i had to activate shown below:
i_save                   = c_x
please give me sample code where user can choose layout on selection screen and this layout will be used to display on ALV

Hi,
Please refer the code below for layout variants :
DATA:   gt_rsparams TYPE TABLE OF rsparams.
* Data for ALV variant
DATA gv_repname          LIKE sy-repid.
DATA gv_x_variant        LIKE disvariant.
DATA gv_exit(1)          TYPE c.
DATA gv_save(1)          TYPE c.
DATA gv_variant          LIKE disvariant.
PARAMETERS: sp_vari LIKE disvariant-variant.        "Dispaly Variant
INITIALIZATION.
gv_repname = sy-repid.
REFRESH : gt_glacct,
            gr_rcomp,
            gt_output,
            gt_fieldcat,
            gt_sort.
* Initialize ALV Layout variant
PERFORM f_initialize_variant.
FORM f_initialize_variant .
CLEAR gv_variant.
gv_save           = 'X'.
gv_variant-report = gv_repname.
gv_x_variant      = gv_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save     = gv_save
    CHANGING
      cs_variant = gv_x_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 0.
    sp_vari = gv_x_variant-variant.
ENDIF.
ENDFORM.                    " f_initialize_variant
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sp_vari.
PERFORM f_f4_for_variant.
FORM f_f4_for_variant .
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = gv_variant
      i_save     = gv_save
    IMPORTING
      e_exit     = gv_exit
      es_variant = gv_x_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
    IF gv_exit = space.
      sp_vari = gv_x_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    " f_f4_for_variant
AT SELECTION-SCREEN.
* Validating selection screen fields
PERFORM f_at_selection_screen.
FORM f_at_selection_screen .
* ALV Layout variant
IF NOT sp_vari IS INITIAL.
    MOVE gv_variant TO gv_x_variant.
    MOVE sp_vari    TO gv_x_variant-variant.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        i_save     = gv_save
      CHANGING
        cs_variant = gv_x_variant.
    gv_variant = gv_x_variant.
ELSE.
    PERFORM f_initialize_variant.
ENDIF.
FORM f_initialize_variant .
CLEAR gv_variant.
gv_save           = 'X'.
gv_variant-report = gv_repname.
gv_x_variant      = gv_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save     = gv_save
    CHANGING
      cs_variant = gv_x_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 0.
    sp_vari = gv_x_variant-variant.
ENDIF.
ENDFORM.                    " f_initialize_variant
Thanks,
Sriram POnna.

Drop down list in selection screen.

hello there,
How to get a drop down list box in selection screen and in module pools.
explain also, how to populate some data into that.

*& Report ZSREE_DROP *
REPORT ZSREE_DROP .
TABLES : LFA1,EKKO,EKPO.
TYPE-POOLS : VRM.
DATA I1 TYPE I VALUE 0.
DATA : BEGIN OF WA_LFA1,
 LIFNR TYPE LIFNR,
 NAME1 TYPE NAME1,
 END OF WA_LFA1.
DATA IT_LFA1 LIKE TABLE OF WA_LFA1.
DATA : BEGIN OF WA_EKKO,
 EBELN TYPE EBELN,
 END OF WA_EKKO.
DATA IT_EKKO LIKE TABLE OF WA_EKKO.
DATA : BEGIN OF WA_EKPO,
 EBELP TYPE EBELP,
 END OF WA_EKPO.
DATA IT_EKPO LIKE TABLE OF WA_EKPO.
DATA : BEGIN OF WA_VRM,
 KEY(40) TYPE C,
 TEXT(80) TYPE C,
 END OF WA_VRM.
DATA IT_VRM LIKE TABLE OF WA_VRM.
*& Module USER_COMMAND_0100 INPUT
 text
module USER_COMMAND_0100 input.
CASE SY-UCOMM.
WHEN 'BACK'.
LEAVE TO SCREEN 0.
WHEN 'PDOC'. "fctcode for first list box
CLEAR IT_EKKO.
SELECT EBELN INTO TABLE IT_EKKO FROM EKKO WHERE LIFNR = LFA1-LIFNR.
CLEAR IT_VRM.
LOOP AT IT_EKKO INTO WA_EKKO.
WA_VRM-KEY = WA_EKKO-EBELN.
 WA_VRM-TEXT = WA_EKKO-EBELN.
 APPEND WA_VRM TO IT_VRM.
CLEAR WA_VRM.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
 ID = 'EKKO-EBELN'
 VALUES = IT_VRM
EXCEPTIONS
ID_ILLEGAL_NAME = 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.
WHEN 'PITEM'. "fctcode second listbox
CLEAR IT_EKKO.
SELECT EBELP INTO TABLE IT_EKPO FROM EKPO WHERE EBELN = EKKO-EBELN.
CLEAR IT_VRM.
LOOP AT IT_EKPO INTO WA_EKPO.
WA_VRM-KEY = WA_EKPO-EBELP.
 WA_VRM-TEXT = WA_EKPO-EBELP.
 APPEND WA_VRM TO IT_VRM.
CLEAR WA_VRM.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
 ID = 'EKPO-EBELP'
 VALUES = IT_VRM
EXCEPTIONS
ID_ILLEGAL_NAME = 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.
ENDCASE.
endmodule. " USER_COMMAND_0100 INPUT
**& Module STATUS_0100 OUTPUT
 text
module STATUS_0100 output.
SET PF-STATUS 'ZSREE'.
SET TITLEBAR 'ZSREE'.
endmodule. " STATUS_0100 OUTPUT
*& Module SELECT_LIST OUTPUT
 text
module SELECT_LIST output.
CLEAR IT_LFA1.
SELECT LIFNR NAME1 INTO TABLE IT_LFA1 FROM LFA1.
CLEAR IT_VRM.
LOOP AT IT_LFA1 INTO WA_LFA1.
 WA_VRM-KEY = WA_LFA1-LIFNR.
 WA_VRM-TEXT = WA_LFA1-LIFNR.
 APPEND WA_VRM TO IT_VRM.
CLEAR WA_VRM.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
 id = 'LFA1-LIFNR'
 values = IT_VRM
EXCEPTIONS
ID_ILLEGAL_NAME = 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.
endmodule. " SELECT_LIST OUTPUT
Bye Murthy

From ALV output list to selection screen

Similar Messages

Maybe you are looking for