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.