SAP include模块中的module模块获取屏幕字段

*&---------------------------------------------------------------------*
*&      Module  GET_VCODETXT  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE GET_VCODETXT INPUT.
  BREAK ybin.
  DATA iv_vcode TYPE lips-vcode.
  DATA vcodetxt TYPE qpct-kurztext.
  DATA: lt_dynpread TYPE STANDARD TABLE OF dynpread .
  DATA: lw_dynpread TYPE dynpread .

　CLEAR lt_dynpread[].
CLEAR lw_dynpread.
  lw_dynpread-fieldname = 'LIPS-VCODE'.
  APPEND lw_dynpread TO lt_dynpread .
CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
       dyname                = sy-repid
       dynumb                = sy-dynnr
    TABLES
       dynpfields            = lt_dynpread
    EXCEPTIONS
       invalid_abapworkarea  = 1
       invalid_dynprofield   = 2
       invalid_dynproname    = 3
       invalid_dynpronummer  = 4
       invalid_request       = 5
       no_fielddescription   = 6
       invalid_parameter     = 7
       undefind_error        = 8
       double_conversion     = 9
       stepl_not_found       = 10
       OTHERS                = 11.
  IF sy-subrc = 0.
    CLEAR lw_dynpread.
    READ TABLE lt_dynpread INTO lw_dynpread WITH KEY fieldname = 'LIPS-VCODE'.
    IF sy-subrc = 0.
      CLEAR: iv_vcode, vcodetxt.
      iv_vcode = lw_dynpread-fieldvalue.
      vcodetxt = lw_dynpread-fieldvalue.　　
    ENDIF.
  ENDIF.
ENDMODULE.