Technology: Providing multiple selection options in Search help

This document specifies how to include multiple select options for the given fields in the search help. For example below we can see that for material we have single selection possible.

So to convert it in the select option we need to follow certain steps.

We need to create a “Search Help Exit” in search help. Search help exit is a function module with the same interface like “F4IF_SHLP_EXIT_EXAMPLE”.

Double click in the search help exit name and paste the following code lines:

DATA:type_info LIKE dfies.

  callcontrol-no_maxdisp = 'X'.

  IF callcontrol-step EQ 'SELECT'.
    callcontrol-step = 'DISP'.
  ENDIF.

  CHECK: callcontrol-step EQ 'DISP'.

  CALL FUNCTION 'TABCONTROL_VISIBLE'
    EXPORTING
      visible = 'F'
      tab_id  = 1.

  SUBMIT zmat_search VIA SELECTION-SCREEN AND RETURN.
  IMPORT record_tab TO record_tab  FROM MEMORY ID 'REC1'.

  READ TABLE shlp-fielddescr INDEX 1 INTO type_info.
  type_info-leng = 18.
  CLEAR type_info-offset .
  MODIFY shlp-fielddescr INDEX 1 FROM type_info
                         TRANSPORTING leng offset.

  callcontrol-step = 'RETURN'.

Create a executable program and paste code lines like this:

REPORT  zmat_search.

TABLES: mara,makt.
TYPE-POOLS: slis.
DATA:   gs_fcat   TYPE  slis_fieldcat_alv  ,
        gt_fcat   TYPE STANDARD TABLE OF slis_fieldcat_alv   ,
        gs_layout TYPE slis_layout_alv   .

DATA: record_tab TYPE STANDARD TABLE OF seahlpres,
      gs_record  TYPE seahlpres.

DATA:BEGIN OF gs_output,
       matnr TYPE matnr,
       brand_id TYPE mara-brand_id,
       saiso TYPE mara-saiso,
       saisj TYPE mara-saisj,
       saity TYPE mara-saity,
       maktx TYPE makt-maktx,
       chk TYPE c,
      END OF gs_output,
      gt_output LIKE STANDARD TABLE OF gs_output.

SELECT-OPTIONS:matkl FOR mara-matkl matchcode object wwg1,
               brand  FOR mara-brand_id,
               saiso  FOR mara-saiso NO INTERVALS NO-EXTENSION,
               saisj  FOR mara-saisj NO INTERVALS NO-EXTENSION,
               saity  FOR mara-saity NO INTERVALS NO-EXTENSION.

START-OF-SELECTION.

  SELECT mara~matnr
         mara~matkl
         mara~brand_id
         mara~saiso
         mara~saisj
         mara~saity
         makt~maktx
     FROM mara INNER JOIN makt ON mara~matnr = makt~matnr AND makt~spras EQ sy-langu
    INTO CORRESPONDING FIELDS OF TABLE gt_output
    WHERE mara~matkl        IN matkl            AND
          mara~brand_id     IN brand            AND
          mara~saiso        IN saiso            AND
          mara~saisj        IN saisj            AND
          mara~saity        IN saity .

  PERFORM build_fcat USING :   'MATNR'   'Article'   'X' ,
                               'BRAND_ID'   'Brand Id' '' ,
                               'SAISO'   'Season Category' ''       ,
                               'SAISJ'   'Season Year'    ''    ,
                               'SAITY'   'Rollout'      ''  ,
                               'MAKTX'   'Description'  ''    .

  gs_layout-box_fieldname = 'CHK'.
  gs_layout-colwidth_optimize = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program       = sy-repid
      i_callback_pf_status_set = 'PF_STATUS_ALV'
      i_callback_user_command  = 'USER_COMMAND_ALV'
      is_layout                = gs_layout
      it_fieldcat              = gt_fcat
    TABLES
      t_outtab                 = gt_output
    EXCEPTIONS
      program_error            = 1
      OTHERS                   = 2.
  IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  ENDIF.
*&---------------------------------------------------------------------*
*&      Form  build_fcat
*&-------------------------------------------------------------------FORM build_fcat  USING    us_fieldname TYPE c
                          us_seltext_m TYPE c
                          us_key       TYPE c.

  gs_fcat-fieldname = us_fieldname .
  gs_fcat-seltext_l = us_seltext_m .
  gs_fcat-key       = us_key       .
  APPEND gs_fcat TO gt_fcat        .
  CLEAR gs_fcat .

ENDFORM.                    " build_fcat
*&---------------------------------------------------------------------*
*&      Form  pf_status_alv
*&-------------------------------------------------------------------
FORM pf_status_alv USING rt_extab  TYPE slis_t_extab.
  SET PF-STATUS 'YSTANDARD' EXCLUDING rt_extab.
ENDFORM.                    "pf_status_alv
*&---------------------------------------------------------------------*
*&      Form  user_command_alv
*&-------------------------------------------------------------------
FORM user_command_alv USING r_ucomm LIKE sy-ucomm
        rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN 'EXC'.

      LOOP AT gt_output INTO gs_output WHERE chk EQ 'X'.

        WRITE gs_output-matnr
                      TO gs_record-string(18).

        APPEND gs_record TO record_tab.

      ENDLOOP.

      EXPORT record_tab TO MEMORY ID 'REC1'.

      LEAVE PROGRAM.

    WHEN '&IC1'.

      READ TABLE gt_output INTO gs_output INDEX rs_selfield-tabindex.
      IF sy-subrc EQ 0.

        WRITE gs_output-matnr
                      TO gs_record-string(18).

        APPEND gs_record TO record_tab.

        EXPORT record_tab TO MEMORY ID 'REC1'.

        LEAVE PROGRAM.

      ENDIF.

    WHEN '&FB03'.

      SET SCREEN 0 .
      LEAVE SCREEN.

  ENDCASE.

ENDFORM.                    "user_command_alv

Save and activate both Search help and Search help exit and run the search help.

Screen – 1