Hi
I am not getting data for this source Code. Can anyone explain. There are matching records in the table for the condition that i have given.
REPORT BALV_POPUP_TO_SELECT.
TYPE-POOLS: SLIS.
DATA: fieldcat type slis_t_FIELDCAT_ALV with header line.
DATA: fieldcat_wa TYPE slis_fieldcat_alv.
data: begin of ekbe_wa,
ebeln type ekbe-ebeln,
belnr type ekbe-belnr,
budat type ekbe-budat,
menge type ekbe-menge,
dmbtr type ekbe-dmbtr,
end of ekbe_wa,
ekbe_tab like table of ekbe_wa with header line.
START-OF-SELECTION.
select ebeln belnr budat dmbtr menge
into corresponding fields of table ekbe_tab
from ekbe
where ebeln = '3000000004'.
fieldcat_wa-col_pos = 1.
fieldcat_wa-fieldname = 'EBELN' .
fieldcat_wa-tabname = 'EKBE_TAB'.
fieldcat_wa-ref_fieldname = 'EBELN'.
fieldcat_wa-ref_tabname = 'EKBE'.
fieldcat_wa-seltext_l = 'PO Order'.
APPEND fieldcat_wa TO fieldcat.
fieldcat_wa-col_pos = 2.
fieldcat_wa-fieldname = 'BELNR' .
fieldcat_wa-tabname = 'EKBE_TAB'.
fieldcat_wa-seltext_l = 'Material Doc.'.
fieldcat_wa-ref_fieldname = 'BELNR'.
fieldcat_wa-ref_tabname = 'EKBE'.
APPEND fieldcat_wa TO fieldcat.
fieldcat_wa-col_pos = 3.
fieldcat_wa-fieldname = 'BUDAT' .
fieldcat_wa-tabname = 'EKBE_TAB'.
fieldcat_wa-seltext_l = 'Date'.
fieldcat_wa-ref_fieldname = 'BUDAT'.
fieldcat_wa-ref_tabname = 'EKBE'.
APPEND fieldcat_wa TO fieldcat.
fieldcat_wa-col_pos = 4.
fieldcat_wa-fieldname = 'MENGE' .
fieldcat_wa-tabname = 'EKBE_TAB'.
fieldcat_wa-seltext_l = 'Quantity'.
fieldcat_wa-ref_fieldname = 'MENGE'.
fieldcat_wa-ref_tabname = 'EKBE'.
APPEND fieldcat_wa TO fieldcat.
fieldcat_wa-col_pos = 5.
fieldcat_wa-fieldname = 'DMBTR' .
fieldcat_wa-tabname = 'EKBE_TAB'.
fieldcat_wa-seltext_l = 'Amount'.
fieldcat_wa-ref_fieldname = 'DMBTR'.
fieldcat_wa-ref_tabname = 'EKBE'.
APPEND fieldcat_wa TO fieldcat.
CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'
EXPORTING
i_tabname = '1'
IT_FIELDCAT = fieldcat[]
TABLES
T_OUTTAB = ekbe_tab[]
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE I000(0K) WITH SY-SUBRC.
ENDIF.