弹出月份输入框

函数POPUP_TO_SELECT_MONTH可以弹出月份输入框从而使程序界面变得更加友好，示例如下：

REPORT ZPOPUPMONTH .

SELECTION-SCREEN BEGIN OF BLOCK blk01.
  PARAMETERS: p_monat TYPE ISELLIST-MONTH.
SELECTION-SCREEN END OF BLOCK blk01.

INITIALIZATION.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_monat.

  PERFORM frm_popup_month.
*&---------------------------------------------------------------------*
*&      Form  frm_popup_month
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_popup_month.
  DATA: lv_month TYPE ISELLIST-MONTH.
  lv_month = sy-datum+0(6).
  CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
    EXPORTING
     ACTUAL_MONTH                     = lv_month
     FACTORY_CALENDAR                 = ' '
     HOLIDAY_CALENDAR                 = ' '
     LANGUAGE                         = SY-LANGU
     START_COLUMN                     = 8
     START_ROW                        = 5
   IMPORTING
     SELECTED_MONTH                   = P_MONAT
*     RETURN_CODE                      =
   EXCEPTIONS
     FACTORY_CALENDAR_NOT_FOUND       = 1
     HOLIDAY_CALENDAR_NOT_FOUND       = 2
     MONTH_NOT_FOUND                  = 3
     OTHERS                           = 4.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

ENDFORM.                    " frm_popup_month