Field Text from screen

form get_etext using iv_fieldname changing ev_text.
  data: lt_fieldlist type table of d021s.

  clear ev_text.

  call function 'RS_SCRP_GET_SCREEN_INFOS'
    exporting
      dynnr                 = sy-dynnr
      progname              = sy-cprog
    tables
      fieldlist             = lt_fieldlist
    exceptions
      dynpro_does_not_exist = 1
      no_field_list         = 2
      cancelled             = 3
      others                = 4.

  read table lt_fieldlist assigning field-symbol(<fs_fieldlist>)
    with key fnam = iv_fieldname.

  if sy-subrc = 0.
    ev_text = <fs_fieldlist>-stxt.
  endif.
endform.

perform get_etext using 'GS_SCR100-WERKS' changing lv_text.
message |Поле { lv_text } обязательно для заполнения| type 'S' display like 'E'.