Select statement in a sub routine(For Sapscript)

Question

Hi,
M unable to write select statement for my reqirement in Sap-script in Sub routine.
My requirement is 1)"Your correspondent for quality" in main window of my form.
For dis rule is as below
"Get the 'changed by' value resord in table QCPR field AENDERER.For the same value found in tabe USR21 fiels BNAME,pick up the PERSUNUM value.For dis PERSUNUM value, found in ADRP feild NAME_TEXT the value for "Your Correspondent for Quality".
2) For this PERSUNUM value found in ADCP-TEL_NUMBER the vakue for "Ph".
3)For this PERSUNUM value found in ADCP-FAX_NUMBER the vakue for "FAX".
4For this PERSUNUM value found in ADR6-SMTP_ADDR the vakue for "EMAIL".
Please help me out it's urgent for me.I wil b waiting 4 ur reply.

Answer 1

READ TABLE in_par WITH KEY 'QCPR-AENDERER'.
  CHECK sy-subrc = 0.
  MOVE in_par-value TO V_aenderer
.  READ TABLE in_par WITH KEY 'USR21-BNAME.
  CHECK sy-subrc = 0.
  MOVE in_par-value TO V_bname
  SELECT SINGLE persnumber addrnumber
    INTO wa_usr21-persnumber wa_usr21-addrnumber
    FROM usr21
    WHERE bname = V_bname
and <b>check field for this</b> = V_aenderer.
  CHECK sy-subrc = 0.
  SELECT SINGLE tel_number fax_number
    INTO adcp-tel_number adcp-fax_number
    FROM adcp
    WHERE addrnumber = usr21-addrnumber
      AND persnumber = usr21-persnumber.
  CHECK sy-subrc = 0.
  READ TABLE out_par WITH KEY 'ADCP-TEL_NUMBER'.
  CHECK sy-subrc = 0.
  out_par-value = adcp-tel_number.
  MODIFY out_par INDEX sy-tabix.
  READ TABLE out_par WITH KEY 'ADCP-FAX_NUMBER'.
  CHECK sy-subrc = 0.
  out_par-value = adcp-fax_number.
  MODIFY out_par INDEX sy-tabix.
  SELECT SINGLE smtp_addr
    INTO adr6-smtp_addr
    FROM adr6
    WHERE addrnumber = usr21-addrnumber
      AND persnumber = usr21-persnumber.
  READ TABLE out_par WITH KEY 'ADR6-SMTP_ADDR'.
  CHECK sy-subrc = 0.
  out_par-value = adr6-smtp_addr.
  MODIFY out_par INDEX sy-tabix.
Regards