Read intead of select for query ?

Question

Hi,
I am using the following select statement inside the loop. But I asked to replace the select statement using Read instead of select. How can I write the following query using read ?
SELECT SINGLE CRHD~ARBPL
   FROM AFKO
     INNER JOIN V_QAPO ON V_QAPOAUFPL = AFKOAUFPL
       INNER JOIN CRHD ON CRHDOBJID = V_QAPOARBID
        INTO XARBPL
          WHERE AFKO~AUFNR = CAUFVD_TAB-AUFNR
            AND V_QAPO~VORNR = IAFVC-VORNR.
Points will be surely awarded.
Thanks,
Tushar.

Answer 1

Hi Tushar,
Try this -
DATA: IAFVC type table of afvc with header line.
DATA: XARBPL LIKE CRHD-ARBPL.
DATA: begin of t_crhd occurs 0,
        aufnr like afko-aufnr,
        vornr like v_qapo-vornr,
        XARBPL LIKE CRHD-ARBPL,
      end of t_crhd.
if not iafvc[] is initial.
SELECT afkoaufnr v_qapovornr CRHD~ARBPL
FROM AFKO
INNER JOIN V_QAPO ON V_QAPOAUFPL = AFKOAUFPL
INNER JOIN CRHD ON CRHDOBJID = V_QAPOARBID
INTO table t_crhd
for all entries in iafvc
WHERE AFKO~AUFNR = CAUFVD_TAB-AUFNR
AND V_QAPO~VORNR = IAFVC-VORNR.
ENDIF.
sort t_crhd.
sort iafvc by aufnr vornr.
loop at iafvc.
  clear t_crhd.
  read table t_crhd with key aufnr = caufvd_tab-aufnr
                             vornr = iafvc-vornr
                             binary search.
    if sy-subrc = 0.
      xarbpl = t_crhd-arbpl.
    endif.
endloop.
Cheers
Rajeev