hi experts,
im getting output for below code if im generating classical report.
but im unable to display it in alv reporting.
can any body tell me where i had done mistake.
thanks in advance,
harini.
REPORT zmm_ssr line-size 200.
TABLES : ekko,ekpo,eket,ekbe.
TYPE-POOLS : slis.
***********************************************************************
***************SELECTIONSCREEN***************************************
***********************************************************************
*******
SELECT-OPTIONS : so_date FOR ekko-bedat.
***selecting data
TYPES: BEGIN OF ty_ekko,
ebeln TYPE ebeln,
bedat TYPE bedat,
lifnr TYPE lifnr,
END OF ty_ekko.
DATA : it_ekko TYPE TABLE OF ty_ekko,
wa_ekko TYPE ty_ekko.
TYPES : BEGIN OF ty_ekpo,
matnr TYPE matnr,
ebeln TYPE ebeln,
ebelp TYPE ebelp,
END OF ty_ekpo.
DATA : it_ekpo TYPE TABLE OF ty_ekpo,
wa_ekpo TYPE ty_ekpo.
TYPES : BEGIN OF ty_eket,
ebeln TYPE ebeln,
ebelp type ebelp,
eindt TYPE eindt,
END OF ty_eket.
DATA : it_eket TYPE TABLE OF ty_eket,
wa_eket TYPE ty_eket.
TYPES : BEGIN OF ty_ekbe,
ebeln type ebeln,
ebelp type ebelp,
belnr TYPE ekbe-belnr,
budat TYPE ekbe-budat,
END OF ty_ekbe.
DATA : it_ekbe TYPE TABLE OF ty_ekbe,
wa_ekbe TYPE ty_ekbe.
TYPES : BEGIN OF ty_ekbe1,
ebeln type ebeln,
ebelp type ebelp,
belnr TYPE ekbe-belnr,
budat TYPE ekbe-budat,
END OF ty_ekbe1.
DATA : it_ekbe1 TYPE TABLE OF ty_ekbe1,
wa_ekbe1 TYPE ty_ekbe1.
TYPES : BEGIN OF ty_output,
ebeln TYPE ebeln,
bedat TYPE bedat,
lifnr TYPE lifnr,
matnr TYPE matnr,
eindt TYPE eindt,
belnr TYPE belnr,
budat TYPE budat,
belnr1 TYPE belnr,
budat1 TYPE budat,
END OF ty_output.
DATA : it_output TYPE TABLE OF ty_output,
wa_output TYPE ty_output.
data : fcit type slis_t_fieldcat_alv,
fcwa type slis_fieldcat_alv.
SELECT ebeln bedat lifnr FROM ekko
INTO CORRESPONDING FIELDS OF TABLE it_ekko
WHERE bedat IN so_date.
SORT it_ekko BY ebeln.
IF NOT it_ekko IS INITIAL.
SELECT matnr ebeln ebelp FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN it_ekko
WHERE ebeln = it_ekko-ebeln.
SORT it_ekpo BY ebeln.
ENDIF.
IF NOT it_ekpo IS INITIAL.
SELECT ebeln ebelp eindt FROM eket INTO TABLE it_eket
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln AND ebelp = it_ekpo-ebelp.
SORT it_ekpo BY ebeln.
ENDIF.
IF NOT it_ekpo IS INITIAL.
SELECT ebeln ebelp belnr budat FROM ekbe
INTO CORRESPONDING FIELDS OF TABLE it_ekbe
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp
AND bewtp = 'Q'.
ENDIF.
SORT it_ekbe BY ebeln.
IF NOT it_ekpo IS INITIAL.
SELECT ebeln ebelp belnr budat FROM ekbe
INTO CORRESPONDING FIELDS OF TABLE it_ekbe1
FOR ALL ENTRIES IN it_ekpo
WHERE ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp
AND bewtp = 'E'
AND bwart = '101'.
ENDIF.
SORT it_ekbe BY ebeln.
LOOP AT it_ekpo INTO wa_ekpo.
wa_output-matnr = wa_ekpo-matnr.
read table it_ekko into wa_ekko with key ebeln = wa_ekpo-ebeln.
wa_output-ebeln = wa_ekko-ebeln.
wa_output-bedat = wa_ekko-bedat.
wa_output-lifnr = wa_ekko-lifnr.
READ TABLE it_eket INTO wa_eket WITH KEY ebeln = wa_ekpo-ebeln
ebelp = wa_ekpo-ebelp.
wa_output-eindt = wa_eket-eindt.
READ TABLE it_ekbe INTO wa_ekbe WITH KEY ebeln = wa_ekpo-ebeln ebelp
= wa_ekpo-ebelp.
wa_output-belnr = wa_ekbe-belnr.
wa_output-budat = wa_ekbe-budat.
READ TABLE it_ekbe1 INTO wa_ekbe1 WITH KEY ebeln = wa_ekpo-ebeln
ebelp = wa_ekpo-ebelp.
wa_output-belnr1 = wa_ekbe-belnr.
wa_output-budat1 = wa_ekbe-budat.
*write : / wa_output-ebeln,wa_output-bedat,wa_output-lifnr,
*wa_output-matnr,wa_output-eindt,wa_output-belnr,wa_output-budat,
*wa_output-belnr1,wa_output-budat.
append wa_output to it_output.
endloop.
fcwa-fieldname = 'ebeln'.
fcwa-seltext_m = 'po no'.
append fcwa to fcit.
fcwa-fieldname = 'bedat'.
fcwa-seltext_m = 'date'.
append fcwa to fcit.
fcwa-fieldname = 'lifnr'.
fcwa-seltext_m = 'vendor'.
append fcwa to fcit.
fcwa-fieldname = 'matnr'.
fcwa-seltext_m = 'material'.
append fcwa to fcit.
fcwa-fieldname = 'eindt'.
fcwa-seltext_m = 'reqd date'.
append fcwa to fcit.
fcwa-fieldname = 'belnr'.
fcwa-seltext_m = 'inv no'.
append fcwa to fcit.
fcwa-fieldname = 'budat'.
fcwa-seltext_m = 'inv date'.
append fcwa to fcit.
fcwa-fieldname = 'belnr1'.
fcwa-seltext_m = 'grdate'.
append fcwa to fcit.
fcwa-fieldname = 'budat1'.
fcwa-seltext_m = 'gr date'.
append fcwa to fcit.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
IT_FIELDCAT = fcit
TABLES
T_OUTTAB = it_output.