Multiple ALV Reports --

Hi all,
I am using alv grid to display a report.
As I click one of the radio button One report should be displayed.When we click another button another set of report should be displayed. Each report uses different itab.
I need to commonize the use of the fn REUSE_ALV_BLOCK_GRID_DISPLAY.
I dont want to use the same fn again but with different itab name.
Regards,
Priya

Hi Priya,
follow these steps
just declare one variable to dynamically pass itab name and pass that in the function module on the basis of the radio button u selected
small ex
case sy-ucomm.
when radbutt1 = 'x'.
dynitab = itab1.
when radbutt2 = 'x'.
dynitab = itab2.
end case
and in the grid func module pass like this
T_OUTTAB = dynitab.---dynamic itab
Reward points if it help u
Regards,
Sri

Similar Messages

What's the coolest, slickest way to present multiple ALV reports?

Greetings and good day, everyone.
Okay, I'm working on an update program, and the users have identified at least three different reports they would like coming out of this thing. One report is a list of transactions that fail internal logic checking, the second report is a list of transactions that pass internal logic checking but fail to update via a BAPI, and a third report is a list of transactions that pass checks and process correctly (i.e. update the database) via the BAPI.
At first, still being a newbie, I was wondering how I was going to create multiple ALV reports. I know I could do this using the WRITE statement, writing each report one after the other, but they have asked for the ALV report so they can do all the ad-hoc manipulating, sorting, etc. that ALV provides.
I came up with these options:
1. Instead of filling my single screen with the container control for an ALV report, as I usually do, this time I could put three containers on the screen. However, I know that cramps space, and I don't know if they'll be able to adjust or move things around other than scrolling.
2. Display a single ALV report on the screen, but have buttons somehow on the top that somehow take the user to other screens for the other reports.
3. First give the user a screen with all the buttons for the reports. They choose one, and the ALV report displays. They can click back to return to this screen, then choose a different report.
Nobody else in the office has done anything like this yet using the ALV, so I've got a chance to break some new ground internally and do something slick. Which option is best, and if so, do you have examples or general guidelines of how I do it? I've not had dialog programming, although I do understand the concepts from VB/Delphi experience over 10 years ago. I think I lean toward option 2, but I figured this couldn't be new ground in the SAP world and surely someone's done exactly this sort of thing.
Please help! ALL helpful responses, as always, are awarded points! Thanks so much!
Dave

Dave,
These are all good suggestions. I would just remember to keep in mind when designing your report two different things.
1. Can your program be run in foreground or background? If it has to be run in background due to data volumes you will lose all interactive capabilities of ALV. You might also not be able to do three different ALVs on the screen in background.
2. I am not sure if I understand your option 3 but if you are talking about the user selecting the options before the load the data, they might have to attempt to load the data multiple times to get all of the report.
My recommendation ( I think somebody already mentioned this) is to have a single ALV with a column on your report that the user can then sort or filter by. This way you are not limited to a program that has to be run in foreground.
Chris

How can I add a custom title to multiple ALV reports selected by layout?

Greetings and good day, everyone!
Within the past week or so, I posted a question asking the best way to create a program that would generate multiple ALV reports. I got some great ideas, and I've actually coded up a few simple demos based on your feedback -- thank you!
Here's the issue I'm running into: Many of you suggested that I put all report records into one table, and create a field that I could use to filter on later to determine which fields I want to display for the report. For example, if I have 3 different reports, I put all the fields for all 3 reports into a table. I then add a "report key" field. As I put records into the report table for report 1, I code "01" into the "report key" field. I do the same for reports 2 and 3, assigning each a "report key" of "02" and "03", respectively.
I then set up layouts in the ALV for each of the three reports, using the filter option to only pull records with the "report key" value for that particular report. This all works wonderfully! However, I seem to have lost the ability to show a custom title for each layout. I can create a generic TITLEBAR (like "Reporting Center") but I don't know how to reset the grid's title when a layout is selected. I was hoping that SAP might use the layout description as the title on each page, but it doesn't -- it uses the TITLEBAR text.
Any ideas? I think this might be the best way to program multiple ALV reports, but if I can't display the right report title for a particular layout, I'll probably have to go back to my other alternative of putting each report in its own container/screen, and having a button to access each report from the application toolbar.
Thanks,

Srikanth,
I don't have any Selection Screen radio buttons for the user to select a particular report; in my case, they specify some needed criteria by the program in the Selection Screen, the program goes off and does a fair bit of processing/updating, and then displays the ALV reports when finished. They don't want to choose one particular report to view ahead of time; they want to have all 3 (in my case) there to see what processed correctly, what was eligible to process but kicked out with errors, and what failed some matching checks done up front (this layout includes additional fields from the input file so they can see what didn't match up against R/3).
So, while I do like the code example you presented, I don't think it's going to help me in my case.

Multiple ALV reports on one page

How to display multiple ALV reports on one page.

this done by this code....
*& Report ZPR_02
REPORT ZPR_02.
TYPE-POOLS: SLIS.
Tables Declaration.
TABLES: MARA.
*Internal tables and data declaration.
DATA: BEGIN OF IT_MARA OCCURS 0,
 MATNR LIKE MARA-MATNR,
 MTART LIKE MARA-MTART,
 MBRSH LIKE MARA-MBRSH,
 END OF IT_MARA,
 BEGIN OF IT_MARC OCCURS 0,
 MATNR LIKE MARC-MATNR,
 WERKS LIKE MARC-WERKS,
 EKGRP LIKE MARC-EKGRP,
 END OF IT_MARC,
 BEGIN OF IT_MARD OCCURS 0,
 MATNR LIKE MARD-MATNR,
 WERKS LIKE MARD-WERKS,
 LGORT LIKE MARD-LGORT,
 LABST LIKE MARD-LABST,
 END OF IT_MARD.
DATA: WA_FIELD_CAT TYPE SLIS_FIELDCAT_ALV,
 IT_FIELD_CAT1 TYPE SLIS_T_FIELDCAT_ALV,
 IT_FIELD_CAT2 TYPE SLIS_T_FIELDCAT_ALV,
 IT_FIELD_CAT3 TYPE SLIS_T_FIELDCAT_ALV,
 WA_KEYINFO TYPE SLIS_KEYINFO_ALV,
 IT_LAYOUT TYPE SLIS_LAYOUT_ALV,
 IT_EVENTS1 TYPE SLIS_T_EVENT WITH HEADER LINE,
 IT_EVENTS2 TYPE SLIS_T_EVENT WITH HEADER LINE,
 IT_EVENTS3 TYPE SLIS_T_EVENT WITH HEADER LINE.
*Selection Screen.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.
*Start Of selection.
START-OF-SELECTION.
*Selecting the data.
PERFORM SELECT_DATA.
*Populating the field catelogue.
PERFORM BUILD_FIELD_CAT.
*Displaying the final output.
PERFORM DISPLY_OUTPUT.
*& Form Select_data
 Selecting the data.
FORM SELECT_DATA .
SELECT MATNR
 MTART
 MBRSH FROM MARA
 INTO TABLE IT_MARA
 WHERE MATNR IN S_MATNR.
IF NOT IT_MARA[] IS INITIAL.
 SELECT MATNR
 WERKS
 EKGRP FROM MARC
 INTO TABLE IT_MARC
 FOR ALL ENTRIES IN IT_MARA
 WHERE MATNR EQ IT_MARA-MATNR.
ENDIF.
IF NOT IT_MARC[] IS INITIAL.
 SELECT MATNR
 WERKS
 LGORT
 LABST FROM MARD
 INTO TABLE IT_MARD
 FOR ALL ENTRIES IN IT_MARC
 WHERE MATNR = IT_MARC-MATNR
 AND WERKS = IT_MARC-WERKS.
ENDIF.
ENDFORM. " Select_data
*& Form Build_field_cat
 Populating the field catelogue.
FORM BUILD_FIELD_CAT .
DEFINE M_FIELDCAT1.
 WA_FIELD_CAT-TABNAME = &1.
 WA_FIELD_CAT-FIELDNAME = &2.
 WA_FIELD_CAT-SELTEXT_L = &3.
 APPEND WA_FIELD_CAT TO IT_FIELD_CAT1.
END-OF-DEFINITION.
DEFINE M_FIELDCAT2.
 WA_FIELD_CAT-TABNAME = &1.
 WA_FIELD_CAT-FIELDNAME = &2.
 WA_FIELD_CAT-SELTEXT_L = &3.
 APPEND WA_FIELD_CAT TO IT_FIELD_CAT2.
END-OF-DEFINITION.
DEFINE M_FIELDCAT3.
 WA_FIELD_CAT-TABNAME = &1.
 WA_FIELD_CAT-FIELDNAME = &2.
 WA_FIELD_CAT-SELTEXT_L = &3.
 APPEND WA_FIELD_CAT TO IT_FIELD_CAT3.
END-OF-DEFINITION.
M_FIELDCAT1 'MARA' 'MATNR' 'Material No'.
M_FIELDCAT1 'MARA' 'MTART' 'Material type'.
M_FIELDCAT1 'MARA' 'MBRSH' 'Industry Sector'.
M_FIELDCAT2 'MARC' 'MATNR' 'Material No'.
M_FIELDCAT2 'MARC' 'WERKS' 'Plant'.
M_FIELDCAT2 'MARC' 'EKGRP' 'Purchasing Group'.
M_FIELDCAT3 'MARD' 'MATNR' 'Material No'.
M_FIELDCAT3 'MARD' 'WERKS' 'Plant'.
M_FIELDCAT3 'MARD' 'LGORT' 'Storage Loc'.
M_FIELDCAT3 'MARD' 'LABST' 'Valued Stock'.
IT_EVENTS1-NAME = 'TOP_OF_PAGE'.
IT_EVENTS1-FORM = 'F_TOP_OF_PAGE_ONE'.
APPEND IT_EVENTS1.
CLEAR IT_EVENTS1.
IT_EVENTS2-NAME = 'TOP_OF_PAGE'.
IT_EVENTS2-FORM = 'F_TOP_OF_PAGE_TWO'.
APPEND IT_EVENTS2.
CLEAR IT_EVENTS2.
IT_EVENTS3-NAME = 'TOP_OF_PAGE'.
IT_EVENTS3-FORM = 'F_TOP_OF_PAGE_THREE'.
APPEND IT_EVENTS3.
CLEAR IT_EVENTS3.
ENDFORM. " Build_field_cat
*& Form disply_output
 Displaying the final output.
FORM DISPLY_OUTPUT .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 IS_LAYOUT = IT_LAYOUT
 IT_FIELDCAT = IT_FIELD_CAT1[]
 I_TABNAME = 'IT_MARA'
 IT_EVENTS = IT_EVENTS1[]
IT_SORT = IT_SORT
I_TEXT = ' '
 TABLES
 T_OUTTAB = IT_MARA .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 IS_LAYOUT = IT_LAYOUT
 IT_FIELDCAT = IT_FIELD_CAT2[]
 I_TABNAME = 'IT_MARC'
 IT_EVENTS = IT_EVENTS2[]
IT_SORT = IT_SORT
I_TEXT = ' '
 TABLES
 T_OUTTAB = IT_MARC .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 IS_LAYOUT = IT_LAYOUT
 IT_FIELDCAT = IT_FIELD_CAT3[]
 I_TABNAME = 'IT_MARD'
 IT_EVENTS = IT_EVENTS3[]
IT_SORT = IT_SORT
I_TEXT = ' '
 TABLES
 T_OUTTAB = IT_MARD .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT = IS_PRINT
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 = E_EXIT_CAUSED_BY_CALLER
ES_EXIT_CAUSED_BY_USER = ES_EXIT_CAUSED_BY_USER
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. " disply_output
*& Form top_of_page_one
 text
FORM F_TOP_OF_PAGE_ONE.
WRITE: / 'Header details (MARA)'.
ENDFORM. "top_of_page_one
*& Form top_of_page_one
 text
FORM F_TOP_OF_PAGE_TWO.
WRITE: / 'Item details (MARC)'.
ENDFORM. "top_of_page_one
*& Form top_of_page_one
 text
FORM F_TOP_OF_PAGE_THREE.
WRITE: / 'Item details (MARD)'.
ENDFORM. "top_of_page_one
regards,
venkat.

Multiple ALV reports not working in batch mode

All,
I have a report that creates a detail and a summary ALV report in one program.
When run in the foreground it works great - runs the ALV detail first and displays it and you arrow back and then the runs the ALV summary report and displays it.
But when run in the background - I get the ALV detail report sent to the spooler but nothing for the ALV summary report. Well I do get a second report sent to the spooler but it does not have any data displayed.
I ran this in debug mode - faking out the program to believe it was in Batch Mode.
Everything appears to look correct when it does the call to ALV - the outtab table has the summary data in it.
Here is the calls to ALV:
Function Module to display report in ALV List Format
IF l_detail = 'X'.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program      = l_repid
        i_callback_user_command = c_ucomm
        i_grid_title            = p_title
        i_grid_settings         = w_alv_grid
        is_layout               = w_alv_layout
        it_fieldcat             = w_alv_field
        it_sort                 = w_alv_sort
        i_default               = 'X'
        i_save                  = ' '
        it_events               = w_alv_event
        is_print                = w_alv_print
      TABLES
        t_outtab                = t_detail
      EXCEPTIONS
        program_error           = 1
        OTHERS                  = 2.
ELSEIF l_summry = 'X'.
be sure th file has the new SNO values assigned B4 calling!
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
        i_callback_program      = l_repid
        i_callback_user_command = c_ucomm
        i_grid_title            = p_title
        i_grid_settings         = w_alv_grid
        is_layout               = w_alv_layout
        it_fieldcat             = w_alv_field
        it_sort                 = w_alv_sort
        i_default               = 'X'
        i_save                  = ' '
        it_events               = w_alv_event
        is_print                = w_alv_print
      TABLES
        t_outtab                = t_summry
      EXCEPTIONS
        program_error           = 1
        OTHERS                  = 2.
ENDIF.
Maybe there something I should be calling or clearing out in the above parms when trying to create to spoolfiles from ALV in background mode.
Any suggestions are most apprecaited.
Thanks.
Scott

before calling the ALV create a separate spool for each list.
if sy-batch = 'X'.
get the print parameters with FM GET_PRINT_RARAMETERS
pass the parameters (you can change them if you like) to
NEW-PAGE PRINT ON PARAMETERS your_parameters NO DIALOG
endif.

How to select multiple lines in ALV report

hi gurus,
I am working on an interactive ALV report where i have to select multiple lines from the basic list into an internal table, based on check box clicks. Using RS_SELFIELD i can select only 1 row. The coding has been done based on Call Function. Can u please suggest some way.
Regards,
Satyajit

hi,
try like this
TABLES: ekko.
TYPE-POOLS: slis. "ALV Declarations
TYPES: BEGIN OF t_ekko,
sel, "stores which row user has selected
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
 wa_ekko TYPE t_ekko.
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
 fieldcatalog1 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.
DATA : BEGIN OF det_tab OCCURS 0,
 ebeln LIKE ekpo-ebeln,
 END OF det_tab.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*& Form BUILD_FIELDCATALOG
* Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
fieldcatalog-fieldname = 'EBELN'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'EBELP'.
fieldcatalog-seltext_m = 'PO Item'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'STATU'.
fieldcatalog-seltext_m = 'Status'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'AEDAT'.
fieldcatalog-seltext_m = 'Item change date'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MATNR'.
fieldcatalog-seltext_m = 'Material Number'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MENGE'.
fieldcatalog-seltext_m = 'PO quantity'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'MEINS'.
fieldcatalog-seltext_m = 'Order Unit'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'NETPR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-outputlen = 15.
fieldcatalog-do_sum = 'X'. "Display column total
fieldcatalog-datatype = 'CURR'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname = 'PEINH'.
fieldcatalog-seltext_m = 'Price Unit'.
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'. "makes whole ALV table editable
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_user_command = 'USER_COMMAND'
 i_callback_pf_status_set = 'SET_STAT'
 is_layout = gd_layout
 it_fieldcat = fieldcatalog[]
 i_save = 'X'
 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 ebeln ebelp statu aedat matnr menge meins netpr peinh
 UP TO 10 ROWS
 FROM ekpo
 INTO CORRESPONDING FIELDS OF TABLE it_ekko.
ENDFORM. " DATA_RETRIEVAL
* FORM USER_COMMAND *
* --> R_UCOMM *
* --> RS_SELFIELD *
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
* Check function code
CASE r_ucomm.
 WHEN '&IC1'.
 IF rs_selfield-fieldname = 'EBELN'.
 READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
 SET PARAMETER ID 'BES' FIELD wa_ekko-ebeln.
 CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
 ENDIF.
 WHEN 'DET'. "button add by me
 CLEAR det_tab.
 REFRESH det_tab.
 LOOP AT it_ekko INTO wa_ekko WHERE sel = 'X'.
 MOVE-CORRESPONDING wa_ekko TO det_tab.
 APPEND det_tab.
 ENDLOOP.
 PERFORM build_cat.
 PERFORM dis_data.
ENDCASE.
ENDFORM. "user_command
*& Form set_stat
* text
* -->RT_EXTAB text
FORM set_stat USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZSTAT' EXCLUDING rt_extab.
ENDFORM. "set_stat
*& Form build_cat
* text
FORM build_cat.
CLEAR fieldcatalog1.
REFRESH fieldcatalog1.
fieldcatalog1-fieldname = 'EBELN'.
fieldcatalog1-tabname = 'DET_TAB'.
fieldcatalog1-seltext_m = 'Order No.'.
fieldcatalog1-outputlen = 10.
APPEND fieldcatalog1 TO fieldcatalog1.
CLEAR fieldcatalog1.
ENDFORM. "build_cat
*& Form dis_data
* text
FORM dis_data.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 i_callback_program = 'ZTEST_DS'
 it_fieldcat = fieldcatalog1[]
 i_save = 'X'
 TABLES
 t_outtab = det_tab.
ENDFORM. "dis_data
here i have copied standard gui status of ALV into my z status ZSTAT and add one button DET......
here u can select morethan one line using control(ctrl)
reward if usefull...

How to select multiple row in ALV report

Hi friends,
1. How to select multiple row in ALV report
               ( How to set tab in ALV report and want to select multiple line.)
Thanking you.
Subash

Hi Sahoo,
If you are using the class CL_GUI_ALV_GRID. In methods SET_TABLE_FOR_FIRST_DISPLAY.
in layout structure you will find field SEL_MODE
pass :
LS_LAYOUT-SEL_MODE = 'A'.
In PAI.
CALL METHOD GRID->GET_SELECTED_ROWS
    IMPORTING
      ET_INDEX_ROWS = T_ROWS
      ET_ROW_NO     = T_ROWID.
Hope these will solve your problem.
Regards,
Kumar M.

Multiple ALV GRID reports on a single page

hi all
I have an urgent requirement where I need to show 2-3 alv grids on a single page. Please let me know if it is possible to do so. If yes how. Sample code would be very helpful.
thanks in advance.
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Apr 16, 2008 1:45 PM

HI,
Create multiple custom containers and call the method CALL METHOD sap_grid->set_table_for_first_display multiple times.
This will display multiple ALV grids on a single page.
Code Below:
MODULE create_objects OUTPUT.
CREATE OBJECT g_custom_container
 EXPORTING
 PARENT =
 container_name = 'CUST_CRTL'
 STYLE =
 LIFETIME = lifetime_default
 REPID =
 DYNNR =
 NO_AUTODEF_PROGID_DYNNR =
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 e143(z1).
ENDIF.
*Create object for sap grid
CREATE OBJECT sap_grid
 EXPORTING
 I_SHELLSTYLE = 0
 I_LIFETIME =
 i_parent = g_custom_container
 I_APPL_EVENTS = space
 I_PARENTDBG =
 I_APPLOGPARENT =
 I_GRAPHICSPARENT =
 I_NAME =
 EXCEPTIONS
 error_cntl_create = 1
 error_cntl_init = 2
 error_cntl_link = 3
 error_dp_create = 4
 OTHERS = 5.
IF sy-subrc <> 0.
 MESSAGE e144(z1).
ENDIF.
CREATE OBJECT g_custom_container1
 EXPORTING
 PARENT =
 container_name = 'CUST_CRTL1'
 STYLE =
 LIFETIME = lifetime_default
 REPID =
 DYNNR =
 NO_AUTODEF_PROGID_DYNNR =
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 e143(z1).
ENDIF.
*Create object for sap grid
CREATE OBJECT sap_grid1
 EXPORTING
 I_SHELLSTYLE = 0
 I_LIFETIME =
 i_parent = g_custom_container1
 I_APPL_EVENTS = space
 I_PARENTDBG =
 I_APPLOGPARENT =
 I_GRAPHICSPARENT =
 I_NAME =
 EXCEPTIONS
 error_cntl_create = 1
 error_cntl_init = 2
 error_cntl_link = 3
 error_dp_create = 4
 OTHERS = 5.
IF sy-subrc <> 0.
 MESSAGE e144(z1).
ENDIF.
CREATE OBJECT g_custom_container2
 EXPORTING
 PARENT =
 container_name = 'CUST_CRTL2'
 STYLE =
 LIFETIME = lifetime_default
 REPID =
 DYNNR =
 NO_AUTODEF_PROGID_DYNNR =
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 e143(z1).
ENDIF.
*Create object for sap grid
CREATE OBJECT sap_grid2
 EXPORTING
 I_SHELLSTYLE = 0
 I_LIFETIME =
 i_parent = g_custom_container2
 I_APPL_EVENTS = space
 I_PARENTDBG =
 I_APPLOGPARENT =
 I_GRAPHICSPARENT =
 I_NAME =
 EXCEPTIONS
 error_cntl_create = 1
 error_cntl_init = 2
 error_cntl_link = 3
 error_dp_create = 4
 OTHERS = 5.
IF sy-subrc <> 0.
 MESSAGE e144(z1).
ENDIF.
ENDMODULE. " create_objects OUTPUT
*& Module fill_fcat OUTPUT
 text
MODULE fill_fcat OUTPUT.
CONSTANTS : lc_x TYPE c VALUE 'X',
 lc_a TYPE c VALUE 'D'.
*Prepare field catalog for all Summary Report
wa_field-fieldname = 'BUKRS'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '12'.
wa_field-col_pos = '1'.
wa_field-coltext = text-002. "'Company Code'.
APPEND wa_field TO fcat.
CLEAR wa_field.
wa_field-fieldname = 'CURR'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '10'.
wa_field-col_pos = '2'.
wa_field-coltext = text-022."'Currency'.
APPEND wa_field TO fcat.
CLEAR wa_field.
wa_field-fieldname = 'KUNNR'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '10'.
wa_field-col_pos = '3'.
wa_field-coltext = text-005."'Customer Number'.
APPEND wa_field TO fcat.
CLEAR wa_field.
wa_field-fieldname = 'NAME1'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '13'.
wa_field-col_pos = '4'.
wa_field-coltext = text-007."'Customer Name'.
APPEND wa_field TO fcat.
CLEAR wa_field.
wa_field-fieldname = 'KLIMK'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '12'.
wa_field-col_pos = '5'.
wa_field-coltext = text-008. " 'Credit Limit'.
APPEND wa_field TO fcat.
CLEAR wa_field.
wa_field-fieldname = 'DMBTR'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '16'.
wa_field-col_pos = '6'.
wa_field-coltext = text-009. "'Current Balance Calculated'.
APPEND wa_field TO fcat.
CLEAR wa_field.
CLEAR wa_field.
wa_field-fieldname = 'BLNC'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '23'.
wa_field-col_pos = '7'.
wa_field-coltext = g_bal_date. "'Balance b/f @ (Date taken from Z table) '.
wa_field-fix_column = 'X'.
APPEND wa_field TO fcat.
CLEAR wa_field.
CLEAR wa_field.
wa_field-fieldname = 'DATE'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '8'.
wa_field-col_pos = '7'.
wa_field-coltext = text-021. "'Balance b/f Date @ Z Table balance'.
APPEND wa_field TO fcat.
CLEAR wa_field.
CLEAR wa_field.
wa_field-fieldname = 'INVOICES'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '13'.
wa_field-col_pos = '8'.
wa_field-coltext = text-012. "'Invoices'.
APPEND wa_field TO fcat.
CLEAR wa_field.
CLEAR wa_field.
wa_field-fieldname = 'PAYMENTS'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '13'.
wa_field-col_pos = '9'.
wa_field-coltext = text-013. "'Payments'.
APPEND wa_field TO fcat.
CLEAR wa_field.
CLEAR wa_field.
wa_field-fieldname = 'DMBTR'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '23'.
wa_field-col_pos = '10'.
wa_field-coltext = g_bal_date1. "'Balance c/f @ (Date of Lodgement from selection screen)'.
APPEND wa_field TO fcat.
CLEAR wa_field.
CLEAR wa_field.
wa_field-fieldname = 'CHECK'.
wa_field-tabname = 'T_BSID_BSAD'.
wa_field-outputlen = '13'.
wa_field-col_pos = '11'.
wa_field-coltext = text-020. "'CHECK'.
APPEND wa_field TO fcat.
CLEAR wa_field.
CLEAR g_layout.
g_layout-zebra = lc_x.
g_layout-sel_mode = lc_a.
*Prepare field catalog for all Invoice Extract
wa_field1-fieldname = 'BUKRS'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '12'.
wa_field1-col_pos = '1'.
wa_field1-coltext = text-002. "'Company Code'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
wa_field1-fieldname = 'KUNNR'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '13'.
wa_field1-col_pos = '2'.
wa_field1-coltext = text-005."'Customer Number'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
wa_field1-fieldname = 'NAME1'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '13'.
wa_field1-col_pos = '3'.
wa_field1-coltext = text-007."'Customer Name'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
wa_field1-fieldname = 'GJAHR'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '7'.
wa_field1-col_pos = '4'.
wa_field1-coltext = text-015. " 'Fiscal Year'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
wa_field1-fieldname = 'BELNR'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '10'.
wa_field1-col_pos = '5'.
wa_field1-coltext = text-016. "'Invoice Number'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
CLEAR wa_field1.
wa_field1-fieldname = 'CURR'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '8'.
wa_field1-col_pos = '6'.
wa_field1-coltext = text-022."'Currency'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
wa_field1-fieldname = 'DMBTR'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '13'.
wa_field1-col_pos = '7'.
wa_field1-coltext = text-017. "'Invoice Amount '.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
CLEAR wa_field1.
wa_field1-fieldname = 'BLDAT'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '12'.
wa_field1-col_pos = '8'.
wa_field1-coltext = text-018. "'Date of Shipment'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
CLEAR wa_field1.
wa_field1-fieldname = 'DUEDT'.
wa_field1-tabname = 'T_INVOICE'.
wa_field1-outputlen = '13'.
wa_field1-col_pos = '9'.
wa_field1-coltext = text-019. "'Due Date Calculated'.
APPEND wa_field1 TO fcat1.
CLEAR wa_field1.
CLEAR g_layout1.
g_layout1-zebra = lc_x.
g_layout-sel_mode = lc_a.
*Prepare field catalog for all Payment Extract
CLEAR wa_field2.
wa_field2-fieldname = 'BUKRS'.
wa_field2-tabname = 'T_PAYMENT'.
wa_field2-outputlen = '12'.
wa_field2-col_pos = '1'.
wa_field2-coltext = text-002. "'Company Code'.
APPEND wa_field2 TO fcat2.
CLEAR wa_field2.
CLEAR wa_field2.
wa_field2-fieldname = 'KUNNR'.
wa_field2-tabname = 'T_PAYMENT'.
wa_field2-outputlen = '13'.
wa_field2-col_pos = '2'.
wa_field2-coltext = text-005. "'Customer Number'.
APPEND wa_field2 TO fcat2.
CLEAR wa_field2.
CLEAR wa_field2.
wa_field2-fieldname = 'NAME1'.
wa_field2-tabname = 'T_PAYMENT'.
wa_field2-outputlen = '13'.
wa_field2-col_pos = '3'.
wa_field2-coltext = text-007. "'Customer Name'.
APPEND wa_field2 TO fcat2.
CLEAR wa_field2.
CLEAR wa_field2.
wa_field2-fieldname = 'GJAHR'.
wa_field2-tabname = 'T_PAYMENT'.
wa_field2-outputlen = '11'.
wa_field2-col_pos = '4'.
wa_field2-coltext = text-015. "'Fiscal Year'.
APPEND wa_field2 TO fcat2.
CLEAR wa_field2.
CLEAR wa_field2.
wa_field2-fieldname = 'BELNR'.
wa_field2-tabname = 'T_PAYMENT'.
wa_field2-outputlen = '13'.
wa_field2-col_pos = '5'.
wa_field2-coltext = text-016. "'Invoice Number'.
APPEND wa_field2 TO fcat2.
CLEAR wa_field2.
CLEAR wa_field2.
wa_field2-fieldname = 'CURR'.
wa_field2-tabname = 'T_PAYMENT'.
wa_field2-outputlen = '11'.
wa_field2-col_pos = '6'.
wa_field2-coltext = text-022."'Currency'.
APPEND wa_field2 TO fcat2.
CLEAR wa_field2.
wa_field2-fieldname = 'DMBTR'.
wa_field2-tabname = 'T_PAYMENT'.
wa_field2-outputlen = '13'.
wa_field2-col_pos = '7'.
wa_field2-coltext = text-017. "'Invoice Amount'.
APPEND wa_field2 TO fcat2.
CLEAR wa_field2.
CLEAR g_layout2.
g_layout2-zebra = lc_x.
g_layout-sel_mode = lc_a.
ENDMODULE. " fill_fcat OUTPUT
*& Module display_data OUTPUT
 text
MODULE display_data OUTPUT.
g_layout3-variant = g_save.
CALL METHOD sap_grid->set_table_for_first_display
 EXPORTING
 I_BUFFER_ACTIVE =
 I_BYPASSING_BUFFER =
 I_CONSISTENCY_CHECK =
 i_structure_name = 'gt_display'
 is_variant = g_layout3
 i_save = 'A'
 i_default = 'X'
 is_layout = g_layout
 IS_PRINT =
 IT_SPECIAL_GROUPS =
 IT_TOOLBAR_EXCLUDING =
 IT_HYPERLINK =
 IT_ALV_GRAPHICS =
 IT_EXCEPT_QINFO =
 CHANGING
 it_outtab = t_bsid_bsad
 it_fieldcatalog = fcat
 IT_SORT =
 IT_FILTER =
 EXCEPTIONS
 invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 OTHERS = 4 .
IF sy-subrc <> 0.
 MESSAGE e145(z1).
ENDIF.
g_layout4-variant = g_save1.
CALL METHOD sap_grid1->set_table_for_first_display
 EXPORTING
 I_BUFFER_ACTIVE =
 I_BYPASSING_BUFFER =
 I_CONSISTENCY_CHECK =
 i_structure_name = 'gt_display1'
 is_variant = g_layout4
 i_save = 'A'
 i_default = 'X'
 is_layout = g_layout1
 IS_PRINT =
 IT_SPECIAL_GROUPS =
 IT_TOOLBAR_EXCLUDING =
 IT_HYPERLINK =
 IT_ALV_GRAPHICS =
 IT_EXCEPT_QINFO =
 CHANGING
 it_outtab = t_invoice
 it_fieldcatalog = fcat1
 IT_SORT =
 IT_FILTER =
 EXCEPTIONS
 invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 OTHERS = 4 .
IF sy-subrc <> 0.
 MESSAGE e145(z1).
ENDIF.
g_layout5-variant = g_save2.
CALL METHOD sap_grid2->set_table_for_first_display
 EXPORTING
 I_BUFFER_ACTIVE =
 I_BYPASSING_BUFFER =
 I_CONSISTENCY_CHECK =
 i_structure_name = 'gt_display2'
 is_variant = g_layout5
 i_save = 'A'
 i_default = 'X'
 is_layout = g_layout2
 IS_PRINT =
 IT_SPECIAL_GROUPS =
 IT_TOOLBAR_EXCLUDING =
 IT_HYPERLINK =
 IT_ALV_GRAPHICS =
 IT_EXCEPT_QINFO =
 CHANGING
 it_outtab = t_payment
 it_fieldcatalog = fcat2
 IT_SORT =
 IT_FILTER =
 EXCEPTIONS
 invalid_parameter_combination = 1
 program_error = 2
 too_many_lines = 3
 OTHERS = 4 .
IF sy-subrc <> 0.
 MESSAGE e145(z1).
ENDIF.
ENDMODULE. " display_data OUTPUT
*& Module exit INPUT
 text
MODULE exit INPUT.
CALL METHOD g_custom_container->free.
CLEAR t_bsid_bsad[].
CALL METHOD g_custom_container1->free.
CLEAR t_invoice[].
CALL METHOD g_custom_container2->free.
CLEAR t_payment[].
LEAVE PROGRAM.
ENDMODULE. " exit INPUT
*& Module user_command_1100 INPUT
 text
MODULE user_command_1100 INPUT.
MOVE g_ok_code TO g_saveok_code.
CLEAR g_ok_code.
CASE g_saveok_code.
*on BACK leave program
 WHEN 'BACK'.
 CALL METHOD g_custom_container->free.
 CALL METHOD g_custom_container1->free.
 CALL METHOD g_custom_container2->free.
 CLEAR: g_custom_container,
 g_custom_container1,
 g_custom_container2.
 LEAVE PROGRAM.
 SET SCREEN 1000.
 CALL TRANSACTION 'Z5172'.
 CALL SELECTION-SCREEN 1000.
 set screen 0.
 leave screen.
*on CANCEL leave program
 WHEN 'EXIT'.
 CALL METHOD g_custom_container->free.
 CALL METHOD g_custom_container1->free.
 CALL METHOD g_custom_container2->free.
 LEAVE PROGRAM.
*on CANCEL leave program
 WHEN 'CANCEL'.
 CALL METHOD g_custom_container->free.
 CALL METHOD g_custom_container1->free.
 CALL METHOD g_custom_container2->free.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " user_command_1100 INPUT

Multiple ALV Objects in one Report

I have multiple ALV ojbects in one ABAP report (one a grid, and one a tree). When selecting the choose display layout for either object - it returns the layouts for BOTH objects. Is there any way of limiting this to only return the layouts for the appropriate object?
Thanks in advance.

Hi Heather,
in methode set_table_for_first_display you can use the parameter is_variant of type DISVARIANT. Use the field HANDLE in this structure to distinguish the two ALV Objects. Fill also field REPORT of the same structure with sy-repid.
Regards Florian

Alv report for multiple record insertion

hi,
i'm new to abap. i'm using alv report for record display and insertion. how can i insert multiple records from alv to my table??

well that can be achieved only by running BDC inside alv report to enter the entries.and in that too you can append or edit single entries only
reward if useful
regards
vivek

How to apply List box for multiple selection of rows in ALV report ?

Hi Exprots,
1: How to apply List box for multiple selection of rows in ALV report ?
Thanking you.
Subash

hi,
check the below program.
REPORT zalv_dropdowns.
*Type pools declarations for ALV
TYPE-POOLS : slis.
*data declarations for ALV container,ALV grid, Fieldcatalogues & layout
DATA: g_grid TYPE REF TO cl_gui_alv_grid,
 g_custom_container TYPE REF TO cl_gui_custom_container,
 gt_fieldcat TYPE lvc_t_fcat,
 gs_layout TYPE lvc_s_layo.*INTERNAL TABLE AND WA DECLARATIONS FOR t517 A table
DATA: gt_outtab TYPE STANDARD TABLE OF t517a INITIAL SIZE 0,
 wa_outtab TYPE t517a.
START-OF-SELECTION.*Call to ALV
CALL SCREEN 600.*On this statement double click it takes you to the screen painter SE51.
*Create a Custom container and name it CCONT and OK code as OK_CODE.
*Save check and Activate the screen painter.
*Now a normal screen with number 600 is created which holds the ALV grid.
PBO of the actual screen , Here we can give a title and customized menus
Here we also call the subroutine for ALV output.
 MODULE PBO OUTPUT *
MODULE pbo OUTPUT.
PERFORM alv_output.
ENDMODULE. "pbo OUTPUT
 MODULE PAI INPUT *
MODULE pai INPUT.
ENDMODULE. "pai INPUT
*& Form BUILD_FIELDCAT
FORM build_fieldcat.
DATA ls_fcat TYPE lvc_s_fcat.
*Build the field catalogue
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = 'T517A'
 CHANGING
 ct_fieldcat = gt_fieldcat.
To assign dropdown in the fieldcataogue
LOOP AT gt_fieldcat INTO ls_fcat.
CASE ls_fcat-fieldname.
 WHEN 'SLART'.
*is the first list box
 ls_fcat-drdn_hndl = '1'.
 ls_fcat-outputlen = 15.
 MODIFY gt_fieldcat FROM ls_fcat.
is the second list box
WHEN 'ABART'.
 ls_fcat-drdn_hndl = '2'.
 ls_fcat-outputlen = 15.
 MODIFY gt_fieldcat FROM ls_fcat.
ENDCASE.
ENDLOOP.
ENDFORM. "build_fieldcat
*& Form ALV_OUTPUT
FORM alv_output .*Create object for container
CREATE OBJECT g_custom_container
 EXPORTING container_name = 'CCONT'.
*create object for grid
CREATE OBJECT g_grid
 EXPORTING i_parent = g_custom_container.
Build fieldcat and set column
*Assign a handle for the dropdown listbox.
PERFORM build_fieldcat.
*Build layout
PERFORM build_layout.
Define a drop down table.
PERFORM dropdown_table.
*fetch values from the T517A table
SELECT * FROM t517a INTO TABLE gt_outtab.
*Display ALV output
CALL METHOD g_grid->set_table_for_first_display
 EXPORTING
 is_layout = gs_layout
 CHANGING
 it_fieldcatalog = gt_fieldcat
 it_outtab = gt_outtab.ENDFORM. "ALV_OUTPUT
*& Form dropdown_table
 text
--> p1 text
<-- p2 text
FORM dropdown_table.*Declarations for drop down lists in ALV.
DATA: lt_dropdown TYPE lvc_t_drop,
 ls_dropdown TYPE lvc_s_drop.
First SLART listbox (handle '1').
ls_dropdown-handle = '1'.
ls_dropdown-value = '01 Primary school'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '1'.
ls_dropdown-value = '02 Lower Secondary'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '1'.
ls_dropdown-value = '03 Upper Secondary'.
APPEND ls_dropdown TO lt_dropdown.
ls_dropdown-handle = '1'.
ls_dropdown-value = '04 Professional School'.
APPEND ls_dropdown TO lt_dropdown.
ls_dropdown-handle = '1'.
ls_dropdown-value = '05 College'.
APPEND ls_dropdown TO lt_dropdown.
ls_dropdown-handle = '1'.
ls_dropdown-value = '06 University'.
APPEND ls_dropdown TO lt_dropdown.
ls_dropdown-handle = '1'.
ls_dropdown-value = '09 Other Establishment'.
APPEND ls_dropdown TO lt_dropdown.* Second ABART listbox (handle '2'). ls_dropdown-handle = '2'.
ls_dropdown-value = '10 Primary School certificate'.
APPEND ls_dropdown TO lt_dropdown.
ls_dropdown-handle = '2'.
ls_dropdown-value = '20 Lower secondary/Junior high'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '30 High school diploma(B-levels)'.
APPEND ls_dropdown TO lt_dropdown.
ls_dropdown-handle = '2'.
ls_dropdown-value = '31 Vocational'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '32 Matriculation'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '40 Specialist vocational certificate'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '50 College degree Level1'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '51 College degree Level2'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '52 Masters degree'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '60 Univ Degree level1'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '61 Bachelors degree'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '62 Masters degree'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '63 Licenciate'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '64 Doctors Degree Ph.D'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '89 None'.
APPEND ls_dropdown TO lt_dropdown. ls_dropdown-handle = '2'.
ls_dropdown-value = '90 Unknown'.
APPEND ls_dropdown TO lt_dropdown.*method to display the dropdown in ALV
CALL METHOD g_grid->set_drop_down_table
 EXPORTING
 it_drop_down = lt_dropdown.ENDFORM. " dropdown_table
*& Form build_layout
 text
*layout for ALV output
FORM build_layout . gs_layout-cwidth_opt = 'X'.
gs_layout-grid_title = 'ALV DROPDOWN LISTS'.
gs_layout-no_toolbar = 'X'.ENDFORM. " build_layout
endform.
Edited by: S.r.v.r.Kumar on Jun 1, 2009 2:48 PM

Multiple level headers in column of an ALV report

Hi All,
I have a requirement . I need to display a two level coloumn in alv grid display .
Example :
                     | Cust no    |   Address        |
|            |------------------|
                     |            | city | code     |
Kindly please help how can i achieve this in alv report .
Regards.
Moderator message: not available, flat structures only, see online documentation of class or function module.
Edited by: Thomas Zloch on May 24, 2011 4:47 PM

Hi Ricky,
Kindly go through the link below:
http://help.sap.com/saphelp_erp2004/helpdata/EN/85/ce25c2d7ae11d3b56d006094192fe3/content.htm
Hope it helps you
Regrds
Mansi

Multiple Internal tables in separate result sets in ALV report

Hi All
I need to create a program to display the 3 different Internal Tables in different boxes using ALV
For example, say i am having the values in my internal table say ITAB1, ITAB2 & ITAB3 if you call the "REUSE_ALV_LIST_DISPLAY" by passing the "ITAB1" it will show you the output in 1 box,
but we can't then display the ITAB2 and ITAB3 data.
so i want to confirm 3 separate internal tables are displayed in separate boxes using ALV.
Is it possible in ALV ?

Hi Amol Sonaikar
1.
Displaying different ITABs one by one using ALV called BLOCKED ALV reports.
2.
For this we use 3 FMs
REUSE_ALV_BLOCK_LIST_INIT
REUSE_ALV_BLOCK_LIST_APPEND
REUSE_ALV_BLOCK_LIST_APPEND
3.
Have a look at this Example .
Just create and Execute .It displays 2 outputs.
If u want display another one call REUSE_ALV_BLOCK_LIST_APPEND FM and pass ur ITAB .
REPORT zvenkat_head1.
DATA: BEGIN OF i_mard OCCURS 0,
 werks TYPE mard-werks,
 lgort TYPE mard-lgort,
 matnr TYPE mard-matnr,
 insme TYPE mard-insme,
 einme TYPE mard-einme,
 speme TYPE mard-speme,
 END OF i_mard.
DATA: BEGIN OF i_makt OCCURS 0,
 matnr TYPE makt-matnr,
 maktx TYPE makt-maktx,
 maktg TYPE makt-maktg,
 END OF i_makt.
*& ALV Variables
TYPE-POOLS :slis.
DATA :i_field TYPE slis_t_fieldcat_alv,
 w_field LIKE LINE OF i_field,
 w_layout TYPE slis_layout_alv,
 i_events TYPE slis_t_event,
 w_events LIKE LINE OF i_events.
DATA :i_field1 TYPE slis_t_fieldcat_alv,
 w_field1 LIKE LINE OF i_field1,
 w_layout1 TYPE slis_layout_alv,
 i_events1 TYPE slis_t_event,
 w_events1 LIKE LINE OF i_events1.
*& START-OF-SELECTION
START-OF-SELECTION.
PERFORM get_data_from_database .
*& END-OF-SELECTION
END-OF-SELECTION.
PERFORM build_fieldcatalog.
PERFORM build_events.
PERFORM display_data.
*& Form build_fieldcatalog
FORM build_fieldcatalog .
CLEAR :
 w_field,
 i_field[].
CLEAR :
 w_field1,
 i_field1[].
Fieldcatalog 1
w_field-fieldname = 'WERKS' .
w_field-tabname = 'I_MARD'.
w_field-seltext_m = 'Plant'.
APPEND w_field TO i_field.
CLEAR w_field.
w_field-fieldname = 'LGORT' .
w_field-tabname = 'I_MARD'.
w_field-seltext_m = 'S.Location'.
APPEND w_field TO i_field.
CLEAR w_field.
w_field-fieldname = 'MATNR'.
w_field-tabname = 'I_MARD'.
w_field-seltext_m = 'Mat No'.
APPEND w_field TO i_field.
CLEAR w_field.
w_field-fieldname = 'INSME' .
w_field-do_sum = 'X'.
w_field-tabname = 'I_MARD'.
w_field-seltext_m = 'quality Stock'.
APPEND w_field TO i_field.
CLEAR w_field.
w_field-fieldname = 'EINME'.
w_field-do_sum = 'X'.
w_field-tabname = 'I_MARD'.
w_field-seltext_m = 'Total Stock'.
APPEND w_field TO i_field.
CLEAR w_field.
w_field-fieldname = 'SPEME'.
w_field-do_sum = 'X'.
w_field-tabname = 'I_MARD'.
w_field-seltext_m = 'Blocked stock'.
APPEND w_field TO i_field.
CLEAR w_field.
Fieldcatalog 2
w_field1-fieldname = 'MATNR'.
w_field1-tabname = 'I_MAKT'.
w_field1-seltext_m = 'MATNR'.
APPEND w_field1 TO i_field1.
CLEAR w_field1.
w_field1-fieldname = 'MAKTX'.
w_field1-tabname = 'I_MAKT'.
w_field1-seltext_m = 'MAKTX'.
APPEND w_field1 TO i_field1.
CLEAR w_field1.
w_field1-fieldname = 'MAKTG'.
w_field1-tabname = 'I_MAKT'.
w_field1-seltext_m = 'MAKTG'.
APPEND w_field1 TO i_field1.
CLEAR w_field1.
ENDFORM. " build_fieldcatalog
*& Form build_events
FORM build_events .
CLEAR:
 w_events,
 i_events[],
 w_events1,
 i_events1[].
w_events-name = 'TOP_OF_PAGE' .
w_events-form = 'TOP_OF_PAGE' .
APPEND w_events TO i_events.
CLEAR w_events.
w_events1-name = 'TOP_OF_PAGE' .
w_events1-form = 'TOP_OF_PAGE' .
APPEND w_events1 TO i_events1.
CLEAR w_events1.
ENDFORM. " build_events
*& Form display_data
FORM display_data .
DATA :program LIKE sy-repid VALUE sy-repid.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
 EXPORTING
 i_callback_program = program
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
IT_EXCLUDING =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 is_layout = w_layout
 it_fieldcat = i_field
 i_tabname = 'I_MARD'
 it_events = i_events
IT_SORT =
I_TEXT = ' '
 TABLES
 t_outtab = i_mard
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 is_layout = w_layout
 it_fieldcat = i_field1
 i_tabname = 'I_MAKT'
 it_events = i_events1
IT_SORT =
I_TEXT = ' '
 TABLES
 t_outtab = i_makt
EXCEPTIONS
PROGRAM_ERROR = 1
MAXIMUM_OF_APPENDS_REACHED = 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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
IS_PRINT =
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 =
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_data
*& Form get_data_from_database
 text
FORM get_data_from_database .
SELECT werks lgort matnr insme einme speme
FROM mard
INTO CORRESPONDING FIELDS OF TABLE i_mard
UP TO 20 ROWS
WHERE werks = 'WF01'.
SELECT matnr
 maktx
 maktg
 FROM makt
 INTO TABLE i_makt
 UP TO 20 ROWS.
ENDFORM. " get_data_from_database
*& Form top_of_page
 text
FORM top_of_page.
DATA: inc_colnum TYPE i.
ULINE .
inc_colnum = sy-linsz - 60.
WRITE: / 'Report: ', sy-repid(18).
WRITE AT 30(inc_colnum) sy-title CENTERED.
inc_colnum = sy-linsz - 20.
WRITE: AT inc_colnum 'Page: ', (11) sy-pagno RIGHT-JUSTIFIED.
WRITE: / 'Client: ', sy-mandt.
inc_colnum = sy-linsz - 20.
WRITE: AT inc_colnum 'Date: ', sy-datum.
WRITE: / 'User : ', sy-uname.
inc_colnum = sy-linsz - 60.
WRITE AT 30(inc_colnum) 'Blocked ALV' CENTERED.
inc_colnum = sy-linsz - 20.
WRITE: AT inc_colnum 'Time: ', (10) sy-uzeit RIGHT-JUSTIFIED.
ULINE .
ENDFORM. "top_of_page
I think that example will solve ur problem.
Thanks,
Venkat.O

ALV REPORT WITH MULTIPLE BLOCKS - COLUM TOTAL

Hi friends,
In the following code, I am not getting the column total.
--- SAMPLE 1--
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
 EXPORTING
 i_callback_program = sy-cprog
 i_callback_user_command = 'USER_COMMAND'.
PERFORM list_append TABLES IT_CTV
 USING '1'
 'IT_CTV'.
PERFORM list_append TABLES IT_APP
 USING '2'
 'IT_APP'.
PERFORM f_list_display.
 FORM USER_COMMAND *
FORM user_command USING i_ucomm LIKE sy-ucomm
 is_selfield TYPE slis_selfield. "#EC CALLED
ENDFORM. " USER_COMMAND
 Form list_append
FORM list_append TABLES ut_table
 USING u_no TYPE char1
 u_tabname TYPE slis_tabname.
DEFINE m_fieldcat.
 ls_fieldcat-fieldname = &1.
 ls_fieldcat-ref_tabname = &2.
 append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
DATA: GT_ZSUM TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE.
DEFINE m_sort.
 ls_sort-fieldname = &1.
 ls_sort-up = 'X'.
 append ls_sort to lt_sort.
END-OF-DEFINITION.
DATA :
 ls_fieldcat TYPE slis_fieldcat_alv,
 lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
 ls_sort TYPE slis_sortinfo_alv,
 lt_sort TYPE slis_t_sortinfo_alv. " Sort table
DATA:
 lt_events TYPE slis_t_event,
 ls_event TYPE slis_alv_event,
 ls_layout TYPE slis_layout_alv.
ls_layout-group_change_edit = 'X'.
ls_layout-colwidth_optimize = 'X'.
ls_layout-zebra = 'X'.
ls_layout-cell_merge = 'X'.
ls_layout-detail_popup = 'X'.
ls_layout-get_selinfos = 'X'.
ls_layout-max_linesize = '300'.
CASE u_no.
 WHEN '1'.
 ls_fieldcat-SELTEXT_L = ' REGION'.
 m_fieldcat 'BZIRK' 'IT_CTV'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' CTV STOCK'.
 m_fieldcat 'CTVST' 'IT_CTV'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' CTV VALUE'.
 m_fieldcat 'CTVVL' 'IT_CTV'.
 ls_fieldcat-DO_SUM = 'X'.
 m_sort 'BZIRK'.
 WHEN '2'.
 ls_fieldcat-SELTEXT_L = ' REGION'.
 m_fieldcat 'BZIRK' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' RFG STK'.
 m_fieldcat 'RFGST' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' RFG VAL'.
 m_fieldcat 'RFGVL' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' WM STK'.
 m_fieldcat 'WMCST' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' WM VAL'.
 m_fieldcat 'WMCVL' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' MCCS STK'.
 m_fieldcat 'MOVST' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' MCCS VAL'.
 m_fieldcat 'MOVVL' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' APP STK'.
 m_fieldcat 'APPST' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-SELTEXT_L = ' APP VAL'.
 m_fieldcat 'APPVL' 'IT_APP'.
 ls_fieldcat-just = 'R'.
 ls_fieldcat-DO_SUM = 'X'.
 m_sort 'BZIRK'.
ENDCASE.
ls_fieldcat-COL_POS = 1.
ls_fieldcat-FIELDNAME = 'BZIRK'.
ls_fieldcat-DO_SUM = 'X'.
ls_fieldcat-FIX_COLUMN = 'X'.
APPEND ls_fieldcat TO lT_fieldcat.
IF u_no CA '13'.
 MOVE 'TOP_OF_PAGE' TO ls_event-name.
 CONCATENATE 'TOP_OF_PAGE' u_no INTO ls_event-form.
 APPEND ls_event TO lt_events.
ELSE.
 MOVE 'TOP_OF_LIST' TO ls_event-name.
 CONCATENATE 'TOP_OF_LIST' u_no INTO ls_event-form.
 APPEND ls_event TO lt_events.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 it_fieldcat = lt_fieldcat
 is_layout = ls_layout
 i_tabname = u_tabname
 it_events = lt_events
 it_sort = lt_sort
 TABLES
 t_outtab = ut_table
 EXCEPTIONS
 program_error = 1
 maximum_of_appends_reached = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " LIST_APPEND
 Form f_list_display
FORM f_list_display.
DATA ls_print TYPE slis_print_alv.
ls_print-no_print_selinfos = 'X'. " Display no selection infos
ls_print-no_print_listinfos = 'X'. " Display no listinfos
ls_print-reserve_lines = 2. " Lines reserved for end of page
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
 EXPORTING
 i_interface_check = ' '
 is_print = ls_print
 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. " F_LIST_DISPLAY
 FORM top_of_page1 *
FORM top_of_page1. "#EC CALLED
WRITE 'SALES REPORT'.
PERFORM TOP_LIST1.
ENDFORM.
 FORM top_of_list2 *
FORM top_of_list2. "#EC CALLED
WRITE 'STOCK REPORT'.
PERFORM top_of_page.
ENDFORM.
*-----END OF SAMPLE 1 -
Could any help me.
Thanx in advance.
Regards,
A S VINCENT

Hai Vincent
Check & Run the follow ABAP Code
*& Report ZALV_Block *
REPORT ZALV_block NO STANDARD PAGE HEADING
 MESSAGE-ID ZZ.
*..Type Definitions for ALV Report
TYPE-POOLS SLIS.
Table Declarations. *
TABLES: MARA, "Material Master
 MARC, "Plant Data for Material
 MARD, "Storage Location Data for Material
 VBAP, "Sales Document: Item Data
 VBUP. "Sales Document: Item Status
Internal table to store sales orders.......
DATA: BEGIN OF IT_VBAP OCCURS 0,
 VBELN LIKE VBAP-VBELN, "Sales Document
 POSNR LIKE VBAP-POSNR, "Sales Document Item
 KWMENG LIKE VBAP-KWMENG, "Cumulative order quantity in sales
 " Units
 END OF IT_VBAP.
internal table to store final data
DATA: BEGIN OF IT_FINAL OCCURS 0,
 WERKS LIKE MARD-WERKS, "Plant
 MATNR LIKE MARD-MATNR, "Material Number
 LGORT LIKE MARD-LGORT, "Storage Location
 LABST LIKE MARD-LABST, "Valuated stock with unrestricted use
 INSME LIKE MARD-INSME, "Stock in quality inspection
 RETME LIKE MARD-RETME, "Blocked Stock Returns
 UMLME LIKE MARD-UMLME, "Stock in transfer
 MAKTX LIKE MAKT-MAKTX, "Material description
 VBELN LIKE VBAP-VBELN, "Sales Document
 POSNR LIKE VBAP-POSNR, "Sales Document Item
 KWMENG LIKE VBAP-KWMENG, "Cumulative order quantity in sales
 " Units
 END OF IT_FINAL.
ALV Type declaration *
*..Field Catalog for Basic List.
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
*..Events For Basic List.
DATA : IT_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENTS TYPE SLIS_ALV_EVENT.
*..Layout For Basic List
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
*..Sort Table For Basic List
DATA: IT_SORT TYPE SLIS_SORTINFO_ALV OCCURS 0 WITH HEADER LINE.
 DATA DECLARATIONS *
DATA: V_FLAG,
 VINDEX TYPE SY-TABIX,
 TOTAL TYPE VBAP-KWMENG. "Open order quantity
*..To Store Program Name
DATA: V_REPID TYPE SYREPID.
*..To know whether basic list contains any data
Selection Screen. *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-H01.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR,
 S_WERKS FOR MARC-WERKS,
 S_LGORT FOR MARD-LGORT.
SELECTION-SCREEN END OF BLOCK B1.
Event:Initialization *
INITIALIZATION.
V_REPID = SY-REPID.
AT Selection Screen. *
AT SELECTION-SCREEN.
PERFORM VALIDATIONS.
Event: Start-of-Selection *
START-OF-SELECTION.
 To get data from vbap into internal table IT_VBAP
PERFORM FETCH_OPEN_DATA.
 To get data into final internal table IT_FINAL
IF V_FLAG = 'X'.
 PERFORM FETCH_FINAL_DATA.
ENDIF.
IF V_FLAG = ''.
 MESSAGE I010 WITH 'NO DATA TO BE DISPLAYED'.
 EXIT.
ELSE.
--Setting the FIELD CATALOG for ALV
 PERFORM FILL_FIELDCAT_HEADER.
*-----Setting the LAYOUT for ALV
 PERFORM GET_LAYOUT.
*-----Getting the ALV Events
 PERFORM GET_EVENT.
*---- To Sort the list
 PERFORM DO_SORT.
ENDIF.
Event: End-of-Selection *
END-OF-SELECTION.
*--Generating the ALV LIST DISPLAY
PERFORM DISPLAY_LIST.
 FORM DEFINITIONS *
*& Form VALIDATIONS
 To validate data in selection screen
--> p1 text
<-- p2 text
FORM VALIDATIONS.
PERFORM VALIDATE_MATNR.
PERFORM VALIDATE_WERKS.
PERFORM VALIDATE_LGORT.
IF NOT ( ( MARA-MATNR IS INITIAL ) AND
 ( MARC-WERKS IS INITIAL ) AND
 ( MARD-LGORT IS INITIAL ) ).
 SELECT SINGLE MATNR
 WERKS
 LGORT
 FROM MARD
 INTO (MARD-MATNR, MARD-WERKS, MARD-LGORT)
 WHERE MATNR = MARA-MATNR
 AND WERKS = MARC-WERKS
 AND LGORT = MARD-LGORT.
ENDIF.
ENDFORM. " VALIDATIONS
*& Form VALIDATE_MATNR
 To validate MATNR
--> p1 text
<-- p2 text
FORM VALIDATE_MATNR.
IF NOT S_MATNR[] IS INITIAL.
 SELECT MATNR
 UP TO 1 ROWS
 INTO (MARD-MATNR)
 FROM MARA
 WHERE MATNR IN S_MATNR.
 ENDSELECT.
ENDIF.
IF SY-SUBRC NE 0.
 MESSAGE E000 WITH TEXT-001.
ENDIF.
ENDFORM. " VALIDATE_MATNR
*& Form VALIDATE_WERKS
 To validate plant
--> p1 text
<-- p2 text
FORM VALIDATE_WERKS.
IF NOT S_WERKS[] IS INITIAL.
 SELECT WERKS
 UP TO 1 ROWS
 INTO (MARD-WERKS)
 FROM MARC
 WHERE WERKS IN S_WERKS.
 ENDSELECT.
ENDIF.
IF SY-SUBRC NE 0.
 MESSAGE E000 WITH TEXT-002.
ENDIF.
ENDFORM. " VALIDATE_WERKS
*& Form VALIDATE_LGORT
 To validate storage
--> p1 text
<-- p2 text
FORM VALIDATE_LGORT.
IF NOT S_LGORT[] IS INITIAL.
 SELECT LGORT
 UP TO 1 ROWS
 INTO (MARD-LGORT)
 FROM MARD
 WHERE LGORT IN S_LGORT.
 ENDSELECT.
ENDIF.
IF SY-SUBRC NE 0.
 MESSAGE E000 WITH TEXT-003.
ENDIF.
ENDFORM. " VALIDATE_LGORT
*& Form FETCH_OPEN_DATA
 To get data into internal table IT_VBAP
--> p1 text
<-- p2 text
FORM FETCH_OPEN_DATA.
IF NOT ( ( MARA-MATNR IS INITIAL ) AND
 ( MARC-WERKS IS INITIAL ) AND
 ( MARD-LGORT IS INITIAL ) ).
 SELECT VBELN
 POSNR
 KWMENG
 INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
 FROM VBAP
 WHERE MATNR IN S_MATNR
 AND WERKS IN S_WERKS
 AND LGORT IN S_LGORT.
ENDIF.
LOOP AT IT_VBAP.
 SELECT * FROM VBUP
 INTO VBUP
 WHERE VBELN = IT_VBAP-VBELN
 AND POSNR = IT_VBAP-POSNR
 AND LFSTA NE 'C'.
 ENDSELECT.
ENDLOOP.
IF SY-SUBRC NE 0.
 REFRESH IT_VBAP.
 MESSAGE E000 WITH TEXT-004.
 EXIT.
ELSE.
 V_FLAG = 'X'.
ENDIF.
 To get sum of all quantities as open order quantity
LOOP AT IT_VBAP.
 TOTAL = TOTAL + IT_VBAP-KWMENG.
ENDLOOP.
ENDFORM. " FETCH_OPEN_DATA
*& Form FETCH_FINAL_DATA
 To get data into final internal table IT_FINAL
--> p1 text
<-- p2 text
FORM FETCH_FINAL_DATA.
SELECT A~MATNR
 A~WERKS
 A~LGORT
 MAKTX
 LABST
 INSME
 RETME
 UMLME
 VBELN
 POSNR
 KWMENG
 INTO CORRESPONDING FIELDS OF TABLE IT_FINAL
 FROM MARD AS A
 INNER JOIN MAKT AS B
 ON AMATNR = BMATNR
 AND SPRAS = 'E'
 INNER JOIN VBAP AS C
 ON AMATNR = CMATNR
 FOR ALL ENTRIES IN IT_VBAP
 WHERE VBELN = IT_VBAP-VBELN
 AND POSNR = IT_VBAP-POSNR
 AND KWMENG = IT_VBAP-KWMENG
 AND A~MATNR IN S_MATNR
 AND A~WERKS IN S_WERKS
 AND A~LGORT IN S_LGORT.
IF SY-SUBRC NE 0.
 V_FLAG = SPACE.
 MESSAGE E001 WITH 'No data found IN the selection criteria'.
 EXIT.
ELSE.
 V_FLAG = 'X'.
ENDIF.
ENDFORM. " FETCH_FINAL_DATA
*& Form FILL_FIELDCAT_HEADER
 text
--> p1 text
<-- p2 text
FORM FILL_FIELDCAT_HEADER .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = V_REPID
 I_INTERNAL_TABNAME = 'IT_FINAL'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = V_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT IT_FIELDCAT INTO WA_FIELDCAT.
 CASE WA_FIELDCAT-FIELDNAME.
 WHEN 'KWMENG'.
 WA_FIELDCAT-COL_POS = '11'.
 WA_FIELDCAT-OUTPUTLEN = '22'.
 WA_FIELDCAT-SELTEXT_L = 'Net Value'.
 WA_FIELDCAT-DO_SUM = 'X'.
 ENDCASE.
 MODIFY IT_FIELDCAT FROM WA_FIELDCAT INDEX SY-TABIX.
ENDLOOP.
ENDFORM. " FILL_FIELDCAT_HEADER
*& Form GET_LAYOUT
 text
--> p1 text
<-- p2 text
FORM GET_LAYOUT .
WA_LAYOUT-TOTALS_TEXT = 'TOTAL'.
ENDFORM. " GET_LAYOUT
*& Form GET_EVENT
 text
--> p1 text
<-- p2 text
FORM GET_EVENT .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = IT_EVENTS
 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.
LOOP AT IT_EVENTS INTO WA_EVENTS.
 CASE WA_EVENTS-NAME.
 WHEN 'TOP_OF_PAGE'.
 WA_EVENTS-FORM = 'FILL_LIST_HEADER'.
 WHEN 'USER_COMMAND'.
 WA_EVENTS-FORM = 'PROCESS_BASIC_LIST'.
 ENDCASE.
 MODIFY IT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.
ENDLOOP.
ENDFORM. " GET_EVENT
 FORM FILL_LIST_HEADER *
FORM FILL_LIST_HEADER.
WRITE:2'Report :' , SY-REPID,
 : 85 ' Intelligroup Asia Pvt Ltd' CENTERED,
 : 159 'Date :' ,SY-DATUM,
 :/2'User :', SY-UNAME,
 : 82 ' Hyderabad ' CENTERED ,
 : 159 'Pg.No :' ,SY-PAGNO,
 :/86 ' Stock Report ' CENTERED.
SKIP 2.
ENDFORM. "FILL_LIST_HEADER
*& Form DISPLAY_LIST
 text
--> p1 text
<-- p2 text
FORM DISPLAY_LIST .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
 IS_LAYOUT = WA_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
 IT_SORT = IT_SORT[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 IT_EVENTS = 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 = 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. " DISPLAY_LIST
*& Form do_sort
 text
--> p1 text
<-- p2 text
FORM DO_SORT .
*-- Populating the sort table
IT_SORT-FIELDNAME = 'MATNR'.
IT_SORT-TABNAME = 'IT_FINAL'.
IT_SORT-UP = 'X'.
it_sort-subtot = 'X'.
APPEND IT_SORT.
ENDFORM. " do_sort
Thanks & Regards
Sreenivasulu P

ALV REPORT WITH MULTIPLE BLOCKS

To print two blocks in a single ALV report, I have taken the sample and modified to my requirement. I am having the following problems in this code.
 1. Columnwise total not appearing.
 2. Amount and numbers in all the columns are
 left justified instead of right justified.
The code written is given below. Kindly check the same and suggest for corrections.
--- SAMPLE 1--
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
 EXPORTING
 i_callback_program = sy-cprog
 i_callback_user_command = 'USER_COMMAND'.
PERFORM list_append TABLES IT_CTV
 USING '1'
 'IT_CTV'.
PERFORM list_append TABLES IT_APP
 USING '2'
 'IT_APP'.
PERFORM f_list_display.
 FORM USER_COMMAND *
FORM user_command USING i_ucomm LIKE sy-ucomm
 is_selfield TYPE slis_selfield. "#EC CALLED
ENDFORM. " USER_COMMAND
 Form list_append
FORM list_append TABLES ut_table
 USING u_no TYPE char1
 u_tabname TYPE slis_tabname.
DEFINE m_fieldcat.
 ls_fieldcat-fieldname = &1.
 ls_fieldcat-ref_tabname = &2.
 append ls_fieldcat to lt_fieldcat.
END-OF-DEFINITION.
DEFINE m_sort.
 ls_sort-fieldname = &1.
 ls_sort-up = 'X'.
 append ls_sort to lt_sort.
END-OF-DEFINITION.
DATA :
 ls_fieldcat TYPE slis_fieldcat_alv,
 lt_fieldcat TYPE slis_t_fieldcat_alv, " Field catalog
 ls_sort TYPE slis_sortinfo_alv,
 lt_sort TYPE slis_t_sortinfo_alv. " Sort table
DATA:
 lt_events TYPE slis_t_event,
 ls_event TYPE slis_alv_event,
 ls_layout TYPE slis_layout_alv.
ls_layout-group_change_edit = 'X'.
ls_layout-colwidth_optimize = 'X'.
ls_layout-zebra = 'X'.
ls_layout-cell_merge = 'X'.
ls_layout-detail_popup = 'X'.
ls_layout-get_selinfos = 'X'.
ls_layout-max_linesize = '300'.
CASE u_no.
 WHEN '1'.
 ls_fieldcat-SELTEXT_L = ' REGION'.
 ls_fieldcat-DO_SUM = 'X'.
 m_fieldcat 'BZIRK' 'IT_CTV'.
 ls_fieldcat-SELTEXT_L = ' CTV STOCK'.
 m_fieldcat 'CTVST' 'IT_CTV'.
 ls_fieldcat-SELTEXT_L = ' CTV VALUE'.
 m_fieldcat 'CTVVL' 'IT_CTV'.
 m_sort 'BZIRK'.
 ls_fieldcat-DO_SUM = 'X'.
 WHEN '2'.
 ls_fieldcat-SELTEXT_L = ' REGION'.
 m_fieldcat 'BZIRK' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' RFG STK'.
 m_fieldcat 'RFGST' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' RFG VAL'.
 m_fieldcat 'RFGVL' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' WM STK'.
 m_fieldcat 'WMCST' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' WM VAL'.
 m_fieldcat 'WMCVL' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' MCCS STK'.
 m_fieldcat 'MOVST' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' MCCS VAL'.
 m_fieldcat 'MOVVL' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' APP STK'.
 m_fieldcat 'APPST' 'IT_APP'.
 ls_fieldcat-SELTEXT_L = ' APP VAL'.
 m_fieldcat 'APPVL' 'IT_APP'.
 m_sort 'BZIRK'.
ENDCASE.
ls_fieldcat-COL_POS = 1.
ls_fieldcat-FIELDNAME = 'BZIRK'.
ls_fieldcat-DO_SUM = 'X'.
ls_fieldcat-FIX_COLUMN = 'X'.
APPEND ls_fieldcat TO lT_fieldcat.
IF u_no CA '13'.
 MOVE 'TOP_OF_PAGE' TO ls_event-name.
 CONCATENATE 'TOP_OF_PAGE' u_no INTO ls_event-form.
 APPEND ls_event TO lt_events.
ELSE.
 MOVE 'TOP_OF_LIST' TO ls_event-name.
 CONCATENATE 'TOP_OF_LIST' u_no INTO ls_event-form.
 APPEND ls_event TO lt_events.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
 EXPORTING
 it_fieldcat = lt_fieldcat
 is_layout = ls_layout
 i_tabname = u_tabname
 it_events = lt_events
 it_sort = lt_sort
 TABLES
 t_outtab = ut_table
 EXCEPTIONS
 program_error = 1
 maximum_of_appends_reached = 2
 OTHERS = 3.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " LIST_APPEND
 Form f_list_display
FORM f_list_display.
DATA ls_print TYPE slis_print_alv.
ls_print-no_print_selinfos = 'X'. " Display no selection infos
ls_print-no_print_listinfos = 'X'. " Display no listinfos
ls_print-reserve_lines = 2. " Lines reserved for end of page
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
 EXPORTING
 i_interface_check = ' '
 is_print = ls_print
 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. " F_LIST_DISPLAY
Thanks in advance.
A S VINCENT

Hai Vincent
Check the following Code
*& Report ZALV_BLOCK *
REPORT ZALV_BLOCK NO STANDARD PAGE HEADING
 MESSAGE-ID ZZ.
*..Type Definitions for ALV Report
TYPE-POOLS SLIS.
Table Declarations. *
TABLES: MARA, "Material Master
 MARC, "Plant Data for Material
 MARD, "Storage Location Data for Material
 VBAP, "Sales Document: Item Data
 VBUP. "Sales Document: Item Status
Internal table to store sales orders.......
DATA: BEGIN OF IT_VBAP OCCURS 0,
 VBELN LIKE VBAP-VBELN, "Sales Document
 POSNR LIKE VBAP-POSNR, "Sales Document Item
 KWMENG LIKE VBAP-KWMENG, "Cumulative order quantity in sales
 " Units
 END OF IT_VBAP.
internal table to store final data
DATA: BEGIN OF IT_FINAL OCCURS 0,
 WERKS LIKE MARD-WERKS, "Plant
 MATNR LIKE MARD-MATNR, "Material Number
 LGORT LIKE MARD-LGORT, "Storage Location
 LABST LIKE MARD-LABST, "Valuated stock with unrestricted use
 INSME LIKE MARD-INSME, "Stock in quality inspection
 RETME LIKE MARD-RETME, "Blocked Stock Returns
 UMLME LIKE MARD-UMLME, "Stock in transfer
 MAKTX LIKE MAKT-MAKTX, "Material description
 VBELN LIKE VBAP-VBELN, "Sales Document
 POSNR LIKE VBAP-POSNR, "Sales Document Item
 KWMENG LIKE VBAP-KWMENG, "Cumulative order quantity in sales
 " Units
 END OF IT_FINAL.
ALV Type declaration *
*..Field Catalog for Basic List.
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
*..Events For Basic List.
DATA : IT_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENTS TYPE SLIS_ALV_EVENT.
*..Layout For Basic List
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
*..Sort Table For Basic List
DATA: IT_SORT TYPE SLIS_SORTINFO_ALV OCCURS 0 WITH HEADER LINE.
 DATA DECLARATIONS *
DATA: V_FLAG,
 VINDEX TYPE SY-TABIX,
 TOTAL TYPE VBAP-KWMENG. "Open order quantity
*..To Store Program Name
DATA: V_REPID TYPE SYREPID.
*..To know whether basic list contains any data
Selection Screen. *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-H01.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR,
 S_WERKS FOR MARC-WERKS,
 S_LGORT FOR MARD-LGORT.
SELECTION-SCREEN END OF BLOCK B1.
Event:Initialization *
INITIALIZATION.
V_REPID = SY-REPID.
AT Selection Screen. *
AT SELECTION-SCREEN.
PERFORM VALIDATIONS.
Event: Start-of-Selection *
START-OF-SELECTION.
 To get data from vbap into internal table IT_VBAP
PERFORM FETCH_OPEN_DATA.
 To get data into final internal table IT_FINAL
IF V_FLAG = 'X'.
 PERFORM FETCH_FINAL_DATA.
ENDIF.
IF V_FLAG = ''.
 MESSAGE I010 WITH 'NO DATA TO BE DISPLAYED'.
 EXIT.
ELSE.
--Setting the FIELD CATALOG for ALV
 PERFORM FILL_FIELDCAT_HEADER.
*-----Setting the LAYOUT for ALV
 PERFORM GET_LAYOUT.
*-----Getting the ALV Events
 PERFORM GET_EVENT.
*---- To Sort the list
 PERFORM DO_SORT.
ENDIF.
Event: End-of-Selection *
END-OF-SELECTION.
*--Generating the ALV LIST DISPLAY
PERFORM DISPLAY_LIST.
 FORM DEFINITIONS *
*& Form VALIDATIONS
 To validate data in selection screen
--> p1 text
<-- p2 text
FORM VALIDATIONS.
PERFORM VALIDATE_MATNR.
PERFORM VALIDATE_WERKS.
PERFORM VALIDATE_LGORT.
IF NOT ( ( MARA-MATNR IS INITIAL ) AND
 ( MARC-WERKS IS INITIAL ) AND
 ( MARD-LGORT IS INITIAL ) ).
 SELECT SINGLE MATNR
 WERKS
 LGORT
 FROM MARD
 INTO (MARD-MATNR, MARD-WERKS, MARD-LGORT)
 WHERE MATNR = MARA-MATNR
 AND WERKS = MARC-WERKS
 AND LGORT = MARD-LGORT.
ENDIF.
ENDFORM. " VALIDATIONS
*& Form VALIDATE_MATNR
 To validate MATNR
--> p1 text
<-- p2 text
FORM VALIDATE_MATNR.
IF NOT S_MATNR[] IS INITIAL.
 SELECT MATNR
 UP TO 1 ROWS
 INTO (MARD-MATNR)
 FROM MARA
 WHERE MATNR IN S_MATNR.
 ENDSELECT.
ENDIF.
IF SY-SUBRC NE 0.
 MESSAGE E000 WITH TEXT-001.
ENDIF.
ENDFORM. " VALIDATE_MATNR
*& Form VALIDATE_WERKS
 To validate plant
--> p1 text
<-- p2 text
FORM VALIDATE_WERKS.
IF NOT S_WERKS[] IS INITIAL.
 SELECT WERKS
 UP TO 1 ROWS
 INTO (MARD-WERKS)
 FROM MARC
 WHERE WERKS IN S_WERKS.
 ENDSELECT.
ENDIF.
IF SY-SUBRC NE 0.
 MESSAGE E000 WITH TEXT-002.
ENDIF.
ENDFORM. " VALIDATE_WERKS
*& Form VALIDATE_LGORT
 To validate storage
--> p1 text
<-- p2 text
FORM VALIDATE_LGORT.
IF NOT S_LGORT[] IS INITIAL.
 SELECT LGORT
 UP TO 1 ROWS
 INTO (MARD-LGORT)
 FROM MARD
 WHERE LGORT IN S_LGORT.
 ENDSELECT.
ENDIF.
IF SY-SUBRC NE 0.
 MESSAGE E000 WITH TEXT-003.
ENDIF.
ENDFORM. " VALIDATE_LGORT
*& Form FETCH_OPEN_DATA
 To get data into internal table IT_VBAP
--> p1 text
<-- p2 text
FORM FETCH_OPEN_DATA.
IF NOT ( ( MARA-MATNR IS INITIAL ) AND
 ( MARC-WERKS IS INITIAL ) AND
 ( MARD-LGORT IS INITIAL ) ).
 SELECT VBELN
 POSNR
 KWMENG
 INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
 FROM VBAP
 WHERE MATNR IN S_MATNR
 AND WERKS IN S_WERKS
 AND LGORT IN S_LGORT.
ENDIF.
LOOP AT IT_VBAP.
 SELECT * FROM VBUP
 INTO VBUP
 WHERE VBELN = IT_VBAP-VBELN
 AND POSNR = IT_VBAP-POSNR
 AND LFSTA NE 'C'.
 ENDSELECT.
ENDLOOP.
IF SY-SUBRC NE 0.
 REFRESH IT_VBAP.
 MESSAGE E000 WITH TEXT-004.
 EXIT.
ELSE.
 V_FLAG = 'X'.
ENDIF.
 To get sum of all quantities as open order quantity
LOOP AT IT_VBAP.
 TOTAL = TOTAL + IT_VBAP-KWMENG.
ENDLOOP.
ENDFORM. " FETCH_OPEN_DATA
*& Form FETCH_FINAL_DATA
 To get data into final internal table IT_FINAL
--> p1 text
<-- p2 text
FORM FETCH_FINAL_DATA.
SELECT A~MATNR
 A~WERKS
 A~LGORT
 MAKTX
 LABST
 INSME
 RETME
 UMLME
 VBELN
 POSNR
 KWMENG
 INTO CORRESPONDING FIELDS OF TABLE IT_FINAL
 FROM MARD AS A
 INNER JOIN MAKT AS B
 ON AMATNR = BMATNR
 AND SPRAS = 'E'
 INNER JOIN VBAP AS C
 ON AMATNR = CMATNR
 FOR ALL ENTRIES IN IT_VBAP
 WHERE VBELN = IT_VBAP-VBELN
 AND POSNR = IT_VBAP-POSNR
 AND KWMENG = IT_VBAP-KWMENG
 AND A~MATNR IN S_MATNR
 AND A~WERKS IN S_WERKS
 AND A~LGORT IN S_LGORT.
IF SY-SUBRC NE 0.
 V_FLAG = SPACE.
 MESSAGE E001 WITH 'No data found IN the selection criteria'.
 EXIT.
ELSE.
 V_FLAG = 'X'.
ENDIF.
ENDFORM. " FETCH_FINAL_DATA
*& Form FILL_FIELDCAT_HEADER
 text
--> p1 text
<-- p2 text
FORM FILL_FIELDCAT_HEADER .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = V_REPID
 I_INTERNAL_TABNAME = 'IT_FINAL'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
 I_INCLNAME = V_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT IT_FIELDCAT INTO WA_FIELDCAT.
 CASE WA_FIELDCAT-FIELDNAME.
 WHEN 'KWMENG'.
 WA_FIELDCAT-COL_POS = '11'.
 WA_FIELDCAT-OUTPUTLEN = '22'.
 WA_FIELDCAT-SELTEXT_L = 'Net Value'.
 WA_FIELDCAT-DO_SUM = 'X'.
 ENDCASE.
 MODIFY IT_FIELDCAT FROM WA_FIELDCAT INDEX SY-TABIX.
ENDLOOP.
ENDFORM. " FILL_FIELDCAT_HEADER
*& Form GET_LAYOUT
 text
--> p1 text
<-- p2 text
FORM GET_LAYOUT .
WA_LAYOUT-TOTALS_TEXT = 'TOTAL'.
ENDFORM. " GET_LAYOUT
*& Form GET_EVENT
 text
--> p1 text
<-- p2 text
FORM GET_EVENT .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = IT_EVENTS
 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.
LOOP AT IT_EVENTS INTO WA_EVENTS.
 CASE WA_EVENTS-NAME.
 WHEN 'TOP_OF_PAGE'.
 WA_EVENTS-FORM = 'FILL_LIST_HEADER'.
 WHEN 'USER_COMMAND'.
 WA_EVENTS-FORM = 'PROCESS_BASIC_LIST'.
 ENDCASE.
 MODIFY IT_EVENTS FROM WA_EVENTS INDEX SY-TABIX.
ENDLOOP.
ENDFORM. " GET_EVENT
 FORM FILL_LIST_HEADER *
FORM FILL_LIST_HEADER.
WRITE:2'Report :' , SY-REPID,
 : 85 ' Intelligroup Asia Pvt Ltd' CENTERED,
 : 159 'Date :' ,SY-DATUM,
 :/2'User :', SY-UNAME,
 : 82 ' Hyderabad ' CENTERED ,
 : 159 'Pg.No :' ,SY-PAGNO,
 :/86 ' Stock Report ' CENTERED.
SKIP 2.
ENDFORM. "FILL_LIST_HEADER
*& Form DISPLAY_LIST
 text
--> p1 text
<-- p2 text
FORM DISPLAY_LIST .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_STRUCTURE_NAME =
 IS_LAYOUT = WA_LAYOUT
 IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
 IT_SORT = IT_SORT[]
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 IT_EVENTS = 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 = 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. " DISPLAY_LIST
*& Form do_sort
 text
--> p1 text
<-- p2 text
FORM DO_SORT .
*-- Populating the sort table
IT_SORT-FIELDNAME = 'MATNR'.
IT_SORT-TABNAME = 'IT_FINAL'.
IT_SORT-UP = 'X'.
it_sort-subtot = 'X'.
APPEND IT_SORT.
ENDFORM. " do_sort
Thanks & Regards
Sreenivasulu P

Multiple ALV Reports --

Similar Messages

Maybe you are looking for