Urgent - alvs-MAXFORUMPOINTS

1.     REUSE_ALV_VARIANT_DEFAULT_GET
2.     REUSE_ALV_VARIANT_F4
3.     REUSE_ALV_VARIANT_EXISTENCE
4.     REUSE_ALV_EVENTS_GET
5.     REUSE_ALV_COMMENTARY_WRITE
6.   REUSE_ALV_FIELDCATALOG_MERGE
7.   REUSE_ALV_LIST_DISPLAY
8.     REUSE_ALV_GRID_DISPLAY
9.     REUSE_ALV_POPUP_TO_SELECT
can any body send the following details regarding above fucntion modules
1. what are the different parameters that has to be passed to them
2.they are of which type(data type)
3.what is the purpose of each function module parameter with their names also
4.similarly some formatting techniques regarding output display by means of alvs
I WILL BE VERY THANKFUL TO THOSE WHO HAVE REPLIED.
PLEASE SEND IN DETAIL.NOT UNNECESSARY LINKS PLEASE.I WILL REWARD MAXIMUM POINTS TO THOSE WHO WILL SEND EXACT ANSWERS.

1. REUSE_ALV_VARIANT_DEFAULT_GET
IMPORTING
*" VALUE(I_SAVE) DEFAULT SPACE
*" CHANGING
*" VALUE(CS_VARIANT) LIKE DISVARIANT
*" STRUCTURE DISVARIANT
*" EXCEPTIONS
*" WRONG_INPUT
*" NOT_FOUND
*" PROGRAM_ERROR
2. REUSE_ALV_VARIANT_F4
IMPORTING
*" VALUE(IS_VARIANT) LIKE DISVARIANT STRUCTURE DISVARIANT
*" VALUE(I_TABNAME_HEADER) TYPE SLIS_TABNAME OPTIONAL
*" VALUE(I_TABNAME_ITEM) TYPE SLIS_TABNAME OPTIONAL
*" VALUE(IT_DEFAULT_FIELDCAT) TYPE SLIS_T_FIELDCAT_ALV OPTIONAL
*" VALUE(I_SAVE) DEFAULT SPACE
*" VALUE(I_DISPLAY_VIA_GRID) TYPE CHAR01 DEFAULT SPACE
*" EXPORTING
*" VALUE(E_EXIT)
*" VALUE(ES_VARIANT) LIKE DISVARIANT STRUCTURE DISVARIANT
*" EXCEPTIONS
*" NOT_FOUND
*" PROGRAM_ERROR
3. REUSE_ALV_VARIANT_EXISTENCE
IMPORTING
*" VALUE(I_SAVE) DEFAULT SPACE
*" CHANGING
*" VALUE(CS_VARIANT) LIKE DISVARIANT
*" STRUCTURE DISVARIANT
*" EXCEPTIONS
*" WRONG_INPUT
*" NOT_FOUND
*" PROGRAM_ERROR
4. REUSE_ALV_EVENTS_GET
IMPORTING
*" VALUE(I_LIST_TYPE) TYPE SLIS_LIST_TYPE DEFAULT 0
*" EXPORTING
*" VALUE(ET_EVENTS) TYPE SLIS_T_EVENT
*" EXCEPTIONS
*" LIST_TYPE_WRONG
5. REUSE_ALV_COMMENTARY_WRITE
IMPORTING
*" VALUE(IT_LIST_COMMENTARY) TYPE SLIS_T_LISTHEADER
*" REFERENCE(I_LOGO) OPTIONAL
*" REFERENCE(I_END_OF_LIST_GRID) OPTIONAL
*" REFERENCE(I_ALV_FORM) TYPE SAP_BOOL OPTIONAL
6. REUSE_ALV_FIELDCATALOG_MERGE
IMPORTING
*" VALUE(I_PROGRAM_NAME) LIKE SY-REPID OPTIONAL
*" VALUE(I_INTERNAL_TABNAME) TYPE SLIS_TABNAME OPTIONAL
*" VALUE(I_STRUCTURE_NAME) LIKE DD02L-TABNAME OPTIONAL
*" VALUE(I_CLIENT_NEVER_DISPLAY) TYPE SLIS_CHAR_1 DEFAULT 'X'
*" VALUE(I_INCLNAME) LIKE TRDIR-NAME OPTIONAL
*" VALUE(I_BYPASSING_BUFFER) TYPE CHAR01 OPTIONAL
*" VALUE(I_BUFFER_ACTIVE) TYPE CHAR01 OPTIONAL
*" CHANGING
*" VALUE(CT_FIELDCAT) TYPE SLIS_T_FIELDCAT_ALV
*" EXCEPTIONS
*" INCONSISTENT_INTERFACE
*" PROGRAM_ERROR
7. REUSE_ALV_LIST_DISPLAY
IMPORTING
*" VALUE(I_INTERFACE_CHECK) DEFAULT SPACE
*" VALUE(I_BYPASSING_BUFFER) TYPE CHAR01 OPTIONAL
*" VALUE(I_BUFFER_ACTIVE) DEFAULT SPACE
*" VALUE(I_CALLBACK_PROGRAM) LIKE SY-REPID DEFAULT SPACE
*" VALUE(I_CALLBACK_PF_STATUS_SET) TYPE SLIS_FORMNAME DEFAULT
*" SPACE
*" VALUE(I_CALLBACK_USER_COMMAND) TYPE SLIS_FORMNAME DEFAULT SPACE
*" VALUE(I_STRUCTURE_NAME) LIKE DD02L-TABNAME OPTIONAL
*" VALUE(IS_LAYOUT) TYPE SLIS_LAYOUT_ALV OPTIONAL
*" VALUE(IT_FIELDCAT) TYPE SLIS_T_FIELDCAT_ALV OPTIONAL
*" VALUE(IT_EXCLUDING) TYPE SLIS_T_EXTAB OPTIONAL
*" VALUE(IT_SPECIAL_GROUPS) TYPE SLIS_T_SP_GROUP_ALV OPTIONAL
*" VALUE(IT_SORT) TYPE SLIS_T_SORTINFO_ALV OPTIONAL
*" VALUE(IT_FILTER) TYPE SLIS_T_FILTER_ALV OPTIONAL
*" VALUE(IS_SEL_HIDE) TYPE SLIS_SEL_HIDE_ALV OPTIONAL
*" VALUE(I_DEFAULT) DEFAULT 'X'
*" VALUE(I_SAVE) DEFAULT SPACE
*" VALUE(IS_VARIANT) LIKE DISVARIANT STRUCTURE DISVARIANT
*" OPTIONAL
*" VALUE(IT_EVENTS) TYPE SLIS_T_EVENT OPTIONAL
*" VALUE(IT_EVENT_EXIT) TYPE SLIS_T_EVENT_EXIT OPTIONAL
*" VALUE(IS_PRINT) TYPE SLIS_PRINT_ALV OPTIONAL
*" VALUE(IS_REPREP_ID) TYPE SLIS_REPREP_ID OPTIONAL
*" VALUE(I_SCREEN_START_COLUMN) DEFAULT 0
*" VALUE(I_SCREEN_START_LINE) DEFAULT 0
*" VALUE(I_SCREEN_END_COLUMN) DEFAULT 0
*" VALUE(I_SCREEN_END_LINE) DEFAULT 0
*" VALUE(IR_SALV_LIST_ADAPTER) TYPE REF TO CL_SALV_LIST_ADAPTER
*" OPTIONAL
*" VALUE(IT_EXCEPT_QINFO) TYPE SLIS_T_QINFO_ALV OPTIONAL
*" VALUE(I_SUPPRESS_EMPTY_DATA) TYPE SAP_BOOL DEFAULT ABAP_FALSE
*" EXPORTING
*" VALUE(E_EXIT_CAUSED_BY_CALLER)
*" VALUE(ES_EXIT_CAUSED_BY_USER) TYPE SLIS_EXIT_BY_USER
*" TABLES
*" T_OUTTAB
*" EXCEPTIONS
*" PROGRAM_ERROR
8. REUSE_ALV_GRID_DISPLAY
IMPORTING
*" REFERENCE(I_INTERFACE_CHECK) DEFAULT SPACE
*" VALUE(I_BYPASSING_BUFFER) TYPE CHAR01 DEFAULT SPACE
*" VALUE(I_BUFFER_ACTIVE) DEFAULT SPACE
*" REFERENCE(I_CALLBACK_PROGRAM) LIKE SY-REPID DEFAULT SPACE
*" REFERENCE(I_CALLBACK_PF_STATUS_SET) TYPE SLIS_FORMNAME DEFAULT
*" SPACE
*" REFERENCE(I_CALLBACK_USER_COMMAND) TYPE SLIS_FORMNAME DEFAULT
*" SPACE
*" REFERENCE(I_CALLBACK_TOP_OF_PAGE) TYPE SLIS_FORMNAME DEFAULT
*" SPACE
*" REFERENCE(I_CALLBACK_HTML_TOP_OF_PAGE) TYPE SLIS_FORMNAME
*" DEFAULT SPACE
*" REFERENCE(I_CALLBACK_HTML_END_OF_LIST) TYPE SLIS_FORMNAME
*" DEFAULT SPACE
*" REFERENCE(I_STRUCTURE_NAME) LIKE DD02L-TABNAME OPTIONAL
*" REFERENCE(I_BACKGROUND_ID) TYPE SDYDO_KEY DEFAULT SPACE
*" REFERENCE(I_GRID_TITLE) TYPE LVC_TITLE OPTIONAL
*" REFERENCE(I_GRID_SETTINGS) TYPE LVC_S_GLAY OPTIONAL
*" REFERENCE(IS_LAYOUT) TYPE SLIS_LAYOUT_ALV OPTIONAL
*" REFERENCE(IT_FIELDCAT) TYPE SLIS_T_FIELDCAT_ALV OPTIONAL
*" REFERENCE(IT_EXCLUDING) TYPE SLIS_T_EXTAB OPTIONAL
*" REFERENCE(IT_SPECIAL_GROUPS) TYPE SLIS_T_SP_GROUP_ALV OPTIONAL
*" REFERENCE(IT_SORT) TYPE SLIS_T_SORTINFO_ALV OPTIONAL
*" REFERENCE(IT_FILTER) TYPE SLIS_T_FILTER_ALV OPTIONAL
*" REFERENCE(IS_SEL_HIDE) TYPE SLIS_SEL_HIDE_ALV OPTIONAL
*" REFERENCE(I_DEFAULT) DEFAULT 'X'
*" REFERENCE(I_SAVE) DEFAULT SPACE
*" REFERENCE(IS_VARIANT) LIKE DISVARIANT STRUCTURE DISVARIANT
*" OPTIONAL
*" REFERENCE(IT_EVENTS) TYPE SLIS_T_EVENT OPTIONAL
*" REFERENCE(IT_EVENT_EXIT) TYPE SLIS_T_EVENT_EXIT OPTIONAL
*" REFERENCE(IS_PRINT) TYPE SLIS_PRINT_ALV OPTIONAL
*" REFERENCE(IS_REPREP_ID) TYPE SLIS_REPREP_ID OPTIONAL
*" REFERENCE(I_SCREEN_START_COLUMN) DEFAULT 0
*" REFERENCE(I_SCREEN_START_LINE) DEFAULT 0
*" REFERENCE(I_SCREEN_END_COLUMN) DEFAULT 0
*" REFERENCE(I_SCREEN_END_LINE) DEFAULT 0
*" REFERENCE(I_HTML_HEIGHT_TOP) TYPE I DEFAULT 0
*" REFERENCE(I_HTML_HEIGHT_END) TYPE I DEFAULT 0
*" REFERENCE(IT_ALV_GRAPHICS) TYPE DTC_T_TC OPTIONAL
*" REFERENCE(IT_HYPERLINK) TYPE LVC_T_HYPE OPTIONAL
*" REFERENCE(IT_ADD_FIELDCAT) TYPE SLIS_T_ADD_FIELDCAT OPTIONAL
*" REFERENCE(IT_EXCEPT_QINFO) TYPE SLIS_T_QINFO_ALV OPTIONAL
*" REFERENCE(IR_SALV_FULLSCREEN_ADAPTER) TYPE REF TO
*" CL_SALV_FULLSCREEN_ADAPTER OPTIONAL
*" EXPORTING
*" REFERENCE(E_EXIT_CAUSED_BY_CALLER)
*" REFERENCE(ES_EXIT_CAUSED_BY_USER) TYPE SLIS_EXIT_BY_USER
*" TABLES
*" T_OUTTAB
*" EXCEPTIONS
*" PROGRAM_ERROR
9. REUSE_ALV_POPUP_TO_SELECT
IMPORTING
*" VALUE(I_TITLE) OPTIONAL
*" VALUE(I_SELECTION) DEFAULT 'X'
*" VALUE(I_ALLOW_NO_SELECTION) TYPE CHAR1 OPTIONAL
*" VALUE(I_ZEBRA) DEFAULT SPACE
*" VALUE(I_SCREEN_START_COLUMN) DEFAULT 0
*" VALUE(I_SCREEN_START_LINE) DEFAULT 0
*" VALUE(I_SCREEN_END_COLUMN) DEFAULT 0
*" VALUE(I_SCREEN_END_LINE) DEFAULT 0
*" VALUE(I_CHECKBOX_FIELDNAME) OPTIONAL
*" VALUE(I_LINEMARK_FIELDNAME) OPTIONAL
*" VALUE(I_SCROLL_TO_SEL_LINE) DEFAULT 'X'
*" VALUE(I_TABNAME)
*" VALUE(I_STRUCTURE_NAME) LIKE DD02L-TABNAME OPTIONAL
*" VALUE(IT_FIELDCAT) TYPE SLIS_T_FIELDCAT_ALV OPTIONAL
*" VALUE(IT_EXCLUDING) TYPE SLIS_T_EXTAB OPTIONAL
*" VALUE(I_CALLBACK_PROGRAM) LIKE SY-REPID OPTIONAL
*" VALUE(I_CALLBACK_USER_COMMAND) TYPE SLIS_FORMNAME OPTIONAL
*" VALUE(IS_PRIVATE) TYPE SLIS_DATA_CALLER_EXIT OPTIONAL
*" EXPORTING
*" VALUE(ES_SELFIELD) TYPE SLIS_SELFIELD
*" VALUE(E_EXIT)
*" TABLES
*" T_OUTTAB
*" EXCEPTIONS
*" PROGRAM_ERROR
rewards ;point for helpful answer.

Similar Messages

Very-urgent----ALV as email

Hai Gurus ,
 What is the short key to run a program in background .. ?
 I want to run a program (ALV report)in background to get a spool number .after this I want to send this report in email as PDF format ..
 very urgent .. can any one help ...

Hi,
BackGround : "CTRL" + "F9".
For Spool to PDF and Email, check the following ABAP code : RSTXPDFT4.
( For spool 2 PDF : FM : 'CONVERT_ABAPSPOOLJOB_2_PDF'
For email with PDF attached : FM : 'SO_DOCUMENT_SEND_API1' )
Hope this helps,
Erwan

Urgent :ALV layout change not working

hi experts,
i copied the tcode FBL5N into ztcode.
added some more fields to the ALV output.
using GUI STATUS 'ALV_ITEMS_AR'
when i select the change layout from using application button, added some more columns. Data is picking correctly, but i dont see the data in that sleceted column.
ideas will be appriciated.
thanks,
shaik bhasha

hi Atish,
thanks to initiate me to check the logic, its actually big program with lot of includes and LDBs. i found that the problem, internal table is not reflecting properly. fixed.
Thanks,
shaik bhasha

Urgent : ALV , how to display long text in colum field

Dear All,
              Have mada an ALV report, but in some column have to show long text like.
"Qty of Processed Finished Goods receive with wt/length/pieces / units "
but while display of ALV it's showing only :
" Qty of Processed Finished Goods receive with wt/length/p "
Plz tell is it possible to show all the contents in that field, even in multiple row. like :
"Qty of Processed Finished
Goods receive with wt/length/pieces
/ units "
Looking forward to your earliest response.
Regards,
Gulrez Alam

Hi,
In your field catelog
w_fieldcat-tabname   = 'Internal table name'.
w_fieldcat-fieldname = 'Field of the internal table'.
w_fieldcat-outputlen = '90'.----Here you have to increse the length
w_fieldcat-col_pos   = '1'.
w_fieldcat-row_pos   = '1'.
w_fieldcat-seltext_l = 'Qty of Processed Finished Goods receive
                                   with wt/length/pieces / units '.
APPEND w_fieldcat TO i_fieldcat.
CLEAR w_fieldcat.
Pls. reward if useful...

Urgent ALV report

I want to have total of amount field in ALV list dispaly for each branch. ie. if 1000 is branch total of whole amount column field for that branch

hi,
R u using Hierarchical ALV? or simple ALV?
Here is code for ALV_LIST, same way u can use ALV_GRID.
TABLES : mseg.
TYPE-POOLS : slis.
DATA : BEGIN OF itab OCCURS 0,
 mblnr LIKE mseg-mblnr,
 matnr LIKE mseg-matnr,
 werks LIKE mseg-werks,
 menge LIKE mseg-menge,
 line_color(4) TYPE c,
 END OF itab.
DATA : t_fcat TYPE slis_t_fieldcat_alv,
 t_eve TYPE slis_t_event,
 t_subtot TYPE slis_t_sortinfo_alv,
 subtot LIKE LINE OF t_subtot,
 wa_fcat LIKE LINE OF t_fcat,
 gd_layout TYPE slis_layout_alv.
DATA : gt_menge LIKE mseg-menge,
 st_menge LIKE mseg-menge.
SELECTION-SCREEN : BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : doc FOR mseg-mblnr.
SELECTION-SCREEN : END OF BLOCK blk1.
INITIALIZATION.
PERFORM build_cat USING t_fcat.
PERFORM build_eve.
PERFORM build_layout.
START-OF-SELECTION.
PERFORM get_data.
PERFORM display.
*& Form build_cat
 text
 -->TEMP_FCAT text
FORM build_cat USING temp_fcat TYPE slis_t_fieldcat_alv.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'MBLNR'.
wa_fcat-seltext_m = 'Material Doc.'.
APPEND wa_fcat TO temp_fcat.
CLEAR wa_fcat.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-seltext_m = 'Material'.
APPEND wa_fcat TO temp_fcat.
CLEAR wa_fcat.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'WERKS'.
wa_fcat-seltext_m = 'Plant'.
APPEND wa_fcat TO temp_fcat.
CLEAR wa_fcat.
wa_fcat-tabname = 'ITAB'.
wa_fcat-fieldname = 'MENGE'.
wa_fcat-seltext_m = 'Quantity'.
wa_fcat-do_sum = 'Y'.
APPEND wa_fcat TO temp_fcat.
CLEAR wa_fcat.
subtot-spos = 1.
subtot-fieldname = 'MBLNR'.
subtot-tabname = 'ITAB'.
subtot-up = 'X'.
subtot-group = 'X'.
subtot-subtot = 'X'.
subtot-expa = 'X'.
APPEND subtot TO t_subtot.
ENDFORM. "build_cat
*& Form build_eve
 text
FORM build_eve.
DATA : wa_eve TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 i_list_type = 0
 IMPORTING
 et_events = t_eve
 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.
ENDFORM. "build_eve
*& Form build_layout
 text
FORM build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-info_fieldname = 'LINE_COLOR'.
ENDFORM. " BUILD_LAYOUT
*& Form get_data
 text
FORM get_data.
SELECT mblnr matnr werks menge FROM mseg INTO CORRESPONDING FIELDS OF TABLE itab
WHERE mblnr IN doc.
SORT itab BY mblnr.
ENDFORM. "get_data
*& Form display
 text
FORM display.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_callback_program = 'ZALV_LIST'
 is_layout = gd_layout
 it_fieldcat = t_fcat
 it_sort = t_subtot
 it_events = t_eve
 TABLES
 t_outtab = itab
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
here my total quantity total calculated as per MBLNR (Material Doc).....
Message was edited by:
 Dhwani shah

Urgent regarding Display fields in ALV End of Page

Hi,
I am displaying the output using ALV List Display. Output of the report is displayed in different pages based on a particular delivery address. I have to display some of the fields (Delivery address) of the final internal table in the end of page. I need to trigger this end of page in alv based on the selection of radio buttons also.
Its very urgent. Respond immediately.
Thanks
Geeta

Refer the follwoing code:
call function 'REUSE_ALV_GRID_DISPLAY'
       exporting
            i_callback_program      = gd_repid
            i_callback_top_of_page   = 'TOP-OF-PAGE'
            i_callback_html_end_of_list = 'END_OF_LIST_HTML'
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
            i_save                  = 'X'
       tables
            t_outtab                = it_ekko
       exceptions
            program_error           = 1
            others                  = 2.
*&      Form end_of_list_html
*       output at the end of the list - not in printed output       *
FORM end_of_list_html USING end TYPE REF TO cl_dd_document.
DATA: ls_text TYPE sdydo_text_element,
        l_grid     TYPE REF TO cl_gui_alv_grid,
        f(14) TYPE c VALUE 'SET_ROW_HEIGHT'.
ls_text = 'Footer title'.
* adds and icon (red triangle)
CALL METHOD end->add_icon
    EXPORTING
      sap_icon = 'ICON_MESSAGE_ERROR_SMALL'.
* adds test (via variable)
CALL METHOD end->add_text
    EXPORTING
      text         = ls_text
      sap_emphasis = 'strong'.
* adds new line (start new line)
CALL METHOD end->new_line.
* display text(bold)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Bold text'
      sap_emphasis = 'strong'.
* adds new line (start new line)
CALL METHOD end->new_line.
* display text(normal)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Normal text'.
* adds new line (start new line)
CALL METHOD end->new_line.
* display text(bold)
CALL METHOD end->add_text
    EXPORTING
      text         = 'Yellow triangle'
      sap_emphasis = 'strong'.
* adds and icon (yellow triangle)
CALL METHOD end->add_icon
    EXPORTING
      sap_icon = 'ICON_LED_YELLOW'.
* display text(normal)
CALL METHOD end->add_text
    EXPORTING
      text         = 'More text'.
*set height of this section
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = l_grid.
CALL METHOD l_grid->parent->parent->(f)
    EXPORTING
      id     = 3
      height = 14.
ENDFORM. "end_of_list_html.

Urgent... need help in alv.

hai all,
in an alv report i want a pushbutton in the application tool bar .
how can i get it.
and also i want to select multiple rows from the list and the first column as a button to select the rows.
please.. help me. its very urgent.
thanks in advance.
regards, selvi.

Hi,
Following steps to copy standard status to zstatus
Goto T.Code SE41 & give program name SAPLSLVC then select
status as STANDARD then copy this status to zstatus in your program
open zstatus in T.Code SE41 and add push button and save & activate it.
then Call FM PF_STATUS.
see below,
I_CALLBACK_PF_STATUS_SET- 'PF_STATUS'
In module PF_STATUS
set pf-status 'ZSTATUS'
reward if useful.

URGENT: REGARDING POSTING DATE AND DELETION OF ZEROS IN ALV REPORT

Hi,
I had made a report in which i have to display 'POSTING DATE' (iseg-budat) when we execute the report i.e. it should be displayed as PERIOD :- _______ to _______ .
2nd problem is i had displayed the material no. ,but there are zeros which are displaying in dere ,i want to remove dem ... example, if the mat.no. is 2321 ,it is displaying 000002321. i want to remove these zeros.
Its request to all of u dat plz help me as fast as possible as it is most urgent to me and if any body provide me help he or sh e will be definately rewarded..
Regards,
ric.s

Here i am giving you one of the ALV reports i have generated. Check this program. I hope it will be helpful to you.
REPORT ZFI_ASSIGNED_FUNDS_FINAL.
TABLES: FMIT,FMCIT,FPOS,IFMEISA1,FMFCTRT,BSEG,ZREV_BUDGET.
TYPE-POOLS: SLIS.
*ALV data declarations
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
 GD_SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,
 GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
 GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
 GD_REPID LIKE SY-REPID.
*For ALV top of page
DATA : IT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*For ALV Events
DATA : IT_EVENT1 TYPE SLIS_T_EVENT.
*For ALV Events
DATA : IT_EVENT TYPE SLIS_ALV_EVENT.
*For top of page heading
DATA: IT_LINE TYPE SLIS_LISTHEADER.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : RADIO RADIOBUTTON GROUP R1.
IF RADIO EQ 'X'.
SELECT-OPTIONS: FIPEX FOR FPOS-FIPEX, " SELECTION FOR FUNDS CENTER & COMMITMENT ITEM
 RFISTL FOR FMIT-RFISTL.
ENDIF.
PARAMETER: RADIO1 RADIOBUTTON GROUP R1.
IF RADIO1 EQ 'X'.
SELECT-OPTIONS : HKONT FOR BSEG-HKONT, " SELECTION FOR COST CENTER & G/L ACCOUNT
 KOSTL FOR ZREV_BUDGET-KOSTL.
ENDIF.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: PERDE FOR IFMEISA1-PERDE DEFAULT '01' TO '12' OBLIGATORY.
PARAMETER : RYEAR LIKE FMIT-RYEAR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B2.
DATA: BEGIN OF IT_TAB OCCURS 0,
 FIKRS LIKE FMFCTR-FIKRS,
 FICTR LIKE CSKS-KOSTL,
 CTR_OBJNR LIKE FMFCTR-CTR_OBJNR,
 RFISTL LIKE FMIT-RFISTL,
 OBJNR LIKE BPPE-OBJNR,
 END OF IT_TAB.
DATA: BEGIN OF IT_TAB1 OCCURS 0,
 CO_OBJNR LIKE BPIJ-CO_OBJNR,
 POSIT LIKE BPPE-POSIT,
 FIPEX LIKE FMPOSIT-FIPEX,
 FICTR LIKE FMFCTR-FICTR,
 KSTAR LIKE COSP-KSTAR,
 RFISTL LIKE FMIT-RFISTL,
 OBJNR1 LIKE BPPE-OBJNR,
 END OF IT_TAB1.
DATA: BEGIN OF IT_FMIT OCCURS 0,
 RYEAR LIKE FMIT-RYEAR,
 FIKRS LIKE FMIT-FIKRS,
 RFISTL LIKE ZREV_BUDGET-KOSTL,
 RFIPEX LIKE ZREV_BUDGET-KSTAR,
 HSL01 LIKE FMIT-HSL01,
 HSL02 LIKE FMIT-HSL02,
 HSL03 LIKE FMIT-HSL03,
 HSL04 LIKE FMIT-HSL04,
 HSL05 LIKE FMIT-HSL05,
 HSL06 LIKE FMIT-HSL06,
 HSL07 LIKE FMIT-HSL07,
 HSL08 LIKE FMIT-HSL08,
 HSL09 LIKE FMIT-HSL09,
 HSL10 LIKE FMIT-HSL10,
 HSL11 LIKE FMIT-HSL11,
 HSL12 LIKE FMIT-HSL12,
 HSL13 LIKE FMIT-HSL13,
 HSL14 LIKE FMIT-HSL14,
 HSL15 LIKE FMIT-HSL15,
 HSL16 LIKE FMIT-HSL16,
 END OF IT_FMIT.
DATA: BEGIN OF IT_FMIT1 OCCURS 0,
 RYEAR LIKE FMIT-RYEAR,
 FIKRS LIKE FMIT-FIKRS,
 RFISTL LIKE ZREV_BUDGET-KOSTL,
 RFIPEX LIKE FMPG-FIPEX,
 TOTAL LIKE FMIT-TSL01,
 TOTAL1 LIKE FMIT-TSL01,
 OBJNR LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 END OF IT_FMIT1.
DATA: BEGIN OF IT_BPPE OCCURS 0,
 OBJNR LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 GJAHR LIKE BPPE-GJAHR,
 WLP01 LIKE BPPE-WLP01,
 WLP02 LIKE BPPE-WLP02,
 WLP03 LIKE BPPE-WLP03,
 WLP04 LIKE BPPE-WLP04,
 WLP05 LIKE BPPE-WLP05,
 WLP06 LIKE BPPE-WLP06,
 WLP07 LIKE BPPE-WLP07,
 WLP08 LIKE BPPE-WLP08,
 WLP09 LIKE BPPE-WLP09,
 WLP10 LIKE BPPE-WLP10,
 WLP11 LIKE BPPE-WLP11,
 WLP12 LIKE BPPE-WLP12,
 END OF IT_BPPE.
DATA: BEGIN OF IT_BPPE1 OCCURS 0,
 OBJNR LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 GJAHR LIKE BPPE-GJAHR,
 RFISTL LIKE FMIT-RFISTL,
 FIPEX LIKE FPOS-FIPEX,
 TOTAL2 LIKE BPPE-WLP01,
 END OF IT_BPPE1.
DATA: BEGIN OF IT_CSKS OCCURS 0,
 KOKRS LIKE CSKS-KOKRS,
 KOSTL LIKE CSKS-KOSTL,
 BUKRS LIKE CSKS-BUKRS,
 OBJNR LIKE CSKS-OBJNR,
 END OF IT_CSKS.
DATA: BEGIN OF IT_COSP OCCURS 0,
 OBJNR LIKE COSP-OBJNR,
 GJAHR LIKE COSP-GJAHR,
 KSTAR LIKE COSP-KSTAR,
 BEKNZ LIKE COSP-BEKNZ,
 WKG001 LIKE COSP-WKG001,
 WKG002 LIKE COSP-WKG002,
 WKG003 LIKE COSP-WKG003,
 WKG004 LIKE COSP-WKG004,
 WKG005 LIKE COSP-WKG005,
 WKG006 LIKE COSP-WKG006,
 WKG007 LIKE COSP-WKG007,
 WKG008 LIKE COSP-WKG008,
 WKG009 LIKE COSP-WKG009,
 WKG010 LIKE COSP-WKG010,
 WKG011 LIKE COSP-WKG011,
 WKG012 LIKE COSP-WKG012,
 END OF IT_COSP.
DATA: BEGIN OF IT_COSP2 OCCURS 0,
 OBJNR LIKE COSP-OBJNR,
 GJAHR LIKE COSP-GJAHR,
 KSTAR LIKE COSP-KSTAR,
 FIPEX LIKE FMPG-FIPEX,
 TOTAL LIKE COSP-WKG001,
 TOTAL1 LIKE COSP-WKG001,
 OBJNR1 LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 END OF IT_COSP2.
IF RADIO EQ 'X'.
DATA: BEGIN OF IT_FINAL OCCURS 0,
 FIKRS LIKE FMIT-FIKRS,
 RFISTL LIKE FMIT-RFISTL,
 RFIPEX LIKE FMIT-RFIPEX,
 TEXT LIKE FMCIT-TEXT1,
 ALLOC LIKE FMIT-TSL16,
 USED LIKE FMIT-TSL16,
 REMAIN LIKE FMIT-TSL16,
 BEZEICH LIKE FMFCTRT-BEZEICH,
 END OF IT_FINAL.
ENDIF.
IF RADIO1 EQ 'X'.
DATA: BEGIN OF IT_FINAL1 OCCURS 0,
 GJAHR LIKE ZREV_BUDGET-GJAHR,
 KOSTL LIKE ZREV_BUDGET-KOSTL,
 KSTAR LIKE ZREV_BUDGET-KSTAR,
 TOTAL1 LIKE COSP-WKG001,
 TOTAL3 LIKE COSP-WKG001,
 TEXT LIKE CSKU-KTEXT,
 VARIANCE LIKE COSP-WKG001,
 BEZEICH LIKE FMFCTRT-BEZEICH,
 END OF IT_FINAL1.
ENDIF.
DATA: BEGIN OF IT_FISTL OCCURS 0,
 RFISTL LIKE FMIT-RFISTL,
 BEZEICH LIKE FMFCTRT-BEZEICH,
 END OF IT_FISTL.
DATA: BEGIN OF IT_HKONT OCCURS 0,
 KSTAR LIKE CSKU-KSTAR,
 KTEXT LIKE CSKU-KTEXT,
 END OF IT_HKONT.
DATA: PERIOD1 TYPE I,
 PERIOD2 TYPE I,
 PERIOD3 TYPE I,
 PERIO TYPE I.
DATA: BEZEICH LIKE FMFCTRT-BEZEICH.
CONSTANTS: C_00 TYPE MONAT VALUE '00',
 C_13 TYPE MONAT VALUE '13'.
DATA : IT_RETURN LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
DATA: FIPEX1 LIKE COSP-KSTAR.
A T - S E L E C T I O N S C R E E N
AT SELECTION-SCREEN.
LOOP AT PERDE.
 IF PERDE-LOW >= C_13 OR PERDE-HIGH >= C_13 .
 MESSAGE E022(ZA) WITH 'Enter Period values from 1 to 12'.
 EXIT.
 ENDIF.
ENDLOOP.
IF NOT PERDE-LOW IS INITIAL.
 PERIOD1 = PERDE-LOW.
ENDIF.
IF NOT PERDE-HIGH IS INITIAL.
 PERIOD2 = PERDE-HIGH.
 PERIOD3 = PERIOD2 - PERIOD1.
 PERIOD3 = PERIOD3 + 1.
ELSE.
 PERIOD3 = 1.
ENDIF.
PERIO = PERIOD1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR RFISTL-LOW.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS EQ 'NFFM'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'RFISTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO RFISTL-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR RFISTL-HIGH.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS EQ 'NFFM'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'RFISTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO RFISTL-HIGH.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-LOW.
SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
SORT IT_HKONT BY KSTAR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'HKONT'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_HKONT
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO HKONT-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-HIGH.
SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
SORT IT_HKONT BY KSTAR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'HKONT'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_HKONT
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO HKONT-HIGH.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-LOW.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS IN KOSTL.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'KOSTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO KOSTL-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-HIGH.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS IN KOSTL.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'KOSTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO KOSTL-HIGH.
ENDIF.
*START-OF-SELECTION
START-OF-SELECTION.
IF RADIO EQ 'X'. " FOR FUNDS CENTER AND COMMITMENT ITEM
 PERFORM GET_DATA.
 PERFORM PROCESS_DATA.
ENDIF.
IF RADIO1 EQ 'X'. " FOR COST CENTER AND G/L ACCOUNT
 PERFORM GET_DATA1.
 PERFORM PROCESS_DATA1.
ENDIF.
*END OF SELECTION
PERFORM BUILD_LAYOUT.
PERFORM BUILD_EVENTS.
IF RADIO EQ 'X'.
 PERFORM BUILD_FIELDCATALOG.
 PERFORM BUILD_SORT.
 PERFORM DISPLAY_ALV_REPORT.
ENDIF.
IF RADIO1 EQ 'X'.
 PERFORM BUILD_FIELDCATALOG1.
 PERFORM BUILD_SORT1.
 PERFORM DISPLAY_ALV_REPORT1.
ENDIF.
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
FORM GET_DATA .
SELECT FIKRS FICTR CTR_OBJNR INTO TABLE IT_TAB FROM FMFCTR
 WHERE FIKRS EQ 'NFFM'
 AND FICTR IN RFISTL.
SELECT CO_OBJNR POSIT INTO TABLE IT_TAB1 FROM BPIJ
 FOR ALL ENTRIES IN IT_TAB
 WHERE CO_OBJNR EQ IT_TAB-CTR_OBJNR.
LOOP AT IT_TAB1.
 SELECT SINGLE FIPEX INTO IT_TAB1-FIPEX FROM FMPOSIT WHERE FIKRS EQ 'NFFM'
 AND POSIT EQ IT_TAB1-POSIT
 AND FIPEX IN FIPEX.
 IF SY-SUBRC EQ '0'.
 MODIFY IT_TAB1.
 ELSE.
 DELETE IT_TAB1.
 ENDIF.
ENDLOOP.
SELECT OBJNR
 POSIT
 GJAHR
 WLP01
 WLP02
 WLP03
 WLP04
 WLP05
 WLP06
 WLP07
 WLP08
 WLP09
 WLP10
 WLP11
 WLP12
 INTO TABLE IT_BPPE
 FROM BPPE
 FOR ALL ENTRIES IN IT_TAB1
 WHERE OBJNR EQ IT_TAB1-CO_OBJNR
 AND POSIT EQ IT_TAB1-POSIT
 AND GJAHR EQ RYEAR
 AND VORGA IN ('KBFR','KBUE','KBUS').
LOOP AT IT_BPPE.
 MOVE-CORRESPONDING IT_BPPE TO IT_BPPE1.
 IT_BPPE1-RFISTL = IT_BPPE1-OBJNR+6(4).
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_BPPE1-RFISTL
 IMPORTING
 OUTPUT = IT_BPPE1-RFISTL.
 CALL FUNCTION 'FM_FIPEX_GET_FROM_POSIT'
 EXPORTING
 I_FIKRS = 'NFFM'
 I_POSIT = IT_BPPE1-POSIT
 IMPORTING
 E_FIPEX = IT_BPPE1-FIPEX.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP01.
 WHEN 2.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP02.
 WHEN 3.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP03.
 WHEN 4.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP04.
 WHEN 5.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP05.
 WHEN 6.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP06.
 WHEN 7.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP07.
 WHEN 8.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP08.
 WHEN 9.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP09.
 WHEN 10.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP10.
 WHEN 11.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP11.
 WHEN 12.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP12.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 COLLECT IT_BPPE1.
 CLEAR PERIOD1.
 CLEAR IT_BPPE1.
ENDLOOP.
SELECT RYEAR
 FIKRS
 RFISTL
 RFIPEX
 HSL01
 HSL02
 HSL03
 HSL04
 HSL05
 HSL06
 HSL07
 HSL08
 HSL09
 HSL10
 HSL11
 HSL12
 HSL13
 HSL14
 HSL15
 HSL16
 INTO TABLE IT_FMIT FROM FMIT
 FOR ALL ENTRIES IN IT_BPPE1
 WHERE RYEAR EQ RYEAR
 AND FIKRS EQ 'NFFM'
 AND RFIPEX EQ IT_BPPE1-FIPEX
 AND RFIPEX IN FIPEX
 AND RFISTL EQ IT_BPPE1-RFISTL.
LOOP AT IT_FMIT.
 MOVE-CORRESPONDING IT_FMIT TO IT_FMIT1.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL01.
 WHEN 2.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL02.
 WHEN 3.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL03.
 WHEN 4.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL04.
 WHEN 5.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL05.
 WHEN 6.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL06.
 WHEN 7.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL07.
 WHEN 8.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL08.
 WHEN 9.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL09.
 WHEN 10.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL10.
 WHEN 11.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL11.
 WHEN 12.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL12.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 IT_FMIT1-TOTAL1 = IT_FMIT1-TOTAL * -1 .
 COLLECT IT_FMIT1.
 CLEAR PERIOD1.
 CLEAR IT_FMIT1.
ENDLOOP.
ENDFORM. " GET_DATA
*& Form PROCESS_DATA
 text
--> p1 text
<-- p2 text
FORM PROCESS_DATA .
SORT IT_FMIT1 BY FIKRS RFISTL RFIPEX.
SORT IT_BPPE1 BY RFISTL FIPEX.
LOOP AT IT_BPPE1.
 IT_FINAL-RFISTL = IT_BPPE1-RFISTL.
 IT_FINAL-RFIPEX = IT_BPPE1-FIPEX.
 IT_FINAL-ALLOC = IT_BPPE1-TOTAL2.
 READ TABLE IT_FMIT1 WITH KEY RFISTL = IT_BPPE1-RFISTL RFIPEX = IT_BPPE1-FIPEX.
 IF SY-SUBRC EQ 0.
 IT_FINAL-USED = IT_FMIT1-TOTAL1.
 ENDIF.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFIPEX
 IMPORTING
 OUTPUT = IT_FMIT1-RFIPEX.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFISTL
 IMPORTING
 OUTPUT = IT_FMIT1-RFISTL.
Changes made on 13/11/2007 *******************************
 SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
 AND FIPEX EQ IT_FMIT1-RFIPEX.
 SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
 AND FIPEX EQ IT_BPPE1-FIPEX.
Changes made on 13/11/2007 *******************************
 SELECT SINGLE BEZEICH INTO IT_FINAL-BEZEICH FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FICTR EQ IT_FMIT1-RFISTL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FINAL-RFIPEX
 IMPORTING
 OUTPUT = IT_FINAL-RFIPEX.
 IT_FINAL-REMAIN = IT_FINAL-ALLOC - IT_FINAL-USED.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
ENDLOOP.
SORT IT_FINAL BY FIKRS RFISTL RFIPEX.
 LOOP AT IT_FMIT1.
 READ TABLE IT_FINAL WITH KEY RFISTL = IT_FMIT1-RFISTL RFIPEX = IT_FMIT1-RFIPEX.
 IF SY-SUBRC NE 0.
 IT_FINAL-RFISTL = IT_FMIT1-RFISTL.
 IT_FINAL-RFIPEX = IT_FMIT1-RFIPEX.
 IT_FINAL-USED = IT_FMIT1-TOTAL1.
 IT_FINAL-ALLOC = '0'.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFIPEX
 IMPORTING
 OUTPUT = IT_FMIT1-RFIPEX.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFISTL
 IMPORTING
 OUTPUT = IT_FMIT1-RFISTL.
 SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
 AND FIPEX EQ IT_FMIT1-RFIPEX.
 SELECT SINGLE BEZEICH INTO IT_FINAL-BEZEICH FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FICTR EQ IT_FMIT1-RFISTL.
 IT_FINAL-REMAIN = IT_FINAL-ALLOC - IT_FINAL-USED.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
 ELSE.
 DELETE IT_FMIT1.
 ENDIF.
ENDLOOP.
SORT IT_FINAL BY FIKRS RFISTL RFIPEX.
ENDFORM. " PROCESS_DATA
*& Form GET_DATA1
 text
--> p1 text
<-- p2 text
FORM GET_DATA1 .
SELECT KOKRS KOSTL BUKRS OBJNR INTO TABLE IT_CSKS
 FROM CSKS
 WHERE KOKRS EQ '1000'
 AND KOSTL IN KOSTL
 AND BUKRS EQ 'NFCL'.
SELECT OBJNR
 GJAHR
 KSTAR
 BEKNZ
 WKG001
 WKG002
 WKG003
 WKG004
 WKG005
 WKG006
 WKG007
 WKG008
 WKG009
 WKG010
 WKG011
 WKG012
 FROM COSP
 INTO TABLE IT_COSP
 FOR ALL ENTRIES IN IT_CSKS
 WHERE OBJNR EQ IT_CSKS-OBJNR
 AND GJAHR EQ RYEAR
 AND KSTAR IN HKONT.
LOOP AT IT_COSP.
 MOVE-CORRESPONDING IT_COSP TO IT_COSP2.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG001.
 WHEN 2.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG002.
 WHEN 3.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG003.
 WHEN 4.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG004.
 WHEN 5.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG005.
 WHEN 6.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG006.
 WHEN 7.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG007.
 WHEN 8.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG008.
 WHEN 9.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG009.
 WHEN 10.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG010.
 WHEN 11.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG011.
 WHEN 12.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG012.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 IT_COSP2-OBJNR1 = IT_COSP2-OBJNR+10(6).
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_COSP2-OBJNR1
 IMPORTING
 OUTPUT = IT_COSP2-OBJNR1.
 CONCATENATE 'FSNFFM' IT_COSP2-OBJNR1 INTO IT_COSP2-OBJNR1.
 IT_COSP2-FIPEX = IT_COSP2-KSTAR.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_COSP2-FIPEX
 IMPORTING
 OUTPUT = IT_COSP2-FIPEX.
 CALL FUNCTION 'FM_POSIT_GET_FROM_FIPEX'
 EXPORTING
 I_FIKRS = 'NFFM'
 I_FIPEX = IT_COSP2-FIPEX
I_FLG_BUFFER_ALL =
 IMPORTING
 E_POSIT = IT_COSP2-POSIT
TABLES
T_FMPOSIT =
 EXCEPTIONS
 INPUT_ERROR = 1
 DATA_NOT_FOUND = 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.
 CONDENSE IT_COSP2-OBJNR1.
 CONDENSE IT_COSP2-POSIT.
 COLLECT IT_COSP2.
 CLEAR PERIOD1.
 CLEAR IT_COSP2.
ENDLOOP.
SORT IT_COSP2 BY OBJNR KSTAR.
SELECT OBJNR
 POSIT
 GJAHR
 WLP01
 WLP02
 WLP03
 WLP04
 WLP05
 WLP06
 WLP07
 WLP08
 WLP09
 WLP10
 WLP11
 WLP12
 INTO TABLE IT_BPPE
 FROM BPPE
 FOR ALL ENTRIES IN IT_COSP2
 WHERE OBJNR EQ IT_COSP2-OBJNR1
 AND POSIT EQ IT_COSP2-POSIT
 AND GJAHR EQ RYEAR
 AND VORGA IN ('KBFR','KBUE','KBUS').
LOOP AT IT_BPPE.
 MOVE-CORRESPONDING IT_BPPE TO IT_BPPE1.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP01.
 WHEN 2.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP02.
 WHEN 3.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP03.
 WHEN 4.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP04.
 WHEN 5.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP05.
 WHEN 6.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP06.
 WHEN 7.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP07.
 WHEN 8.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP08.
 WHEN 9.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP09.
 WHEN 10.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP10.
 WHEN 11.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP11.
 WHEN 12.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP12.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 COLLECT IT_BPPE1.
 CLEAR PERIOD1.
 CLEAR IT_BPPE1.
ENDLOOP.
ENDFORM. " GET_DATA1
*& Form PROCESS_DATA1
 text
--> p1 text
<-- p2 text
FORM PROCESS_DATA1 .
LOOP AT IT_COSP2.
 IT_FINAL1-GJAHR = IT_COSP2-GJAHR.
 IT_FINAL1-KSTAR = IT_COSP2-KSTAR.
 IT_FINAL1-TOTAL1 = IT_COSP2-TOTAL.
 SELECT SINGLE KOSTL FROM CSKS INTO IT_FINAL1-KOSTL WHERE KOKRS = '1000'
 AND BUKRS EQ 'NFCL'
 AND OBJNR = IT_COSP2-OBJNR.
 READ TABLE IT_BPPE1 WITH KEY OBJNR = IT_COSP2-OBJNR1 POSIT = IT_COSP2-POSIT.
 IF SY-SUBRC EQ 0.
 IT_FINAL1-TOTAL3 = IT_BPPE1-TOTAL2.
 ENDIF.
 SELECT SINGLE KTEXT INTO IT_FINAL1-TEXT FROM CSKU WHERE SPRAS EQ 'EN'
 AND KSTAR EQ IT_COSP2-KSTAR.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FINAL1-KOSTL
 IMPORTING
 OUTPUT = IT_FINAL1-KOSTL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FINAL1-KSTAR
 IMPORTING
 OUTPUT = IT_FINAL1-KSTAR.
 SELECT SINGLE BEZEICH INTO IT_FINAL1-BEZEICH FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FICTR EQ IT_FINAL1-KOSTL.
 IT_FINAL1-VARIANCE = IT_FINAL1-TOTAL3 - IT_FINAL1-TOTAL1.
 APPEND IT_FINAL1.
 CLEAR IT_FINAL1.
ENDLOOP.
SORT IT_FINAL1 BY KOSTL KSTAR.
DELETE IT_FINAL1 WHERE KOSTL IS INITIAL.
ENDFORM. " PROCESS_DATA1
*& Form BUILD_FIELDCATALOG
 text
--> p1 text
<-- p2 text
FORM BUILD_FIELDCATALOG .
FIELDCATALOG-FIELDNAME = 'RFISTL'.
FIELDCATALOG-SELTEXT_M = 'Funds Center'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'BEZEICH'.
FIELDCATALOG-SELTEXT_M = 'Fund Center Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'RFIPEX'.
FIELDCATALOG-SELTEXT_M = 'Commitment Item'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TEXT'.
FIELDCATALOG-SELTEXT_M = 'Commitment Item Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'ALLOC'.
FIELDCATALOG-SELTEXT_M = 'Allocated Budget'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'USED'.
FIELDCATALOG-SELTEXT_M = 'Used Budget'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'REMAIN'.
FIELDCATALOG-SELTEXT_M = 'Remaining Budget'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM. " BUILD_FIELDCATALOG
*& Form BUILD_FIELDCATALOG1
 text
--> p1 text
<-- p2 text
FORM BUILD_FIELDCATALOG1 .
FIELDCATALOG-FIELDNAME = 'KOSTL'.
FIELDCATALOG-SELTEXT_M = 'Cost Center'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'BEZEICH'.
FIELDCATALOG-SELTEXT_M = 'Cost Center Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'KSTAR'.
FIELDCATALOG-SELTEXT_M = 'G/L Account'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TEXT'.
FIELDCATALOG-SELTEXT_M = 'G/L Account Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TOTAL3'.
FIELDCATALOG-SELTEXT_M = 'Planned amount'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TOTAL1'.
FIELDCATALOG-SELTEXT_M = 'Actuals'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'VARIANCE'.
FIELDCATALOG-SELTEXT_M = 'Variance'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM. " BUILD_FIELDCATALOG1
*& Form BUILD_LAYOUT
 text
--> p1 text
<-- p2 text
FORM BUILD_LAYOUT .
GD_LAYOUT-NO_INPUT = 'X'.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " BUILD_LAYOUT
*& Form BUILD_SORT
 text
--> p1 text
<-- p2 text
FORM BUILD_SORT .
DATA: GT_SORT TYPE SLIS_SORTINFO_ALV.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'RFISTL'.
GT_SORT-TABNAME = 'IT_FINAL'.
GT_SORT-SUBTOT = 'X'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'BEZEICH'.
GT_SORT-TABNAME = 'IT_FINAL'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
ENDFORM. " BUILD_SORT
*& Form BUILD_SORT1
 text
--> p1 text
<-- p2 text
FORM BUILD_SORT1 .
DATA: GT_SORT TYPE SLIS_SORTINFO_ALV.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'KOSTL'.
GT_SORT-TABNAME = 'IT_FINAL'.
GT_SORT-SUBTOT = 'X'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'BEZEICH'.
GT_SORT-TABNAME = 'IT_FINAL'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
ENDFORM. " BUILD_SORT1
*& Form BUILD_EVENTS
 text
--> p1 text
<-- p2 text
FORM BUILD_EVENTS .
IT_EVENT-NAME = 'TOP_OF_PAGE'.
IT_EVENT-FORM = 'TOP_OF_PAGE'.
APPEND IT_EVENT TO IT_EVENT1.
CLEAR IT_EVENT.
ENDFORM. " BUILD_EVENTS
*& Form TOP_OF_PAGE
 ALV TOP-OF-PAGE
FORM TOP_OF_PAGE. "#EC CALLED
REFRESH : IT_LIST_TOP_OF_PAGE.
CLEAR : IT_LINE.
IT_LINE-TYP = 'H'.
IT_LINE-INFO = TEXT-001.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CLEAR IT_LINE.
IF RADIO EQ 'X'.
 IT_LINE-TYP = 'S'.
 IT_LINE-INFO = TEXT-101.
 IF NOT FIPEX-LOW IS INITIAL.
 CONCATENATE TEXT-101 '-' FIPEX-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT FIPEX-HIGH IS INITIAL.
 CONCATENATE TEXT-101 '-' FIPEX-LOW 'to' FIPEX-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
 CLEAR IT_LINE-INFO.
 IT_LINE-INFO = TEXT-102.
 IF NOT RFISTL-LOW IS INITIAL.
 CONCATENATE TEXT-102 '-' RFISTL-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT RFISTL-HIGH IS INITIAL.
 CONCATENATE TEXT-102 '-' RFISTL-LOW 'to' RFISTL-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
ENDIF.
IF RADIO1 EQ 'X'.
 CLEAR IT_LINE-INFO.
 IT_LINE-INFO = TEXT-105.
 IF NOT KOSTL-LOW IS INITIAL.
 CONCATENATE TEXT-105 '-' KOSTL-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT KOSTL-HIGH IS INITIAL.
 CONCATENATE TEXT-105 '-' KOSTL-LOW 'to' KOSTL-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
 CLEAR IT_LINE-INFO.
 IT_LINE-INFO = TEXT-106.
 IF NOT HKONT-LOW IS INITIAL.
 CONCATENATE TEXT-106 '-' HKONT-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT HKONT-HIGH IS INITIAL.
 CONCATENATE TEXT-106 '-' HKONT-LOW 'to' HKONT-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
ENDIF.
CLEAR IT_LINE-INFO.
IT_LINE-INFO = TEXT-103.
IF NOT PERDE-LOW IS INITIAL.
 CONCATENATE TEXT-103 '-' PERDE-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT PERDE-HIGH IS INITIAL.
 CONCATENATE TEXT-103 '-' PERDE-LOW 'to' PERDE-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
ENDIF.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CLEAR IT_LINE-INFO.
IT_LINE-INFO = TEXT-104.
IF NOT RYEAR IS INITIAL.
 CONCATENATE TEXT-104 '-' RYEAR INTO IT_LINE-INFO SEPARATED BY SPACE.
ENDIF.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LIST_TOP_OF_PAGE.
ENDFORM. "TOP_OF_PAGE
*& Form DISPLAY_ALV_REPORT
 text
--> p1 text
<-- p2 text
FORM DISPLAY_ALV_REPORT .
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GD_REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 IS_LAYOUT = GD_LAYOUT
 IT_EVENTS = IT_EVENT1[]
 IT_FIELDCAT = FIELDCATALOG[]
 IT_SORT = GD_SORT[]
 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_ALV_REPORT
*& Form DISPLAY_ALV_REPORT1
 text
--> p1 text
<-- p2 text
FORM DISPLAY_ALV_REPORT1 .
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GD_REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 IS_LAYOUT = GD_LAYOUT
 IT_EVENTS = IT_EVENT1[]
 IT_FIELDCAT = FIELDCATALOG[]
 IT_SORT = GD_SORT[]
 TABLES
 T_OUTTAB = IT_FINAL1
 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-MSG

Urgent: regarding ALV report display problem

hi,
There are 3 problems:-
1.) I had made a ALV report in which i have to display 'POSTING DATE' (iseg-budat) when we execute the report i.e. it should be displayed as PERIOD :- _______ to _______ on alv report ..
2.)the 2nd problem is dat when i use the ' wa_fieldcat-no_zero = 'X'. It eliminates all the leading zeros which are present which is okay when i it displays material no.. but the problem is dat it also deletes the other fields where the values are to be zeros.
i had used this FM:-
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
 INPUT = ITS1-MATNR
 IMPORTING
 OUTPUT = ITS1-MATNR.
so that only matnr field are to be 0's.
3.) I want to delete the rows which use to contain the values 0's as there are no calculations are performing as these are displayed .
ANYbody having solution of this problem ,plzzzz provide the soluion of it as it is most urgent to me and dat person will definately rewarded.
regards,
ric.s

hi kiran,
thanks for ur response. here is d code which i am using it and plzz help me to figure out where i have to make changes:-
REPORT ZTEST03.
TABLES: ISEG,MARA.
TYPE-POOLS : SLIS.
INTERNAL TABLE FOR INVENTORY STOCK *****************
DATA: BEGIN OF ITS1 OCCURS 0,
 MATNR LIKE ISEG-MATNR,
 MEINS LIKE ISEG-MEINS,
 MENGE LIKE ISEG-MENGE,
 WRTZL LIKE ISEG-WRTZL,
 BUCHM LIKE ISEG-BUCHM,
 WRTBM LIKE ISEG-WRTBM,
 WERKS LIKE ISEG-WERKS,
 BUDAT LIKE ISEG-BUDAT,
 MTART LIKE MARA-MTART,
 ITEMDESC LIKE MAKT-MAKTX,
 DIFFQTY LIKE ISEG-BUCHM,
 DIFFVALUE LIKE ISEG-WRTBM,
 END OF ITS1.
data: t_heading type slis_t_listheader.
SELECTION-SCREEN BEGIN OF BLOCK PAR1 WITH FRAME TITLE TEXT-001.
*********PARAMETERS*********
PARAMETERS : PLANT LIKE ISEG-WERKS OBLIGATORY.
*********SELECTION SCREEN OPTIONS*********
SELECT-OPTIONS : R_DATE FOR ISEG-BUDAT,
 M_TYPE FOR MARA-MTART,
 IT_M FOR MARA-MATNR.
*********DEFINING VARIABLES*********
SELECTION-SCREEN END OF BLOCK par1.
TOP-OF-PAGE.
 PERFORM PG_HEADER.
START-OF-SELECTION.
SELECT DISTINCT A~MATNR A~MEINS A~MENGE A~WRTZL A~BUCHM A~WRTBM A~WERKS A~BUDAT B~MTART
 FROM ISEG AS A INNER JOIN MARA AS B ON B~MATNR = A~MATNR
 INTO CORRESPONDING FIELDS OF TABLE ITS1 WHERE B~MATNR = A~MATNR AND B~MEINS = A~MEINS AND A~WERKS = PLANT AND A~BUDAT IN R_DATE AND B~MTART IN M_TYPE AND B~MATNR IN IT_M.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
 INPUT = ITS1-MATNR
 IMPORTING
 OUTPUT = ITS1-MATNR.
SORT ITS1 BY MATNR.
DELETE ADJACENT DUPLICATES FROM ITS1 WHERE MENGE = 0 AND BUCHM = 0.
LOOP AT ITS1.
 ITS1-DIFFQTY = ITS1-MENGE - ITS1-BUCHM.
 ITS1-DIFFVALUE = ITS1-WRTZL - ITS1-WRTBM.
 SELECT SINGLE MAKTX FROM MAKT INTO ITS1-ITEMDESC WHERE MATNR = ITS1-MATNR.
 MODIFY ITS1.
ENDLOOP.
PERFORM PRN_SMSTOCK_ALV.
WRITING DATA FROM D TABLES**********
FORM PG_HEADER.
WRITE : 'PHYSICAL INVENTORY AUDIT REPORT PLANT : ', PLANT.
ENDFORM.
*& Form PRN_SMSTOCK_ALV
 text
--> p1 text
<-- p2 text
form PRN_SMSTOCK_ALV .
data: w_title type lvc_title,
 w_repid type syrepid,
 w_comm type slis_formname,
 w_status type slis_formname,
 x_layout type slis_layout_alv,
 t_event type slis_t_event,
 t_fieldcat type slis_t_fieldcat_alv,
 t_sort type slis_t_sortinfo_alv.
refresh t_fieldcat.
refresh t_event.
refresh t_sort.
clear x_layout.
clear w_title.
perform set_fieldcat2 using:
1 'MTART' 'MTART' 'MARA' '15' space 'MATERIAL TYPE' space space space space space space space space SPACE t_fieldcat 'L' 'C',
2 'MATNR' 'MATNR' 'MARA' '13' space 'MATERIAL NO. ' space space space space space space space space SPACE t_fieldcat 'R' 'C',
3 'ITEMDESC' 'MAKTX' 'MAKT' '25' space 'MATERIAL DESCRIPTION' space space space space space space space space SPACE t_fieldcat 'L' 'C',
4 'MEINS' 'MEINS' 'MARA' '5' space 'UOM' space space space space space space space space SPACE t_fieldcat 'C' 'C',
5 'MENGE' 'MENGE' 'ISEG' '13' space 'ORG.INV.QTY' space space space space space space space space SPACE t_fieldcat 'R' 'C',
6 'WRTZL' 'WRTZL' 'ISEG' '13' space 'ORG.INV.VALUE' space space space space space space space space SPACE t_fieldcat 'R' 'C',
7 'BUCHM' 'BUCHM' 'ISEG' '13' space 'PHY.INV.QTY' space space space space space space space space SPACE t_fieldcat 'R' 'C',
8 'WRTBM' 'WRTBM' 'ISEG' '13' space 'PHY.INV.VALUE' space space space space space space space space SPACE t_fieldcat 'R' 'C',
9 'DIFFQTY' 'MENGE' 'ISEG' '13' space 'DIFF.INV.QTY' space space space space space space space space SPACE t_fieldcat 'R' 'C',
10 'DIFFVALUE' 'WRTZL' 'ISEG' '13' space 'DIFF.INV.VALUE' space space space space space space space space SPACE t_fieldcat SPACE 'P'.
x_layout-zebra = 'X'.
perform set_top_page_heading using t_heading t_event.
perform set_events using t_event.
w_status = ''.
w_repid = sy-repid.
w_comm = 'USER_COMMAND'.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = w_repid
 it_fieldcat = t_fieldcat
 i_Callback_top_of_page = 'Top-of-page'
 is_layout = x_layout
 it_sort = t_sort
 i_callback_pf_status_set = w_status
 i_callback_user_command = w_comm
 i_save = 'X'
 it_events = t_event
 i_grid_title = w_title
 tables
 t_outtab = ITS1
 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.
FORM set_fieldcat2 USING
 p_colpos p_fieldname p_ref_fieldname p_ref_tabname
 p_outputlen p_noout
 p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
 p_hotspot p_showasicon p_checkbox p_edit
 p_dosum
 t_fieldcat TYPE slis_t_fieldcat_alv
 P_JUST
 P_FTYPE.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-no_zero = 'X'.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-hotspot = p_hotspot.
wa_fieldcat-checkbox = p_checkbox.
wa_fieldcat-icon = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set output length.
IF NOT p_outputlen IS INITIAL.
 wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
 wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
 wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
 wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
 wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
 wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
IF NOT P_JUST IS INITIAL.
 WA_FIELDCAT-JUST = P_JUST.
ENDIF.
Set as editable or not.
IF NOT p_edit IS INITIAL.
 wa_fieldcat-input = 'X'.
 wa_fieldcat-edit = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM. "set_fieldcat2
======================== Subroutines called by ALV ================
*& Form top_of_page
 Called on top_of_page ALV event.
 Prints the heading.
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 it_list_commentary = t_heading.
ENDFORM.
form set_top_page_heading using t_heading type slis_t_listheader
 t_events type slis_t_event.
data: x_heading type slis_listheader,
 x_event type line of slis_t_event.
Report title
clear t_heading[].
clear x_heading.
x_heading-typ = 'H'.
x_heading-info = 'PHYSICAL INVENTORY AUDIT REPORT'.
append x_heading to t_heading.
Plant Name
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'PLANT: '.
x_heading-info = its1-werks.
append x_heading to t_heading.
Posting Date
*clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'POSTING DATE: '.
x_heading-info = ITS1-BUDAT.
append x_heading to t_heading.
Control Date
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'CONTROL No: '.
x_heading-info = its1-werks.
append x_heading to t_heading.
Control date
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'CONTROL DATE: '.
x_heading-info = its1-werks.
append x_heading to t_heading.
User who is running the report
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'User: '.
x_heading-info = sy-uname.
append x_heading to t_heading.
Date of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Date: '.
write sy-datum to x_heading-info.
append x_heading to t_heading.
Time of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Time: '.
write sy-uzeit to x_heading-info.
append x_heading to t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-form = 'TOP_OF_PAGE'.
append x_event to t_events.
endform.
form set_events using t_events type slis_t_event.
data: x_event type line of slis_t_event.
endform.
plzzz help me out as it is most urgent to me.
regards,
ric.s

How to change the layout of alv-urgent

hi friends,
my requirement is User should be able to sort the data on fields in different order, should be able to select the fields to sort the data
for example iam displaying the sales order,sales group,kunnr,amount in ALV List Display now when iam selecting the fields sales group,kunnr,amount,sales order then program has to display output in this way only. for this i used sort table thae way iwrote logic for displaying output is as follows ...
w_sort-spos = 3.
w_sort-fieldname = 'FINQTR'.
W_FIELD-just = 'C'.
W_SORT-UP = 'X'.
W_SORT-group = 'UL'.
W_SORT-SUBTOT = 'X'.
APPEND W_SORT TO I_SORT.
CLEAR W_SORT.
for subtotals it is working fine and now what shall i do for this requirement plz send me the sample code its really urgent to me.

use slis_t_sortinfo_alv.
w_sort-fieldname = 'XYZ'.
w_sort-up = p_userinput1.(for XYZ)
w_sort-down = p_userinput2.(for XYZ) preferabbly radio buttons.
append w_sort to t_sort.
w_sort-fieldname = 'YZX'.
w_sort-up = p_userinput1.(for YZX)
w_sort-down = p_userinput2.(for YZX) preferabbly radio buttons.
append w_sort to t_sort.
thats the best I am able to think for you.
let me know if that is helpful.
cheers
santhosh

Very urgent regarding ALV

Hi all,
I have displayed data in alv.and the error condition is that if for a material if it has more than one S as ok_status records then it should throw an error. This logic is working fine.
Now suppose at first time user had entered S through keyboard which fails the condition so it throws an error first time.
Now user can change the ok status back to I or O from S (through keyboard although f4 help is available) which satisfies the conditon so that record should be saved. but when user presses save button then in the ALV display the changed status I or O for that record again converted back to status S automatically. and again gives an error.
if we try third time then it allows to save with record other than s ok status i.e. I or O.
this problem is comming only when we change the value through keyboard. If we select value using f4 help then whole logic is working fine, no problem at all.
Can you please help me out in this regard
Its very urgent.
Thanks & Regards
Ashutosh.

Hi,
to exclude toolbar buttons..
DATA: LT_EXCLUDE TYPE UI_FUNCTIONS.
DATA LS_EXCLUDE TYPE UI_FUNC.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_DELETE_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_APPEND_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_INSERT_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_MOVE_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_COPY.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_CUT.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_PASTE_NEW_ROW.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
LS_EXCLUDE = CL_GUI_ALV_GRID=>MC_FC_LOC_UNDO.
APPEND LS_EXCLUDE TO LT_EXCLUDE.
CALL METHOD G_GRID1->SET_TABLE_FOR_FIRST_DISPLAY
 EXPORTING
 IT_TOOLBAR_EXCLUDING = LT_EXCLUDE
 IS_LAYOUT = GS_LAYOUT
 CHANGING
 IT_FIELDCATALOG = IT_FIELDCAT
 IT_OUTTAB = IT_FINAL[].
and you told you are using REUSE_ALV_GRID_DISPLAY_LVC
then in the user_command do this....
then your problem will be solved.
in the top you declare this..
DATA: REF_GRID TYPE REF TO CL_GUI_ALV_GRID.
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
 RS_SELFIELD TYPE SLIS_SELFIELD.
*then insert the following code in your USER_COMMAND routine...
IF REF_GRID IS INITIAL.
 CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
 IMPORTING
 E_GRID = REF_GRID.
ENDIF.
IF NOT REF_GRID IS INITIAL.
 CALL METHOD REF_GRID->CHECK_CHANGED_DATA
ENDIF.
ENDFORM.
Regards
vijay

Urgent: dates calculation in alv

hi,
i am making ALV report in alv in whihc i ahve to dispaly the difference between two days i.e. DIFFERRENCE = 7 DAYS.
CAN anybody provide me the example of it as it is urgent for me.
points will be definately rewarded for correct awnser.

use function module
HR_HK_DIFF_BT_2_DATES
give output format = 03 and get the value in days.
code is as below :
data : DATE1 type P0001-BEGDA,
 DATE2 type P0001-BEGDA,
 YEARS type P0347-SCRYY,
 MONTHS type P0347-SCRMM,
 DAYS type P0347-SCRDD.
date1 = '20070331'.
date2 = '20070101'.
CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
EXPORTING
 DATE1 = date1
 DATE2 = date2
 OUTPUT_FORMAT = '03'
IMPORTING
 YEARS = years
 MONTHS = months
 DAYS = days
EXCEPTIONS
INVALID_DATES_SPECIFIED = 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.
write : days.
regards,
sandeep Kaushik

Problem with Excel button in ALV Grid...URGENT

Hi All,
I have developed a report in ALV Grid. As we all know that by default we get few buttons in ALV Grid, like summation, sorting download, etc.. In that we have one excel button. When i click that excel button the output of the report should give the output in excel sheet. But this is not working.
The report is running fine except the excel button.
Do anyone of u have any idea how to do that?
Its very urgent...
Regards,
Parvez.

Go through the code and Execute it on your system, I think this will do for you.
In this code I used 3 radio buttons in my selection screen:
If u selects the first radio button your out put shows into to the Excel sheet.
If u selects the second radio button your out put shows the in the Editor screen.
If u clicks the third radio button your output shows into the Excel as well as in the Editor.
*& DATA DECLARATION *
TABLES: MARA, "GENERAL MASTER DATA
 MARC, "PLANT DATA FOR MATERIAL
 MARD, "STORAGE LOCATION DATA FOR MATERIAL
 MBEW, "MATERIAL VALUATION
 MVKE, "SALES DATA FOR MATERIAL
 MAKT, "MATERIAL DESCRIPTION
 EKKO, "PURCHASING DOCUMENT HEADER
 EKPO, "PURCHASING DOCUMENT ITEM
 VBAK, "SALES DOCUMENT HEADER DATA
 VBAP. "SALES DOCUMENT ITEM DATA
TYPE-POOLS : SLIS.
DATA: VT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
 V_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
 V_LAYOUT TYPE SLIS_LAYOUT_ALV,
 BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE,
 BEGIN OF I_MARA OCCURS 0,
 MATNR LIKE MARA-MATNR, "MATERIAL NUMBER
 MBRSH LIKE MARA-MBRSH, "INDUSTRY SECTOR
 MEINS LIKE MARA-MEINS, "BASE UNIT OF MEASURE
 MATKL LIKE MARA-MATKL, "MATERIAL GROUP
 END OF I_MARA,
 BEGIN OF I_MARC OCCURS 0,
 MATNR LIKE MARC-MATNR, "MATERIAL NUMBER
 WERKS LIKE MARC-WERKS, "PLANT
 LVORM LIKE MARC-LVORM, "FLAG MATERIAL FOR DELETION AT PLANT
 "LEVEL
 DISPO LIKE MARC-DISPO, "MRP CONTROLLER
 END OF I_MARC,
 BEGIN OF I_MAKT OCCURS 0,
 MATNR LIKE MAKT-MATNR, "MATERIAL NUMBER
 MAKTX LIKE MAKT-MAKTX, "MATERIAL DESCRIPTION
 SPRAS LIKE MAKT-SPRAS, "LANGUAGE KEY
 END OF I_MAKT,
 BEGIN OF I_MVKE OCCURS 0,
 MATNR LIKE MVKE-MATNR, "MATERIAL NUMBER
 VKORG LIKE MVKE-VKORG, "SALES ORGANIZATION
 VTWEG LIKE MVKE-VTWEG, "DISTRIBUTION CHANNEL
 END OF I_MVKE,
 BEGIN OF I_MARD OCCURS 0,
 MATNR LIKE MARD-MATNR, "MATERIAL NUMBER
 LGORT LIKE MARD-LGORT, "STORAGE LOCATION
 LABST LIKE MARD-LABST, "VALUATED STOCK WITH UNRESTRICTED USE
 END OF I_MARD,
 BEGIN OF I_EKPO OCCURS 0,
 EBELN LIKE EKPO-EBELN, "PURCHASING DOCUMENT NUMBER
 EBELP LIKE EKPO-EBELP, "ITEM NUMBER OF PURCHASING DOCUMENT
 MATNR LIKE EKPO-MATNR, "MATERIAL NUMBER
 END OF I_EKPO,
 BEGIN OF I_VBAP OCCURS 0,
 VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
 POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
 MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
 END OF I_VBAP,
 BEGIN OF I_OUT OCCURS 0,
 MATNR LIKE MARC-MATNR,
 WERKS LIKE MARC-WERKS,
 LVORM LIKE MARC-LVORM,
 DISPO LIKE MARC-DISPO,
 MBRSH LIKE MARA-MBRSH,
 MEINS LIKE MARA-MEINS,
 MATKL LIKE MARA-MATKL,
 VKORG LIKE MVKE-VKORG,
 VTWEG LIKE MVKE-VTWEG,
 SPRAS LIKE MAKT-SPRAS,
 MAKTX LIKE MAKT-MAKTX,
 LGORT LIKE MARD-LGORT,
 LABST LIKE MARD-LABST,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 VBELN LIKE VBAP-VBELN,
 POSNR LIKE VBAP-POSNR,
 END OF I_OUT,
 BEGIN OF I_HEADING OCCURS 0,
 TEXT1(20),
 TEXT2(20),
 TEXT3(20),
 TEXT4(20),
 TEXT5(20),
 TEXT6(20),
 TEXT7(20),
 TEXT8(20),
 TEXT9(20),
 TEXT10(20),
 TEXT11(40),
 TEXT12(20),
 TEXT13(20),
 TEXT14(20),
 TEXT15(20),
 TEXT16(20),
 TEXT17(20),
 END OF I_HEADING.
*& S E L E C T I O N - S C R E E N *
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-100.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR. "OBLIGATORY.
PARAMETERS: P_WERKS LIKE MARC-WERKS. "OBLIGATORY.
SELECT-OPTIONS: S_LGORT FOR MARD-LGORT,
 S_DISPO FOR MARC-DISPO,
 S_EBELN FOR EKPO-EBELN .
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-101.
PARAMETERS : RB1 RADIOBUTTON GROUP G1,
 RB2 RADIOBUTTON GROUP G1,
 RB3 RADIOBUTTON GROUP G1.
SELECTION-SCREEN END OF BLOCK B2.
*& S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
SELECT MATNR WERKS LVORM DISPO FROM MARC
INTO CORRESPONDING FIELDS OF TABLE I_MARC
 WHERE MATNR IN S_MATNR
 AND DISPO IN S_DISPO
 AND WERKS = P_WERKS.
IF I_MARC[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MARC'.
 EXIT.
ENDIF.
PERFORM PURCHASEDATA_VALIDATION.
PERFORM SALESDATA_VALIDATION.
SELECT MATNR LGORT LABST FROM MARD INTO TABLE I_MARD
 FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR
 AND WERKS EQ P_WERKS
 AND LGORT IN S_LGORT.
IF I_MARD[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MARD'.
 EXIT.
ENDIF.
SELECT MATNR VKORG VTWEG FROM MVKE INTO TABLE I_MVKE
 FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR.
IF I_MVKE[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA AVAILABLE FROM MVKE'.
 EXIT.
ENDIF.
LOOP AT I_MARC.
 MOVE-CORRESPONDING I_MARC TO I_OUT.
 CLEAR MARC.
 SELECT SINGLE MATNR MBRSH MEINS MATKL FROM MARA
 INTO CORRESPONDING FIELDS OF MARA
 WHERE MATNR = I_OUT-MATNR.
 IF SY-SUBRC = 0.
 MOVE: MARA-MBRSH TO I_OUT-MBRSH,
 MARA-MEINS TO I_OUT-MEINS,
 MARA-MATKL TO I_OUT-MATKL.
 ELSE.
 CONTINUE.
 ENDIF.
 SELECT SINGLE MATNR MAKTX SPRAS FROM MAKT
 INTO CORRESPONDING FIELDS OF MAKT
 WHERE MATNR = I_OUT-MATNR.
 IF SY-SUBRC = 0.
 MOVE: MAKT-MAKTX TO I_OUT-MAKTX,
 MAKT-SPRAS TO I_OUT-SPRAS.
 ELSE.
 CONTINUE.
 ENDIF.
 LOOP AT I_EKPO WHERE MATNR = I_MARC-MATNR.
 MOVE: I_EKPO-EBELN TO I_OUT-EBELN,
 I_EKPO-EBELP TO I_OUT-EBELP.
 ENDLOOP.
 LOOP AT I_VBAP WHERE MATNR = I_MARC-MATNR.
 MOVE: I_VBAP-VBELN TO I_OUT-VBELN,
 I_VBAP-POSNR TO I_OUT-POSNR.
 ENDLOOP.
 LOOP AT I_MARD WHERE MATNR = I_MARC-MATNR.
 MOVE: I_MARD-LABST TO I_OUT-LABST,
 I_MARD-LGORT TO I_OUT-LGORT.
 ENDLOOP.
 LOOP AT I_MVKE WHERE MATNR = I_MARC-MATNR.
 MOVE: I_MVKE-VKORG TO I_OUT-VKORG,
 I_MVKE-VTWEG TO I_OUT-VTWEG.
 APPEND I_OUT.
 ENDLOOP.
 CLEAR I_OUT.
ENDLOOP.
PERFORM OPTIONS.
 FORM OPTIONS *
FORM OPTIONS.
IF RB2 = 'X'.
 PERFORM FIELDCAT.
 PERFORM OUTPUT.
ELSE.
 IF RB1 = 'X'.
 PERFORM HEADINGS.
 PERFORM DLOAD.
 ELSE.
 IF RB3 = 'X'.
 PERFORM HEADINGS.
 PERFORM DLOAD.
 PERFORM FIELDCAT.
 PERFORM OUTPUT.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. "OPTIONS
 FORM HEADINGS *
FORM HEADINGS.
I_HEADING-TEXT1 = 'MATNR'.
I_HEADING-TEXT2 = 'WERKS'.
I_HEADING-TEXT3 = 'LVORM'.
I_HEADING-TEXT4 = 'DISPO'.
I_HEADING-TEXT5 = 'MBRSH'.
I_HEADING-TEXT6 = 'MEINS'.
I_HEADING-TEXT7 = 'MATKL'.
I_HEADING-TEXT8 = 'VKORG'.
I_HEADING-TEXT9 = 'VTWEG'.
I_HEADING-TEXT10 = 'SPRAS'.
I_HEADING-TEXT11 = 'MAKTX'.
I_HEADING-TEXT12 = 'LGORT'.
I_HEADING-TEXT13 = 'LABST'.
I_HEADING-TEXT14 = 'EBELN'.
I_HEADING-TEXT15 = 'EBELP'.
I_HEADING-TEXT16 = 'VBELN'.
I_HEADING-TEXT17 = 'POSNR'.
APPEND I_HEADING.
ENDFORM. "HEADINGS
 FORM DLOAD *
FORM DLOAD.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:\MATSTK.XLS'
 FILETYPE = 'DAT'
 WRITE_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = I_HEADING
 EXCEPTIONS
 FILE_WRITE_ERROR = 1.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:\MATSTK.XLS'
 FILETYPE = 'DAT'
 APPEND = 'X'
 WRITE_FIELD_SEPARATOR = 'X'
 TABLES
 DATA_TAB = I_OUT.
ENDFORM. "DLOAD
 FORM FIELDCAT *
FORM FIELDCAT.
V_FIELDCAT-COL_POS = '1'.
V_FIELDCAT-FIELDNAME = 'MATNR'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-HOTSPOT = 'X'.
V_FIELDCAT-REF_FIELDNAME = 'MATNR'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '2'.
V_FIELDCAT-FIELDNAME = 'WERKS'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'WERKS'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '3'.
V_FIELDCAT-FIELDNAME = 'LVORM'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'LVORM'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '4'.
V_FIELDCAT-FIELDNAME = 'DISPO'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'DISPO'.
V_FIELDCAT-REF_TABNAME = 'MARC'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '5'.
V_FIELDCAT-FIELDNAME = 'MBRSH'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MBRSH'.
V_FIELDCAT-REF_TABNAME = 'MARA'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '6'.
V_FIELDCAT-FIELDNAME = 'MEINS'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MEINS'.
V_FIELDCAT-REF_TABNAME = 'MARA'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '7'.
V_FIELDCAT-FIELDNAME = 'MATKL'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MATKL'.
V_FIELDCAT-REF_TABNAME = 'MARA'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '8'.
V_FIELDCAT-FIELDNAME = 'VKORG'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'VKORG'.
V_FIELDCAT-REF_TABNAME = 'MVKE'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '9'.
V_FIELDCAT-FIELDNAME = 'VTWEG'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'VTWEG'.
V_FIELDCAT-REF_TABNAME = 'MVKE'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '10'.
V_FIELDCAT-FIELDNAME = 'SPRAS'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'SPRAS'.
V_FIELDCAT-REF_TABNAME = 'MAKT'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '11'.
V_FIELDCAT-FIELDNAME = 'MAKTX'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'MAKTX'.
V_FIELDCAT-REF_TABNAME = 'MAKT'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '12'.
V_FIELDCAT-FIELDNAME = 'LGORT'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'LGORT'.
V_FIELDCAT-REF_TABNAME = 'MARD'.
V_FIELDCAT-SELTEXT_L = 'STRG LOCT'.
V_FIELDCAT-OUTPUTLEN = 10.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '13'.
V_FIELDCAT-FIELDNAME = 'LABST'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-SELTEXT_M = 'STOCK'.
V_FIELDCAT-OUTPUTLEN = 15.
V_FIELDCAT-REF_FIELDNAME = 'LABST'.
V_FIELDCAT-REF_TABNAME = 'MARD'.
V_FIELDCAT-DO_SUM = 'X'.
V_LAYOUT-TOTALS_TEXT = 'TOTAL STOCK:'.
V_FIELDCAT-HOTSPOT = 'X'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '14'.
V_FIELDCAT-FIELDNAME = 'EBELN'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-HOTSPOT = 'X'.
V_FIELDCAT-REF_FIELDNAME = 'EBELN'.
V_FIELDCAT-REF_TABNAME = 'EKPO'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '15'.
V_FIELDCAT-FIELDNAME = 'EBELP'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'EBELP'.
V_FIELDCAT-REF_TABNAME = 'EKPO'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '16'.
V_FIELDCAT-FIELDNAME = 'VBELN'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-HOTSPOT = 'X'.
V_FIELDCAT-REF_FIELDNAME = 'VBELN'.
V_FIELDCAT-REF_TABNAME = 'VBAP'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
V_FIELDCAT-COL_POS = '17'.
V_FIELDCAT-FIELDNAME = 'POSNR'.
V_FIELDCAT-TABNAME = 'I_OUT'.
V_FIELDCAT-REF_FIELDNAME = 'POSNR'.
V_FIELDCAT-REF_TABNAME = 'VBAP'.
APPEND V_FIELDCAT TO VT_FIELDCAT1.
CLEAR V_FIELDCAT.
ENDFORM. "FIELDCAT
 FORM OUTPUT *
FORM OUTPUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP-OF-PAGE'
 I_GRID_TITLE = 'CLICK ON MATERIAL/PURDOC/SALESDOC FOR DETAILS'
 I_CALLBACK_USER_COMMAND = 'DISPLAYDETAILS'
 IS_LAYOUT = V_LAYOUT
 IT_FIELDCAT = VT_FIELDCAT1
 TABLES
 T_OUTTAB = I_OUT.
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. "OUTPUT
 FORM TOP-OF-PAGE *
FORM TOP-OF-PAGE.
DATA: T_HEADER TYPE SLIS_T_LISTHEADER,
 WA_HEADER TYPE SLIS_LISTHEADER.
WA_HEADER-TYP = 'H'.
WA_HEADER-INFO = 'REPORT FOR : '.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-INFO = 'MATERIAL DETAILS'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-INFO = 'PURCHASE ORDER DETAILS'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
WA_HEADER-TYP = 'S'.
WA_HEADER-INFO = 'SALES ORDER DETAILS'.
APPEND WA_HEADER TO T_HEADER.
CLEAR WA_HEADER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 I_LOGO = 'GEAR'
 IT_LIST_COMMENTARY = T_HEADER.
ENDFORM. "TOP-OF-PAGE
*& FORM PURCHASEDATA_VALIDATION *
FORM PURCHASEDATA_VALIDATION.
SELECT EBELN EBELP MATNR
 FROM EKPO
 INTO TABLE I_EKPO
 FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR
 AND EBELN IN S_EBELN
 AND WERKS EQ P_WERKS.
IF I_EKPO[] IS INITIAL.
 WRITE:/ 'NO MATCHING DATA IS SELECTED FROM TABLE EKPO'.
 EXIT.
ENDIF.
DATA: T_EKPO LIKE I_EKPO OCCURS 0 WITH HEADER LINE.
T_EKPO[] = I_EKPO[].
REFRESH I_EKPO.
FREE I_EKPO.
LOOP AT T_EKPO.
 SELECT SINGLE EBELN FROM EKKO INTO EKPO-EBELN
 WHERE EBELN = T_EKPO-EBELN.
 IF SY-SUBRC = 0.
 MOVE-CORRESPONDING T_EKPO TO I_EKPO.
 APPEND I_EKPO.
 CLEAR I_EKPO.
 ELSE.
 CONTINUE.
 ENDIF.
ENDLOOP.
SORT I_EKPO.
ENDFORM. "PURCHASEDATA_VALIDATION
*& FORM SALESDATA_VALIDATION *
FORM SALESDATA_VALIDATION.
SELECT VBELN POSNR MATNR
 FROM VBAP
 INTO CORRESPONDING FIELDS OF TABLE
 I_VBAP FOR ALL ENTRIES IN I_MARC
 WHERE MATNR = I_MARC-MATNR.
DATA: T_VBAP LIKE I_VBAP OCCURS 0 WITH HEADER LINE.
T_VBAP[] = I_VBAP[].
REFRESH I_VBAP.
FREE I_VBAP.
LOOP AT T_VBAP.
 SELECT SINGLE VBELN FROM VBAK INTO VBAK-VBELN
 WHERE VBELN = T_VBAP-VBELN.
 IF SY-SUBRC = 0.
 MOVE-CORRESPONDING T_VBAP TO I_VBAP.
 APPEND I_VBAP.
 CLEAR I_VBAP.
 ELSE.
 CONTINUE.
 ENDIF.
ENDLOOP.
SORT I_VBAP.
ENDFORM. "SALESDATA_VALIDATION

Logic for Refreshing the ALV Report (Very Urgent)

Hi Experts,
My ALV report needs a refresh button on the output.
The Refresh button should be available to allow user to keep this report on screen and refresh regularly rather than going back and running it again.
I am using Function modules and not OOPS Concept here.............As i am unaware of OOPS Please provide me solution in FM's Only.
Kindly send me sample logic for this, Very urgent if ur reply is helpfull.... u will be rewarded heavily.......................
THanks in advance.
Rajesh Kumar

Hi,
This mean to say that if you have a 'refresh' push button in your gui status, every time you press the button, the list should get refreshed.
In ALV, to refresh the table you have to call the method "refresh_table_display".
It has the syntax very similar to creating the table.
It has two parameters. In the first one, you can mention if you want to refresh only the data (the icons are not refreshed)
or
if you want to refresh only the icons around the grid (the data is not refreshed - this option is mostly not used in day to day applications).
the synatx is :-
call method grid (name of grid )->refresh_table_display
exporting
IS_STABLE = <STRUCT OF TYPE LVC_S_STBL> (THIS IS FOR DATA REFRESHING)
I_SOFT_REFRESH = <VARIABLE OF CHAR 01> (THIS IS FOR ICON REFRESHING).
Regards,
Bhaskar

Really urgent: reagrding alv format for like (internal tables)

Hi,
I making a report in which i am using the concept of 2 internal tables and i am usnig the concept of likes in a internal table .
for instance,
DATA : BEGIN OF ITAB OCCURS 0,
 ITEMID LIKE CHVW-MATNR,
 WERKS LIKE CHVW-WERKS,
 CHARG LIKE CHVW-CHARG,
 SHKZG LIKE CHVW-SHKZG,
 MENGE LIKE CHVW-MENGE,
 MEINS LIKE CHVW-MEINS,
END OF ITAB.
DATA: BEGIN OF ITAB1 OCCURS 0,
 MATNR TYPE BSEG-MATNR,
 LIFNR TYPE BSEG-LIFNR,
 AUGDT TYPE BSEG-AUGDT,
 WRBTR TYPE BSEG-WRBTR,
 END OF IT_BSEG.
and i am able to create ALV for 1 itab only as i had declared all fields in a 1 itab ,but now i have to declare 1 more itab and i dont know how to perform ALV with 2 itabs..
Plzz help me out as it is really urgent to me.
Edited by: ric .s on Apr 22, 2008 11:45 AM
Edited by: ric .s on Apr 23, 2008 7:21 AM
Edited by: ric .s on Apr 23, 2008 7:55 AM

Hi Ric,
Yes, You can .
Check the sample ALV program which helps u in displaying output using ALV . Comments have been made everywhere .
report zvenkat_alv_2_grid_description.
types:
 begin of t_mard,
 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 t_mard.
data:
 w_mard type t_mard.
data:
 i_mard type standard table of t_mard.
" ALV Declarations
" ALV internal tables and Structures
" To refer ALV tables(slis tables) and structures.SLIS must be
" declared under TYPE-POOLS(see below).SLIS is a Type group which is
" defined in Dictionary.Internal tables and structures and constants
" are defined under type group.(Double click on SLIS).
* Types Pools
type-pools:
 slis.
* Types
types:
 t_fieldcat type slis_fieldcat_alv,
 t_events type slis_alv_event,
 t_layout type slis_layout_alv.
* Workareas
data:
 w_fieldcat type t_fieldcat,
 w_events type t_events,
 w_layout type t_layout.
* Internal Tables
data:
 i_fieldcat type standard table of t_fieldcat,
 i_fieldcat1 type standard table of t_fieldcat,
 i_events type standard table of t_events.
*& START-OF-SELECTION
start-of-selection.
perform get_data_from_database .
" END-OF-SELECTION
" Steps to create simple ALV program
" 1. Pass an internal table with the set of output information
" 2. Pass a field catalog as an internal table
" 3. Pass a structure with general list layout details
end-of-selection.
perform build_fieldcatalog.
perform build_events.
perform build_layout.
perform display_data.
" Form build_fieldcatalog
" Fieldcatalog Internal table
" 1. It contains descriptions of the list output fields
" (usually a subset of the internal output table fields).
" 2. A field catalog is required for every ALV list output.
form build_fieldcatalog .
clear :
 w_fieldcat,
 i_fieldcat[].
perform build_fcat using:
 "Field Int.Table Column headings
 'WERKS' 'I_MARD' 'WERKS',
 'LGORT' 'I_MARD' 'LGORT',
 'MATNR' 'I_MARD' 'MATNR',
 'INSME' 'I_MARD' 'INSME',
 'EINME' 'I_MARD' 'EINME',
 'SPEME' 'I_MARD' 'SPEME'.
endform. " build_fieldcatalog
*& Form display_data
form display_data .
data :program like sy-repid value sy-repid.
call function 'REUSE_ALV_LIST_DISPLAY'
 exporting
 i_callback_program = program
 is_layout = w_layout
 it_fieldcat = i_fieldcat
 it_events = i_events
 tables
 t_outtab = i_mard.
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 .
clear :i_mard,
 i_mard[].
select werks lgort matnr insme einme speme
from mard
into corresponding fields of table i_mard
 up to 100 rows.
endform. " get_data_from_database
*& Form top_of_page
* text
form top_of_page.
data :
i_header type slis_t_listheader,
w_header like line of i_header.
data:l_date1 type datum,
 l_date2 type datum.
w_header-typ = 'S'.
w_header-info = sy-title.
append w_header to i_header.
clear w_header.
w_header-typ = 'H'.
w_header-info = sy-repid.
append w_header to i_header.
clear w_header.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 it_list_commentary = i_header
 i_logo = 'ENJOYSAP_LOGO'.
endform. "top_of_page
*& Form BUILD_FCAT
form build_fcat using l_field l_tab l_text.
w_fieldcat-fieldname = l_field.
w_fieldcat-tabname = l_tab.
w_fieldcat-seltext_m = l_text.
append w_fieldcat to i_fieldcat.
clear w_fieldcat.
endform. " BUILD_FCAT
" Form build_events
" Events
" 1. When we use ALV,certain events TOP-OF-PAGE ,END-OF-PAGE,
" AT LINE-SELECTION,AT USER-COMMANDs are not triggered.
" 2. To perform those Functions ,we have to build Events table and
" pass this table through REUSE_ALV_LIST_DISPALY Function.
form build_events .
clear :
 w_events,i_events[].
w_events-name = 'TOP_OF_PAGE'.
w_events-form = 'TOP_OF_PAGE'.
append w_events to i_events.
clear w_events.
endform. " build_events
"& Form build_layout
" Layouts
" Use :We change the display of our list using layouts.
" ===
" Features
" ========
" The layouts that you can use vary according to the type of list:
" 1-->In all lists, you can do the following:
" (a).Choose one of the std layouts supplied with the std system.
" (b).Change the current layout of the list .
" 2-->In lists that use only the standard layouts in the std system
" you cannot save your changes to the current layout.When you
" choose the layouts, only the standard layouts will be proposed.
" 3-->In some lists, you can also save the layouts that you have
" defined as our own layouts.
" User-defined layouts are generally saved for all users. They can
" then be used by all users. All users will be able to choose from
" the user-defined layouts as well as the standard layouts.
" 4-->In some lists, you can also save user-specific layouts that you
" have defined . When you choose the current layout,only these
" layouts are available to you.
" 5-->You can delete or transport layouts, or define them as initial
" layouts
" 6-->STRUCTURE :SLIS_LAYOUT_ALV.
form build_layout .
clear:
 w_layout.
w_layout-colwidth_optimize = 'X'.
endform. " build_layout
Regards,
Venkat.O

Urgent - alvs-MAXFORUMPOINTS

Similar Messages

Maybe you are looking for