ABAP 弹出月份输入框函数

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