Search help - how to further restrict its values

Question

Hi,
I have a question here regarding search helps and I hope you all could provide me with some useful pointers.
There is a select-option of the type bkpf-blart (document type) in the selection screen. I have a problem with retrieving the data properly from the table bkpf for the search help values bkpf-blart so that it will only return 3 values, kr, re and zb values. How may I achieve this properly using a select statement and then using the function module f4if_int_table_value_request?
(I am referring to a tutorial from the SAP technical website as a guide to use the function module f4if_int_table_value_request.)
Appreciate any inputs here, as I am still learning the ropes in abap.
Many thanks in advance.

Answer 1

Hi,
try using this demo program
MODULE GET_F4_HELP INPUT.
  TYPES : BEGIN OF EMPLOYEE,
          EMPNO TYPE ZTG_EMP-EMPNO,
          END OF EMPLOYEE.
  DATA : EMPTAB TYPE STANDARD TABLE OF EMPLOYEE WITH HEADER LINE,
         TB_DYNPFIELDS LIKE DYNPREAD OCCURS 0 WITH HEADER LINE,
         PLAN_ID TYPE ZTG_HEALTH-PLAN_ID.
  CLEAR:   TB_DYNPFIELDS.
  REFRESH: TB_DYNPFIELDS.
  MOVE 'ZTG_EMP-HLTH_PLAN' TO TB_DYNPFIELDS-FIELDNAME.
  APPEND TB_DYNPFIELDS.
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      DYNAME                               = 'SAPMZTG01'
      DYNUMB                               = '1010'
*   TRANSLATE_TO_UPPER                   = ' '
*   REQUEST                              = ' '
*   PERFORM_CONVERSION_EXITS             = ' '
*   PERFORM_INPUT_CONVERSION             = ' '
*   DETERMINE_LOOP_INDEX                 = ' '
*   START_SEARCH_IN_CURRENT_SCREEN       = ' '
*   START_SEARCH_IN_MAIN_SCREEN          = ' '
*   START_SEARCH_IN_STACKED_SCREEN       = ' '
*   START_SEARCH_ON_SCR_STACKPOS         = ' '
*   SEARCH_OWN_SUBSCREENS_FIRST          = ' '
*   SEARCHPATH_OF_SUBSCREEN_AREAS        = ' '
    TABLES
      DYNPFIELDS                           = TB_DYNPFIELDS
* 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.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  READ TABLE TB_DYNPFIELDS INDEX 1.
  IF SY-SUBRC EQ 0.
    PLAN_ID = TB_DYNPFIELDS-FIELDVALUE.
  ENDIF.
  SELECT EMPNO FROM ZTG_EMP
  INTO TABLE EMPTAB
  WHERE HLTH_PLAN = PLAN_ID.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*     DDIC_STRUCTURE         = ' '
    RETFIELD               = 'EMPNO'
*     PVALKEY                = ' '
   DYNPPROG               = 'SAPMZTG01'
   DYNPNR                 = '1010'
   DYNPROFIELD            = 'TB1'
*     STEPL                  = 0
*     WINDOW_TITLE           =
*     VALUE                  = ' '
     VALUE_ORG              = 'S'
*     MULTIPLE_CHOICE        = ' '
*     DISPLAY                = ' '
*     CALLBACK_PROGRAM       = ' '
*     CALLBACK_FORM          = ' '
*     MARK_TAB               =
*   IMPORTING
*     USER_RESET             =
  TABLES
    VALUE_TAB              = EMPTAB
*     FIELD_TAB              =
*     RETURN_TAB             =
*     DYNPFLD_MAPPING        =
*   EXCEPTIONS
*     PARAMETER_ERROR        = 1
*     NO_VALUES_FOUND        = 2
*     OTHERS                 = 3
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDMODULE.                 " GET_F4_HELP  INPUT
Thanks
Arun Kayal