SAP ABAPG开发屏幕自动生成日期的搜索帮助

 代码如下：

REPORT  z_jason_test_f4                         .
TABLES: s031.
PARAMETER p_spmon  TYPE spmon DEFAULT sy-datum+0(6) OBLIGATORY.
SELECT-OPTIONS s_spmon FOR s031-spmon DEFAULT sy-datum+0(6) OBLIGATORY.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_spmon.PERFORM monat_f4.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_spmon-low.PERFORM monat_f4.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_spmon-high.PERFORM monat_f4.
FORM  monat_f4.DATA: BEGIN OF mf_dynpfields OCCURS 1.INCLUDE STRUCTURE dynpread.DATA: END   OF mf_dynpfields.DATA: mf_returncode   LIKE sy-subrc,mf_monat        LIKE isellist-month,mf_hlp_repid    LIKE sy-repid.FIELD-SYMBOLS: <mf_feld>.GET CURSOR FIELD mf_dynpfields-fieldname.APPEND mf_dynpfields.mf_hlp_repid = sy-repid.DO 2 TIMES.CALL FUNCTION 'DYNP_VALUES_READ'EXPORTINGdyname               = mf_hlp_repiddynumb               = sy-dynnrTABLESdynpfields           = mf_dynpfieldsEXCEPTIONSinvalid_abapworkarea = 01invalid_dynprofield  = 02invalid_dynproname   = 03invalid_dynpronummer = 04invalid_request      = 05no_fielddescription  = 06undefind_error       = 07.IF sy-subrc = 3.mf_hlp_repid = 'SAPLALDB'.ELSE.READ TABLE mf_dynpfields INDEX 1.TRANSLATE mf_dynpfields-fieldvalue USING '_ '.EXIT.ENDIF.ENDDO.IF sy-subrc = 0.CALL FUNCTION 'CONVERSION_EXIT_PERI_INPUT'EXPORTINGinput  = mf_dynpfields-fieldvalueIMPORTINGoutput = mf_monatEXCEPTIONSerror_message = 1.IF mf_monat IS INITIAL.mf_monat = sy-datlo(6).ENDIF.CALL FUNCTION 'POPUP_TO_SELECT_MONTH'EXPORTINGactual_month               = mf_monatIMPORTINGselected_month             = mf_monatreturn_code                = mf_returncodeEXCEPTIONSfactory_calendar_not_found = 01holiday_calendar_not_found = 02month_not_found            = 03.IF sy-subrc = 0 AND mf_returncode = 0.CALL FUNCTION 'CONVERSION_EXIT_PERI_OUTPUT'EXPORTINGinput  =  mf_monatIMPORTINGoutput =  mf_dynpfields-fieldvalue.COLLECT mf_dynpfields.CALL FUNCTION 'DYNP_VALUES_UPDATE'EXPORTINGdyname               = mf_hlp_repiddynumb               = sy-dynnrTABLESdynpfields           = mf_dynpfieldsEXCEPTIONSinvalid_abapworkarea = 01invalid_dynprofield  = 02invalid_dynproname   = 03invalid_dynpronummer = 04invalid_request      = 05no_fielddescription  = 06undefind_error       = 07.ENDIF.ENDIF.
ENDFORM.