Pop up for Month and Year

*&---------------------------------------------------------------------*
*& Report  ZPAR_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  zpar_test.

DATA: v_year_month LIKE  isellist-month,
           v_code LIKE sy-subrc.


PARAMETER: v_month LIKE isellist-month.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR v_month.

  v_year_month = sy-datum+0(6).

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