AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_YRMN1.
PERFORM YRMN_HELP_F4 CHANGING P_YRMN1.
FORM YRMN_HELP_F4 CHANGING PA_YRMN.
DATA L_DATE TYPE ISELLIST-MONTH.
L_DATE = SY-DATUM+0(6).
CALL FUNCTION ‘POPUP_TO_SELECT_MONTH’
EXPORTING
ACTUAL_MONTH = L_DATE
IMPORTINGa
SELECTED_MONTH = PA_YRMN
EXCEPTIONS
FACTORY_CALENDAR_NOT_FOUND = 1
HOLIDAY_CALENDAR_NOT_FOUND = 2
MONTH_NOT_FOUND = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. ” YRMN_HELP_F4