From a8240439fa5b2d40fafde470f682ca6995600d27 Mon Sep 17 00:00:00 2001 From: Alexander Sabino <32822107+asabino2@users.noreply.github.com> Date: Thu, 23 Jan 2025 16:31:00 +0000 Subject: [PATCH] Add files via upload --- .abapgit.xml | 10 + src/package.devc.xml | 10 + src/zbc_bgd_debugger.msag.xml | 26 + src/zbgdebug.prog.abap | 83 +++ src/zbgdebug.prog.xml | 22 + src/zbgdebug.sobj.xml | 81 +++ src/zcl_bgd_debugger.clas.abap | 146 ++++ src/zcl_bgd_debugger.clas.xml | 24 + src/zde_wp_index.dtel.xml | 23 + src/ze_bgd_active.dtel.xml | 23 + src/ze_bgd_prg_line.dtel.xml | 23 + src/ze_dbg_is_waiting.dtel.xml | 23 + src/zstbc_bg_debugger_aux.tabl.xml | 21 + ...c_bgdebug_sp.fugr.lztbc_bgdebug_spf00.abap | 6 + ...bc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.xml | 13 + ...c_bgdebug_sp.fugr.lztbc_bgdebug_spi00.abap | 5 + ...bc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.xml | 13 + ...c_bgdebug_sp.fugr.lztbc_bgdebug_spt00.abap | 17 + ...bc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.xml | 12 + ...c_bgdebug_sp.fugr.lztbc_bgdebug_sptop.abap | 5 + ...bc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.xml | 17 + ...c_bgdebug_sp.fugr.saplztbc_bgdebug_sp.abap | 20 + ...bc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.xml | 19 + ...ug_sp.fugr.tableframe_ztbc_bgdebug_sp.abap | 10 + ...bug_sp.fugr.tableproc_ztbc_bgdebug_sp.abap | 8 + src/ztbc_bgdebug_sp.fugr.xml | 656 ++++++++++++++++++ src/ztbc_bgdebug_sp.tabl.xml | 79 +++ src/ztbc_bgdebug_sps.tobj.xml | 50 ++ src/ztbc_bgdebug_spt.tabl.xml | 126 ++++ 29 files changed, 1571 insertions(+) create mode 100644 .abapgit.xml create mode 100644 src/package.devc.xml create mode 100644 src/zbc_bgd_debugger.msag.xml create mode 100644 src/zbgdebug.prog.abap create mode 100644 src/zbgdebug.prog.xml create mode 100644 src/zbgdebug.sobj.xml create mode 100644 src/zcl_bgd_debugger.clas.abap create mode 100644 src/zcl_bgd_debugger.clas.xml create mode 100644 src/zde_wp_index.dtel.xml create mode 100644 src/ze_bgd_active.dtel.xml create mode 100644 src/ze_bgd_prg_line.dtel.xml create mode 100644 src/ze_dbg_is_waiting.dtel.xml create mode 100644 src/zstbc_bg_debugger_aux.tabl.xml create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.abap create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.xml create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.abap create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.xml create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.abap create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.xml create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.abap create mode 100644 src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.xml create mode 100644 src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.abap create mode 100644 src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.xml create mode 100644 src/ztbc_bgdebug_sp.fugr.tableframe_ztbc_bgdebug_sp.abap create mode 100644 src/ztbc_bgdebug_sp.fugr.tableproc_ztbc_bgdebug_sp.abap create mode 100644 src/ztbc_bgdebug_sp.fugr.xml create mode 100644 src/ztbc_bgdebug_sp.tabl.xml create mode 100644 src/ztbc_bgdebug_sps.tobj.xml create mode 100644 src/ztbc_bgdebug_spt.tabl.xml diff --git a/.abapgit.xml b/.abapgit.xml new file mode 100644 index 0000000..8f9f912 --- /dev/null +++ b/.abapgit.xml @@ -0,0 +1,10 @@ + + + + + P + /src/ + PREFIX + + + diff --git a/src/package.devc.xml b/src/package.devc.xml new file mode 100644 index 0000000..12efaa8 --- /dev/null +++ b/src/package.devc.xml @@ -0,0 +1,10 @@ + + + + + + Background Debugger + + + + diff --git a/src/zbc_bgd_debugger.msag.xml b/src/zbc_bgd_debugger.msag.xml new file mode 100644 index 0000000..8fc8600 --- /dev/null +++ b/src/zbc_bgd_debugger.msag.xml @@ -0,0 +1,26 @@ + + + + + + ZBC_BGD_DEBUGGER + P + Background debugger + + + + P + ZBC_BGD_DEBUGGER + 000 + & & & & + + + P + ZBC_BGD_DEBUGGER + 001 + Debugger do programa &, include & e linha & está pronto para ser efetuado + + + + + diff --git a/src/zbgdebug.prog.abap b/src/zbgdebug.prog.abap new file mode 100644 index 0000000..8922eb0 --- /dev/null +++ b/src/zbgdebug.prog.abap @@ -0,0 +1,83 @@ +***** Implementation of object type ZBGDEBUG ***** +INCLUDE . +BEGIN_DATA OBJECT. " Do not change.. DATA is generated +* only private members may be inserted into structure private +DATA: +" begin of private, +" to declare private attributes remove comments and +" insert private attributes here ... +" end of private, + BEGIN OF KEY, + WORKPROCESS LIKE ZSTBC_BG_DEBUGGER_AUX-WP_INDEX, + END OF KEY. +END_DATA OBJECT. " Do not change.. DATA is generated + +BEGIN_METHOD OPENDEBUG CHANGING CONTAINER. +DATA: LV_WPNO TYPE WPINFO-WP_NO. +DATA: CL_SERVER_INFO TYPE REF TO CL_SERVER_INFO. +DATA: LT_WORK_LIST TYPE SSI_WORKER_LIST, + LS_WORK_LIST LIKE LINE OF LT_WORK_LIST. +DATA: LC_EXIT(1) TYPE C. +DATA: LV_WORKER_INDEX TYPE SSI_WORKER_INDEX . +DATA: LV_SESSION_HDL TYPE INT1. +DATA: LV_WP_INDEX TYPE WPINFO-WP_INDEX. + +*DO. +* IF LC_EXIT = 'X'. +* EXIT. +* ENDIF. +*ENDDO. + +*MESSAGE 'TESTE' TYPE 'X'. + +LV_WPNO = OBJECT-KEY-WORKPROCESS. +LV_WORKER_INDEX = LV_WPNO. + +TRY. +CREATE OBJECT cl_server_info +* EXPORTING +* server_name = + . +CATCH cx_ssi_no_auth . +ENDTRY. + +TRY. +CALL METHOD cl_server_info->get_worker_list + EXPORTING +* with_cpu = 0 +* with_application_info = 1 +* only_active_worker = 0 + worker_index = LV_WORKER_INDEX + RECEIVING + worker_list = LT_WORK_LIST + . + CATCH cx_ssi_no_auth. +ENDTRY. + +READ TABLE LT_WORK_LIST INTO LS_WORK_LIST INDEX 1. + +LV_SESSION_HDL = LS_WORK_LIST-SESSION_HDL. + +LV_WP_INDEX = LV_WPNO. +CALL FUNCTION 'TH_DEBUG_WP' + EXPORTING +* WP_NO = LV_WPNO +* DEST = ' ' + WP_INDEX = LV_WP_INDEX + LOGON_ID = LS_WORK_LIST-LOGON_ID + SESSION_HDL = LV_SESSION_HDL +* IMPORTING +* SUBRC = + EXCEPTIONS + NO_AUTHORITY = 1 + NO_DEBUGGING_POSSIBLE = 2 + PARAMETER_ERROR = 3 + REQUEST_CHANGED = 4 + TOO_MANY_DEBUGGING_SESSIONS = 5 + OTHERS = 6 + . +IF sy-subrc <> 0. +* Implement suitable error handling here +ENDIF. + +END_METHOD. diff --git a/src/zbgdebug.prog.xml b/src/zbgdebug.prog.xml new file mode 100644 index 0000000..c6162b1 --- /dev/null +++ b/src/zbgdebug.prog.xml @@ -0,0 +1,22 @@ + + + + + + ZBGDEBUG + SWOP + S + * + X + X + + + + R + Programa p/ctg.objeto ZBGDEBUG : Background debugger + 52 + + + + + diff --git a/src/zbgdebug.sobj.xml b/src/zbgdebug.sobj.xml new file mode 100644 index 0000000..6449b28 --- /dev/null +++ b/src/zbgdebug.sobj.xml @@ -0,0 +1,81 @@ + + + + + + + ZBGDEBUG + OPENDEBUG + M + 755 + 0001 + OpenDebug + D + E + X + X + + + ZBGDEBUG + WORKPROCESS + K + 755 + 0001 + Workprocess + D + ZSTBC_BG_DEBUGGER_AUX + WP_INDEX + E + + + + + ZBGDEBUG + *ROOT + 04 + X + + + + + ZBGDEBUG + P + OPENDEBUG + Abrir depuração + Abrir Depuração + + + ZBGDEBUG + P + WORKPROCESS + Workprocess + Workprocess + + + + + ZBGDEBUG + X + P + ZBGDEBUG + ZBGDEBUG + Display + * + 755 + 755 + 755 + 01 + 30 + + + + + ZBGDEBUG + P + ZBGDEBUG + Background debugger + + + + + diff --git a/src/zcl_bgd_debugger.clas.abap b/src/zcl_bgd_debugger.clas.abap new file mode 100644 index 0000000..dce91be --- /dev/null +++ b/src/zcl_bgd_debugger.clas.abap @@ -0,0 +1,146 @@ +class ZCL_BGD_DEBUGGER definition + public + final + create public . + +public section. + + class-methods DEBUG + importing + !DESCRIPTION type CLIKE optional + !NOTIFIER type SY-UNAME default SY-UNAME + !TIMEOUT type I default 300 . +protected section. +private section. +ENDCLASS. + + + +CLASS ZCL_BGD_DEBUGGER IMPLEMENTATION. + + + method DEBUG. + DATA: LT_CALLSTACK TYPE ABAP_CALLSTACK. + DATA: LS_CALLSTACK LIKE LINE OF LT_CALLSTACK. + DATA: LS_ZTBC_BGDEBUG_SP TYPE ZTBC_BGDEBUG_SP. + DATA: LN_LINE(6) TYPE N. + DATA: LC_WPINDEX(30) TYPE C. + DATA: LI_WPINDEX TYPE WPINFO-WP_INDEX. + DATA: LN_TIMESTAMP1(14) TYPE N, + LN_TIMESTAMP2(14) TYPE N. + DATA: LI_TIMESTAMP1 TYPE CCUPEAKA-TIMESTAMP, + LI_TIMESTAMP2 TYPE CCUPEAKA-TIMESTAMP. + DATA: LI_DIFFERENCE TYPE I. + DATA: LC_EXIT(1) TYPE C. + DATA: LS_TEXTINFO TYPE SOTXTINFO. + DATA: LS_PROCESS_PARAM TYPE SOPROCPAR. + DATA: LT_REC_TAB TYPE TABLE OF SOOS7, + LS_REC_TAB LIKE LINE OF LT_REC_TAB. + CALL FUNCTION 'SYSTEM_CALLSTACK' +* EXPORTING +* MAX_LEVEL = 0 + IMPORTING + CALLSTACK = LT_CALLSTACK +* ET_CALLSTACK = + . + + READ TABLE LT_CALLSTACK INTO LS_CALLSTACK INDEX 2. + LN_LINE = LS_CALLSTACK-LINE. +* CONDENSE LC_LINE NO-GAPS. + + + + DO. + IF SY-INDEX = 1. + GET TIME. + CONCATENATE SY-DATUM SY-UZEIT INTO LN_TIMESTAMP1. + LI_TIMESTAMP1 = LN_TIMESTAMP1. + + CALL FUNCTION 'TH_GET_OWN_WP_NO' + IMPORTING +* SUBRC = +* WP_NO = +* WP_PID = + WP_INDEX = LI_WPINDEX + . + + LC_WPINDEX = LI_WPINDEX. + CONDENSE LC_WPINDEX NO-GAPS. + + SELECT SINGLE * + INTO LS_ZTBC_BGDEBUG_SP + FROM ZTBC_BGDEBUG_SP + WHERE MAINPROGRAM = LS_CALLSTACK-MAINPROGRAM AND + INCLUDE = LS_CALLSTACK-INCLUDE AND + LINE = LN_LINE. + + IF LS_ZTBC_BGDEBUG_SP-ACTIVE IS INITIAL. + IF SY-SUBRC <> 0. + LS_ZTBC_BGDEBUG_SP-MANDT = SY-MANDT. + LS_ZTBC_BGDEBUG_SP-MAINPROGRAM = LS_CALLSTACK-MAINPROGRAM. + LS_ZTBC_BGDEBUG_SP-INCLUDE = LS_CALLSTACK-INCLUDE. + LS_ZTBC_BGDEBUG_SP-LINE = LN_LINE. + MODIFY ZTBC_BGDEBUG_SP FROM LS_ZTBC_BGDEBUG_SP. + ENDIF. + EXIT. + ELSE. + LS_TEXTINFO-MSGID = 'ZBC_BGD_DEBUGGER'. + LS_TEXTINFO-MSGNO = '001'. + LS_TEXTINFO-MSGV1 = LS_CALLSTACK-MAINPROGRAM. + LS_TEXTINFO-MSGV2 = LS_CALLSTACK-INCLUDE. + LS_TEXTINFO-MSGV3 = LN_LINE. + + + LS_PROCESS_PARAM-OBJTYPE = 'ZBGDEBUG'. + LS_PROCESS_PARAM-OBJKEY = LC_WPINDEX. + LS_PROCESS_PARAM-METHOD = 'OPENDEBUG'. + + LS_REC_TAB-RECNAM = NOTIFIER. + LS_REC_TAB-RECESC = 'B'. + APPEND LS_REC_TAB TO LT_REC_TAB. + + CALL FUNCTION 'SO_EXPRESS_FLAG_SET' + EXPORTING + CLIENT = SY-MANDT + TEXT_INFO = LS_TEXTINFO + PROCESS_PARAM = LS_PROCESS_PARAM +* PROCDIRECT = 'X' +* SINGLENTRY = ' ' +* INBOX = 'X' +* POPUP_TITLE = ' ' +* PERIOD_OF_VALIDITY = '00000000' +* CALL_AT_ONCE = 'X' +* IMPORTING +* SENT_TO_ALL = + TABLES + rec_tab = LT_REC_TAB + EXCEPTIONS + NO_RECEIVER_EXIST = 1 + OFFICE_NAME_ERROR = 2 + OTHERS = 3 + . + IF sy-subrc <> 0. +* Implement suitable error handling here + ENDIF. + + ENDIF. + ENDIF. + GET TIME. + CONCATENATE SY-DATUM SY-UZEIT INTO LN_TIMESTAMP2. + LI_TIMESTAMP2 = LN_TIMESTAMP2. + CALL FUNCTION 'CCU_TIMESTAMP_DIFFERENCE' + EXPORTING + timestamp1 = LI_TIMESTAMP2 + timestamp2 = LI_TIMESTAMP1 + IMPORTING + DIFFERENCE = LI_DIFFERENCE + . + + IF LI_DIFFERENCE > TIMEOUT OR LC_EXIT = 'X'. + EXIT. + ENDIF. + + ENDDO. + + endmethod. +ENDCLASS. diff --git a/src/zcl_bgd_debugger.clas.xml b/src/zcl_bgd_debugger.clas.xml new file mode 100644 index 0000000..e178fc2 --- /dev/null +++ b/src/zcl_bgd_debugger.clas.xml @@ -0,0 +1,24 @@ + + + + + + ZCL_BGD_DEBUGGER + P + Background Debugger + 1 + X + X + X + + + + DEBUG + NOTIFIER + P + Campo do sistema ABAP: nome do usuário atual + + + + + diff --git a/src/zde_wp_index.dtel.xml b/src/zde_wp_index.dtel.xml new file mode 100644 index 0000000..b30e362 --- /dev/null +++ b/src/zde_wp_index.dtel.xml @@ -0,0 +1,23 @@ + + + + + + ZDE_WP_INDEX + P + CHAR30 + 30 + 10 + 20 + 40 + WP Index in char mode + WP Index + WP Index + WP Index + WP Index + P + D + + + + diff --git a/src/ze_bgd_active.dtel.xml b/src/ze_bgd_active.dtel.xml new file mode 100644 index 0000000..4b4eea1 --- /dev/null +++ b/src/ze_bgd_active.dtel.xml @@ -0,0 +1,23 @@ + + + + + + ZE_BGD_ACTIVE + P + FLAG + 55 + 10 + 20 + 40 + Debug Ativo + Debug Ativo + Debug Atv + Debug Ativo + Debug Ativo + P + D + + + + diff --git a/src/ze_bgd_prg_line.dtel.xml b/src/ze_bgd_prg_line.dtel.xml new file mode 100644 index 0000000..c34e386 --- /dev/null +++ b/src/ze_bgd_prg_line.dtel.xml @@ -0,0 +1,23 @@ + + + + + + ZE_BGD_PRG_LINE + P + NUMC6 + 55 + 10 + 20 + 40 + Debugger program line + Debugger program line + DGB PrgLin + DBG program line + Debugger program line + P + D + + + + diff --git a/src/ze_dbg_is_waiting.dtel.xml b/src/ze_dbg_is_waiting.dtel.xml new file mode 100644 index 0000000..cb8fcb2 --- /dev/null +++ b/src/ze_dbg_is_waiting.dtel.xml @@ -0,0 +1,23 @@ + + + + + + ZE_DBG_IS_WAITING + P + FLAG + 55 + 10 + 20 + 40 + Debug is waiting + Debug Is Waiting + DbgWaiting + Debug Is Waiting + Debug Is Waiting + P + D + + + + diff --git a/src/zstbc_bg_debugger_aux.tabl.xml b/src/zstbc_bg_debugger_aux.tabl.xml new file mode 100644 index 0000000..c348e7e --- /dev/null +++ b/src/zstbc_bg_debugger_aux.tabl.xml @@ -0,0 +1,21 @@ + + + + + + ZSTBC_BG_DEBUGGER_AUX + P + INTTAB + Background Debbuger + + + + WP_INDEX + ZDE_WP_INDEX + 0 + E + + + + + diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.abap b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.abap new file mode 100644 index 0000000..722fe1a --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.abap @@ -0,0 +1,6 @@ +*---------------------------------------------------------------------* +* view related FORM routines +*---------------------------------------------------------------------* + +* base table related FORM-routines............. +INCLUDE LSVIMFTX . diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.xml b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.xml new file mode 100644 index 0000000..29e9e0f --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.xml @@ -0,0 +1,13 @@ + + + + + + LZTBC_BGDEBUG_SPF00 + X + I + P + + + + diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.abap b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.abap new file mode 100644 index 0000000..c265046 --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.abap @@ -0,0 +1,5 @@ +*---------------------------------------------------------------------* +* view related PAI modules +*---------------------------------------------------------------------* + +INCLUDE LSVIMITX . "base table related PAI modules diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.xml b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.xml new file mode 100644 index 0000000..2a3d1f2 --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.xml @@ -0,0 +1,13 @@ + + + + + + LZTBC_BGDEBUG_SPI00 + X + I + P + + + + diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.abap b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.abap new file mode 100644 index 0000000..63651e4 --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.abap @@ -0,0 +1,17 @@ +*---------------------------------------------------------------------* +* view related data declarations +*---------------------------------------------------------------------* +*...processing: ZTBC_BGDEBUG_SP.................................* +DATA: BEGIN OF STATUS_ZTBC_BGDEBUG_SP . "state vector + INCLUDE STRUCTURE VIMSTATUS. +DATA: END OF STATUS_ZTBC_BGDEBUG_SP . +CONTROLS: TCTRL_ZTBC_BGDEBUG_SP + TYPE TABLEVIEW USING SCREEN '0001'. +*.........table declarations:.................................* +TABLES: *ZTBC_BGDEBUG_SP . +TABLES: *ZTBC_BGDEBUG_SPT . +TABLES: ZTBC_BGDEBUG_SP . +TABLES: ZTBC_BGDEBUG_SPT . + +* general table data declarations.............. + INCLUDE LSVIMTDT . diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.xml b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.xml new file mode 100644 index 0000000..b31f18c --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.xml @@ -0,0 +1,12 @@ + + + + + + LZTBC_BGDEBUG_SPT00 + I + P + + + + diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.abap b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.abap new file mode 100644 index 0000000..32677bd --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.abap @@ -0,0 +1,5 @@ +FUNCTION-POOL ZTBC_BGDEBUG_SP MESSAGE-ID SV. + +* INCLUDE LZTBC_BGDEBUG_SPD... " Local class definition + INCLUDE LSVIMDAT . "general data decl. + INCLUDE LZTBC_BGDEBUG_SPT00 . "view rel. data dcl. diff --git a/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.xml b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.xml new file mode 100644 index 0000000..83a436b --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.xml @@ -0,0 +1,17 @@ + + + + + + LZTBC_BGDEBUG_SPTOP + S + D$ + I + S + X + D$S + X + + + + diff --git a/src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.abap b/src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.abap new file mode 100644 index 0000000..3afbf7d --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.abap @@ -0,0 +1,20 @@ +******************************************************************* +* System-defined Include-files. * +******************************************************************* + INCLUDE LZTBC_BGDEBUG_SPTOP. " Global Declarations + INCLUDE LZTBC_BGDEBUG_SPUXX. " Function Modules + +******************************************************************* +* User-defined Include-files (if necessary). * +******************************************************************* +* INCLUDE LZTBC_BGDEBUG_SPF... " Subroutines +* INCLUDE LZTBC_BGDEBUG_SPO... " PBO-Modules +* INCLUDE LZTBC_BGDEBUG_SPI... " PAI-Modules +* INCLUDE LZTBC_BGDEBUG_SPE... " Events +* INCLUDE LZTBC_BGDEBUG_SPP... " Local class implement. +* INCLUDE LZTBC_BGDEBUG_SPT99. " ABAP Unit tests + INCLUDE LZTBC_BGDEBUG_SPF00 . " subprograms + INCLUDE LZTBC_BGDEBUG_SPI00 . " PAI modules + INCLUDE LSVIMFXX . " subprograms + INCLUDE LSVIMOXX . " PBO modules + INCLUDE LSVIMIXX . " PAI modules diff --git a/src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.xml b/src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.xml new file mode 100644 index 0000000..93e6c27 --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.xml @@ -0,0 +1,19 @@ + + + + + + SAPLZTBC_BGDEBUG_SP + X + S + D$ + F + S + P + X + D$S + X + + + + diff --git a/src/ztbc_bgdebug_sp.fugr.tableframe_ztbc_bgdebug_sp.abap b/src/ztbc_bgdebug_sp.fugr.tableframe_ztbc_bgdebug_sp.abap new file mode 100644 index 0000000..10212e1 --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.tableframe_ztbc_bgdebug_sp.abap @@ -0,0 +1,10 @@ +*---------------------------------------------------------------------* +* program for: TABLEFRAME_ZTBC_BGDEBUG_SP +*---------------------------------------------------------------------* +FUNCTION TABLEFRAME_ZTBC_BGDEBUG_SP . + + PERFORM TABLEFRAME TABLES X_HEADER X_NAMTAB DBA_SELLIST DPL_SELLIST + EXCL_CUA_FUNCT + USING CORR_NUMBER VIEW_ACTION VIEW_NAME. + +ENDFUNCTION. diff --git a/src/ztbc_bgdebug_sp.fugr.tableproc_ztbc_bgdebug_sp.abap b/src/ztbc_bgdebug_sp.fugr.tableproc_ztbc_bgdebug_sp.abap new file mode 100644 index 0000000..c8c42c1 --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.tableproc_ztbc_bgdebug_sp.abap @@ -0,0 +1,8 @@ +*---------------------------------------------------------------------* +* program for: TABLEPROC_ZTBC_BGDEBUG_SP +*---------------------------------------------------------------------* +FUNCTION TABLEPROC_ZTBC_BGDEBUG_SP . + + PERFORM TABLEPROC. + +ENDFUNCTION. diff --git a/src/ztbc_bgdebug_sp.fugr.xml b/src/ztbc_bgdebug_sp.fugr.xml new file mode 100644 index 0000000..bd73890 --- /dev/null +++ b/src/ztbc_bgdebug_sp.fugr.xml @@ -0,0 +1,656 @@ + + + + + atualização ampliada de tabelas (gerada) + + LZTBC_BGDEBUG_SPF00 + LZTBC_BGDEBUG_SPI00 + LZTBC_BGDEBUG_SPT00 + LZTBC_BGDEBUG_SPTOP + SAPLZTBC_BGDEBUG_SP + + + + TABLEFRAME_ZTBC_BGDEBUG_SP + Atualização ampliada de tabelas nível superior + + + VIEW_ACTION + 'S' + + + VIEW_NAME + DD02V-TABNAME + + + CORR_NUMBER + E070-TRKORR + ' ' + + + + + DBA_SELLIST + VIMSELLIST + + + DPL_SELLIST + VIMSELLIST + + + EXCL_CUA_FUNCT + VIMEXCLFUN + + + X_HEADER + VIMDESC + + + X_NAMTAB + VIMNAMTAB + + + + + MISSING_CORR_NUMBER + + + + + VIEW_ACTION + P + Aktion mit Tabelle: anz./änd./transp. (S/U/T) + + + VIEW_NAME + P + Name der Tabelle + + + CORR_NUMBER + P + Korrekturnummer für durchgeführte Änderungen + + + DBA_SELLIST + P + Selektionsbedingungen für den DB-Zugriff + + + DPL_SELLIST + P + Selektionsbedingungen für die Anzeige + + + EXCL_CUA_FUNCT + P + Tabelle mit dynam. zu deaktivierenden CUA-Funkt. + + + X_HEADER + P + Kontrollblocktabelle für die Tabelle + + + X_NAMTAB + P + Kontrollblocktabelle für die Tabellen-Felder + + + MISSING_CORR_NUMBER + X + Korrekturnummer fehlt + + + + + TABLEPROC_ZTBC_BGDEBUG_SP + X + Atualização ampliada de tabelas nível inferior + + + FCODE + 'RDED' + + + VIEW_ACTION + 'S' + + + VIEW_NAME + DD02V-TABNAME + + + CORR_NUMBER + E070-TRKORR + ' ' + + + + + LAST_ACT_ENTRY + + + UCOMM + + + UPDATE_REQUIRED + + + + + CORR_KEYTAB + E071K + + + DBA_SELLIST + VIMSELLIST + + + DPL_SELLIST + VIMSELLIST + + + EXCL_CUA_FUNCT + VIMEXCLFUN + + + EXTRACT + + + TOTAL + + + X_HEADER + VIMDESC + + + X_NAMTAB + VIMNAMTAB + + + + + MISSING_CORR_NUMBER + + + SAVING_CORRECTION_FAILED + + + + + FCODE + P + gewünschte Funktion des Bausteins + + + VIEW_ACTION + P + Aktion mit Tabelle: anz./änd./transp. (S/U/T) + + + VIEW_NAME + P + Name der Tabelle + + + CORR_NUMBER + P + Korrekturnummer für durchgeführte Änderungen + + + LAST_ACT_ENTRY + P + Index der Cursorposition in der Anzeigetabelle + + + UCOMM + P + letztes User-command innerhalb der Viewpflege + + + UPDATE_REQUIRED + P + Flag: Einträge verändert, Sichern erforderlich + + + CORR_KEYTAB + P + Tabelle mit den Keys der zu transport. Einträge + + + DBA_SELLIST + P + Selektionsbedingungen für den DB-Zugriff + + + DPL_SELLIST + P + Selektionsbedingungen für die Anzeige + + + EXCL_CUA_FUNCT + P + Tab. der nicht zu aktivierenden CUA-Funktionen + + + EXTRACT + P + Tab. der gerade sichtbaren Daten (Anzeigetabelle + + + TOTAL + P + Tabelle, mit allen von der DB gelesenen Daten + + + X_HEADER + P + Kontrollblocktabelle für die Tabelle + + + X_NAMTAB + P + Kontrollblocktabelle für die Tabellen-Felder + + + MISSING_CORR_NUMBER + X + Korrekturnummer fehlt + + + SAVING_CORRECTION_FAILED + X + Fehler beim Sichern der Korrektureinträge + + + + + + +
+ SAPLZTBC_BGDEBUG_SP + 0001 + P + Atualização visão: síntese ZTBC_BGDEBUG_SP + N + 0001 + 061 + 255 +
+ + + SCREEN + SCREEN + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + SCREEN + 001 + 001 + 255 + 059 + X + X + X + X + ENTRY + X + X + X + X + X + MULTIPLE + NONE + X + 003 + + + + + SCREEN + SCREEN + PUSH_TMPL + VIM_POSI_PUSH + ____________________ + 061 + 019 + 020 + 020 + 001 + POSI + CHAR + X + N + + + SCREEN + SCREEN + TEMPLATE + VIM_POSITION_INFO + ______________________________ + 061 + 040 + 030 + 030 + 001 + CHAR + X + X + X + N + <_--32_DIMENS>X + + + SCREEN + SCREEN + OKCODE + OK_CODE + ____________________ + 020 + 020 + 001 + CHAR + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEMPLATE + VIM_FRAME_FIELD + ____________________________________________________________ + 001 + 060 + 060 + 001 + CHAR + X + X + N + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEXT + *ZTBC_BGDEBUG_SP-MAINPROGRAM + 001 + 001 + 040 + 040 + 001 + CHAR + X + V + N + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEXT + *ZTBC_BGDEBUG_SP-INCLUDE + 001 + 002 + 040 + 040 + 001 + CHAR + X + V + N + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEXT + *ZTBC_BGDEBUG_SP-LINE + 001 + 003 + 040 + 010 + 001 + CHAR + X + 1 + N + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEXT + *ZTBC_BGDEBUG_SPT-KTEXT + 001 + 004 + 040 + 040 + 001 + CHAR + X + V + N + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEXT + *ZTBC_BGDEBUG_SP-ACTIVE + 001 + 005 + 040 + 010 + 001 + CHAR + X + 1 + N + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + CHECK + VIM_MARKED + 001 + 001 + 001 + 001 + CHAR + X + X + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEMPLATE + ZTBC_BGDEBUG_SP-MAINPROGRAM + X + 001 + 001 + 040 + 020 + 001 + KEY + CHAR + X + X + N + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEMPLATE + ZTBC_BGDEBUG_SP-INCLUDE + X + 001 + 002 + 040 + 020 + 001 + KEY + CHAR + X + X + N + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEMPLATE + ZTBC_BGDEBUG_SP-LINE + ______ + 001 + 003 + 006 + 010 + 001 + KEY + NUMC + X + X + X + N + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + TEMPLATE + ZTBC_BGDEBUG_SPT-KTEXT + 001 + 004 + 040 + 040 + 001 + CHAR + X + X + X + X + + + TABLE_CTRL + TCTRL_ZTBC_BGDEBUG_SP + CHECK + ZTBC_BGDEBUG_SP-ACTIVE + 001 + 005 + 001 + 010 + 001 + CHAR + X + X + X + X + X + + + + + PROCESS BEFORE OUTPUT. + + + MODULE LISTE_INITIALISIEREN. + + + LOOP AT EXTRACT WITH CONTROL + + + TCTRL_ZTBC_BGDEBUG_SP CURSOR NEXTLINE. + + + MODULE LISTE_SHOW_LISTE. + + + ENDLOOP. + + + * + + + PROCESS AFTER INPUT. + + + MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND. + + + MODULE LISTE_BEFORE_LOOP. + + + LOOP AT EXTRACT. + + + MODULE LISTE_INIT_WORKAREA. + + + CHAIN. + + + FIELD ZTBC_BGDEBUG_SP-MAINPROGRAM . + + + FIELD ZTBC_BGDEBUG_SP-INCLUDE . + + + FIELD ZTBC_BGDEBUG_SP-LINE . + + + FIELD ZTBC_BGDEBUG_SP-ACTIVE . + + + MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST. + + + ENDCHAIN. + + + CHAIN. + + + FIELD ZTBC_BGDEBUG_SPT-KTEXT . + + + MODULE SET_TXT_UPDATE_FLAG ON CHAIN-REQUEST. + + + ENDCHAIN. + + + FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX. + + + CHAIN. + + + FIELD ZTBC_BGDEBUG_SP-MAINPROGRAM . + + + FIELD ZTBC_BGDEBUG_SP-INCLUDE . + + + FIELD ZTBC_BGDEBUG_SP-LINE . + + + MODULE LISTE_UPDATE_LISTE. + + + ENDCHAIN. + + + ENDLOOP. + + + MODULE LISTE_AFTER_LOOP. + + + + + + + diff --git a/src/ztbc_bgdebug_sp.tabl.xml b/src/ztbc_bgdebug_sp.tabl.xml new file mode 100644 index 0000000..c6510d4 --- /dev/null +++ b/src/ztbc_bgdebug_sp.tabl.xml @@ -0,0 +1,79 @@ + + + + + + ZTBC_BGDEBUG_SP + P + TRANSP + X + Pontos de endless points + X + A + + + ZTBC_BGDEBUG_SP + A + 0 + APPL0 + N + + + + MANDT + X + MANDT + 0 + X + E + + + MAINPROGRAM + X + SYREPID + 0 + X + E + + + INCLUDE + X + INCLUDE + 0 + X + E + + + LINE + X + ZE_BGD_PRG_LINE + 0 + X + E + + + ACTIVE + ZE_BGD_ACTIVE + 0 + X + F + E + + + DBG_IS_WAITING + ZE_DBG_IS_WAITING + 0 + X + F + E + + + + + ZTBC_BGDEBUG_SP + &NC& + + + + + diff --git a/src/ztbc_bgdebug_sps.tobj.xml b/src/ztbc_bgdebug_sps.tobj.xml new file mode 100644 index 0000000..36b3db2 --- /dev/null +++ b/src/ztbc_bgdebug_sps.tobj.xml @@ -0,0 +1,50 @@ + + + + + + ZTBC_BGDEBUG_SP + S + X + X + APPL + 2 + 3 + + + P + ZTBC_BGDEBUG_SP + S + Pontos de endless points + + + + ZTBC_BGDEBUG_SP + S + ZTBC_BGDEBUG_SP + X + X + + + ZTBC_BGDEBUG_SP + S + ZTBC_BGDEBUG_SPT + X + + + + + ZTBC_BGDEBUG_SP + &NC& + + + ZTBC_BGDEBUG_SP + ZTBC_BGDEBUG_SP + 1 + 0001 + X + + + + + diff --git a/src/ztbc_bgdebug_spt.tabl.xml b/src/ztbc_bgdebug_spt.tabl.xml new file mode 100644 index 0000000..802a65e --- /dev/null +++ b/src/ztbc_bgdebug_spt.tabl.xml @@ -0,0 +1,126 @@ + + + + + + ZTBC_BGDEBUG_SPT + P + TRANSP + X + Pontos de endless points (Tabela de textos) + X + A + + + ZTBC_BGDEBUG_SPT + A + 0 + APPL0 + X + N + + + + MANDT + X + MANDT + 0 + X + E + + + MAINPROGRAM + X + SYREPID + ZTBC_BGDEBUG_SP + 0 + X + P + E + + + INCLUDE + X + INCLUDE + 0 + X + E + + + LINE + X + ZE_BGD_PRG_LINE + 0 + X + E + + + SPRAS + X + LANGU + 0 + X + E + X + + + KTEXT + AUFTEXT + 0 + E + + + + + MAINPROGRAM + ZTBC_BGDEBUG_SPT + MANDT + ZTBC_BGDEBUG_SP + MANDT + 0001 + MANDT + CLNT + + + MAINPROGRAM + ZTBC_BGDEBUG_SPT + MAINPROGRAM + ZTBC_BGDEBUG_SP + MAINPROGRAM + 0002 + PROGRAMM + CHAR + + + MAINPROGRAM + ZTBC_BGDEBUG_SPT + INCLUDE + ZTBC_BGDEBUG_SP + INCLUDE + 0003 + PROGNAME + CHAR + + + MAINPROGRAM + ZTBC_BGDEBUG_SPT + LINE + ZTBC_BGDEBUG_SP + LINE + 0004 + NUMC6 + NUMC + + + + + MAINPROGRAM + ZTBC_BGDEBUG_SP + TEXT + CN + 1 + + + + +