ABAP for the first day of the month

Question

Hello BW users,
I have a scenario which uses an ODS with cumulative key figures with Addition update type. An infocube gets data from ODS by start routine in cube's update rule. I update this ODS first then infocube. All the loads are Full and are loaded daily. This is a snapshot scenario and I load the ods on itself then load from another infocube let's say Cube1. After successful load, I update infocube on itself again then update from the same infocube, Cube1, as in ODS. Infocube load sequence is same as ODS. In the scenario ODS and infocube are wanted to be updated daily. Therefore, I have to delete the ODS's (since it is addition update type) and infocube's overlapping data in the process chain that automates the load. At this point I need two things:
1- ABAP program that is going to give me the first day of each month.
2- ABAP program that is going to delete the overlapping data in ODS when I load it daily. Since I can do that for infocube in process chain with standard process type of Delete overlapping requests from infocube I need it only for ODS. Because there is no standard process type to delete overlapping requests in ODS (since its update type is Addition).
I appreciate your help. Thank you in advance.
Sincerely,

Answer 1

1- ABAP program that is going to give me the first day of each month.
if sy-datun+6(2) = 01.
SY-FDAYW should give you the day
endif.
2- ABAP program that is going to delete the overlapping data in ODS
REPORT  <PGM NAME>.
TABLES: RSODSACTREQ , rsseldone.
Parameters : odsname type RSINFOCUBE default '<>ODS NAME'.
DATA: temp_REQUEST LIKE RSODSACTREQ-REQUEST,
      temp_REQUEST1 LIKE RSODSACTREQ-REQUEST,
      temp_RNR LIKE rsseldone-RNR.
DATA: BEGIN OF itab OCCURS 0,
      REQUEST LIKE RSODSACTREQ-REQUEST,
      TIMESTAMP LIKE RSODSACTREQ-TIMESTAMP,
      END OF itab.
DATA: BEGIN OF itab1 OCCURS 0,
      RNR LIKE rsseldone-RNR,
      seldate LIKE rsseldone-seldate,
      seltime LIKE rsseldone-seltime,
      END OF itab1.
SELECT REQUEST TIMESTAMP FROM RSODSACTREQ INTO TABLE itab
  WHERE ODSOBJECT = '<ODS NAME>'.
SORT itab DESCENDING BY TIMESTAMP .
READ TABLE itab INDEX 1.
temp_REQUEST = itab-REQUEST.
SELECT RNR seldate seltime FROM rsseldone INTO TABLE itab1
  WHERE source = '<Info Source Name for the ODS>'.
  SORT itab1 DESCENDING BY seldate seltime .
  READ TABLE itab1 INDEX 1.
  temp_RNR = itab1-RNR.
*If   temp_REQUEST = temp_RNR .
CALL FUNCTION 'RSSM_PROCESS_REQUDEL_ODSO'
  EXPORTING
    I_ODS             = odsname
    I_REQUEST         = temp_REQUEST
    I_JOBNAME         = 'i_jobname'
    I_VARIANT         =
    I_INSTANCE        =
  IMPORTING
    E_ERROR           =
    E_T_MSG           = itab1
  E_T_RNRLIST       =    ITAB1.
*else.
*raise exception.
*endif.
clear itab.
refresh itab.
SELECT REQUEST TIMESTAMP FROM RSODSACTREQ INTO TABLE itab
  WHERE ODSOBJECT = '<ODS NAME>'.
SORT itab DESCENDING BY TIMESTAMP.
READ TABLE itab INDEX 1.
temp_REQUEST1 = itab-REQUEST.
if temp_REQUEST = temp_REQUEST1.
raise exception .
endif.