Sabinvs
/
ABAP-ZBACKGROUND_DEBUGGER
mirror of https://github.com/asabino2/ABAP-ZBACKGROUND_DEBUGGER.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add files via upload

This commit is contained in:
Alexander Sabino 2025-01-23 16:31:00 +00:00 committed by GitHub
parent 225306747c
commit a8240439fa
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
29 changed files with 1571 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
.abapgit.xml Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DATA>
<MASTER_LANGUAGE>P</MASTER_LANGUAGE>
<STARTING_FOLDER>/src/</STARTING_FOLDER>
<FOLDER_LOGIC>PREFIX</FOLDER_LOGIC>
</DATA>
</asx:values>
</asx:abap>

10
src/package.devc.xml Normal file
View File

@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DEVC" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DEVC>
<CTEXT>Background Debugger</CTEXT>
</DEVC>
</asx:values>
</asx:abap>
</abapGit>

26
src/zbc_bgd_debugger.msag.xml Normal file
View File

@ -0,0 +1,26 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_MSAG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<T100A>
<ARBGB>ZBC_BGD_DEBUGGER</ARBGB>
<MASTERLANG>P</MASTERLANG>
<STEXT>Background debugger</STEXT>
</T100A>
<T100>
<T100>
<SPRSL>P</SPRSL>
<ARBGB>ZBC_BGD_DEBUGGER</ARBGB>
<MSGNR>000</MSGNR>
<TEXT>&amp; &amp; &amp; &amp;</TEXT>
</T100>
<T100>
<SPRSL>P</SPRSL>
<ARBGB>ZBC_BGD_DEBUGGER</ARBGB>
<MSGNR>001</MSGNR>
<TEXT>Debugger do programa &amp;, include &amp; e linha &amp; está pronto para ser efetuado</TEXT>
</T100>
</T100>
</asx:values>
</asx:abap>
</abapGit>

83
src/zbgdebug.prog.abap Normal file
View File

@ -0,0 +1,83 @@
***** Implementation of object type ZBGDEBUG *****
INCLUDE <OBJECT>.
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.

22
src/zbgdebug.prog.xml Normal file
View File

@ -0,0 +1,22 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZBGDEBUG</NAME>
<CLAS>SWOP</CLAS>
<SUBC>S</SUBC>
<APPL>*</APPL>
<FIXPT>X</FIXPT>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Programa p/ctg.objeto ZBGDEBUG : Background debugger</ENTRY>
<LENGTH>52</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

81
src/zbgdebug.sobj.xml Normal file
View File

@ -0,0 +1,81 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_SOBJ" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<SWOTDV>
<SWOTDV>
<OBJTYPE>ZBGDEBUG</OBJTYPE>
<VERB>OPENDEBUG</VERB>
<VERBTYPE>M</VERBTYPE>
<CREA_REL>755</CREA_REL>
<EDITORDER>0001</EDITORDER>
<EDITELEM>OpenDebug</EDITELEM>
<REFTYPE>D</REFTYPE>
<ELEMTYPE>E</ELEMTYPE>
<DIALOG>X</DIALOG>
<SYNCHRON>X</SYNCHRON>
</SWOTDV>
<SWOTDV>
<OBJTYPE>ZBGDEBUG</OBJTYPE>
<VERB>WORKPROCESS</VERB>
<VERBTYPE>K</VERBTYPE>
<CREA_REL>755</CREA_REL>
<EDITORDER>0001</EDITORDER>
<EDITELEM>Workprocess</EDITELEM>
<REFTYPE>D</REFTYPE>
<REFSTRUCT>ZSTBC_BG_DEBUGGER_AUX</REFSTRUCT>
<REFFIELD>WP_INDEX</REFFIELD>
<ELEMTYPE>E</ELEMTYPE>
</SWOTDV>
</SWOTDV>
<SWOTOL>
<SWOTOL>
<OBJTYPE>ZBGDEBUG</OBJTYPE>
<AREA>*ROOT</AREA>
<AREACLASS>04</AREACLASS>
<MAINENTRY>X</MAINENTRY>
</SWOTOL>
</SWOTOL>
<SWOTTV>
<SWOTTV>
<OBJTYPE>ZBGDEBUG</OBJTYPE>
<LANGUAGE>P</LANGUAGE>
<VERB>OPENDEBUG</VERB>
<DESCRIPT>Abrir depuração</DESCRIPT>
<SHORTTEXT>Abrir Depuração</SHORTTEXT>
</SWOTTV>
<SWOTTV>
<OBJTYPE>ZBGDEBUG</OBJTYPE>
<LANGUAGE>P</LANGUAGE>
<VERB>WORKPROCESS</VERB>
<DESCRIPT>Workprocess</DESCRIPT>
<SHORTTEXT>Workprocess</SHORTTEXT>
</SWOTTV>
</SWOTTV>
<TOJTB>
<TOJTB>
<NAME>ZBGDEBUG</NAME>
<ACTIVE>X</ACTIVE>
<ACTIVELANG>P</ACTIVELANG>
<PROGNAME>ZBGDEBUG</PROGNAME>
<EDITELEM>ZBGDEBUG</EDITELEM>
<EPRIMETHOD>Display</EPRIMETHOD>
<APPLIC>*</APPLIC>
<CREA_REL>755</CREA_REL>
<CHAN_REL>755</CHAN_REL>
<VERSION>755</VERSION>
<OBJTYPECLS>01</OBJTYPECLS>
<KEYLENGTH>30</KEYLENGTH>
</TOJTB>
</TOJTB>
<TOJTT>
<TOJTT>
<NAME>ZBGDEBUG</NAME>
<LANGUAGE>P</LANGUAGE>
<NTEXT>ZBGDEBUG</NTEXT>
<STEXT>Background debugger</STEXT>
</TOJTT>
</TOJTT>
</asx:values>
</asx:abap>
</abapGit>

146
src/zcl_bgd_debugger.clas.abap Normal file
View File

@ -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.

24
src/zcl_bgd_debugger.clas.xml Normal file
View File

@ -0,0 +1,24 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_BGD_DEBUGGER</CLSNAME>
<LANGU>P</LANGU>
<DESCRIPT>Background Debugger</DESCRIPT>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
<DESCRIPTIONS_SUB>
<SEOSUBCOTX>
<CMPNAME>DEBUG</CMPNAME>
<SCONAME>NOTIFIER</SCONAME>
<LANGU>P</LANGU>
<DESCRIPT>Campo do sistema ABAP: nome do usuário atual</DESCRIPT>
</SEOSUBCOTX>
</DESCRIPTIONS_SUB>
</asx:values>
</asx:abap>
</abapGit>

23
src/zde_wp_index.dtel.xml Normal file
View File

@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>ZDE_WP_INDEX</ROLLNAME>
<DDLANGUAGE>P</DDLANGUAGE>
<DOMNAME>CHAR30</DOMNAME>
<HEADLEN>30</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>20</SCRLEN2>
<SCRLEN3>40</SCRLEN3>
<DDTEXT>WP Index in char mode</DDTEXT>
<REPTEXT>WP Index</REPTEXT>
<SCRTEXT_S>WP Index</SCRTEXT_S>
<SCRTEXT_M>WP Index</SCRTEXT_M>
<SCRTEXT_L>WP Index</SCRTEXT_L>
<DTELMASTER>P</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

23
src/ze_bgd_active.dtel.xml Normal file
View File

@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>ZE_BGD_ACTIVE</ROLLNAME>
<DDLANGUAGE>P</DDLANGUAGE>
<DOMNAME>FLAG</DOMNAME>
<HEADLEN>55</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>20</SCRLEN2>
<SCRLEN3>40</SCRLEN3>
<DDTEXT>Debug Ativo</DDTEXT>
<REPTEXT>Debug Ativo</REPTEXT>
<SCRTEXT_S>Debug Atv</SCRTEXT_S>
<SCRTEXT_M>Debug Ativo</SCRTEXT_M>
<SCRTEXT_L>Debug Ativo</SCRTEXT_L>
<DTELMASTER>P</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

23
src/ze_bgd_prg_line.dtel.xml Normal file
View File

@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>ZE_BGD_PRG_LINE</ROLLNAME>
<DDLANGUAGE>P</DDLANGUAGE>
<DOMNAME>NUMC6</DOMNAME>
<HEADLEN>55</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>20</SCRLEN2>
<SCRLEN3>40</SCRLEN3>
<DDTEXT>Debugger program line</DDTEXT>
<REPTEXT>Debugger program line</REPTEXT>
<SCRTEXT_S>DGB PrgLin</SCRTEXT_S>
<SCRTEXT_M>DBG program line</SCRTEXT_M>
<SCRTEXT_L>Debugger program line</SCRTEXT_L>
<DTELMASTER>P</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

23
src/ze_dbg_is_waiting.dtel.xml Normal file
View File

@ -0,0 +1,23 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_DTEL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD04V>
<ROLLNAME>ZE_DBG_IS_WAITING</ROLLNAME>
<DDLANGUAGE>P</DDLANGUAGE>
<DOMNAME>FLAG</DOMNAME>
<HEADLEN>55</HEADLEN>
<SCRLEN1>10</SCRLEN1>
<SCRLEN2>20</SCRLEN2>
<SCRLEN3>40</SCRLEN3>
<DDTEXT>Debug is waiting</DDTEXT>
<REPTEXT>Debug Is Waiting</REPTEXT>
<SCRTEXT_S>DbgWaiting</SCRTEXT_S>
<SCRTEXT_M>Debug Is Waiting</SCRTEXT_M>
<SCRTEXT_L>Debug Is Waiting</SCRTEXT_L>
<DTELMASTER>P</DTELMASTER>
<REFKIND>D</REFKIND>
</DD04V>
</asx:values>
</asx:abap>
</abapGit>

21
src/zstbc_bg_debugger_aux.tabl.xml Normal file
View File

@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZSTBC_BG_DEBUGGER_AUX</TABNAME>
<DDLANGUAGE>P</DDLANGUAGE>
<TABCLASS>INTTAB</TABCLASS>
<DDTEXT>Background Debbuger</DDTEXT>
</DD02V>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>WP_INDEX</FIELDNAME>
<ROLLNAME>ZDE_WP_INDEX</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
</asx:values>
</asx:abap>
</abapGit>

6
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.abap Normal file
View File

@ -0,0 +1,6 @@
*---------------------------------------------------------------------*
* view related FORM routines
*---------------------------------------------------------------------*
* base table related FORM-routines.............
INCLUDE LSVIMFTX .

13
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spf00.xml Normal file
View File

@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZTBC_BGDEBUG_SPF00</NAME>
<SQLX>X</SQLX>
<SUBC>I</SUBC>
<RLOAD>P</RLOAD>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

5
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.abap Normal file
View File

@ -0,0 +1,5 @@
*---------------------------------------------------------------------*
* view related PAI modules
*---------------------------------------------------------------------*
INCLUDE LSVIMITX . "base table related PAI modules

13
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spi00.xml Normal file
View File

@ -0,0 +1,13 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZTBC_BGDEBUG_SPI00</NAME>
<SQLX>X</SQLX>
<SUBC>I</SUBC>
<RLOAD>P</RLOAD>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

17
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.abap Normal file
View File

@ -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 .

12
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_spt00.xml Normal file
View File

@ -0,0 +1,12 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZTBC_BGDEBUG_SPT00</NAME>
<SUBC>I</SUBC>
<RLOAD>P</RLOAD>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

5
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.abap Normal file
View File

@ -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.

17
src/ztbc_bgdebug_sp.fugr.lztbc_bgdebug_sptop.xml Normal file
View File

@ -0,0 +1,17 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>LZTBC_BGDEBUG_SPTOP</NAME>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>I</SUBC>
<APPL>S</APPL>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

20
src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.abap Normal file
View File

@ -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

19
src/ztbc_bgdebug_sp.fugr.saplztbc_bgdebug_sp.xml Normal file
View File

@ -0,0 +1,19 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>SAPLZTBC_BGDEBUG_SP</NAME>
<SQLX>X</SQLX>
<DBAPL>S</DBAPL>
<DBNA>D$</DBNA>
<SUBC>F</SUBC>
<APPL>S</APPL>
<RLOAD>P</RLOAD>
<FIXPT>X</FIXPT>
<LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK>
</PROGDIR>
</asx:values>
</asx:abap>
</abapGit>

10
src/ztbc_bgdebug_sp.fugr.tableframe_ztbc_bgdebug_sp.abap Normal file
View File

@ -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.

8
src/ztbc_bgdebug_sp.fugr.tableproc_ztbc_bgdebug_sp.abap Normal file
View File

@ -0,0 +1,8 @@
*---------------------------------------------------------------------*
* program for: TABLEPROC_ZTBC_BGDEBUG_SP
*---------------------------------------------------------------------*
FUNCTION TABLEPROC_ZTBC_BGDEBUG_SP .
PERFORM TABLEPROC.
ENDFUNCTION.

656
src/ztbc_bgdebug_sp.fugr.xml Normal file
View File

@ -0,0 +1,656 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_FUGR" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<AREAT>atualização ampliada de tabelas (gerada)</AREAT>
<INCLUDES>
<SOBJ_NAME>LZTBC_BGDEBUG_SPF00</SOBJ_NAME>
<SOBJ_NAME>LZTBC_BGDEBUG_SPI00</SOBJ_NAME>
<SOBJ_NAME>LZTBC_BGDEBUG_SPT00</SOBJ_NAME>
<SOBJ_NAME>LZTBC_BGDEBUG_SPTOP</SOBJ_NAME>
<SOBJ_NAME>SAPLZTBC_BGDEBUG_SP</SOBJ_NAME>
</INCLUDES>
<FUNCTIONS>
<item>
<FUNCNAME>TABLEFRAME_ZTBC_BGDEBUG_SP</FUNCNAME>
<SHORT_TEXT>Atualização ampliada de tabelas nível superior</SHORT_TEXT>
<IMPORT>
<RSIMP>
<PARAMETER>VIEW_ACTION</PARAMETER>
<DEFAULT>&apos;S&apos;</DEFAULT>
</RSIMP>
<RSIMP>
<PARAMETER>VIEW_NAME</PARAMETER>
<DBFIELD>DD02V-TABNAME</DBFIELD>
</RSIMP>
<RSIMP>
<PARAMETER>CORR_NUMBER</PARAMETER>
<DBFIELD>E070-TRKORR</DBFIELD>
<DEFAULT>&apos; &apos;</DEFAULT>
</RSIMP>
</IMPORT>
<TABLES>
<RSTBL>
<PARAMETER>DBA_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>DPL_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<DBSTRUCT>VIMEXCLFUN</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>X_HEADER</PARAMETER>
<DBSTRUCT>VIMDESC</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>X_NAMTAB</PARAMETER>
<DBSTRUCT>VIMNAMTAB</DBSTRUCT>
</RSTBL>
</TABLES>
<EXCEPTION>
<RSEXC>
<EXCEPTION>MISSING_CORR_NUMBER</EXCEPTION>
</RSEXC>
</EXCEPTION>
<DOCUMENTATION>
<RSFDO>
<PARAMETER>VIEW_ACTION</PARAMETER>
<KIND>P</KIND>
<STEXT>Aktion mit Tabelle: anz./änd./transp. (S/U/T)</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>VIEW_NAME</PARAMETER>
<KIND>P</KIND>
<STEXT>Name der Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>CORR_NUMBER</PARAMETER>
<KIND>P</KIND>
<STEXT>Korrekturnummer für durchgeführte Änderungen</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DBA_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für den DB-Zugriff</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DPL_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für die Anzeige</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<KIND>P</KIND>
<STEXT>Tabelle mit dynam. zu deaktivierenden CUA-Funkt.</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_HEADER</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_NAMTAB</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabellen-Felder</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>MISSING_CORR_NUMBER</PARAMETER>
<KIND>X</KIND>
<STEXT>Korrekturnummer fehlt</STEXT>
</RSFDO>
</DOCUMENTATION>
</item>
<item>
<FUNCNAME>TABLEPROC_ZTBC_BGDEBUG_SP</FUNCNAME>
<GLOBAL_FLAG>X</GLOBAL_FLAG>
<SHORT_TEXT>Atualização ampliada de tabelas nível inferior</SHORT_TEXT>
<IMPORT>
<RSIMP>
<PARAMETER>FCODE</PARAMETER>
<DEFAULT>&apos;RDED&apos;</DEFAULT>
</RSIMP>
<RSIMP>
<PARAMETER>VIEW_ACTION</PARAMETER>
<DEFAULT>&apos;S&apos;</DEFAULT>
</RSIMP>
<RSIMP>
<PARAMETER>VIEW_NAME</PARAMETER>
<DBFIELD>DD02V-TABNAME</DBFIELD>
</RSIMP>
<RSIMP>
<PARAMETER>CORR_NUMBER</PARAMETER>
<DBFIELD>E070-TRKORR</DBFIELD>
<DEFAULT>&apos; &apos;</DEFAULT>
</RSIMP>
</IMPORT>
<EXPORT>
<RSEXP>
<PARAMETER>LAST_ACT_ENTRY</PARAMETER>
</RSEXP>
<RSEXP>
<PARAMETER>UCOMM</PARAMETER>
</RSEXP>
<RSEXP>
<PARAMETER>UPDATE_REQUIRED</PARAMETER>
</RSEXP>
</EXPORT>
<TABLES>
<RSTBL>
<PARAMETER>CORR_KEYTAB</PARAMETER>
<DBSTRUCT>E071K</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>DBA_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>DPL_SELLIST</PARAMETER>
<DBSTRUCT>VIMSELLIST</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<DBSTRUCT>VIMEXCLFUN</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>EXTRACT</PARAMETER>
</RSTBL>
<RSTBL>
<PARAMETER>TOTAL</PARAMETER>
</RSTBL>
<RSTBL>
<PARAMETER>X_HEADER</PARAMETER>
<DBSTRUCT>VIMDESC</DBSTRUCT>
</RSTBL>
<RSTBL>
<PARAMETER>X_NAMTAB</PARAMETER>
<DBSTRUCT>VIMNAMTAB</DBSTRUCT>
</RSTBL>
</TABLES>
<EXCEPTION>
<RSEXC>
<EXCEPTION>MISSING_CORR_NUMBER</EXCEPTION>
</RSEXC>
<RSEXC>
<EXCEPTION>SAVING_CORRECTION_FAILED</EXCEPTION>
</RSEXC>
</EXCEPTION>
<DOCUMENTATION>
<RSFDO>
<PARAMETER>FCODE</PARAMETER>
<KIND>P</KIND>
<STEXT>gewünschte Funktion des Bausteins</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>VIEW_ACTION</PARAMETER>
<KIND>P</KIND>
<STEXT>Aktion mit Tabelle: anz./änd./transp. (S/U/T)</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>VIEW_NAME</PARAMETER>
<KIND>P</KIND>
<STEXT>Name der Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>CORR_NUMBER</PARAMETER>
<KIND>P</KIND>
<STEXT>Korrekturnummer für durchgeführte Änderungen</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>LAST_ACT_ENTRY</PARAMETER>
<KIND>P</KIND>
<STEXT>Index der Cursorposition in der Anzeigetabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>UCOMM</PARAMETER>
<KIND>P</KIND>
<STEXT>letztes User-command innerhalb der Viewpflege</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>UPDATE_REQUIRED</PARAMETER>
<KIND>P</KIND>
<STEXT>Flag: Einträge verändert, Sichern erforderlich</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>CORR_KEYTAB</PARAMETER>
<KIND>P</KIND>
<STEXT>Tabelle mit den Keys der zu transport. Einträge</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DBA_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für den DB-Zugriff</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>DPL_SELLIST</PARAMETER>
<KIND>P</KIND>
<STEXT>Selektionsbedingungen für die Anzeige</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>EXCL_CUA_FUNCT</PARAMETER>
<KIND>P</KIND>
<STEXT>Tab. der nicht zu aktivierenden CUA-Funktionen</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>EXTRACT</PARAMETER>
<KIND>P</KIND>
<STEXT>Tab. der gerade sichtbaren Daten (Anzeigetabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>TOTAL</PARAMETER>
<KIND>P</KIND>
<STEXT>Tabelle, mit allen von der DB gelesenen Daten</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_HEADER</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabelle</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>X_NAMTAB</PARAMETER>
<KIND>P</KIND>
<STEXT>Kontrollblocktabelle für die Tabellen-Felder</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>MISSING_CORR_NUMBER</PARAMETER>
<KIND>X</KIND>
<STEXT>Korrekturnummer fehlt</STEXT>
</RSFDO>
<RSFDO>
<PARAMETER>SAVING_CORRECTION_FAILED</PARAMETER>
<KIND>X</KIND>
<STEXT>Fehler beim Sichern der Korrektureinträge</STEXT>
</RSFDO>
</DOCUMENTATION>
</item>
</FUNCTIONS>
<DYNPROS>
<item>
<HEADER>
<PROGRAM>SAPLZTBC_BGDEBUG_SP</PROGRAM>
<SCREEN>0001</SCREEN>
<LANGUAGE>P</LANGUAGE>
<DESCRIPT>Atualização visão: síntese ZTBC_BGDEBUG_SP</DESCRIPT>
<TYPE>N</TYPE>
<NEXTSCREEN>0001</NEXTSCREEN>
<LINES>061</LINES>
<COLUMNS>255</COLUMNS>
</HEADER>
<CONTAINERS>
<RPY_DYCATT>
<TYPE>SCREEN</TYPE>
<NAME>SCREEN</NAME>
</RPY_DYCATT>
<RPY_DYCATT>
<TYPE>TABLE_CTRL</TYPE>
<NAME>TCTRL_ZTBC_BGDEBUG_SP</NAME>
<ELEMENT_OF>SCREEN</ELEMENT_OF>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>255</LENGTH>
<HEIGHT>059</HEIGHT>
<C_RESIZE_V>X</C_RESIZE_V>
<C_RESIZE_H>X</C_RESIZE_H>
<C_SCROLL_V>X</C_SCROLL_V>
<C_SCROLL_H>X</C_SCROLL_H>
<TC_TABTYPE>ENTRY</TC_TABTYPE>
<TC_SEPAR_V>X</TC_SEPAR_V>
<TC_SEPAR_H>X</TC_SEPAR_H>
<TC_TITLE>X</TC_TITLE>
<TC_HEADER>X</TC_HEADER>
<TC_CONFIG>X</TC_CONFIG>
<TC_SEL_LNS>MULTIPLE</TC_SEL_LNS>
<TC_SEL_CLS>NONE</TC_SEL_CLS>
<TC_LSEL_CL>X</TC_LSEL_CL>
<TC_FIXCOL>003</TC_FIXCOL>
</RPY_DYCATT>
</CONTAINERS>
<FIELDS>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>PUSH_TMPL</TYPE>
<NAME>VIM_POSI_PUSH</NAME>
<TEXT>____________________</TEXT>
<LINE>061</LINE>
<COLUMN>019</COLUMN>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<PUSH_FCODE>POSI</PUSH_FCODE>
<FORMAT>CHAR</FORMAT>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>VIM_POSITION_INFO</NAME>
<TEXT>______________________________</TEXT>
<LINE>061</LINE>
<COLUMN>040</COLUMN>
<LENGTH>030</LENGTH>
<VISLENGTH>030</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<UP_LOWER>X</UP_LOWER>
<OUTPUT_FLD>X</OUTPUT_FLD>
<OUTPUTONLY>X</OUTPUTONLY>
<REQU_ENTRY>N</REQU_ENTRY>
<_--32_DIMENS>X</_--32_DIMENS>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>SCREEN</CONT_TYPE>
<CONT_NAME>SCREEN</CONT_NAME>
<TYPE>OKCODE</TYPE>
<NAME>OK_CODE</NAME>
<TEXT>____________________</TEXT>
<LENGTH>020</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>VIM_FRAME_FIELD</NAME>
<TEXT>____________________________________________________________</TEXT>
<LINE>001</LINE>
<LENGTH>060</LENGTH>
<VISLENGTH>060</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<UP_LOWER>X</UP_LOWER>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_TITLE>X</TC_TITLE>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>*ZTBC_BGDEBUG_SP-MAINPROGRAM</NAME>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>040</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>V</MODIFIC>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_HEADING>X</TC_HEADING>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>*ZTBC_BGDEBUG_SP-INCLUDE</NAME>
<LINE>001</LINE>
<COLUMN>002</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>040</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>V</MODIFIC>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_HEADING>X</TC_HEADING>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>*ZTBC_BGDEBUG_SP-LINE</NAME>
<LINE>001</LINE>
<COLUMN>003</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>010</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>1</MODIFIC>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_HEADING>X</TC_HEADING>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>*ZTBC_BGDEBUG_SPT-KTEXT</NAME>
<LINE>001</LINE>
<COLUMN>004</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>040</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>V</MODIFIC>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_HEADING>X</TC_HEADING>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEXT</TYPE>
<NAME>*ZTBC_BGDEBUG_SP-ACTIVE</NAME>
<LINE>001</LINE>
<COLUMN>005</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>010</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>1</MODIFIC>
<REQU_ENTRY>N</REQU_ENTRY>
<TC_HEADING>X</TC_HEADING>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>CHECK</TYPE>
<NAME>VIM_MARKED</NAME>
<LINE>001</LINE>
<LENGTH>001</LENGTH>
<VISLENGTH>001</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<INPUT_FLD>X</INPUT_FLD>
<OUTPUT_FLD>X</OUTPUT_FLD>
<TC_SELCOL>X</TC_SELCOL>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>ZTBC_BGDEBUG_SP-MAINPROGRAM</NAME>
<ROLLING>X</ROLLING>
<LINE>001</LINE>
<COLUMN>001</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<GROUP1>KEY</GROUP1>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>ZTBC_BGDEBUG_SP-INCLUDE</NAME>
<ROLLING>X</ROLLING>
<LINE>001</LINE>
<COLUMN>002</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>020</VISLENGTH>
<HEIGHT>001</HEIGHT>
<GROUP1>KEY</GROUP1>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>ZTBC_BGDEBUG_SP-LINE</NAME>
<TEXT>______</TEXT>
<LINE>001</LINE>
<COLUMN>003</COLUMN>
<LENGTH>006</LENGTH>
<VISLENGTH>010</VISLENGTH>
<HEIGHT>001</HEIGHT>
<GROUP1>KEY</GROUP1>
<FORMAT>NUMC</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>X</MODIFIC>
<OUTPUT_FLD>X</OUTPUT_FLD>
<REQU_ENTRY>N</REQU_ENTRY>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>TEMPLATE</TYPE>
<NAME>ZTBC_BGDEBUG_SPT-KTEXT</NAME>
<LINE>001</LINE>
<COLUMN>004</COLUMN>
<LENGTH>040</LENGTH>
<VISLENGTH>040</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<UP_LOWER>X</UP_LOWER>
<INPUT_FLD>X</INPUT_FLD>
<OUTPUT_FLD>X</OUTPUT_FLD>
</RPY_DYFATC>
<RPY_DYFATC>
<CONT_TYPE>TABLE_CTRL</CONT_TYPE>
<CONT_NAME>TCTRL_ZTBC_BGDEBUG_SP</CONT_NAME>
<TYPE>CHECK</TYPE>
<NAME>ZTBC_BGDEBUG_SP-ACTIVE</NAME>
<LINE>001</LINE>
<COLUMN>005</COLUMN>
<LENGTH>001</LENGTH>
<VISLENGTH>010</VISLENGTH>
<HEIGHT>001</HEIGHT>
<FORMAT>CHAR</FORMAT>
<FROM_DICT>X</FROM_DICT>
<MODIFIC>X</MODIFIC>
<INPUT_FLD>X</INPUT_FLD>
<OUTPUT_FLD>X</OUTPUT_FLD>
<DICT_I_VAL>X</DICT_I_VAL>
</RPY_DYFATC>
</FIELDS>
<FLOW_LOGIC>
<RPY_DYFLOW>
<LINE>PROCESS BEFORE OUTPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_INITIALISIEREN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> LOOP AT EXTRACT WITH CONTROL</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> TCTRL_ZTBC_BGDEBUG_SP CURSOR NEXTLINE.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_SHOW_LISTE.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDLOOP.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>*</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE>PROCESS AFTER INPUT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_EXIT_COMMAND AT EXIT-COMMAND.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_BEFORE_LOOP.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> LOOP AT EXTRACT.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_INIT_WORKAREA.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> CHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SP-MAINPROGRAM .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SP-INCLUDE .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SP-LINE .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SP-ACTIVE .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE SET_UPDATE_FLAG ON CHAIN-REQUEST.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDCHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> CHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SPT-KTEXT .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE SET_TXT_UPDATE_FLAG ON CHAIN-REQUEST.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDCHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD VIM_MARKED MODULE LISTE_MARK_CHECKBOX.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> CHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SP-MAINPROGRAM .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SP-INCLUDE .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> FIELD ZTBC_BGDEBUG_SP-LINE .</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_UPDATE_LISTE.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDCHAIN.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> ENDLOOP.</LINE>
</RPY_DYFLOW>
<RPY_DYFLOW>
<LINE> MODULE LISTE_AFTER_LOOP.</LINE>
</RPY_DYFLOW>
</FLOW_LOGIC>
</item>
</DYNPROS>
</asx:values>
</asx:abap>
</abapGit>

79
src/ztbc_bgdebug_sp.tabl.xml Normal file
View File

@ -0,0 +1,79 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZTBC_BGDEBUG_SP</TABNAME>
<DDLANGUAGE>P</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>Pontos de endless points</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
</DD02V>
<DD09L>
<TABNAME>ZTBC_BGDEBUG_SP</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>APPL0</TABART>
<BUFALLOW>N</BUFALLOW>
</DD09L>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>MANDT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MANDT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MAINPROGRAM</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SYREPID</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>INCLUDE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>INCLUDE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>LINE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZE_BGD_PRG_LINE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>ACTIVE</FIELDNAME>
<ROLLNAME>ZE_BGD_ACTIVE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>DBG_IS_WAITING</FIELDNAME>
<ROLLNAME>ZE_DBG_IS_WAITING</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<VALEXI>X</VALEXI>
<SHLPORIGIN>F</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<TABL_EXTRAS>
<TDDAT>
<TABNAME>ZTBC_BGDEBUG_SP</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
</TABL_EXTRAS>
</asx:values>
</asx:abap>
</abapGit>

50
src/ztbc_bgdebug_sps.tobj.xml Normal file
View File

@ -0,0 +1,50 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TOBJ" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<OBJH>
<OBJECTNAME>ZTBC_BGDEBUG_SP</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<CLIDEP>X</CLIDEP>
<LANGDEP>X</LANGDEP>
<OBJCATEG>APPL</OBJCATEG>
<OBJTRANSP>2</OBJTRANSP>
<IMPORTABLE>3</IMPORTABLE>
</OBJH>
<OBJT>
<LANGUAGE>P</LANGUAGE>
<OBJECTNAME>ZTBC_BGDEBUG_SP</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<DDTEXT>Pontos de endless points</DDTEXT>
</OBJT>
<OBJS>
<OBJS>
<OBJECTNAME>ZTBC_BGDEBUG_SP</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>ZTBC_BGDEBUG_SP</TABNAME>
<DDIC>X</DDIC>
<PRIM_TABLE>X</PRIM_TABLE>
</OBJS>
<OBJS>
<OBJECTNAME>ZTBC_BGDEBUG_SP</OBJECTNAME>
<OBJECTTYPE>S</OBJECTTYPE>
<TABNAME>ZTBC_BGDEBUG_SPT</TABNAME>
<DDIC>X</DDIC>
</OBJS>
</OBJS>
<TOBJ>
<TDDAT>
<TABNAME>ZTBC_BGDEBUG_SP</TABNAME>
<CCLASS>&amp;NC&amp;</CCLASS>
</TDDAT>
<TVDIR>
<TABNAME>ZTBC_BGDEBUG_SP</TABNAME>
<AREA>ZTBC_BGDEBUG_SP</AREA>
<TYPE>1</TYPE>
<LISTE>0001</LISTE>
<BASTAB>X</BASTAB>
</TVDIR>
</TOBJ>
</asx:values>
</asx:abap>
</abapGit>

126
src/ztbc_bgdebug_spt.tabl.xml Normal file
View File

@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_TABL" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<DD02V>
<TABNAME>ZTBC_BGDEBUG_SPT</TABNAME>
<DDLANGUAGE>P</DDLANGUAGE>
<TABCLASS>TRANSP</TABCLASS>
<CLIDEP>X</CLIDEP>
<DDTEXT>Pontos de endless points (Tabela de textos)</DDTEXT>
<MAINFLAG>X</MAINFLAG>
<CONTFLAG>A</CONTFLAG>
</DD02V>
<DD09L>
<TABNAME>ZTBC_BGDEBUG_SPT</TABNAME>
<AS4LOCAL>A</AS4LOCAL>
<TABKAT>0</TABKAT>
<TABART>APPL0</TABART>
<UEBERSETZ>X</UEBERSETZ>
<BUFALLOW>N</BUFALLOW>
</DD09L>
<DD03P_TABLE>
<DD03P>
<FIELDNAME>MANDT</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>MANDT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>MAINPROGRAM</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>SYREPID</ROLLNAME>
<CHECKTABLE>ZTBC_BGDEBUG_SP</CHECKTABLE>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<SHLPORIGIN>P</SHLPORIGIN>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>INCLUDE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>INCLUDE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>LINE</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>ZE_BGD_PRG_LINE</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
</DD03P>
<DD03P>
<FIELDNAME>SPRAS</FIELDNAME>
<KEYFLAG>X</KEYFLAG>
<ROLLNAME>LANGU</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<NOTNULL>X</NOTNULL>
<COMPTYPE>E</COMPTYPE>
<LANGUFLAG>X</LANGUFLAG>
</DD03P>
<DD03P>
<FIELDNAME>KTEXT</FIELDNAME>
<ROLLNAME>AUFTEXT</ROLLNAME>
<ADMINFIELD>0</ADMINFIELD>
<COMPTYPE>E</COMPTYPE>
</DD03P>
</DD03P_TABLE>
<DD05M_TABLE>
<DD05M>
<FIELDNAME>MAINPROGRAM</FIELDNAME>
<FORTABLE>ZTBC_BGDEBUG_SPT</FORTABLE>
<FORKEY>MANDT</FORKEY>
<CHECKTABLE>ZTBC_BGDEBUG_SP</CHECKTABLE>
<CHECKFIELD>MANDT</CHECKFIELD>
<PRIMPOS>0001</PRIMPOS>
<DOMNAME>MANDT</DOMNAME>
<DATATYPE>CLNT</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>MAINPROGRAM</FIELDNAME>
<FORTABLE>ZTBC_BGDEBUG_SPT</FORTABLE>
<FORKEY>MAINPROGRAM</FORKEY>
<CHECKTABLE>ZTBC_BGDEBUG_SP</CHECKTABLE>
<CHECKFIELD>MAINPROGRAM</CHECKFIELD>
<PRIMPOS>0002</PRIMPOS>
<DOMNAME>PROGRAMM</DOMNAME>
<DATATYPE>CHAR</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>MAINPROGRAM</FIELDNAME>
<FORTABLE>ZTBC_BGDEBUG_SPT</FORTABLE>
<FORKEY>INCLUDE</FORKEY>
<CHECKTABLE>ZTBC_BGDEBUG_SP</CHECKTABLE>
<CHECKFIELD>INCLUDE</CHECKFIELD>
<PRIMPOS>0003</PRIMPOS>
<DOMNAME>PROGNAME</DOMNAME>
<DATATYPE>CHAR</DATATYPE>
</DD05M>
<DD05M>
<FIELDNAME>MAINPROGRAM</FIELDNAME>
<FORTABLE>ZTBC_BGDEBUG_SPT</FORTABLE>
<FORKEY>LINE</FORKEY>
<CHECKTABLE>ZTBC_BGDEBUG_SP</CHECKTABLE>
<CHECKFIELD>LINE</CHECKFIELD>
<PRIMPOS>0004</PRIMPOS>
<DOMNAME>NUMC6</DOMNAME>
<DATATYPE>NUMC</DATATYPE>
</DD05M>
</DD05M_TABLE>
<DD08V_TABLE>
<DD08V>
<FIELDNAME>MAINPROGRAM</FIELDNAME>
<CHECKTABLE>ZTBC_BGDEBUG_SP</CHECKTABLE>
<FRKART>TEXT</FRKART>
<CARD>CN</CARD>
<CARDLEFT>1</CARDLEFT>
</DD08V>
</DD08V_TABLE>
</asx:values>
</asx:abap>
</abapGit>