2383725 - SPRO | SM30 | The maintenance dialog for xxx is incomplete or not defined

Message No. SV037 The maintenance dialog for xxx is incomplete or not defined is raised in transaction SPRO or SM30
Message no. SCPR028 The table/view xxx has no generated maintenance dialog is raised in transaction SCPR3
The table is not in this system appears in transaction SFW_BROWSER or report SCPR_ACTIVATE_SBCSETS

This KBA applies to all SAP Products based on NetWeaver and S4H.

SV 037 Der Pflegedialog für & ist unvollständig oder nicht definiert
The called function with the view/table needs a special maintenance dialog which, however, either does not exist at all, or does not exist completely.
The called function cannot be performed.
Generate the required maintenance dialog.
Die aufgerufene Funktion mit der Tabelle bzw. View  benötigt einen speziellen Pflegedialog. Dieser ist jedoch nicht oder nicht vollständig vorhanden.
Die aufgerufene Funktion kann nicht durchgeführt werden.
Erzeugen Sie den benötigten Pflegedialog.
SCPR 028 Zur betroffenen Tabelle/View & existiert kein generierter Pflegedialog
R3TR SCP2 CA-AUD_PLMV_AUDIT_ACTY_V
R3TR SCP2 CA-AUD_PLMV_AUDIT_STYP_V
R3TR DEVC PLM_FMEA_SFWS_UI1
021 The table is not in this system  Program SAPLSCPRPRINT
Die Tabelle existiert nicht in diesem System *&---------------------------------------------------------------------*
*& Report ZSLA_INSERT_MISSING_TVDIR_20
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZSLA_INSERT_MISSING_TVDIR_20. DATA tvdir_table TYPE STANDARD TABLE OF tvdir.
DATA r LIKE tvdir.
DATA ls_message TYPE hier_mess.
DATA ls_e071 TYPE ko200.
DATA lt_e071k_row TYPE e071k.
DATA lt_e071k TYPE STANDARD TABLE OF e071k.
DATA devclass LIKE tdevc-devclass.
DATA area LIKE tlibg-area.
DATA tabname LIKE tvdir-tabname.
DATA lin TYPE I. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = '/IWFND/COF'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = '/IWFND/V_DFSYAL'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = '/IWFND/V_DFSYAL'.
IF sy-subrc <> 0.
r-tabname = '/IWFND/V_DFSYAL'.
r-area = '/IWFND/V_DFSYAL'.
r-devclass = '/IWFND/COF'.
r-type = '1'.
r-liste = '1'.
r-gendate = '20130509'.
r-gentime = '162316'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = '/IWBEP/BEP_DT'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = '/IWBEP/FG_TABLES'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = '/IWBEP/C_SYSTEM'.
IF sy-subrc <> 0.
r-tabname = '/IWBEP/C_SYSTEM'.
r-area = '/IWBEP/FG_TABLES'.
r-devclass = '/IWBEP/BEP_DT'.
r-type = '1'.
r-liste = '1'.
r-bastab = 'X'.
r-gendate = '20120525'.
r-gentime = '135741'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'FAA_SFWS_1'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'AA_CUS_PARAL_VAL'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'V_T093BSN_PARVAL'.
IF sy-subrc <> 0.
r-tabname = 'V_T093BSN_PARVAL'.
r-area = 'AA_CUS_PARAL_VAL'.
r-devclass = 'AA_BAS_CUS_SFWS_1'.
r-type = '2'.
r-liste = '10'.
FREE r-bastab.
r-detail = '11'.
r-gendate = '20120326'.
r-gentime = '134523'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'FAA_SFWS_1'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'FAA_CFG_UI_SFWS1'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'V_T095_ACI'.
IF sy-subrc <> 0.
r-tabname = 'V_T095_ACI'.
r-area = 'FAA_CFG_UI_SFWS1'.
r-devclass = 'FAA_SFWS_1'.
r-type = '1'.
r-liste = '110'.
r-gendate = '20121205'.
r-gentime = '145434'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'V_T095_ACI_EX'.
IF sy-subrc <> 0.
r-tabname = 'V_T095_ACI_EX'.
r-area = 'FAA_CFG_UI_SFWS1'.
r-devclass = 'FAA_SFWS_1'.
r-type = '1'.
r-liste = '120'.
r-gendate = '20121205'.
r-gentime = '151329'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'FINS_ACDOC_CUST'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'FINS_LEDGER_CUST'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FINSV_VERSN_LD'.
IF sy-subrc <> 0.
r-tabname = 'FINSV_VERSN_LD'.
r-area = 'FINS_LEDGER_CUST'.
r-devclass = 'FINS_ACDOC_CUST'.
r-type = '1'.
r-liste = '555'.
r-gendate = '20151126'.
r-gentime = '130952'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'GLO-EDO'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'EDOT'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'T003EDOCV'.
IF sy-subrc <> 0.
r-tabname = 'T003EDOCV'.
r-area = 'EDOT'.
r-devclass = 'GLO-EDO'.
r-type = '1'.
r-liste = '13'.
r-gendate = '20140804'.
r-gentime = '102336'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'P_SRA018_ODATA'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'SRA018_FG01'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'SRA018_T_CONFIG'.
IF sy-subrc <> 0.
r-tabname = 'SRA018_T_CONFIG'.
r-area = 'SRA018_FG01'.
r-devclass = 'P_SRA018_ODATA'.
r-type = '1'.
r-liste = '20'.
r-bastab = 'X'.
r-gendate = '20130418'.
r-gentime = '214518'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'PB37'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'HRPAYBR_EFD_MSGS'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'V_T7BREFD_MSGS'.
IF sy-subrc <> 0.
r-tabname = 'V_T7BREFD_MSGS'.
r-area = 'HRPAYBR_EFD_MSGS'.
r-devclass = 'PB37'.
r-type = '1'.
r-liste = '1'.
FREE r-bastab.
r-gendate = '20151110'.
r-gentime = '133039'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'PPH_GENERAL'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'SDM_CUST'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'SDM_AOR_PROF_V'.
IF sy-subrc <> 0.
r-tabname = 'SDM_AOR_PROF_V'.
r-area = 'SDM_CUST'.
r-devclass = 'PPH_GENERAL'.
r-type = '1'.
r-liste = '200'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20131106'.
r-gentime = '075424'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'SDM_DEM_PROF01_V'.
IF sy-subrc <> 0.
r-tabname = 'SDM_DEM_PROF01_V'.
r-area = 'SDM_CUST'.
r-devclass = 'PPH_GENERAL'.
r-type = '1'.
r-liste = '100'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20130823'.
r-gentime = '144520'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'SDM_DEM_PROF_V'.
IF sy-subrc <> 0.
r-tabname = 'SDM_DEM_PROF_V'.
r-area = 'SDM_CUST'.
r-devclass = 'PPH_GENERAL'.
r-type = '2'.
r-liste = '80'.
r-detail = '90'.
FREE r-bastab.
r-gendate = '20131106'.
r-gentime = '135754'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'SDM_MSH_PROF_V'.
IF sy-subrc <> 0.
r-tabname = 'SDM_MSH_PROF_V'.
r-area = 'SDM_CUST'.
r-devclass = 'PPH_GENERAL'.
r-type = '2'.
r-liste = '130'.
r-detail = '140'.
FREE r-bastab.
r-gendate = '20131109'.
r-gentime = '171543'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'SDM_REC_PROF01_V'.
IF sy-subrc <> 0.
r-tabname = 'SDM_REC_PROF01_V'.
r-area = 'SDM_CUST'.
r-devclass = 'PPH_GENERAL'.
r-type = '1'.
r-liste = '50'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20130828'.
r-gentime = '142205'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'SDM_REC_PROF_V'.
IF sy-subrc <> 0.
r-tabname = 'SDM_REC_PROF_V'.
r-area = 'SDM_CUST'.
r-devclass = 'PPH_GENERAL'.
r-type = '2'.
r-liste = '30'.
r-detail = '40'.
FREE r-bastab.
r-gendate = '20130828'.
r-gentime = '141845'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'TTPFK_V'.
IF sy-subrc <> 0.
r-tabname = 'TTPFK_V'.
r-area = 'SDM_CUST'.
r-devclass = 'PPH_GENERAL'.
r-type = '2'.
r-liste = '1'.
r-detail = '2'.
FREE r-bastab.
r-gendate = '20131104'.
r-gentime = '170637'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'GLO-EDO'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'EDOT2'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'EDOSHIPMSTATUSV'.
IF sy-subrc <> 0.
r-tabname = 'EDOSHIPMSTATUSV'.
r-area = 'EDOT2'.
r-devclass = 'GLO-EDO'.
r-type = '1'.
r-liste = '21'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20180702'.
r-gentime = '135716'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'EDOTVROV'.
IF sy-subrc <> 0.
r-tabname = 'EDOTVROV'.
r-area = 'EDOT2'.
r-devclass = 'GLO-EDO'.
r-type = '1'.
r-liste = '20'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20180702'.
r-gentime = '135725'.
APPEND r TO tvdir_table.
ENDIF. ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = '/IWWRK/WF_COMMON'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = '/IWWRK/FG_WF_TAB'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = '/IWWRK/V_WFSTEP'.
IF sy-subrc <> 0.
r-tabname = '/IWWRK/V_WFSTEP'.
r-area = '/IWWRK/FG_WF_TAB'.
r-devclass = '/IWWRK/WF_COMMON'.
r-type = '1'.
r-liste = '1'.
FREE r-bastab.
r-gendate = '20110714'.
r-gentime = '063836'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = '/IWWRK/V_WFDEC'.
IF sy-subrc <> 0.
r-tabname = '/IWWRK/V_WFDEC'.
r-area = '/IWWRK/FG_WF_TAB'.
r-devclass = '/IWWRK/WF_COMMON'.
r-type = '1'.
r-liste = '2'.
FREE r-bastab.
r-gendate = '20130101'.
r-gentime = '131850'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'AI_LMDB_CONFIG'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'LMDB_ADDIT_ATTR'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'V_LMDBATTRTECTYP'.
IF sy-subrc <> 0.
r-tabname = 'V_LMDBATTRTECTYP'.
r-area = 'LMDB_ADDIT_ATTR'.
r-devclass = 'AI_LMDB_CONFIG'.
r-type = '1'.
r-liste = '11'.
FREE r-bastab.
r-gendate = '20140113'.
r-gentime = '132838'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'PLM_AUDIT'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'PLM_AUDIT_CUSTOM'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'PLMV_AUDIT_STYP'.
IF sy-subrc <> 0.
r-tabname = 'PLMV_AUDIT_STYP'.
r-area = 'PLM_AUDIT_CUSTOM'.
r-devclass = 'PLM_AUDIT'.
r-type = '1'.
r-liste = '1'.
FREE r-bastab.
r-gendate = '20070315'.
r-gentime = '152429'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'PLMV_AUDIT_ACTY'.
IF sy-subrc <> 0.
r-tabname = 'PLMV_AUDIT_ACTY'.
r-area = 'PLM_AUDIT_CUSTOM'.
r-devclass = 'PLM_AUDIT'.
r-type = '1'.
r-liste = '3'.
FREE r-bastab.
r-gendate = '20070313'.
r-gentime = '085209'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'FBASCORE'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'T007S'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'V_T007S'.
IF sy-subrc <> 0.
r-tabname = 'V_T007S'.
r-area = 'T007S'.
r-devclass = 'FBASCORE'.
r-type = '1'.
r-liste = '100'.
FREE r-bastab.
r-gendate = '20161123'.
r-gentime = '115544'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'ID-FI-PT'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'FIPT_SAFT_MV'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FIPTC_DOC_EXC'.
IF sy-subrc <> 0.
r-tabname = 'FIPTC_DOC_EXC'.
r-area = 'FIPT_SAFT_MV'.
r-devclass = 'ID-FI-PT'.
r-type = '1'.
r-liste = '0001'.
r-bastab = 'X'.
r-gendate = '20170418'.
r-gentime = '183117'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = '/FSLRU/SETTLEMENT'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = '/FSLRU/VM_YEC'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = '/FSLRU/VM_YEC_CT'.
IF sy-subrc <> 0.
r-tabname = '/FSLRU/VM_YEC_CT'.
r-area = '/FSLRU/VM_YEC'.
r-devclass = '/FSLRU/SETTLEMENT'.
r-type = '1'.
r-liste = '0001'.
FREE r-bastab.
r-gendate = '20190430'.
r-gentime = '113202'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'FRA_CUST_OBJECT_MODELLING'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'FRA_CUST_OBJ_MOD'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FRA_V_SRC_DOMN'.
IF sy-subrc <> 0.
r-tabname = 'FRA_V_SRC_DOMN'.
r-area = 'FRA_CUST_OBJ_MOD'.
r-devclass = 'FRA_CUST_OBJECT_MODELLING'.
r-type = '1'.
r-liste = '0100'.
FREE r-bastab.
r-gendate = '20150217'.
r-gentime = '124318'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF.
SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'FIN_EB_BSIMP'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'FEB_IMP_CUSTVIEW'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FEBV_FILEPATH'.
IF sy-subrc <> 0.
r-tabname = 'FEBV_FILEPATH'.
r-area = 'FEB_IMP_CUSTVIEW'.
r-devclass = 'FIN_EB_BSIMP'.
r-type = '2'.
r-liste = '100'.
r-detail = '110'.
FREE r-bastab.
r-gendate = '20100810'.
r-gentime = '155918'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FEBV_IMP_POST'.
IF sy-subrc <> 0.
r-tabname = 'FEBV_IMP_POST'.
r-area = 'FEB_IMP_CUSTVIEW'.
r-devclass = 'FIN_EB_BSIMP'.
r-type = '2'.
r-liste = '400'.
r-detail = '410'.
FREE r-bastab.
r-gendate = '20110321'.
r-gentime = '090603'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FEBV_IMP_SELOPT'.
IF sy-subrc <> 0.
r-tabname = 'FEBV_IMP_SELOPT'.
r-area = 'FEB_IMP_CUSTVIEW'.
r-devclass = 'FIN_EB_BSIMP'.
r-type = '1'.
r-liste = '300'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20101029'.
r-gentime = '173415'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FEBV_IMP_SOURCE'.
IF sy-subrc <> 0.
r-tabname = 'FEBV_IMP_SOURCE'.
r-area = 'FEB_IMP_CUSTVIEW'.
r-devclass = 'FIN_EB_BSIMP'.
r-type = '2'.
r-liste = '200'.
r-detail = '210'.
FREE r-bastab.
r-gendate = '20120323'.
r-gentime = '135608'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FEBV_IMP_TRANPA'.
IF sy-subrc <> 0.
r-tabname = 'FEBV_IMP_TRANPA'.
r-area = 'FEB_IMP_CUSTVIEW'.
r-devclass = 'FIN_EB_BSIMP'.
r-type = '1'.
r-liste = '550'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20100803'.
r-gentime = '151740'.
APPEND r TO tvdir_table.
ENDIF.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'FEBV_IMP_TRANS'.
IF sy-subrc <> 0.
r-tabname = 'FEBV_IMP_TRANS'.
r-area = 'FEB_IMP_CUSTVIEW'.
r-devclass = 'FIN_EB_BSIMP'.
r-type = '1'.
r-liste = '500'.
FREE r-detail.
FREE r-bastab.
r-gendate = '20100805'.
r-gentime = '114052'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. SELECT SINGLE devclass FROM tdevc INTO devclass WHERE devclass = 'EHHSS_BO_INC_CFG'.
IF sy-subrc = 0.
SELECT SINGLE area FROM tlibg INTO area WHERE area = 'EHHSS_CUSTOMIZE2'.
IF sy-subrc = 0.
SELECT SINGLE tabname FROM tvdir INTO tabname WHERE tabname = 'EHHSSV_GRP_SEV'.
IF sy-subrc <> 0.
r-tabname = 'EHHSSV_GRP_SEV'.
r-area = 'EHHSS_CUSTOMIZE2'.
r-devclass = 'EHHSS_BO_INC_CFG'.
r-type = '1'.
r-liste = '0055'.
FREE r-bastab.
r-gendate = '20180216'.
r-gentime = '074306'.
APPEND r TO tvdir_table.
ENDIF.
ENDIF.
ENDIF. DESCRIBE TABLE tvdir_table LINES lin. IF lin IS NOT INITIAL. ls_e071-pgmid = 'R3TR'.
ls_e071-object = 'TABU'.
ls_e071-obj_name = 'TVDIR'.
ls_e071-objfunc = 'K'. LOOP AT tvdir_table INTO r.
lt_e071k_row-pgmid = 'R3TR'.
lt_e071k_row-object = 'TABU'.
lt_e071k_row-objname = 'TVDIR'.
lt_e071k_row-mastertype = 'TABU'.
lt_e071k_row-mastername = 'TVDIR'.
lt_e071k_row-tabkey = r-tabname.
APPEND lt_e071k_row TO lt_e071k.
ENDLOOP. CALL FUNCTION 'TR_OBJECT_CHECK'
EXPORTING
wi_ko200 = ls_e071
TABLES
wt_e071k = lt_e071k
EXCEPTIONS
cancel_edit_other_error = 1
show_only_other_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE sy-msgty.
RETURN.
ENDIF. CALL FUNCTION 'TR_OBJECT_INSERT'
EXPORTING
wi_ko200 = ls_e071
TABLES
wt_e071k = lt_e071k
EXCEPTIONS
cancel_edit_other_error = 1
show_only_other_error = 2
OTHERS = 3. IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4 DISPLAY LIKE sy-msgty.
RETURN.
ENDIF. INSERT tvdir FROM TABLE tvdir_table ACCEPTING DUPLICATE KEYS. FREE: tvdir_table, ls_e071, lt_e071k, lt_e071k_row.
ENDIF.