Retrieving Accounting Document number based on PO numbers

Question

Hey All,
        I have a list of PO numbers(EBELN) for which I am trying to get all Accounting information from BSIS. But before going to BSIS I am trying to determine the Accounting document number(BELNR) from some other table so that my select on BSIS will be efficient.
What I have tried uptill now is to go to EKBE with the PO numbers and get the Material document numbers. For some cases the material document number is the accounting document number and for others I have to go to BKPF with this material document number to get the accounting document number.
Is there any other easier and efficeint way of doing this?
Any input is highly appreciated.
Thanks

Answer 1

I am retrieving Large amounts of data, around 1.5 million from BSIS.
The code related to our discussion looks like this:
"First I get all related PO's for the last three years and determine the no of packets.
DO v_no_of_packets TIMES.
      IF v_end_indx GT v_total.
        v_end_indx = v_total.
      ENDIF.
      REFRESH i_ebeln_range[].
      APPEND LINES OF t_ebeln_range FROM v_start_indx TO v_end_indx TO i_ebeln_range.
      v_start_indx = v_end_indx + 1.
      v_end_indx   = v_end_indx + p_pkjsiz.
IF NOT i_ebeln[] IS INITIAL.
  CLEAR l_bkpf.
  REFRESH l_bkpf[].
  SELECT ebeln ebelp zekkn vgabe gjahr belnr buzei FROM EKBE INTO TABLE t_belnr
                     WHERE ebeln IN i_ebeln_range
                      AND vgabe IN ('1' ,'2').
  IF sy-subrc EQ 0.
    LOOP AT t_belnr.
    l_awkey+0(10) = t_belnr-belnr.
    l_awkey+10(10) = t_belnr-gjahr.
    IF t_belnr-vgabe = '1'.
      l_awtyp = 'MKPF'.
    ELSE.
      l_awtyp = 'RMRP'.
    ENDIF.
    SELECT SINGLE bukrs belnr gjahr blart budat
      FROM bkpf INTO l_bkpf
        WHERE awtyp = l_awtyp
        AND   awkey = l_awkey.
      IF sy-subrc EQ 0.
         APPEND l_bkpf.
      ENDIF.
    ENDLOOP.
  ENDIF.
ENDIF.
"Then
  SELECT zuonr hkont gjahr belnr buzei budat blart wrbtr shkzg xblnr
waers bukrs
   INTO TABLE i_bsis
   FROM bsis
   FOR ALL ENTRIES IN l_bkpf
    WHERE bukrs = l_bkpf-bukrs
                      AND  hkont IN r_hkont   "Contains all Accounts
                      AND  budat = l_bkpf-budat
                      AND  augdt = 0
                      AND  augbl = space
                      AND  gjahr = l_bkpf-gjahr
                      AND  belnr = l_bkpf-belnr
                      AND  blart = l_bkpf-blart
                      AND  gsber = c_zrl1.
  SELECT zuonr hkont gjahr belnr buzei budat blart wrbtr shkzg xblnr
waers bukrs
   APPENDING TABLE i_bsis
   FROM bsas
    FOR ALL ENTRIES IN l_bkpf
    WHERE bukrs = l_bkpf-bukrs
                      AND  hkont IN r_hkont
                      AND  budat = l_bkpf-budat
                      AND  augdt = 0
                      AND  augbl = space
                      AND  gjahr = l_bkpf-gjahr
                      AND  belnr = l_bkpf-belnr
                      AND  blart = l_bkpf-blart
                      AND  gsber = c_zrl1.
"Then process this data