In INITIALIZATION added after the AT SELECTION-SCREEN ON of VALUE-REQUEST the FOR s_month-Low event, s_month-low for the search help to add.
Here are some code on the month and inventory of the F4
month:
DATA gv_month TYPE isellist-month.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_month-low.
gv_month = 'S_MONTH-LOW'.
PERFORM s4_help_month USING gv_month.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_month-high.
gv_month = 'S_MONTH-HIGH'.
PERFORM s4_help_month USING gv_month.
FORM s4_help_month USING gv_month .
CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
EXPORTING
actual_month = sy-datum+0(6)
IMPORTING
selected_month = gv_month
EXCEPTIONS
factory_calendar_not_found = 1
holiday_calendar_not_found = 2
month_not_found = 3
OTHERS = 4.
ENDFORM. " S4_HELP
Storage Location
DATA gv_dynprofld TYPE help_info-dynprofld.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_lgort-low.
gv_dynprofld = 'S_LGORT-LOW'.
PERFORM s4_help USING gv_dynprofld.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_lgort-high.
gv_dynprofld = 'S_LGORT-HIGH'.
PERFORM s4_help USING gv_dynprofld.
FORM s4_help USING gv_dynprofld.
TYPES:BEGIN OF typ_lgort,
lgort TYPE t001l-lgort,
END OF typ_lgort.
DATA lt_logrt TYPE TABLE OF typ_lgort.
DATA lv_lgort TYPE dfies-fieldname.
SELECT lgort
FROM t001l
INTO TABLE lt_logrt
WHERE werks IN s_werks.
SORT lt_logrt BY lgort .
DELETE ADJACENT DUPLICATES FROM lt_logrt.
lv_lgort = 'LGORT'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = lv_lgort
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = gv_dynprofld
value_org = 'S'
TABLES
value_tab = lt_logrt
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID his -msgid TYPE his -msgty NUMBER his -msgno
WITH his -msgv1 his -msgv2 his -msgv3 his -msgv4 .
ENDIF .
ENDFORM . "SE_HELP