abap 月份和年的f4帮助 转载

*&---------------------------------------------------------------------*
*& Report  ZTHOMAS_TIME_HELP
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZTHOMAS_TIME_HELP.
"selection screen
SELECTION-SCREEN BEGIN OF BLOCK  blk WITH FRAME TITLE text-001.
PARAMETERS:p_date TYPE isellist-month."package SZC
SELECTION-SCREEN END OF BLOCK blk.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_date.
PERFORM select_data.
*&---------------------------------------------------------------------*
*&      Form  SELECT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SELECT_DATA .
CALL FUNCTION 'POPUP_TO_SELECT_MONTH'
EXPORTING
    ACTUAL_MONTH                     = sy-datum+0(6)
*   FACTORY_CALENDAR                 = ' '
*   HOLIDAY_CALENDAR                 = ' '
*   LANGUAGE                         = SY-LANGU
*   START_COLUMN                     = 8
*   START_ROW                        = 5
IMPORTING
   SELECTED_MONTH                   = p_date
*   RETURN_CODE                      = RETURN_CODE
* EXCEPTIONS
*   FACTORY_CALENDAR_NOT_FOUND       = 1
*   HOLIDAY_CALENDAR_NOT_FOUND       = 2
*   MONTH_NOT_FOUND                  = 3
.
ENDFORM.                    " SELECT_DATA