Fetching screen fields data

      DATA:w_var_name(40) TYPE c,
            w_venbatch TYPE goitem-licha.
      FIELD-SYMBOLS: <fs> TYPE ANY.
      w_var_name = '(SAPLMIGO)GOITEM-LICHA'.---> status program name and data element name.
      CLEAR w_venbatch.
      UNASSIGN <fs>.
      ASSIGN (w_var_name) TO <fs>.
      w_venbatch = <fs>.
      CLEAR w_var_name.
      UNASSIGN <fs>.