Please help me in completing the remaining select statements

Question

1.     Based on the selection made from the selection screen, get PO Number (EBELN), Company Code (BUKRS), Vendor (LIFNR), Vendor Name (ZNAME1), PO_Date (AEDAT), PO Creator (ERNAM) from EKKO table
2.     For the corresponding PO number (EBELN) from EKKO table, get  PO Item Text (TXZ01) from EKPO table
3.     For the corresponding PO number (EBELN) from EKKO table, get PO_Iten_No(EBELP), from EKPO table
4.     For the corresponding PO number (EBELN) from EKKO table get the GR_Posting Dt(BUDAT) from EKBE table when PO History cat (HCT-EKBE) is equal to “E” .
a)     For getting the first GR Posting date and first Invoice posting date, sort the column (BUDAT) of table, get the 1st GR_Posting_dt(BUDAT) when PO History cat (HCT-EKBE) is equal to “E”  AND get the 1st Inv_Posting_Dt(BUDAT) when PO when PO History cat (HCT-EKBE) is equal to “Q” For this corresponding invoice date (when when PO History cat (HCT-EKBE) is equal to “Q” ) get the invoice number (BELNR) .
b)     IF  1ST GR_POSTING_DATE < 1ST INVOICE_POSTING_DATE, DO NOT DISPLAY THE RESULT
5.     For the corresponding PO number (EBELN) from EKKO table and Invoice_No (BELNR) (from step4,a),get Inv_Creator (ERNAM), Inv_Amount(REEWR), Currency (WAERS) from EKBE table when PO History cat (Hct-EKBE) is equal to “Q”
6.     For the corresponding PO number (EBELN) from EKKO table and invoice No (BELNR) from EKBE, get the Reference Document Number (XBLNR) from RSEG table.
for this i have written
select ebeln bukrs lifnr zname1 aedat ernam
                                      from
                                      ekko into
                                      table itab_ekko
                                      where bukrs = p_bukrs
                                      AND   lifnr IN so_lifnr
                                      AND   aedat IN so_aedat
                                      AND   ekgrp IN so_ekgrp
                                      AND   ernam IN so_ernam.
  IF NOT itab_ekko[] IS INITIAL.
    SELECT ebeln  ebelp txz01 FROM ekpo into  TABLE
                    itab_ekpo
                    FOR ALL ENTRIES IN  itab_ekko
                    WHERE ebeln = itab_ekko-ebeln.
  ENDIF.
   IF NOT itab_ekko[] IS INITIAL.
    SELECT ebeln budat   FROM ekbe into  TABLE
                    itab_ekbe
                    FOR ALL ENTRIES IN  itab_ekko
                    WHERE ebeln = itab_ekko-ebeln
                          AND bewtp = 'E'
                          AND bewtp = 'Q'.
  ENDIF.
  SORT itab_ekbe by budat.
  read table itab_ekbe index 1."to get first invoice posting date.
please halp me in completing remaining code

Answer 1

Hi
select ebeln bukrs lifnr zname1 aedat ernam
from
ekko into
table itab_ekko
where bukrs = p_bukrs
AND lifnr IN so_lifnr
AND aedat IN so_aedat
AND ekgrp IN so_ekgrp
AND ernam IN so_ernam.
IF NOT itab_ekko[] IS INITIAL.
SELECT ebeln ebelp txz01 FROM ekpo into TABLE
itab_ekpo
FOR ALL ENTRIES IN itab_ekko
WHERE ebeln = itab_ekko-ebeln.
ENDIF.
IF NOT itab_ekko[] IS INITIAL.
SELECT ebeln budat FROM ekbe into TABLE
itab_ekbe
FOR ALL ENTRIES IN itab_ekko
WHERE ebeln = itab_ekko-ebeln
AND bewtp = 'E'
AND bewtp = 'Q'.
ENDIF.
SORT itab_ekbe by budat.
read table itab_ekbe with key HCT = 'E'."to get first GR posting date.
loop at itab_ekbe where HCT = 'Q'.
addped itab_ekbe to temp_itab_ekbe.
endloop.
read table temp_itab_ekbe index 1. " to get first invoice posting date
if itab_ekbe-budat < temp_itab_ekbe-budat.
exit.
endif.
*point 5
select ERNAM REEWR WAERS from EKBE
into corresponding fields of table i_temp1_ekbe
for all entries in itab_ekko
where ebeln = itab_ekko-ebeln.
loop at i_temp1_ekbe.
loop at temp_itab_ekbe where ebeln = i_temp1_ekbe-ebeln and
                    belnr = i_temp1_ekbe-belnr.
if sy-subrc <> 0.
delete i_temp1_ekbe.
endif.
endloop.
endloop.
*Point 6
select XBLNR form rseg
into corresponding fields of table itab_rseg
for all entries in i_temp1_ekbe
where ebeln = i_temp1_ekbe-ebeln and
      belnr = i_temp1_ekbe-belnr.
regards
Aditya