Dear Expertise
I have a requirement to make report.
First of all, created a z-table which includes fields and system date.
then , i have created a report for backing up data of previous report i.e ZCSR
report name is ZCSR_BKUP_PROG.
and for display i have made a report ZCSR_BKUP_DISP.
Table is being created .
report is being created zcsr_bkup_prog
but i need no selection screen in this .
I have to take the back up irrespective of date .
but it_final has no value when i comment the selection part as date is passed to select queries .
alternate option to save the data in Z-table from report (zcsr_bkup_prog).
Lastly, i need to call that program in zcsr_bkup_disp
and display the data according to date
i.e fixed 5 10 15
of any month and year.
Code of zcsr_bkup_prog
*&---------------------------------------------------------------------*
*& Report ZCSR_BKUP_PROG
*&*&Created by : Karan Kanotra (Keon Solutions)
*& Co-ordinated by : Pankaj Labhasetwar (Keon Solutions)
* Request : KFDK901798
*& Creation Date : 01/12/2014
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zcsr_bkup_prog.
*&---------------------------------------------------------------------*
*& TABLES
*&---------------------------------------------------------------------*
TABLES : vbak , vbap , vbep , likp , lips , marc , kna1 , konv,knvv,tvgrt.
TYPE-POOLS :slis.
*&---------------------------------------------------------------------*
*& TYEPS DECLARATION
*&---------------------------------------------------------------------*
TYPES : BEGIN OF t_vbak,
vbeln TYPE vbak-vbeln, "Sales document
kunnr TYPE vbak-kunnr, "Sold-to-party
audat TYPE vbak-audat,
* posnr TYPE vbak-posnr,
knumv TYPE vbak-knumv,
vtweg TYPE vbak-vtweg,
vkorg TYPE vbak-vkorg,
vkgrp TYPE vbak-vkgrp,
END OF t_vbak.
TYPES : BEGIN OF t_konp,
kbetr TYPE konp-kbetr,
konwa TYPE konp-konwa,
knumh TYPE konp-knumh,
END OF t_konp.
TYPES : BEGIN OF t_knvv,
kunnr TYPE knvv-kunnr,
vkgrp TYPE knvv-vkgrp,
END OF t_knvv.
TYPES : BEGIN OF t_tvgrt,
vkgrp TYPE tvgrt-vkgrp,
bezei TYPE tvgrt-bezei,
END OF t_tvgrt.
TYPES : BEGIN OF t_kna1,
name1 TYPE kna1-name1, "Description
pstlz TYPE kna1-pstlz,
kunnr TYPE kna1-kunnr,
* posnr TYPE kna1-posnr,
END OF t_kna1.
TYPES : BEGIN OF t_vbap,
matnr TYPE vbap-matnr, " Material
vbeln TYPE vbap-vbeln,
posnr TYPE vbap-posnr,
abgru TYPE vbap-abgru,
werks TYPE vbap-werks,
END OF t_vbap.
TYPES: BEGIN OF t_vbkd,
kursk TYPE vbkd-kursk,
vbeln TYPE vbkd-vbeln,
END OF t_vbkd.
TYPES : BEGIN OF t_vbfa,
rfmng TYPE vbfa-rfmng,
vbeln TYPE vbfa-vbeln,
vbelv TYPE vbfa-vbelv,
erdat TYPE vbfa-erdat,
vbtyp_n TYPE vbfa-vbtyp_n,
END OF t_vbfa.
TYPES: BEGIN OF t_a305,
knumh TYPE a305-knumh,
datab TYPE a305-datab,
kunnr TYPE a305-kunnr,
vtweg TYPE a305-vtweg,
kschl TYPE a305-kschl,
matnr TYPE a305-matnr,
vkorg TYPE a305-vkorg,
END OF t_a305.
TYPES : BEGIN OF t_marc,
prctr TYPE marc-prctr, "Profit center
matnr TYPE marc-matnr,
* posnr TYPE marc-posnr,
werks TYPE marc-werks,
END OF t_marc.
TYPES : BEGIN OF t_vbep,
edatu TYPE vbep-edatu, "Schedule line date
vbeln TYPE vbep-vbeln, "Sales document
wmeng TYPE vbep-wmeng, "confirmed quantity
etenr TYPE vbep-etenr, "Delivery schedule line number
END OF t_vbep.
TYPES : BEGIN OF t_likp,
wadat_ist TYPE likp-wadat_ist, "Actual good movment date
vbeln TYPE likp-vbeln,
END OF t_likp.
TYPES : BEGIN OF t_lips,
vbeln TYPE lips-vbeln, "Delivery
lfimg TYPE lips-lfimg, "Actual quantity delivery
vgbel TYPE lips-vgbel, "Document number of the reference number
erdat TYPE lips-erdat,
END OF t_lips.
TYPES : BEGIN OF t_vbep1,
edatu TYPE vbep-edatu,
vbeln TYPE vbep-vbeln,
wmeng TYPE vbep-wmeng,
etenr TYPE vbep-etenr,
posnr TYPE vbep-posnr,
END OF t_vbep1.
TYPES : BEGIN OF t_final,
vbeln TYPE vbak-vbeln,
kunnr TYPE vbak-kunnr,
vkgrp TYPE vbak-vkgrp,
name1 TYPE kna1-name1,
matnr TYPE vbap-matnr,
prctr TYPE marc-prctr,
edatu TYPE vbep-edatu,
* vbeln TYPE vbep-vbeln,
wmeng TYPE vbep-bmeng,
etenr TYPE vbep-etenr,
wadat_ist TYPE likp-wadat_ist,
* vbeln TYPE lips-vbeln,
vgbel TYPE lips-vgbel,
lfimg TYPE lips-lfimg,
vbeln1 TYPE vbfa-vbeln,
erdat TYPE lips-erdat,
* posnr TYPE lips-posnr,
posnr TYPE vbap-posnr,
kbetr TYPE konp-kbetr,
knumh TYPE a305-knumh,
kschl TYPE konv-kschl,
konwa TYPE konp-konwa,
rfmng TYPE vbfa-rfmng,
vbelv TYPE vbfa-vbelv,
vkorg TYPE vbak-vkorg,
kursk TYPE vbkd-kursk,
lv_sum TYPE i,
wmeng1 TYPE i,
rfmng1 TYPE i,
bezei TYPE tvgrt-bezei,
END OF t_final.
*&---------------------------------------------------------------------*
*& DATA DECLARATION
*&---------------------------------------------------------------------*
DATA : lv_sum TYPE i,
wmeng1 TYPE i,
rfmng1 TYPE i,
Datum TYPE sy-datum.
DATA : it_vbak TYPE STANDARD TABLE OF t_vbak,
wa_vbak TYPE t_vbak.
DATA : it_vbap TYPE STANDARD TABLE OF t_vbap,
wa_vbap TYPE t_vbap.
DATA : it_knvv TYPE STANDARD TABLE OF t_knvv,
wa_knvv TYPE t_knvv.
DATA : it_tvgrt TYPE STANDARD TABLE OF t_tvgrt,
wa_tvgrt TYPE t_tvgrt.
DATA: it_vbep TYPE STANDARD TABLE OF t_vbep,
wa_vbep TYPE t_vbep.
DATA : it_vbkd TYPE STANDARD TABLE OF t_vbkd,
wa_vbkd TYPE t_vbkd.
DATA : it_likp TYPE STANDARD TABLE OF t_likp,
wa_likp TYPE t_likp.
DATA : it_vbep1 TYPE STANDARD TABLE OF t_vbep1,
wa_vbep1 TYPE t_vbep1.
DATA : it_a305 TYPE STANDARD TABLE OF t_a305,
wa_a305 TYPE t_a305.
DATA : it_lips TYPE STANDARD TABLE OF t_lips,
wa_lips TYPE t_lips.
DATA : it_marc TYPE STANDARD TABLE OF t_marc,
wa_marc TYPE t_marc.
DATA : it_kna1 TYPE STANDARD TABLE OF t_kna1,
wa_kna1 TYPE t_kna1.
DATA : it_konp TYPE STANDARD TABLE OF t_konp,
wa_konp TYPE t_konp.
DATA : it_vbfa TYPE STANDARD TABLE OF t_vbfa,
wa_vbfa TYPE t_vbfa.
DATA : it_final TYPE STANDARD TABLE OF t_final,
wa_final TYPE t_final.
*DATA : it_zcsr_bkup_data TYPE TABLE OF t_zcsr_bkup_data,
* wa_zcsr_bkup_data TYPE t_zcsr_bkup_data.
DATA : it_final1 TYPE STANDARD TABLE OF zcsr_bkup_data,
wa_final1 TYPE zcsr_bkup_data.
DATA : it_fieldcat TYPE slis_t_fieldcat_alv, ""declaration for fieldcatalog.
wa_fieldcat TYPE slis_fieldcat_alv.
DATA: g_layout TYPE slis_layout_alv.
DATA : c_inr(3) TYPE c VALUE 'INR'.
*DATA : lv_sum TYPE i.
*DATA : wmeng1 TYPE i.
*DATA : rfmng1 TYPE i.
*&---------------------------------------------------------------------*
*& LAYOUT Selection Screen
*&---------------------------------------------------------------------*
*SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-000.
*SELECT-OPTIONS : s_edatu FOR vbep-edatu.
*SELECTION-SCREEN : END OF BLOCK b1.
DATA : s_edatu type vbep-edatu.
INITIALIZATION.
*&---------------------------------------------------------------------*
*& MAIN PROGRAM
*&---------------------------------------------------------------------*
START-OF-SELECTION.
PERFORM dataget.
PERFORM fieldcat.
PERFORM grid.
*&---------------------------------------------------------------------*
*& Form dataget
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM dataget.
SELECT edatu
vbeln
wmeng
etenr
FROM vbep
INTO TABLE it_vbep
WHERE edatu = s_edatu.
IF sy-subrc = 0.
SELECT vbeln
kunnr
audat
knumv
vtweg
vkorg
vkgrp
FROM vbak
INTO TABLE it_vbak
FOR ALL ENTRIES IN it_vbep
WHERE vbeln = it_vbep-vbeln
AND auart = 'ZREG'
AND vtweg NE '40'.
* if sy-subrc = 0.
* SELECT kunnr
* vkgrp
* FROM knvv
* INTO TABLE it_knvv
* FOR ALL ENTRIES IN it_vbak
* WHERE kunnr = it_vbak-kunnr.
IF sy-subrc = 0.
SELECT vkgrp
bezei
FROM tvgrt
INTO TABLE it_tvgrt
FOR ALL ENTRIES IN it_vbak
WHERE vkgrp = it_vbak-vkgrp
AND ( spras = 'E' ).
IF sy-subrc = 0.
SELECT kursk
vbeln
FROM vbkd
INTO TABLE it_vbkd
FOR ALL ENTRIES IN it_vbak
WHERE vbeln = it_vbak-vbeln
AND ktgrd = '02'.
SELECT edatu
vbeln
wmeng
etenr
posnr
FROM vbep
INTO CORRESPONDING FIELDS OF TABLE it_vbep1
FOR ALL ENTRIES IN it_vbak
WHERE vbeln = it_vbak-vbeln
AND edatu = s_edatu.
DELETE ADJACENT DUPLICATES FROM it_vbep1.
SELECT name1
pstlz
kunnr
FROM kna1
INTO TABLE it_kna1
FOR ALL ENTRIES IN it_vbak
WHERE kunnr = it_vbak-kunnr.
IF sy-subrc = 0.
SELECT matnr
vbeln
posnr
abgru
werks
FROM vbap
INTO TABLE it_vbap
FOR ALL ENTRIES IN it_vbep1
WHERE vbeln = it_vbep1-vbeln.
IF sy-subrc = 0.
SELECT prctr
matnr
werks
FROM marc
INTO TABLE it_marc
FOR ALL ENTRIES IN it_vbap
WHERE matnr = it_vbap-matnr
AND werks = it_vbap-werks.
IF sy-subrc = 0.
SELECT rfmng
vbeln
vbelv
erdat
vbtyp_n
FROM vbfa
INTO TABLE it_vbfa
FOR ALL ENTRIES IN it_vbep1
WHERE vbelv = it_vbep1-vbeln
AND erdat = it_vbep1-edatu
AND vbtyp_n = 'J'.
IF sy-subrc = 0.
SELECT wadat_ist
vbeln
FROM likp
INTO TABLE it_likp
FOR ALL ENTRIES IN it_vbfa
WHERE vbeln = it_vbfa-vbeln.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
ENDIF.
LOOP AT it_vbep1 INTO wa_vbep1 WHERE edatu = s_edatu.
wa_final-edatu = wa_vbep1-edatu.
wa_final-etenr = wa_vbep1-etenr.
wa_final-wmeng = wa_vbep1-wmeng.
wa_final-vbeln = wa_vbep1-vbeln.
wmeng1 = wa_final-wmeng.
wa_final-wmeng1 = wmeng1.
READ TABLE it_vbak INTO wa_vbak WITH KEY vbeln = wa_vbep1-vbeln.
* LOOP AT it_vbak INTO wa_vbak.
wa_final-vbeln = wa_vbak-vbeln.
wa_final-kunnr = wa_vbak-kunnr.
* wa_final-knumv = wa_vbak-knumv.
wa_final-vkorg = wa_vbak-vkorg.
wa_final-vkgrp = wa_vbak-vkgrp.
wa_vbak-vtweg = wa_vbak-vtweg.
READ TABLE it_tvgrt INTO wa_tvgrt WITH KEY vkgrp = wa_vbak-vkgrp.
wa_final-bezei = wa_tvgrt-bezei.
* if wa_final
*READ TABLE it_konv INTO wa_konv WITH KEY knumv = wa_vbak-knumv kschl = 'PR00'.
** wa_final-kschl = wa_konv-kschl.
** if wa_final-kschl EQ 'PR00'.
* wa_final-kbetr = wa_konv-kbetr.
* wa_final-waers = wa_konv-waers.
* ENDIF.
READ TABLE it_kna1 INTO wa_kna1 WITH KEY kunnr = wa_vbak-kunnr.
* LOOP AT it_kna1 INTO wa_kna1.
wa_final-name1 = wa_kna1-name1.
READ TABLE it_vbap INTO wa_vbap WITH KEY vbeln = wa_vbep1-vbeln posnr = wa_vbep1-posnr .
IF wa_vbap-abgru IS NOT INITIAL.
CONTINUE.
ENDIF.
wa_final-matnr = wa_vbap-matnr.
wa_final-posnr = wa_vbap-posnr.
wa_vbap-werks = wa_vbap-werks.
SELECT knumh
datab
matnr
kunnr
vtweg
kschl
vkorg
FROM a305
INTO TABLE it_a305
WHERE vkorg = wa_vbak-vkorg
AND kunnr = wa_vbak-kunnr
AND matnr = wa_vbap-matnr
AND vtweg = wa_vbak-vtweg
* AND datab = s_edatu
AND kschl = 'PR00'.
LOOP AT it_a305 INTO wa_a305.
*READ TABLE it_a305 INTO wa_a305 WITH KEY vkorg = wa_vbak-vkorg kunnr = wa_vbak-kunnr matnr = wa_vbap-matnr." datab = s_edatu.
wa_final-knumh = wa_a305-knumh.
ENDLOOP.
SELECT kbetr
konwa
knumh
FROM konp
INTO TABLE it_konp
WHERE knumh = wa_a305-knumh.
READ TABLE it_konp INTO wa_konp WITH KEY knumh = wa_a305-knumh.
wa_final-kbetr = wa_konp-kbetr.
wa_final-konwa = wa_konp-konwa.
READ TABLE it_vbkd INTO wa_vbkd WITH KEY vbeln = wa_vbak-vbeln.
wa_final-kursk = wa_vbkd-kursk.
IF wa_konp-konwa NE c_inr.
wa_final-kbetr = wa_konp-kbetr * wa_vbkd-kursk.
wa_final-konwa = 'INR'.
ENDIF.
READ TABLE it_marc INTO wa_marc WITH KEY matnr = wa_vbap-matnr werks = wa_vbap-werks.
wa_final-prctr = wa_marc-prctr.
READ TABLE it_vbfa INTO wa_vbfa WITH KEY vbelv = wa_vbep1-vbeln erdat = wa_vbep1-edatu vbtyp_n = 'J'.
wa_final-vbelv = wa_vbfa-vbelv.
IF wa_final-vbelv = wa_final-vbeln.
wa_final-rfmng = wa_vbfa-rfmng.
wa_final-vbeln1 = wa_vbfa-vbeln.
rfmng1 = wa_final-rfmng.
wa_final-rfmng1 = rfmng1.
READ TABLE it_likp INTO wa_likp WITH KEY vbeln = wa_vbfa-vbeln.
wa_final-wadat_ist = wa_likp-wadat_ist.
ENDIF.
lv_sum = wa_final-kbetr * wa_final-wmeng.
wa_final-lv_sum = lv_sum.
*ENDIF.
*ENDIF.
APPEND wa_final TO it_final.
* APPEND wa_final to it_zcsr_bkup_data.
CLEAR:wa_final , wa_lips , wa_likp , wa_kna1 , wa_vbak , wa_vbep1 ,wa_vbap ,wa_a305 , wa_konp,wa_tvgrt.
* MODIFY zcsr_bkup_data FROM table it_final.
ENDLOOP.
DATA : year(4) TYPE c,
month(2) TYPE c,
date(2) TYPE c.
year = sy-datum(4).
month = sy-datum+4(2).
date = sy-datum+6(2).
* IF date <= '5'.
loop at it_final into wa_final.
wa_final1-datum = sy-datum.
wa_final1-vbeln = wa_final-vbeln.
wa_final1-kunnr = wa_final-kunnr.
wa_final1-name1 = wa_final-name1.
wa_final1-matnr = wa_final-matnr.
wa_final1-prctr = wa_final-prctr.
wa_final1-edatu = wa_final-edatu.
wa_final1-wmeng1 = wa_final-wmeng1.
wa_final1-wadat_ist = wa_final-wadat_ist.
wa_final1-rfmng1 = wa_final-rfmng1.
wa_final1-kbetr = wa_final-kbetr.
wa_final1-lv_sum = wa_final-lv_sum.
wa_final1-konwa = wa_final-konwa.
wa_final1-bezei = wa_final-bezei.
APPEND wa_final1 to it_final1.
* CLEAR : wa_final1.
endloop.
* endif.
* modify zcsr_bkup_data FROM TABLE it_final1.
* APPEND it_final to it_zcsr_bkup_data.
* CLEAR:wa_lips.
* ENDLOOP.
* MODIFY it_final FROM wa_final index sy-tabix TRANSPORTING bmeng edatu.
* CLEAR:wa_likp.
* ENDLOOP.
* CLEAR:wa_marc.
* ENDLOOP.
* CLEAR :wa_vbap.
* ENDLOOP.
* CLEAR : wa_kna1.
* ENDLOOP.
* CLEAR :wa_vbak.
* ENDLOOP.
* CLEAR : wa_vbep.
* CLEAR : wa_tvgrt.
Modify zcsr_bkup_data FROM TABLE it_final1.
* ENDIF.
* endif.
* endif.
* endif.
* endif.
* endif.
SORT it_final BY vbeln ASCENDING edatu ASCENDING.
* endloop.
*delete ADJACENT DUPLICATES FROM it_final COMPARING vbeln kunnr matnr prctr bmeng lfimg wadat_ist.
ENDFORM. "dataget
*&---------------------------------------------------------------------*
*& Form fieldcat
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM fieldcat.
wa_fieldcat-col_pos = '1'.
wa_fieldcat-fieldname = 'VBELN'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'SALES DOCUMENT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '2'.
wa_fieldcat-fieldname = 'KUNNR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'SOLD-TO-PARTY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '3'.
wa_fieldcat-fieldname = 'NAME1'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'DESCRIPTION'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '4'.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'MATERIAL'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '5'.
wa_fieldcat-fieldname = 'PRCTR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'VALUE STREAM'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '6'.
wa_fieldcat-fieldname = 'EDATU'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'PLAN DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '7'.
wa_fieldcat-fieldname = 'WMENG1'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'PLAN QUANTITY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '8'.
wa_fieldcat-fieldname = 'WADAT_IST'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'ACTUAL DATE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '9'.
wa_fieldcat-fieldname = 'RFMNG1'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'ACTUAL QUANTITY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '10'.
wa_fieldcat-fieldname = 'KBETR'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'SALE PRICE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '11'.
wa_fieldcat-fieldname = 'LV_SUM'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = ' TOTAL SALE PRICE'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '12'.
wa_fieldcat-fieldname = 'KONWA'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'CURRENCY'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-col_pos = '13'.
wa_fieldcat-fieldname = 'BEZEI'.
wa_fieldcat-tabname = 'IT_FINAL'.
wa_fieldcat-outputlen = '20'.
wa_fieldcat-seltext_l = 'KAM'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM. "fieldcat
*&---------------------------------------------------------------------*
*& Form grid
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM grid.
g_layout-colwidth_optimize = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
* I_CALLBACK_PROGRAM = ' '
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* I_CALLBACK_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
* I_GRID_TITLE =
* I_GRID_SETTINGS =
is_layout = g_layout
it_fieldcat = it_fieldcat
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT = 'X'
* I_SAVE = ' '
* IS_VARIANT =
* IT_EVENTS =
* IT_EVENT_EXIT =
* IS_PRINT =
* IS_REPREP_ID =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* I_HTML_HEIGHT_TOP = 0
* I_HTML_HEIGHT_END = 0
* IT_ALV_GRAPHICS =
* IT_HYPERLINK =
* IT_ADD_FIELDCAT =
* IT_EXCEPT_QINFO =
* IR_SALV_FULLSCREEN_ADAPTER =
* 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.
* Implement suitable error handling here
ENDIF.
ENDFORM. "grid
In this , i have commented the selection part due to which it_final is empty.
Help.
Thanks in advance
Regards
Karan