Search Help / ON VALUE-REQUEST FOR

목표

1번의 Search help의 선택값으로 description을 2번에 넣어주기

Step

1.     보여줘야할 Search help를 internal table로 구현

2.     해당 테이블에서 조회

---

PARAMETERS : p_lgobe TYPE t001l-lgobe.

INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_lgort.
  PERFORM f4_lgort.

FORM f4_lgort .
  DATA : BEGIN OF lt_lgort OCCURS 0,
    lgort TYPE t001l-lgort,
    lgobe TYPE t001l-lgobe,
    END OF lt_lgort.

  DATA : lt_return TYPE TABLE OF ddshretval.
  DATA : ls_return TYPE ddshretval.

  CLEAR : lt_lgort, lt_lgort[].

  SELECT lgort lgobe
    INTO CORRESPONDING FIELDS OF TABLE lt_lgort
    FROM t001l.

  IF sy-subrc <> 0.
    MESSAGE s000 WITH 'Plant does not exists' DISPLAY LIKE 'E'.
    EXIT.
  ENDIF.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'LGORT'
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = 'P_LGORT' "CLICK하면 받는곳
      value_org       = 'S'
    TABLES
      value_tab       = lt_lgort[]
      return_tab      = lt_return
    EXCEPTIONS
      parameter_error  = 1
      no_values_found = 2
      OTHERS            = 3.

  READ TABLE lt_return INTO ls_return INDEX 1.

  IF sy-subrc EQ 0.
    SELECT SINGLE lgobe
      INTO p_lgobe
      FROM t001l
      WHERE lgort = ls_return-fieldval.

  ENDIF.
ENDFORM.