Period Search Help

SELECTION-SCREEN BEGIN OF BLOCK param WITH FRAME TITLE text-000.
PARAMETERS     :  p_donem LIKE s031-spmon.
SELECTION-SCREEN END OF BLOCK param.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_donem.
  PERFORM f4_spmon CHANGING p_donem.

FORM f4_spmon CHANGING v_spmon .
  DATA: mf_returncode1   LIKE sy-subrc,
        mf_monat1        LIKE isellist-month,
        mf_hlp_repid1    LIKE sy-repid.


  mf_monat1 = sy-datum+0(6).

  CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
      actual_month               = mf_monat1
      factory_calendar           = ' '
      holiday_calendar           = ' '
      language                   = sy-langu
      start_column               = 8
      start_row                  = 5
    IMPORTING
      selected_month             = mf_monat1
      return_code                = mf_returncode1
    EXCEPTIONS
      factory_calendar_not_found = 1
      holiday_calendar_not_found = 2
      month_not_found            = 3
      OTHERS                     = 4.

  IF sy-subrc = 0 AND mf_returncode1 = 0.
    v_spmon = mf_monat1.
  ENDIF.

ENDFORM.                    "f4_spmon