POPUP MONTH AND YEAR using ABAP

REPORT  ZPOPUPMONTHNYEAR.

DATA: V_CODE  LIKE  SY-SUBRC.

PARAMETER: V_MONTH LIKE ISELLIST-MONTH.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR V_MONTH.

CALL FUNCTION 'POPUP_TO_SELECT_Calendar'
     EXPORTING
          ACTUAL_MONTH               = '200205'
          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.