UserExit for setting tab sequence of collective search help

1. 판매조직이 CBO code master에 저장된 값이면 VA01의 고객 search help의 기본 탭을 변경.

2. SD_DEBI 의 경우 스탠다드 변경 키를 받아서 Search help exit에 넣어줘야함.

FUNCTION f4ut_debi.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  TABLES
*"      SHLP_TAB TYPE  SHLP_DESCT
*"      RECORD_TAB STRUCTURE  SEAHLPRES
*"  CHANGING
*"     REFERENCE(SHLP) TYPE  SHLP_DESCR
*"     REFERENCE(CALLCONTROL) TYPE  DDSHF4CTRL
*"----------------------------------------------------------------------

  DATA : ls_defsh TYPE ddshdefsh,
         lv_vkorg TYPE vkorg,
         lv_vkbur TYPE vkbur,
         lv_value LIKE zcodemaster-value.

  CASE callcontrol-step.
    WHEN 'SELONE'.

      GET PARAMETER ID 'VKO' FIELD lv_vkorg.

      SELECT SINGLE value
        INTO lv_value
        FROM zcodemaster
       WHERE prog  EQ 'SD_DEBI'
         AND code  EQ 'F4UT_DEBI'
         AND value EQ lv_vkorg.
      IF sy-subrc IS INITIAL.
        ls_defsh-username = sy-uname.
        ls_defsh-shlpname = 'DEBI'.
        ls_defsh-defshlp  = 'DEBID'.
        MODIFY ddshdefsh FROM ls_defsh.
        COMMIT WORK.
      ENDIF.

      GET PARAMETER ID 'VKB' FIELD lv_vkbur.
      IF lv_vkbur IS NOT INITIAL.
        SET PARAMETER ID 'VKB' FIELD space.
        SET PARAMETER ID 'F4UT_DEBI_VKB' FIELD lv_vkbur.
      ENDIF.

  ENDCASE.

ENDFUNCTION.