abap-f4 value 搜索帮助

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_psjhno-low.
  PERFORM search_psjhno.

 

FORM search_psjhno .
  DATA: return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
  TYPES: BEGIN OF ls_return,
           psjhno TYPE ztewm_psjh_lxtp-psjhno,
         END OF ls_return.

  DATA: lt_return TYPE TABLE OF ls_return.

  SELECT DISTINCT ( psjhno )
    INTO TABLE lt_return
    FROM ztewm_psjh_lxtp.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield         = 'PSJHNO'
      dynpprog         = sy-repid
      dynpnr           = sy-dynnr
      dynprofield      = 'S_PSJHNO'
      value_org        = 'S'
      callback_program = sy-repid
    TABLES
      value_tab        = lt_return
      return_tab       = return_tab
    EXCEPTIONS
      parameter_error  = 1
      no_value_found   = 2
      ohters           = 3.
  IF sy-subrc <> 0.
  ENDIF.
ENDFORM.