Alternate code

Question

can any one provide me alternate code for following statement using 1.READ from internal table, 2. by using "for all entries".
<u>following is the code</u>
*TABLE J_5HPDBEAR
LOOP AT gt_cr INTO gs_cr.
   SELECT *  FROM j_5hpdbear WHERE annuser = gs_cr-ausfuehrer.
     gs_cr-vorname = j_5hpdbear-vorname.               "First name
     gs_cr-nachname = j_5hpdbear-nachname.             "last name
     gs_cr-mail = j_5hpdbear-mail.                     "mail id
     MODIFY gt_cr FROM gs_cr.
   ENDSELECT.
ENDLOOP.
here gs-cr is the header for gt_cr

Answer 1

if not gt_cr is initial.
select *
from j_5hpdbear
into table gt_j_5hpdbear
for all entries in gt_cr
where annuser = gt_cr-ausfuehrer.
loop at gt_cr into gs_cr.
read table gt_j_5hpdbear  into wa_j_5hpdbear where annuser = gs_cr-ausfuehrer.
if sy-subrc = 0.
move :
wa_j_5hpdbear-vorname to gs_cr-vorname ,
wa_j_5hpdbear-nachname to gs_cr-nachname,
wa_j_5hpdbear-mail to gs_cr-mail.
modify gt_cr from gs_cr index sy-tabix transporting vorname nachname mail .
endif.
endloop.
endif.