CLASS zamdp_demo DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.
      interfaces:
        IF_AMDP_MARKER_HDB.

    class-methods:
    get_data_go_back importing value(ip_mandt) type spfli-mandt
                     exporting value(et_mara) type MARA_TT.

       class-methods:
        get_period importing value(ip_mandt) type spfli-mandt
                     exporting value(ev_date) type sy-datum.
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.



CLASS zamdp_demo IMPLEMENTATION.
    method get_period by database procedure
                            for hdb language sqlscript
                            options read-only
                            USING ZMMT018.
      DECLARE mytab table( datum  "$ABAP.type( syst_datum )" );

      mytab =  SELECT LAST_CHANGED_DATE as datum
      FROM ZMMT018
      where mandt = :ip_mandt
       AND  MBLNR = '';

      ev_date = :mytab.datum[1];
    ENDMETHOD.
    method get_data_go_back by database procedure
                            for hdb language sqlscript
                            options read-only
                            USING mara
                            ZAMDP_DEMO=>GET_PERIOD.
    DECLARE lv_date "$ABAP.type( syst_datum )";
    call "ZAMDP_DEMO=>GET_PERIOD"( :ip_mandt, :lv_date );

    et_mara =  SELECT * FROM mara WHERE mandt = :ip_mandt AND LAEDA >= :lv_date;
    ENDMETHOD.
ENDCLASS.