只有年月的F4帮助

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_YRMN1.
  PERFORM YRMN_HELP_F4 CHANGING P_YRMN1.

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
    IMPORTINGa
      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

 

转自：http://scnblogs.techweb.com.cn/wangyang/archives/53.html