<style type="text/css"> SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; } </style> SELECTION SCREEN에서 적용시킨겁니다. 모듈풀로 만들진 않앗지만 펑션은 같으니 적용될것 같습니다.

----------------------------------------
TABLES : ZEMP.

SELECTION-SCREEN BEGIN OF BLOCK BL01 WITH FRAME TITLE TEXT-001.
  PARAMETERS : P_1 TYPE C LENGTH 10.
SELECTION-SCREEN END OF BLOCK BL01.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_1.   " SEACH HELP 설정

  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
    EXPORTING
      TABNAME                   = 'ZEMP'
      FIELDNAME                 = 'EMP_NO'
     SEARCHHELP                = 'ZH_EMP'
     SHLPPARAM                 = 'EMP_NO'
     DYNPPROG                  = SY-REPID
     DYNPNR                    = SY-DYNNR
*     DYNPROFIELD               = ' '
*     STEPL                     = 0
*     VALUE                     = ' '
*     MULTIPLE_CHOICE           = ' '
*     DISPLAY                   = ' '
*     SUPPRESS_RECORDLIST       = ' '
     CALLBACK_PROGRAM          = SY-REPID
*     CALLBACK_FORM             = ' '
*     SELECTION_SCREEN          = ' '
*   IMPORTING
*     USER_RESET                =
*   TABLES
*     RETURN_TAB                = LT_RETURN
*   EXCEPTIONS
*     FIELD_NOT_FOUND           = 1
*     NO_HELP_FOR_FIELD         = 2
*     INCONSISTENT_HELP         = 3
*     NO_VALUES_FOUND           = 4
*     OTHERS                    = 5
            .
  IF SY-SUBRC <> 0.
    MESSAGE 'SY-SUBRC <> 0.' TYPE 'S' DISPLAY LIKE 'E'.
    EXIT.
  ENDIF.