ABAP-弹出月份输入框函数

DATA:lv_month LIKE isellist-month,
     lv_code  LIKE sy-subrc.
CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
  EXPORTING
    actual_month   = sy-datum+0(6)
*   factory_calendar = '01'
*   holiday_calendar = '01'
    language       = sy-langu
*   START_COLUMN   = 8
*   START_ROW      = 5
  IMPORTING
    selected_month = lv_month
    return_code    = lv_code
* EXCEPTIONS
*   FACTORY_CALENDAR_NOT_FOUND       = 1
*   HOLIDAY_CALENDAR_NOT_FOUND       = 2
*   MONTH_NOT_FOUND  = 3
*   OTHERS         = 4
  .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
"lv_answer  根据用户的操作会有三个值
"     J   是
"     N   否
"     A   取消