How to use MM/YYYY Format in the selection Screen?

Question

There is this program RMCB0300 where the date format in the selection screen has MM/YYYY Format.
I am working on a report which requires it "Period" Field in the selection screen to be in the same format.
However, i am trying to give the select option as " SL_SPMON FOR S031-SPMON MODIF ID PER." and declaring S031 table in the declaration part.
But still, its not been able to provide me F4 help in the inpur screen.
Can someone please provide me some guidance in this regard?

Answer 1

Hi,
the following works for me..
*& Report  ZPMONAT                                                     *
report  zpmonat                                 .
tables: s031.
selection-screen begin of block abc.
select-options:  sl_spmon for s031-spmon.
selection-screen end of block abc.
at selection-screen on value-request for sl_spmon-low.
  perform monat_f4.
at selection-screen on value-request for sl_spmon-high.
  perform monat_f4.
start-of-selection.
end-of-selection.
*&      Form  monat_f4
*       text
*  -->  p1        text
*  <--  p2        text
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>.
* Wert von Dynpro lesen
  get cursor field mf_dynpfields-fieldname.
  append mf_dynpfields.
  mf_hlp_repid = sy-repid.
  do 2 times.
    call function 'DYNP_VALUES_READ'
      exporting
        dyname               = mf_hlp_repid
        dynumb               = sy-dynnr
      tables
        dynpfields           = mf_dynpfields
      exceptions
        invalid_abapworkarea = 01
        invalid_dynprofield  = 02
        invalid_dynproname   = 03
        invalid_dynpronummer = 04
        invalid_request      = 05
        no_fielddescription  = 06
        undefind_error       = 07.
    if sy-subrc = 3.
*     Aktuelles Dynpro ist Wertemengenbild
      mf_hlp_repid = 'SAPLALDB'.
    else.
      read table mf_dynpfields index 1.
*     Unterstriche durch Blanks ersetzen
      translate mf_dynpfields-fieldvalue using '_ '.
      exit.
    endif.
  enddo.
  if sy-subrc = 0.
*   Konvertierung ins interne Format
    call function 'CONVERSION_EXIT_PERI_INPUT'
      exporting
        input         = mf_dynpfields-fieldvalue
      importing
        output        = mf_monat
      exceptions
        error_message = 1.
    if mf_monat is initial.
*     Monat ist initial => Vorschlagswert aus akt. Datum ableiten
      mf_monat = sy-datlo(6).
    endif.
    call function 'POPUP_TO_SELECT_MONTH'
      exporting
        actual_month               = mf_monat
      importing
        selected_month             = mf_monat
        return_code                = mf_returncode
      exceptions
        factory_calendar_not_found = 01
        holiday_calendar_not_found = 02
        month_not_found            = 03.
    if sy-subrc = 0 and mf_returncode = 0.
*     ASSIGN (MF_DYNPFIELDS-FIELDNAME) TO <MF_FELD>. " ==>> note 148804
*     <MF_FELD> = MF_MONAT.
      call function 'CONVERSION_EXIT_PERI_OUTPUT'
        exporting
          input  = mf_monat
        importing
          output = mf_dynpfields-fieldvalue.
      collect mf_dynpfields.
      call function 'DYNP_VALUES_UPDATE'
        exporting
          dyname               = mf_hlp_repid
          dynumb               = sy-dynnr
        tables
          dynpfields           = mf_dynpfields
        exceptions
          invalid_abapworkarea = 01
          invalid_dynprofield  = 02
          invalid_dynproname   = 03
          invalid_dynpronummer = 04
          invalid_request      = 05
          no_fielddescription  = 06
          undefind_error       = 07.           "<<== note 148804
    endif.
  endif.
endform.                                                    " monat_f4
Regards,
Suresh Datti