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.