amdp_2.abap

METHOD delete_std_tabs BY DATABASE PROCEDURE FOR HDB
                        LANGUAGE SQLSCRIPT
                        USING cfin_accit cfin_acchd cfin_accit_app cfin_acccr cfin_accpa_char // Table names
                              cfin_accfi cfin_acctx cfin_accit_wt cfin_accit_ccs cfin_accchg
                              cfin_accchg cfin_ausz_clr fins_cfin_mig_lg.
 
    lt_accit = APPLY_FILTER ( CFIN_ACCIT, :iv_where );
    lt_accit_z = SELECT * FROM :lt_accit WHERE logsystem_sender = :iv_logsys
                                                            AND bukrs = :iv_bukrs
                                                            AND awtyp = :iv_awtyp;
    lt_guid  = SELECT acchd_guid FROM :lt_accit_z;
 
 
    DELETE FROM cfin_acchd          WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_accit          WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_accit_app      WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_acccr          WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_accpa_char     WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_accfi          WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_acctx          WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_accit_wt       WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_accit_ccs      WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_accchg         WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM cfin_ausz_clr       WHERE acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
    DELETE FROM fins_cfin_mig_lg    WHERE fi_acchd_guid IN ( SELECT acchd_guid FROM :lt_guid );
  
ENDMETHOD.