Converting Period to 1st and last date of that month

Question

Dear all,
is there any FM to to do the following:-
if in the selection screen i give the date as 09.2007 (MM.YYYY) then i want the output as
01.09.2007 to 30.09.2007
If u go to transaction MC.1  in that u will find this as select options.
So when i enter in the selection screen the period from 09.2007 to 11.2007
then the output should be 01.09.2007 to 30.11.2007. which i want to pass to MKPF table
PLZ help

Answer 1

hi rahul
AT SELECTION-SCREEN.
  IF NOT p_abkrs1 IS INITIAL.
    IF NOT p_timr9 IS INITIAL.
      CALL FUNCTION 'PA03_PERIODDATES_GET'
        EXPORTING
          f_abkrs               = p_abkrs1
        IMPORTING
          f_permo               = wf_permo
          f_current_begda       = wf_begda
          f_current_endda       = wf_endda
        CHANGING
          f_current_period      = wf_pabrp
          f_current_year        = wf_pabrj
        EXCEPTIONS
          pcr_does_not_exist    = 1
          abkrs_does_not_exist  = 2
          period_does_not_exist = 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.
      p_begda = wf_begda.
      p_endda = wf_endda.
      p_ipabrp = wf_pabrp.
      p_ipabrj = wf_pabrj.
      IF NOT p_pabrp IS INITIAL OR NOT p_pabrj IS INITIAL.
        MESSAGE e016(rp) WITH 'Do not enter other period'.
        STOP.
        EXIT.
      ENDIF.
    ELSE.
      IF p_pabrp IS INITIAL OR p_pabrj IS INITIAL.
        MESSAGE e016(rp) WITH 'Enter a period'.
        STOP.
        EXIT.
      ENDIF.
      SELECT SINGLE * FROM t549a
                  INTO int_t549a
                  WHERE abkrs = p_abkrs1.
      IF sy-subrc = 0.
        SELECT SINGLE * FROM t549q INTO int_t549q
                                   WHERE permo = int_t549a-permo
                                     AND pabrj = p_pabrj
                                     AND pabrp = p_pabrp.
        IF sy-subrc = 0.
          p_begda  = int_t549q-begda.
          p_endda  = int_t549q-endda.
          p_ipabrp = p_pabrp.
          p_ipabrj = p_pabrj.
        ENDIF.
      ENDIF.
reward points if useful
karthik