How to find First Program run in the Current Month in Foreground?

Question

Dear Experts,
My requirement is that i need to find the First Program run date in the Current Month in foreground. The user must be allowed to run the Report only once for a month and if the next time he runs in the same month, it should not allow him to do so.
Is there any Function Modules available? How to achieve this?
Regards,
Ramesh Manoharan

Answer 1

Hello Ramesh,
May be you can try with this code:
INITIALIZATION.
  DATA:
  v_date TYPE datum,
  wa_indx TYPE indx.
* Import the date to INDX table
  IMPORT date = v_date
    FROM DATABASE indx(xy)
    TO   wa_indx
    CLIENT sy-mandt
    ID 'DATE'.
  IF v_date IS NOT INITIAL.
    IF v_date+0(6) = sy-datum+0(6). "Check YYYYMM is same
      "Give your error message & exit
    ELSE.
      v_date = sy-datum.
*     Export the date to INDX table
      EXPORT date = v_date
        TO DATABASE indx(xy)
        FROM   wa_indx
        CLIENT sy-mandt
        ID 'DATE'.
    ENDIF.
  ELSE.
    v_date = sy-datum.
*   Export the date to INDX table
    EXPORT date = v_date
      TO DATABASE indx(xy)
      FROM   wa_indx
      CLIENT sy-mandt
      ID 'DATE'.
  ENDIF.
Hope this is of some help.
BR,
Suhas