ABAP中年月搜索帮助的实现

parameters p_yrmn1 type isellist-month.

at selection-screen on value-request for p_yrmn1.
  perform yrmn_help_f4 changing p_yrmn1.

*&---------------------------------------------------------------------*
*&      Form  YRMN_HELP_F4
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->PA_YRMN    text
*----------------------------------------------------------------------*
form yrmn_help_f4 changing pa_yrmn.
  data l_date type isellist-month.
  l_date = sy-datum+0(6).
  call function 'POPUP_TO_SELECT_MONTH'
    exporting
      actual_month               = l_date
    importing
      selected_month             = pa_yrmn
    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.                    "YRMN_HELP_F4