Sap Script Perform ubergabe parametr

Code: Alles auswählen.

REPORT z_email_users.
TYPES: BEGIN OF gtys_user_email,
         bname     TYPE xubname,
         smtp_addr TYPE adr6-smtp_addr,
       END OF gtys_user_email.

DATA: gt_user_email TYPE STANDARD TABLE OF gtys_user_email,
      gs_user_email TYPE gtys_user_email,
      gv_email type adr6-smtp_addr.

PERFORM email USING sy-uname CHANGING gv_email." USING gv_email email.
WRITE: / sy-uname, gv_email, gs_user_email-bname.

FORM email
      USING sy-uname
      CHANGING  gv_email .


  SELECT  adr6~smtp_addr INTO CORRESPONDING FIELDS OF TABLE gt_user_email
      UP TO 1 ROWS
            FROM adr6

              INNER JOIN usr21
                 ON adr6~addrnumber = usr21~addrnumber
                AND adr6~persnumber = usr21~persnumber
                    WHERE usr21~bname = sy-uname.
*  ENDSELECT.
  read TABLE gt_user_email INTO gs_user_email INDEX 1.
  gs_user_email-bname = sy-uname.
  gv_email =  gs_user_email-smtp_addr.

ENDFORM.

Code: Alles auswählen.

Data: gt_input_data type itcsy,
      gt_output_data type itcsy.
DATA: gt_user_email TYPE STANDARD TABLE OF gtys_user_email,
      gs_user_email TYPE gtys_user_email,
      gv_email type adr6-smtp_addr.
*      email type adr6-smtp_addr.
PERFORM email USING  gt_input_data
      CHANGING lv_email.
FORM email TABLES gt_input_data STRUCTURE itcsy
          CHANGING gt_output_data structure itcsy.
  DATA: lv_bname       LIKE usr21-bname,
        lv_email       LIKE adr6-smtp_addr.

Data: gt_usr21 type  STANDARD TABLE OF usr21,
      gs_usr21 type  usr21,
      gs_adr6 type  adr6.


READ TABLE gt_input_data
    WITH KEY name = 'USR03-BNAME'.
CHECK sy-subrc = 0.
  MOVE gt_input_data-value TO lv_bname.


SELECT SINGLE * FROM usr21
  into CORRESPONDING FIELDS OF gs_usr21

  WHERE bname EQ lv_bname.


CHECK sy-subrc = 0.
*
  SELECT SINGLE * FROM adr6
   into CORRESPONDING FIELDS OF gs_adr6

    WHERE addrnumber EQ gs_usr21-addrnumber
                              AND persnumber EQ gs_usr21-persnumber
                              AND flgdefault EQ 'X'.
  CHECK sy-subrc = 0.
  MOVE: gs_adr6-smtp_addr TO gv_email.
*
*  READ TABLE gt_output_data INTO gs_output_data WITH KEY name = 'EMAIL'.
  MOVE lv_email TO gt_output_data-value.
*  MODIFY gt_output_data INDEX sy-tabix.
*
  CLEAR: gs_adr6, gs_usr21.
  CLEAR: lv_bname, lv_email.
*
ENDFORM.