Last day of previous month for data load

Question

Hi,
I have to load data from the previous month into the psa and then into an infocube. I was wondering as to how to get the last of the previous month to write a code in ABAP. I will be writing the code at the infopackage level in the data selection. I could load data from the 1st of the previous month to the 1st of the current month. This will be an additional load of 30,000 records for the 1st of every month, since I will be loading 30,000 records everyday, I was wondering if I could limit the load from the 1st of every previous month to the last day of that month. This will be a repetitive loading.
DATA: CURR_MM(2) TYPE N,
CURR_YYYY(4) TYPE N,
CURR_DD(2) TYPE N,
PREV_MM(2) TYPE N,
PREV_YYYY(4) TYPE N,
PREV_DD(2) TYPE N,
YYYY_MM(6),
YYYY_MM1(6),
DATE LIKE SY-DATUM.
DATE = SY-DATUM.
CURR_YYYY = DATE+0(4).
CURR_MM = DATE+4(2).
CURR_DD = DATE+6(2).
PREV_DD = 1.
IF CURR_MM = '01'.
PREV_MM = '12'.
PREV_YYYY = CURR_YYYY - 1.
ELSE.
PREV_MM = CURR_MM - 1.
PREV_YYYY = CURR_YYYY.
ENDIF.
concatenate PREV_YYYY PREV_MM PREV_DD into YYYY_MM.
concatenate CURR_YYYY PREV_MM PREV_DD into YYYY_MM1.
read table l_t_range with key
fieldname = 'BLDAT'.
l_idx = sy-tabix.
l_t_range-low = YYYY_MM.
l_t_range-high = YYYY_MM1.
l_t_range-sign = 'I'.
l_t_range-option = 'BT'.
modify l_t_range index l_idx.
p_subrc = 0.
Mind you this code will load data from 1st of the previous month to the 1st of current month. I just don't want to load that extra "1st day" of current month data as I have 30,000 records everyday.
Say for example, I want to load data from 1st Mar to 31st Mar or 1st Feb to 28thFeb. How should I modify the above code.
Is there a formula to get the last date of the previous month. That's all I need. This would solve the problem.

Answer 1

try this routine. it will return a range from 1st day to end of the month.
DATA: l_s_range TYPE rsr_s_rangesid,
          E_T_RANGE TYPE  RSR_T_RANGESID.
DATA: year(4) TYPE n,
      month(2) TYPE n,
      day(2) TYPE n,
    ld_keydate  TYPE sydatum,
      ld_lastday  TYPE sydatum.
  REFRESH e_t_range.
  CLEAR l_s_range.
  year  = sy-datum(4).
  month = sy-datum+4(2).
*Months with 31 days in year
  IF month = '01' OR
     month = '03' OR
     month = '05' OR
     month = '07' OR
     month = '08' OR
     month = '10' OR
     month ='12'.
    day = '31'.
  ENDIF.
*check for leap year: provoking sy-sybrc <> 0
  IF month = '02'.
    day = '29'.
    MOVE:   '02'        TO ld_keydate+4(2),
            year        TO ld_keydate(4),
            day         TO ld_keydate+6(2).
    CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY'
      EXPORTING
        date   = ld_keydate
      EXCEPTIONS
        OTHERS = 1.
    IF sy-subrc <> 0.
      day = '28'.
    ENDIF.
  ENDIF.
*months with 31 days in year
  IF month = '04' OR
     month = '06' OR
     month = '09' OR
     month = '11'.
    day = '30'.
  ENDIF.
  MOVE: year              TO ld_lastday(4),
        month             TO ld_lastday+4(2),
        day               TO ld_lastday+6(2).
  l_s_range-low  = sy-datum.
  l_s_range-high = ld_lastday.
  l_s_range-sign = 'I'.
  l_s_range-opt  = 'BT'.
  APPEND l_s_range TO e_t_range.