read the internal table with key

[Former Member]

Hi friends,

decleration of internal table is :

TYPES : BEGIN OF ty_qmel,

qmart TYPE qmel-qmart,

qmnum TYPE qmel-qmnum,

qmtxt TYPE qmel-qmtxt,

strmn TYPE qmel-strmn,

ltrmn TYPE qmel-ltrmn,

objnr TYPE qmel-objnr,

qmdat TYPE qmel-qmdat,

END OF ty_qmel.

i have written the query as follows .

SELECT qmart qmnum qmtxt strmn ltrmn FROM qmel

INTO CORRESPONDING FIELDS OF TABLE i_qmel

FOR ALL ENTRIES IN i_qmel

WHERE qmart EQ i_qmel-qmart.

I am getting the data into 1_qmel.

Let me know how to read this table with key...?

Thanks in advance...

[former_member386202]

Hi,

Refer this code.

&----

---

*& Form SUB_COLLECT_DATA

&----

---

• text

----

---

FORM sub_collect_data.

*--Local variables

DATA : lv_count(3) TYPE c.

IF NOT it_fpltc[] IS INITIAL.

LOOP AT it_fpltc INTO wa_fpltc.

lv_count = wa_fpltc-fpltr+3(3).

wa_final-ccnum = wa_fpltc-ccnum.

wa_final-rfzei = lv_count.

CLEAR : wa_vbrk.

READ TABLE it_vbrk INTO wa_vbrk WITH KEY rplnr = wa_fpltc-fplnr

BINARY SEARCH.

IF sy-subrc EQ 0.

wa_final-vbeln = wa_vbrk-vbeln.

wa_final-bukrs = wa_vbrk-bukrs.

ENDIF.

APPEND wa_final TO it_final.

CLEAR : wa_vbrk,

wa_fpltc,

lv_count.

ENDLOOP.

Regards,

PRashant

[Former Member]

Hi Praveen,

Use the below code snippet.

First sort the internal table which you are going to read as below:

Sort l_qmel by qmart.

READ TABLE l_qmel INTO wa_qmel WITH KEY qmnum = '123444' binary search.

where 123444 is some notification number.

Hope this helps.

Regards

Sayee

[Former Member]

READ TABLE 1_qmel

WITH KEY qmart = < >

INTO <work area> BINARY SEARCH.

[Former Member]

hi

SELECT pernr orgeh FROM pa0001 INTO TABLE int_pernr WHERE orgeh IN s_orgeh AND

persg = '3' AND

( persk = 'K1' OR

persk = 'K2' OR

persk = 'V1' OR

persk = 'V2' OR

persk = 'W1' OR

persk = 'W2' ) .

SORT int_pernr BY pernr.

DELETE ADJACENT DUPLICATES FROM int_pernr.

IF NOT int_pernr[] IS INITIAL.

SELECT pernr ebeln lifnr zzkonnr FROM pa0315 INTO TABLE int_pa0315

FOR ALL ENTRIES IN int_pernr WHERE pernr = int_pernr-pernr AND

lifnr IN s_lifnr AND

zzkonnr IN s_konnr AND

ebeln IN s_ebeln AND

endda > sy-datum.

SELECT qmart qmnum qmtxt strmn ltrmn FROM qmel

INTO CORRESPONDING FIELDS OF TABLE <b>i_qmel</b>

FOR ALL ENTRIES IN <b>i_qmel</b>WHERE qmart EQ i_qmel-qmart.

hi u filled this table , u put for for all entries in the same table,, it ll not,

see the above code

plz

regards

karthik