SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-02 04:36:49 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge remote-tracking branch 'refs/remotes/larshp/master'

Browse Source
This commit is contained in:
EduardoCopat 2017-01-22 15:12:35 +01:00
commit 553e5d7deb
217 changed files with 312 additions and 2985 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
changelog.txt
View File

@ -8,6 +8,15 @@ Legend
+ : added + : added
- : removed - : removed
2017-01-22 v1.26.0
------------------
+ XML ignore initial fields
+ Newline added to end of all ABAP code
2017-01-22 v1.25.2
------------------
+ Possibility to set max number of objects in list
2016-12-01 v1.24.0 2016-12-01 v1.24.0
------------------ ------------------
+ abap syntax highlighting + abap syntax highlighting

2
src/zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.25.0'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.26.0'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)

24
src/zabapgit.prog.xml
View File

@ -5,32 +5,10 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT</NAME> <NAME>ZABAPGIT</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL>S</DBAPL> <DBAPL>S</DBAPL>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>1</SUBC> <SUBC>1</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD/>
<FIXPT>X</FIXPT> <FIXPT>X</FIXPT>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME>D$S</LDBNAME> <LDBNAME>D$S</LDBNAME>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
@ -38,10 +16,8 @@
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>abapGit</ENTRY> <ENTRY>abapGit</ENTRY>
<LENGTH>7</LENGTH> <LENGTH>7</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

7
src/zabapgit.tran.xml
View File

@ -6,20 +6,13 @@
<TCODE>ZABAPGIT</TCODE> <TCODE>ZABAPGIT</TCODE>
<PGMNA>ZABAPGIT</PGMNA> <PGMNA>ZABAPGIT</PGMNA>
<DYPNO>1000</DYPNO> <DYPNO>1000</DYPNO>
<MENUE/>
<CINFO>gA==</CINFO> <CINFO>gA==</CINFO>
<ARBGB/>
</TSTC> </TSTC>
<TSTCC> <TSTCC>
<TCODE>ZABAPGIT</TCODE> <TCODE>ZABAPGIT</TCODE>
<S_WEBGUI>1</S_WEBGUI> <S_WEBGUI>1</S_WEBGUI>
<S_WIN32>X</S_WIN32> <S_WIN32>X</S_WIN32>
<S_PLATIN>X</S_PLATIN> <S_PLATIN>X</S_PLATIN>
<S_SERVICE/>
<S_PERVAS/>
<S_DUMMY/>
<S_DUMMY1/>
<S_DUMMY2/>
</TSTCC> </TSTCC>
<TSTCT> <TSTCT>
<SPRSL>E</SPRSL> <SPRSL>E</SPRSL>

26
src/zabapgit_app.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_APP</NAME> <NAME>ZABAPGIT_APP</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_APP</ENTRY> <ENTRY>Include ZABAPGIT_APP</ENTRY>
<LENGTH>20</LENGTH> <LENGTH>20</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_app_impl.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_APP_IMPL</NAME> <NAME>ZABAPGIT_APP_IMPL</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_APP_IMPL</ENTRY> <ENTRY>Include ZABAPGIT_APP_IMPL</ENTRY>
<LENGTH>25</LENGTH> <LENGTH>25</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_background.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_BACKGROUND</NAME> <NAME>ZABAPGIT_BACKGROUND</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_BACKGROUND</ENTRY> <ENTRY>Include ZABAPGIT_BACKGROUND</ENTRY>
<LENGTH>27</LENGTH> <LENGTH>27</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_definitions.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_DEFINITIONS</NAME> <NAME>ZABAPGIT_DEFINITIONS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_DEFINITIONS</ENTRY> <ENTRY>Include ZABAPGIT_DEFINITIONS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_dot_abapgit.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_DOT_ABAPGIT</NAME> <NAME>ZABAPGIT_DOT_ABAPGIT</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_DOT_ABAPGIT</ENTRY> <ENTRY>Include ZABAPGIT_DOT_ABAPGIT</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_exceptions.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_EXCEPTIONS</NAME> <NAME>ZABAPGIT_EXCEPTIONS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_EXCEPTIONS</ENTRY> <ENTRY>Include ZABAPGIT_EXCEPTIONS</ENTRY>
<LENGTH>27</LENGTH> <LENGTH>27</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

16
src/zabapgit_file_status.prog.abap
View File

@ -21,7 +21,8 @@ CLASS lcl_file_status DEFINITION FINAL
PRIVATE SECTION. PRIVATE SECTION.
CLASS-METHODS calculate_status CLASS-METHODS calculate_status
IMPORTING it_local TYPE ty_files_item_tt IMPORTING iv_devclass TYPE devclass
it_local TYPE ty_files_item_tt
it_remote TYPE ty_files_tt it_remote TYPE ty_files_tt
it_cur_state TYPE ty_file_signatures_tt it_cur_state TYPE ty_file_signatures_tt
RETURNING VALUE(rt_results) TYPE ty_results_tt. RETURNING VALUE(rt_results) TYPE ty_results_tt.
@ -36,7 +37,8 @@ CLASS lcl_file_status DEFINITION FINAL
IMPORTING is_local TYPE ty_file_item IMPORTING is_local TYPE ty_file_item
RETURNING VALUE(rs_result) TYPE ty_result, RETURNING VALUE(rs_result) TYPE ty_result,
build_new_remote build_new_remote
IMPORTING is_remote TYPE ty_file IMPORTING iv_devclass TYPE devclass
is_remote TYPE ty_file
it_items TYPE ty_items_ts it_items TYPE ty_items_ts
it_state TYPE ty_file_signatures_ts it_state TYPE ty_file_signatures_ts
RETURNING VALUE(rs_result) TYPE ty_result, RETURNING VALUE(rs_result) TYPE ty_result,
@ -61,7 +63,9 @@ CLASS lcl_file_status IMPLEMENTATION.
rt_results = calculate_status( rt_results = calculate_status(
it_local = io_repo->get_files_local( io_log )
iv_devclass = io_repo->get_package( )
it_local = io_repo->get_files_local( io_log = io_log )
it_remote = io_repo->get_files_remote( ) it_remote = io_repo->get_files_remote( )
it_cur_state = io_repo->get_local_checksums_per_file( ) ). it_cur_state = io_repo->get_local_checksums_per_file( ) ).
@ -147,7 +151,8 @@ CLASS lcl_file_status IMPLEMENTATION.
" Process new remote files (marked above with empty SHA1) " Process new remote files (marked above with empty SHA1)
LOOP AT lt_remote ASSIGNING <ls_remote> WHERE sha1 IS NOT INITIAL. LOOP AT lt_remote ASSIGNING <ls_remote> WHERE sha1 IS NOT INITIAL.
APPEND INITIAL LINE TO rt_results ASSIGNING <ls_result>. APPEND INITIAL LINE TO rt_results ASSIGNING <ls_result>.
<ls_result> = build_new_remote( is_remote = <ls_remote> <ls_result> = build_new_remote( iv_devclass = iv_devclass
is_remote = <ls_remote>
it_items = lt_items_idx it_items = lt_items_idx
it_state = lt_state_idx ). it_state = lt_state_idx ).
ENDLOOP. ENDLOOP.
@ -278,7 +283,8 @@ CLASS lcl_file_status IMPLEMENTATION.
ENDIF. ENDIF.
" Item is in state and in cache but with no package - it was deleted " Item is in state and in cache but with no package - it was deleted
IF ls_item-devclass IS INITIAL. " OR devclass is the same as repo package (see #532)
IF ls_item-devclass IS INITIAL OR ls_item-devclass = iv_devclass.
rs_result-match = abap_false. rs_result-match = abap_false.
rs_result-lstate = gc_state-deleted. rs_result-lstate = gc_state-deleted.
ENDIF. ENDIF.

26
src/zabapgit_file_status.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_FILE_STATUS</NAME> <NAME>ZABAPGIT_FILE_STATUS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_FILE_STATUS</ENTRY> <ENTRY>Include ZABAPGIT_FILE_STATUS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_forms.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_FORMS</NAME> <NAME>ZABAPGIT_FORMS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_FORMS</ENTRY> <ENTRY>Include ZABAPGIT_FORMS</ENTRY>
<LENGTH>22</LENGTH> <LENGTH>22</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

2
src/zabapgit_git.prog.abap
View File

@ -261,6 +261,8 @@ CLASS lcl_git_transport IMPLEMENTATION.
lcx_exception=>raise( 'unpack not ok' ). lcx_exception=>raise( 'unpack not ok' ).
ELSEIF lv_string CP '*pre-receive hook declined*'. ELSEIF lv_string CP '*pre-receive hook declined*'.
lcx_exception=>raise( 'pre-receive hook declined' ). lcx_exception=>raise( 'pre-receive hook declined' ).
ELSEIF lv_string CP '*funny refname*'.
lcx_exception=>raise( 'funny refname' ).
ENDIF. ENDIF.
ENDMETHOD. "receive_pack ENDMETHOD. "receive_pack

26
src/zabapgit_git.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_GIT</NAME> <NAME>ZABAPGIT_GIT</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_GIT</ENTRY> <ENTRY>Include ZABAPGIT_GIT</ENTRY>
<LENGTH>20</LENGTH> <LENGTH>20</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_git_helpers.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_GIT_HELPERS</NAME> <NAME>ZABAPGIT_GIT_HELPERS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_GIT_HELPERS</ENTRY> <ENTRY>Include ZABAPGIT_GIT_HELPERS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_gui.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_GUI</NAME> <NAME>ZABAPGIT_GUI</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_GUI</ENTRY> <ENTRY>Include ZABAPGIT_GUI</ENTRY>
<LENGTH>20</LENGTH> <LENGTH>20</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_gui_asset_manager.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_GUI_ASSET_MANAGER</NAME> <NAME>ZABAPGIT_GUI_ASSET_MANAGER</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_GUI_ASSET_MANAGER</ENTRY> <ENTRY>Include ZABAPGIT_GUI_ASSET_MANAGER</ENTRY>
<LENGTH>34</LENGTH> <LENGTH>34</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_gui_pages.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_GUI_PAGES</NAME> <NAME>ZABAPGIT_GUI_PAGES</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_GUI_PAGES</ENTRY> <ENTRY>Include ZABAPGIT_GUI_PAGES</ENTRY>
<LENGTH>26</LENGTH> <LENGTH>26</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_gui_router.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_GUI_ROUTER</NAME> <NAME>ZABAPGIT_GUI_ROUTER</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_GUI_ROUTER</ENTRY> <ENTRY>Include ZABAPGIT_GUI_ROUTER</ENTRY>
<LENGTH>27</LENGTH> <LENGTH>27</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_html.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_HTML</NAME> <NAME>ZABAPGIT_HTML</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_HTML</ENTRY> <ENTRY>Include ZABAPGIT_HTML</ENTRY>
<LENGTH>21</LENGTH> <LENGTH>21</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_html_action_utils.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_HTML_ACTION_UTILS</NAME> <NAME>ZABAPGIT_HTML_ACTION_UTILS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_HTML_ACTION_UTILS</ENTRY> <ENTRY>Include ZABAPGIT_HTML_ACTION_UTILS</ENTRY>
<LENGTH>34</LENGTH> <LENGTH>34</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_html_chunks.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_HTML_CHUNKS</NAME> <NAME>ZABAPGIT_HTML_CHUNKS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_HTML_CHUNKS</ENTRY> <ENTRY>Include ZABAPGIT_HTML_CHUNKS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_http.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_HTTP</NAME> <NAME>ZABAPGIT_HTTP</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_HTTP</ENTRY> <ENTRY>Include ZABAPGIT_HTTP</ENTRY>
<LENGTH>21</LENGTH> <LENGTH>21</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_macros.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_MACROS</NAME> <NAME>ZABAPGIT_MACROS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_MACROS</ENTRY> <ENTRY>Include ZABAPGIT_MACROS</ENTRY>
<LENGTH>23</LENGTH> <LENGTH>23</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_migrations.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_MIGRATIONS</NAME> <NAME>ZABAPGIT_MIGRATIONS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_MIGRATIONS</ENTRY> <ENTRY>Include ZABAPGIT_MIGRATIONS</ENTRY>
<LENGTH>27</LENGTH> <LENGTH>27</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_acid.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_ACID</NAME> <NAME>ZABAPGIT_OBJECT_ACID</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_ACID</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_ACID</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_auth.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_AUTH</NAME> <NAME>ZABAPGIT_OBJECT_AUTH</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_AUTH</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_AUTH</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_clas.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_CLAS</NAME> <NAME>ZABAPGIT_OBJECT_CLAS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_CLAS</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_CLAS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_doct.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_DOCT</NAME> <NAME>ZABAPGIT_OBJECT_DOCT</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_DOCT</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_DOCT</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_docv.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_DOCV</NAME> <NAME>ZABAPGIT_OBJECT_DOCV</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_DOCT</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_DOCT</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_doma.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_DOMA</NAME> <NAME>ZABAPGIT_OBJECT_DOMA</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_DOMA</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_DOMA</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_dtel.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_DTEL</NAME> <NAME>ZABAPGIT_OBJECT_DTEL</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_DTEL</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_DTEL</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_enho.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_ENHO</NAME> <NAME>ZABAPGIT_OBJECT_ENHO</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_ENHO</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_ENHO</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_enhs.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_ENHS</NAME> <NAME>ZABAPGIT_OBJECT_ENHS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_ENHS</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_ENHS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_enqu.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_ENQU</NAME> <NAME>ZABAPGIT_OBJECT_ENQU</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_ENUQ</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_ENUQ</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_ensc.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_ENSC</NAME> <NAME>ZABAPGIT_OBJECT_ENSC</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_ENSC</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_ENSC</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

72
src/zabapgit_object_fugr.prog.abap
View File

@ -30,6 +30,7 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_program FINAL.
tables TYPE STANDARD TABLE OF rstbl WITH DEFAULT KEY, tables TYPE STANDARD TABLE OF rstbl WITH DEFAULT KEY,
exception TYPE STANDARD TABLE OF rsexc WITH DEFAULT KEY, exception TYPE STANDARD TABLE OF rsexc WITH DEFAULT KEY,
documentation TYPE STANDARD TABLE OF rsfdo WITH DEFAULT KEY, documentation TYPE STANDARD TABLE OF rsfdo WITH DEFAULT KEY,
exception_classes TYPE abap_bool,
END OF ty_function. END OF ty_function.
TYPES: ty_function_tt TYPE STANDARD TABLE OF ty_function WITH DEFAULT KEY. TYPES: ty_function_tt TYPE STANDARD TABLE OF ty_function WITH DEFAULT KEY.
@ -71,6 +72,11 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_program FINAL.
iv_package TYPE devclass iv_package TYPE devclass
RAISING lcx_exception. RAISING lcx_exception.
METHODS are_exceptions_class_based
IMPORTING iv_function_name TYPE rs38l_fnam
RETURNING VALUE(rv_return) TYPE abap_bool
RAISING lcx_exception.
ENDCLASS. "lcl_object_fugr DEFINITION ENDCLASS. "lcl_object_fugr DEFINITION
*----------------------------------------------------------------------* *----------------------------------------------------------------------*
@ -247,6 +253,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
remote_call = <ls_func>-remote_call remote_call = <ls_func>-remote_call
short_text = <ls_func>-short_text short_text = <ls_func>-short_text
update_task = <ls_func>-update_task update_task = <ls_func>-update_task
exception_class = <ls_func>-exception_classes
* NAMESPACE = ' ' todo * NAMESPACE = ' ' todo
remote_basxml_supported = <ls_func>-remote_basxml remote_basxml_supported = <ls_func>-remote_basxml
IMPORTING IMPORTING
@ -276,10 +283,6 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDIF. ENDIF.
INSERT REPORT lv_include FROM lt_source. INSERT REPORT lv_include FROM lt_source.
* lcl_objects_activation=>add( iv_type = 'FUNC'
* iv_name = <ls_func>-funcname ).
ENDLOOP. ENDLOOP.
ENDMETHOD. "deserialize_functions ENDMETHOD. "deserialize_functions
@ -537,7 +540,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
lt_source TYPE TABLE OF rssource, lt_source TYPE TABLE OF rssource,
lt_functab TYPE ty_rs38l_incl_tt, lt_functab TYPE ty_rs38l_incl_tt,
lt_new_source TYPE rsfb_source, lt_new_source TYPE rsfb_source,
ls_ret LIKE LINE OF rt_functions. ls_function LIKE LINE OF rt_functions.
FIELD-SYMBOLS: <ls_func> LIKE LINE OF lt_functab. FIELD-SYMBOLS: <ls_func> LIKE LINE OF lt_functab.
@ -547,8 +550,8 @@ CLASS lcl_object_fugr IMPLEMENTATION.
LOOP AT lt_functab ASSIGNING <ls_func>. LOOP AT lt_functab ASSIGNING <ls_func>.
* fm RPY_FUNCTIONMODULE_READ does not support source code * fm RPY_FUNCTIONMODULE_READ does not support source code
* lines longer than 72 characters * lines longer than 72 characters
CLEAR ls_ret. CLEAR ls_function.
MOVE-CORRESPONDING <ls_func> TO ls_ret. MOVE-CORRESPONDING <ls_func> TO ls_function.
CLEAR lt_new_source. CLEAR lt_new_source.
CLEAR lt_source. CLEAR lt_source.
@ -557,18 +560,18 @@ CLASS lcl_object_fugr IMPLEMENTATION.
EXPORTING EXPORTING
functionname = <ls_func>-funcname functionname = <ls_func>-funcname
IMPORTING IMPORTING
global_flag = ls_ret-global_flag global_flag = ls_function-global_flag
remote_call = ls_ret-remote_call remote_call = ls_function-remote_call
update_task = ls_ret-update_task update_task = ls_function-update_task
short_text = ls_ret-short_text short_text = ls_function-short_text
remote_basxml_supported = ls_ret-remote_basxml remote_basxml_supported = ls_function-remote_basxml
TABLES TABLES
import_parameter = ls_ret-import import_parameter = ls_function-import
changing_parameter = ls_ret-changing changing_parameter = ls_function-changing
export_parameter = ls_ret-export export_parameter = ls_function-export
tables_parameter = ls_ret-tables tables_parameter = ls_function-tables
exception_list = ls_ret-exception exception_list = ls_function-exception
documentation = ls_ret-documentation documentation = ls_function-documentation
source = lt_source source = lt_source
CHANGING CHANGING
new_source = lt_new_source new_source = lt_new_source
@ -583,7 +586,9 @@ CLASS lcl_object_fugr IMPLEMENTATION.
lcx_exception=>raise( 'Error from RPY_FUNCTIONMODULE_READ_NEW' ). lcx_exception=>raise( 'Error from RPY_FUNCTIONMODULE_READ_NEW' ).
ENDIF. ENDIF.
APPEND ls_ret TO rt_functions. ls_function-exception_classes = are_exceptions_class_based( <ls_func>-funcname ).
APPEND ls_function TO rt_functions.
IF NOT lt_new_source IS INITIAL. IF NOT lt_new_source IS INITIAL.
mo_files->add_abap( iv_extra = <ls_func>-funcname mo_files->add_abap( iv_extra = <ls_func>-funcname
@ -618,6 +623,35 @@ CLASS lcl_object_fugr IMPLEMENTATION.
ENDMETHOD. "serialize_includes ENDMETHOD. "serialize_includes
METHOD are_exceptions_class_based.
DATA:
lt_dokumentation TYPE TABLE OF funct,
lt_exception_list TYPE TABLE OF rsexc,
lt_export_parameter TYPE TABLE OF rsexp,
lt_import_parameter TYPE TABLE OF rsimp,
lt_tables_parameter TYPE TABLE OF rstbl.
CALL FUNCTION 'FUNCTION_IMPORT_DOKU'
EXPORTING
funcname = iv_function_name
IMPORTING
exception_class = rv_return
TABLES
dokumentation = lt_dokumentation
exception_list = lt_exception_list
export_parameter = lt_export_parameter
import_parameter = lt_import_parameter
tables_parameter = lt_tables_parameter
EXCEPTIONS
error_message = 1
function_not_found = 2
invalid_name = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from FUNCTION_IMPORT_DOKU' ).
ENDIF.
ENDMETHOD.
METHOD lif_object~serialize. METHOD lif_object~serialize.
DATA: lt_functions TYPE ty_function_tt, DATA: lt_functions TYPE ty_function_tt,

26
src/zabapgit_object_fugr.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_FUGR</NAME> <NAME>ZABAPGIT_OBJECT_FUGR</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_FUGR</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_FUGR</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_iarp.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_IARP</NAME> <NAME>ZABAPGIT_OBJECT_IARP</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_IARP</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_IARP</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_iasp.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_IASP</NAME> <NAME>ZABAPGIT_OBJECT_IASP</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_IASP</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_IASP</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_iatu.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_IATU</NAME> <NAME>ZABAPGIT_OBJECT_IATU</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_IATU</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_IATU</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_msag.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_MSAG</NAME> <NAME>ZABAPGIT_OBJECT_MSAG</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_MSAG</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_MSAG</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_nrob.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_NROB</NAME> <NAME>ZABAPGIT_OBJECT_NROB</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_NROB</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_NROB</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_para.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_PARA</NAME> <NAME>ZABAPGIT_OBJECT_PARA</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_PARA</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_PARA</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_pinf.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_PINF</NAME> <NAME>ZABAPGIT_OBJECT_PINF</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_PINF</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_PINF</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_prog.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_PROG</NAME> <NAME>ZABAPGIT_OBJECT_PROG</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_PROG</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_PROG</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_serializing.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SERIALIZING</NAME> <NAME>ZABAPGIT_OBJECT_SERIALIZING</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SERIALIZATION</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SERIALIZATION</ENTRY>
<LENGTH>37</LENGTH> <LENGTH>37</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_sfbf.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SFBF</NAME> <NAME>ZABAPGIT_OBJECT_SFBF</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SFBF</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SFBF</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_sfbs.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SFBS</NAME> <NAME>ZABAPGIT_OBJECT_SFBS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SFBS</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SFBS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_sfsw.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SFSW</NAME> <NAME>ZABAPGIT_OBJECT_SFSW</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SFSW</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SFSW</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_shi3.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SHI3</NAME> <NAME>ZABAPGIT_OBJECT_SHI3</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SHI3</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SHI3</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_shlp.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SHLP</NAME> <NAME>ZABAPGIT_OBJECT_SHLP</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SHLP</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SHLP</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

6
src/zabapgit_object_sicf.prog.abap
View File

@ -22,6 +22,7 @@ CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL.
END OF ty_sicf_key. END OF ty_sicf_key.
METHODS read METHODS read
IMPORTING iv_clear TYPE abap_bool DEFAULT abap_true
EXPORTING es_icfservice TYPE icfservice EXPORTING es_icfservice TYPE icfservice
es_icfdocu TYPE icfdocu es_icfdocu TYPE icfdocu
et_icfhandler TYPE ty_icfhandler_tt et_icfhandler TYPE ty_icfhandler_tt
@ -71,7 +72,8 @@ CLASS lcl_object_sicf IMPLEMENTATION.
DATA: ls_icfservice TYPE icfservice. DATA: ls_icfservice TYPE icfservice.
read( IMPORTING es_icfservice = ls_icfservice ). read( EXPORTING iv_clear = abap_false
IMPORTING es_icfservice = ls_icfservice ).
rv_user = ls_icfservice-icf_muser. rv_user = ls_icfservice-icf_muser.
@ -174,10 +176,12 @@ CLASS lcl_object_sicf IMPLEMENTATION.
ASSERT sy-subrc = 0. ASSERT sy-subrc = 0.
MOVE-CORRESPONDING ls_serv_info-service TO es_icfservice. MOVE-CORRESPONDING ls_serv_info-service TO es_icfservice.
IF iv_clear = abap_true.
CLEAR es_icfservice-icf_cuser. CLEAR es_icfservice-icf_cuser.
CLEAR es_icfservice-icf_cdate. CLEAR es_icfservice-icf_cdate.
CLEAR es_icfservice-icf_muser. CLEAR es_icfservice-icf_muser.
CLEAR es_icfservice-icf_mdate. CLEAR es_icfservice-icf_mdate.
ENDIF.
CLEAR es_icfdocu-icfparguid. CLEAR es_icfdocu-icfparguid.

26
src/zabapgit_object_sicf.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SICF</NAME> <NAME>ZABAPGIT_OBJECT_SICF</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SICF</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SICF</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_smim.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SMIM</NAME> <NAME>ZABAPGIT_OBJECT_SMIM</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SMIM</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SMIM</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_splo.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SPLO</NAME> <NAME>ZABAPGIT_OBJECT_SPLO</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SPLO</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SPLO</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_ssfo.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SSFO</NAME> <NAME>ZABAPGIT_OBJECT_SSFO</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SSFO</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SSFO</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_ssst.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SSST</NAME> <NAME>ZABAPGIT_OBJECT_SSST</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SSST</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SSST</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_susc.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SUSC</NAME> <NAME>ZABAPGIT_OBJECT_SUSC</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SUSC</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SUSC</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_suso.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_SUSO</NAME> <NAME>ZABAPGIT_OBJECT_SUSO</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_SUSO</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_SUSO</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

2
src/zabapgit_object_tabl.prog.abap
View File

@ -106,7 +106,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
CALL FUNCTION 'RS_DD_DELETE_OBJ' CALL FUNCTION 'RS_DD_DELETE_OBJ'
EXPORTING EXPORTING
no_ask = abap_false no_ask = abap_true
objname = lv_objname objname = lv_objname
objtype = 'T' objtype = 'T'
EXCEPTIONS EXCEPTIONS

26
src/zabapgit_object_tabl.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_TABL</NAME> <NAME>ZABAPGIT_OBJECT_TABL</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_TABL</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_TABL</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_tabl_valid.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_TABL_VALID</NAME> <NAME>ZABAPGIT_OBJECT_TABL_VALID</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_TABL_VALID</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_TABL_VALID</ENTRY>
<LENGTH>34</LENGTH> <LENGTH>34</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_tobj.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_TOBJ</NAME> <NAME>ZABAPGIT_OBJECT_TOBJ</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_TOBJ</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_TOBJ</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

5
src/zabapgit_object_tran.prog.abap
View File

@ -287,6 +287,11 @@ CLASS lcl_object_tran IMPLEMENTATION.
lt_param_values TYPE TABLE OF rsparam, lt_param_values TYPE TABLE OF rsparam,
ls_rsstcd TYPE rsstcd. ls_rsstcd TYPE rsstcd.
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'TSTC' io_xml->read( EXPORTING iv_name = 'TSTC'
CHANGING cg_data = ls_tstc ). CHANGING cg_data = ls_tstc ).
io_xml->read( EXPORTING iv_name = 'TSTCC' io_xml->read( EXPORTING iv_name = 'TSTCC'

26
src/zabapgit_object_tran.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_TRAN</NAME> <NAME>ZABAPGIT_OBJECT_TRAN</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_TRAN</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_TRAN</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_ttyp.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_TTYP</NAME> <NAME>ZABAPGIT_OBJECT_TTYP</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_TTYP</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_TTYP</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_type.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_TYPE</NAME> <NAME>ZABAPGIT_OBJECT_TYPE</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_TYPE</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_TYPE</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_vcls.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_VCLS</NAME> <NAME>ZABAPGIT_OBJECT_VCLS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_VCLS</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_VCLS</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_view.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_VIEW</NAME> <NAME>ZABAPGIT_OBJECT_VIEW</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_VIEW</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_VIEW</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_w3xx.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_W3XX</NAME> <NAME>ZABAPGIT_OBJECT_W3XX</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_W3XX</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_W3XX</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_wdya.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_WDYA</NAME> <NAME>ZABAPGIT_OBJECT_WDYA</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_WDYA</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_WDYA</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_wdyn.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_WDYN</NAME> <NAME>ZABAPGIT_OBJECT_WDYN</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_WDYN</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_WDYN</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_object_webi.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_WEBI</NAME> <NAME>ZABAPGIT_OBJECT_WEBI</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_WEBI</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_WEBI</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

4
src/zabapgit_object_xslt.prog.abap
View File

@ -94,6 +94,10 @@ CLASS lcl_object_xslt IMPLEMENTATION.
ls_attributes TYPE o2xsltattr. ls_attributes TYPE o2xsltattr.
IF lif_object~exists( ) = abap_true.
lif_object~delete( ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'ATTRIBUTES' io_xml->read( EXPORTING iv_name = 'ATTRIBUTES'
CHANGING cg_data = ls_attributes ). CHANGING cg_data = ls_attributes ).

26
src/zabapgit_object_xslt.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECT_XSLT</NAME> <NAME>ZABAPGIT_OBJECT_XSLT</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT_XSLT</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT_XSLT</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

3
src/zabapgit_objects.prog.abap
View File

@ -373,6 +373,9 @@ CLASS lcl_objects_files IMPLEMENTATION.
CONCATENATE LINES OF it_abap INTO lv_source SEPARATED BY gc_newline. CONCATENATE LINES OF it_abap INTO lv_source SEPARATED BY gc_newline.
* when editing files via eg. GitHub web interface it adds a newline at end of file
lv_source = lv_source && gc_newline.
ls_file-path = '/'. ls_file-path = '/'.
ls_file-filename = filename( iv_extra = iv_extra ls_file-filename = filename( iv_extra = iv_extra
iv_ext = 'abap' ). "#EC NOTEXT iv_ext = 'abap' ). "#EC NOTEXT

26
src/zabapgit_objects.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECTS</NAME> <NAME>ZABAPGIT_OBJECTS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECTS</ENTRY> <ENTRY>Include ZABAPGIT_OBJECTS</ENTRY>
<LENGTH>24</LENGTH> <LENGTH>24</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_objects_impl.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_OBJECTS_IMPL</NAME> <NAME>ZABAPGIT_OBJECTS_IMPL</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_OBJECT</ENTRY> <ENTRY>Include ZABAPGIT_OBJECT</ENTRY>
<LENGTH>23</LENGTH> <LENGTH>23</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE</NAME> <NAME>ZABAPGIT_PAGE</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE</ENTRY> <ENTRY>Include ZABAPGIT_PAGE</ENTRY>
<LENGTH>21</LENGTH> <LENGTH>21</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_background.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_BACKGROUND</NAME> <NAME>ZABAPGIT_PAGE_BACKGROUND</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_BACKGROUND</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_BACKGROUND</ENTRY>
<LENGTH>32</LENGTH> <LENGTH>32</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_branch_overview.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_BRANCH_OVERVIEW</NAME> <NAME>ZABAPGIT_PAGE_BRANCH_OVERVIEW</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_BRANCH_OVERVIEW</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_BRANCH_OVERVIEW</ENTRY>
<LENGTH>37</LENGTH> <LENGTH>37</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_commit.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_COMMIT</NAME> <NAME>ZABAPGIT_PAGE_COMMIT</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_COMMIT</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_COMMIT</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_db.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_DB</NAME> <NAME>ZABAPGIT_PAGE_DB</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_DB</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_DB</ENTRY>
<LENGTH>24</LENGTH> <LENGTH>24</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_debug.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_DEBUG</NAME> <NAME>ZABAPGIT_PAGE_DEBUG</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_DEBUG</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_DEBUG</ENTRY>
<LENGTH>27</LENGTH> <LENGTH>27</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_diff.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_DIFF</NAME> <NAME>ZABAPGIT_PAGE_DIFF</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_DIFF</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_DIFF</ENTRY>
<LENGTH>26</LENGTH> <LENGTH>26</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_explore.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_EXPLORE</NAME> <NAME>ZABAPGIT_PAGE_EXPLORE</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_EXPLORE</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_EXPLORE</ENTRY>
<LENGTH>29</LENGTH> <LENGTH>29</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_main.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_MAIN</NAME> <NAME>ZABAPGIT_PAGE_MAIN</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_MAIN</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_MAIN</ENTRY>
<LENGTH>26</LENGTH> <LENGTH>26</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_merge.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_MERGE</NAME> <NAME>ZABAPGIT_PAGE_MERGE</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_MERGE</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_MERGE</ENTRY>
<LENGTH>27</LENGTH> <LENGTH>27</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_settings.prog.abap
View File

@ -30,6 +30,8 @@ CLASS lcl_gui_page_settings DEFINITION FINAL INHERITING FROM lcl_gui_page.
RETURNING VALUE(ro_html) TYPE REF TO lcl_html. RETURNING VALUE(ro_html) TYPE REF TO lcl_html.
METHODS render_form_end METHODS render_form_end
RETURNING VALUE(ro_html) TYPE REF TO lcl_html. RETURNING VALUE(ro_html) TYPE REF TO lcl_html.
METHODS render_max_lines
RETURNING VALUE(ro_html) TYPE REF TO lcl_html.
METHODS build_settings METHODS build_settings
IMPORTING IMPORTING
it_post_fields TYPE tihttpnvp. it_post_fields TYPE tihttpnvp.
@ -63,6 +65,8 @@ CLASS lcl_gui_page_settings IMPLEMENTATION.
ro_html->add( render_proxy( ) ). ro_html->add( render_proxy( ) ).
ro_html->add( |<hr>| ). ro_html->add( |<hr>| ).
ro_html->add( render_development_internals( ) ). ro_html->add( render_development_internals( ) ).
ro_html->add( |<hr>| ).
ro_html->add( render_max_lines( ) ).
ro_html->add( render_form_end( ) ). ro_html->add( render_form_end( ) ).
ENDMETHOD. "render_content ENDMETHOD. "render_content
@ -110,7 +114,8 @@ CLASS lcl_gui_page_settings IMPLEMENTATION.
METHOD build_settings. METHOD build_settings.
DATA ls_post_field TYPE ihttpnvp. DATA: ls_post_field TYPE ihttpnvp,
lv_max_lines_as_integer TYPE i.
CREATE OBJECT mo_settings. CREATE OBJECT mo_settings.
READ TABLE it_post_fields INTO ls_post_field WITH KEY name = 'proxy_url'. READ TABLE it_post_fields INTO ls_post_field WITH KEY name = 'proxy_url'.
@ -132,6 +137,14 @@ CLASS lcl_gui_page_settings IMPLEMENTATION.
mo_settings->set_run_critical_tests( abap_false ). mo_settings->set_run_critical_tests( abap_false ).
ENDIF. ENDIF.
READ TABLE it_post_fields INTO ls_post_field WITH KEY name = 'max_lines'.
IF sy-subrc = 0.
lv_max_lines_as_integer = ls_post_field-value.
mo_settings->set_max_lines( lv_max_lines_as_integer ).
ELSE.
mo_settings->set_max_lines( 0 ).
ENDIF.
ENDMETHOD. ENDMETHOD.
@ -209,4 +222,15 @@ CLASS lcl_gui_page_settings IMPLEMENTATION.
ENDMETHOD. ENDMETHOD.
METHOD render_max_lines.
CREATE OBJECT ro_html.
ro_html->add( |<h2>List size</h2>| ).
ro_html->add( |<label for="max_lines">Max. # of objects listed (0 = all)</label>| ).
ro_html->add( |<br>| ).
ro_html->add( `<input name="max_lines" type="text" size="5" value="` && mo_settings->get_max_lines( ) && `">` ).
ro_html->add( |<br>| ).
ro_html->add( |<br>| ).
ENDMETHOD.
ENDCLASS. ENDCLASS.

26
src/zabapgit_page_settings.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_SETTINGS</NAME> <NAME>ZABAPGIT_PAGE_SETTINGS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_SETTINGS</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_SETTINGS</ENTRY>
<LENGTH>30</LENGTH> <LENGTH>30</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_page_stage.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PAGE_STAGE</NAME> <NAME>ZABAPGIT_PAGE_STAGE</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PAGE_STAGE</ENTRY> <ENTRY>Include ZABAPGIT_PAGE_STAGE</ENTRY>
<LENGTH>27</LENGTH> <LENGTH>27</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_password_dialog.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PASSWORD_DIALOG</NAME> <NAME>ZABAPGIT_PASSWORD_DIALOG</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Password dialog and selection screen</ENTRY> <ENTRY>Password dialog and selection screen</ENTRY>
<LENGTH>36</LENGTH> <LENGTH>36</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

33
src/zabapgit_persistence.prog.abap
View File

@ -1459,11 +1459,17 @@ CLASS lcl_settings DEFINITION FINAL.
METHODS METHODS
get_run_critical_tests get_run_critical_tests
RETURNING VALUE(rv_run) TYPE abap_bool. RETURNING VALUE(rv_run) TYPE abap_bool.
METHODS set_max_lines
IMPORTING iv_lines TYPE i.
METHODS get_max_lines
RETURNING
VALUE(rv_lines) TYPE i.
PRIVATE SECTION. PRIVATE SECTION.
DATA mv_proxy_url TYPE string. DATA mv_proxy_url TYPE string.
DATA mv_proxy_port TYPE string. DATA mv_proxy_port TYPE string.
DATA mv_run_critical_tests TYPE abap_bool. DATA mv_run_critical_tests TYPE abap_bool.
DATA mv_lines TYPE i.
ENDCLASS. ENDCLASS.
@ -1494,6 +1500,14 @@ CLASS lcl_settings IMPLEMENTATION.
rv_run = mv_run_critical_tests. rv_run = mv_run_critical_tests.
ENDMETHOD. ENDMETHOD.
METHOD get_max_lines.
rv_lines = mv_lines.
ENDMETHOD.
METHOD set_max_lines.
mv_lines = iv_lines.
ENDMETHOD.
ENDCLASS. ENDCLASS.
@ -1529,12 +1543,20 @@ CLASS lcl_persistence_settings IMPLEMENTATION.
iv_type = 'SETTINGS' iv_type = 'SETTINGS'
iv_value = 'CRIT_TESTS' iv_value = 'CRIT_TESTS'
iv_data = io_settings->get_run_critical_tests( ) ). iv_data = io_settings->get_run_critical_tests( ) ).
lcl_app=>db( )->modify(
iv_type = 'SETTINGS'
iv_value = 'MAX_LINES'
iv_data = |{ io_settings->get_max_lines( ) }| ).
ENDMETHOD. ENDMETHOD.
METHOD read. METHOD read.
DATA: lv_critical_tests_as_string TYPE string, DATA: lv_critical_tests_as_string TYPE string,
lv_critical_tests_as_boolean TYPE abap_bool. lv_critical_tests_as_boolean TYPE abap_bool,
lv_max_lines_as_string TYPE string,
lv_max_lines_as_integer TYPE i.
CREATE OBJECT ro_settings. CREATE OBJECT ro_settings.
TRY. TRY.
@ -1562,6 +1584,15 @@ CLASS lcl_persistence_settings IMPLEMENTATION.
CATCH lcx_not_found. CATCH lcx_not_found.
ro_settings->set_run_critical_tests( abap_false ). ro_settings->set_run_critical_tests( abap_false ).
ENDTRY. ENDTRY.
TRY.
lv_max_lines_as_string = lcl_app=>db( )->read(
iv_type = 'SETTINGS'
iv_value = 'MAX_LINES' ).
lv_max_lines_as_integer = lv_max_lines_as_string.
ro_settings->set_max_lines( lv_max_lines_as_integer ).
CATCH lcx_not_found.
ro_settings->set_max_lines( 500 ). " default
ENDTRY.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.

26
src/zabapgit_persistence.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PERSISTENCE</NAME> <NAME>ZABAPGIT_PERSISTENCE</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PERSISTENCE</ENTRY> <ENTRY>Include ZABAPGIT_PERSISTENCE</ENTRY>
<LENGTH>28</LENGTH> <LENGTH>28</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_persistence_old.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_PERSISTENCE_OLD</NAME> <NAME>ZABAPGIT_PERSISTENCE_OLD</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_PERSISTENCE_OLD</ENTRY> <ENTRY>Include ZABAPGIT_PERSISTENCE_OLD</ENTRY>
<LENGTH>32</LENGTH> <LENGTH>32</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

26
src/zabapgit_popups.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_POPUPS</NAME> <NAME>ZABAPGIT_POPUPS</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_POPUPS</ENTRY> <ENTRY>Include ZABAPGIT_POPUPS</ENTRY>
<LENGTH>23</LENGTH> <LENGTH>23</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

1
src/zabapgit_repo.prog.abap
View File

@ -18,6 +18,7 @@ CLASS lcl_repo DEFINITION ABSTRACT FRIENDS lcl_repo_srv.
RAISING lcx_exception, RAISING lcx_exception,
get_files_local get_files_local
IMPORTING io_log TYPE REF TO lcl_log OPTIONAL IMPORTING io_log TYPE REF TO lcl_log OPTIONAL
it_filter TYPE scts_tadir OPTIONAL
RETURNING VALUE(rt_files) TYPE ty_files_item_tt RETURNING VALUE(rt_files) TYPE ty_files_item_tt
RAISING lcx_exception, RAISING lcx_exception,
get_local_checksums get_local_checksums

26
src/zabapgit_repo.prog.xml
View File

@ -5,42 +5,16 @@
<PROGDIR> <PROGDIR>
<NAME>ZABAPGIT_REPO</NAME> <NAME>ZABAPGIT_REPO</NAME>
<STATE>A</STATE> <STATE>A</STATE>
<SQLX/>
<EDTX/>
<VARCL>X</VARCL> <VARCL>X</VARCL>
<DBAPL/>
<DBNA/>
<CLAS/>
<TYPE/>
<OCCURS/>
<SUBC>I</SUBC> <SUBC>I</SUBC>
<APPL/>
<SECU/>
<CNAM/>
<CDAT>0000-00-00</CDAT>
<UNAM/>
<UDAT>0000-00-00</UDAT>
<VERN/>
<LEVL/>
<RSTAT/>
<RMAND/>
<RLOAD>E</RLOAD> <RLOAD>E</RLOAD>
<FIXPT/>
<SSET/>
<SDATE>0000-00-00</SDATE>
<STIME/>
<IDATE>0000-00-00</IDATE>
<ITIME/>
<LDBNAME/>
<UCCHECK>X</UCCHECK> <UCCHECK>X</UCCHECK>
</PROGDIR> </PROGDIR>
<TPOOL> <TPOOL>
<item> <item>
<ID>R</ID> <ID>R</ID>
<KEY/>
<ENTRY>Include ZABAPGIT_REPO</ENTRY> <ENTRY>Include ZABAPGIT_REPO</ENTRY>
<LENGTH>21</LENGTH> <LENGTH>21</LENGTH>
<SPLIT/>
</item> </item>
</TPOOL> </TPOOL>
</asx:values> </asx:values>

Some files were not shown because too many files have changed in this diff Show More