Sonraki ayı veya sonraki ayın ilk gününü bulan rutin

FORM F_GET_NEXT_MONTH USING prm_date type datum
                      CHANGING chn_date type DATUM.

  data: lv_date type datum.
  data: lv_month_curr type char2.
  data: lv_month_next type char2.
  lv_date = prm_date.
  lv_month_curr = lv_date+4(2).
  do.
    lv_date = lv_date + 1.
    chn_date = lv_date.
    lv_month_next = lv_date+4(2).
    if lv_month_curr ne lv_month_next.
      exit.
    endif.
  enddo.
endform.