SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-05-01 12:20:51 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

Merge branch 'pr/3' into issue_935

Browse Source
This commit is contained in:
Thomas Erdösi 2017-10-02 11:48:20 +02:00
commit 63a6e57930
129 changed files with 2022 additions and 1283 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
changelog.txt
View File

@ -8,6 +8,13 @@ Legend
+ : added
- : removed
2017-10-01 v1.42.0
------------------
* fix dump in "reset local objects"
* Fix DDLS deletion/uninstall sequence
* Skip DDLS auto generated objects
! New dialog box for overwriting local objects
2017-09-11 v1.41.2
------------------
* FUGR table maintenance, namespaces

2
package.json
View File

@ -8,7 +8,7 @@
"url": "git+https://github.com/larshp/abapGit.git"
},
"devDependencies": {
"abapmerge": "^0.7.0",
"abapmerge": "^0.7.1",
"abaplint": ">=0.26.7"
}
}

65
src/utils/zcl_abapgit_time.clas.abap Normal file
View File

@ -0,0 +1,65 @@
CLASS zcl_abapgit_time DEFINITION
PUBLIC
CREATE PUBLIC .
PUBLIC SECTION.
TYPES: ty_unixtime TYPE c LENGTH 16.
CLASS-METHODS get
RETURNING VALUE(rv_time) TYPE ty_unixtime
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CONSTANTS: c_epoch TYPE datum VALUE '19700101'.
ENDCLASS.
CLASS ZCL_ABAPGIT_TIME IMPLEMENTATION.
METHOD get.
DATA: lv_i TYPE i,
lv_tz TYPE tznzone,
lv_utcdiff TYPE tznutcdiff,
lv_utcsign TYPE tznutcsign.
lv_i = sy-datum - c_epoch.
lv_i = lv_i * 86400.
lv_i = lv_i + sy-uzeit.
CALL FUNCTION 'TZON_GET_OS_TIMEZONE'
IMPORTING
ef_timezone = lv_tz.
CALL FUNCTION 'TZON_GET_OFFSET'
EXPORTING
if_timezone = lv_tz
if_local_date = sy-datum
if_local_time = sy-uzeit
IMPORTING
ef_utcdiff = lv_utcdiff
ef_utcsign = lv_utcsign
EXCEPTIONS
conversion_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'Timezone error' ).
ENDIF.
CASE lv_utcsign.
WHEN '+'.
lv_i = lv_i - lv_utcdiff.
WHEN '-'.
lv_i = lv_i + lv_utcdiff.
ENDCASE.
rv_time = lv_i.
CONDENSE rv_time.
rv_time+11 = lv_utcsign.
rv_time+12 = lv_utcdiff.
ENDMETHOD. "get
ENDCLASS.

18
src/utils/zcl_abapgit_time.clas.xml Normal file
View File

@ -0,0 +1,18 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_CLAS" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<VSEOCLASS>
<CLSNAME>ZCL_ABAPGIT_TIME</CLSNAME>
<VERSION>1</VERSION>
<LANGU>E</LANGU>
<DESCRIPT>Time</DESCRIPT>
<EXPOSURE>2</EXPOSURE>
<STATE>1</STATE>
<CLSCCINCL>X</CLSCCINCL>
<FIXPT>X</FIXPT>
<UNICODE>X</UNICODE>
</VSEOCLASS>
</asx:values>
</asx:abap>
</abapGit>

2
src/zabapgit.prog.abap
View File

@ -67,6 +67,8 @@ INCLUDE zabapgit_objects_impl.
INCLUDE zabapgit_object_serializing. " All serializing classes here
INCLUDE zabapgit_skip_objects.
INCLUDE zabapgit_repo_impl.
INCLUDE zabapgit_background.
INCLUDE zabapgit_transport.

15
src/zabapgit_2fa.prog.abap
View File

@ -657,11 +657,11 @@ CLASS lcl_2fa_auth_registry DEFINITION
"! @parameter cv_username | Username
"! @parameter cv_password | Password, will be replaced by an access token if two factor
"! authentication succeeds
"! @raising lcx_exception | Error in two factor authentication
"! @raising zcx_abapgit_exception | Error in two factor authentication
use_2fa_if_required IMPORTING iv_url TYPE string
CHANGING cv_username TYPE string
cv_password TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-DATA:
"! All authenticators managed by the registry
gt_registered_authenticators TYPE HASHED TABLE OF REF TO lif_2fa_authenticator
@ -670,7 +670,7 @@ CLASS lcl_2fa_auth_registry DEFINITION
CLASS-METHODS:
popup_token
RETURNING VALUE(rv_token) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
CLASS lcl_2fa_auth_registry IMPLEMENTATION.
@ -754,10 +754,7 @@ CLASS lcl_2fa_auth_registry IMPLEMENTATION.
CATCH lcx_2fa_illegal_state ##NO_HANDLER.
ENDTRY.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
iv_text = |2FA error: { lx_ex->get_text( ) }|
ix_previous = lx_ex.
zcx_abapgit_exception=>raise( |2FA error: { lx_ex->get_text( ) }| ).
ENDTRY.
ENDMETHOD.
@ -786,11 +783,11 @@ CLASS lcl_2fa_auth_registry IMPLEMENTATION.
error_in_fields = 1
OTHERS = 2. "#EC NOTEXT
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from POPUP_GET_VALUES' ).
zcx_abapgit_exception=>raise( 'Error from POPUP_GET_VALUES' ).
ENDIF.
IF lv_returncode = 'A'.
lcx_exception=>raise( 'Authentication cancelled' ).
zcx_abapgit_exception=>raise( 'Authentication cancelled' ).
ENDIF.
READ TABLE lt_fields INDEX 1 ASSIGNING <ls_field>.

4
src/zabapgit_app.prog.abap
View File

@ -16,12 +16,12 @@ CLASS lcl_app DEFINITION FINAL.
CLASS-METHODS gui
RETURNING VALUE(ro_gui) TYPE REF TO lcl_gui
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS user
IMPORTING iv_user TYPE xubname DEFAULT sy-uname
RETURNING VALUE(ro_user) TYPE REF TO lcl_persistence_user
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS repo_srv
RETURNING VALUE(ro_repo_srv) TYPE REF TO lcl_repo_srv.

12
src/zabapgit_background.prog.abap
View File

@ -7,7 +7,7 @@ CLASS lcl_background DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS:
run
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-METHODS:
@ -17,14 +17,14 @@ CLASS lcl_background DEFINITION FINAL.
push
IMPORTING io_repo TYPE REF TO lcl_repo_online
is_settings TYPE lcl_persist_background=>ty_background
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
push_fixed
IMPORTING io_repo TYPE REF TO lcl_repo_online
is_settings TYPE lcl_persist_background=>ty_background
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
push_auto
IMPORTING io_repo TYPE REF TO lcl_repo_online
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -44,7 +44,7 @@ CLASS lcl_background IMPLEMENTATION.
WHEN lcl_persist_background=>c_amethod-auto.
push_auto( io_repo ).
WHEN OTHERS.
lcx_exception=>raise( 'unknown push method' ).
zcx_abapgit_exception=>raise( 'unknown push method' ).
ENDCASE.
ENDMETHOD.
@ -233,7 +233,7 @@ CLASS lcl_background IMPLEMENTATION.
push( io_repo = lo_repo
is_settings = <ls_list> ).
WHEN OTHERS.
lcx_exception=>raise( 'background, unknown mode' ).
zcx_abapgit_exception=>raise( 'background, unknown mode' ).
ENDCASE.
ENDLOOP.

3
src/zabapgit_definitions.prog.abap
View File

@ -7,7 +7,7 @@ TYPE-POOLS seop.
INTERFACE lif_defs.
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.41.2'. "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.42.0'. "#EC NOTEXT
TYPES: ty_type TYPE c LENGTH 6,
ty_bitbyte TYPE c LENGTH 8,
@ -214,6 +214,7 @@ INTERFACE lif_defs.
repo_refresh_checksums TYPE string VALUE 'repo_refresh_checksums',
repo_toggle_fav TYPE string VALUE 'repo_toggle_fav',
repo_transport_to_branch TYPE string VALUE 'repo_transport_to_branch',
repo_syntax_check TYPE string VALUE 'repo_syntax_check',
abapgit_home TYPE string VALUE 'abapgit_home',
abapgit_wiki TYPE string VALUE 'abapgit_wiki',

8
src/zabapgit_dot_abapgit.prog.abap
View File

@ -32,14 +32,14 @@ CLASS lcl_dot_abapgit DEFINITION FINAL FRIENDS ltcl_dot_abapgit.
deserialize
IMPORTING iv_xstr TYPE xstring
RETURNING VALUE(ro_dot_abapgit) TYPE REF TO lcl_dot_abapgit
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS:
constructor
IMPORTING is_data TYPE ty_dot_abapgit,
serialize
RETURNING VALUE(rv_xstr) TYPE xstring
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
get_data
RETURNING VALUE(rs_data) TYPE ty_dot_abapgit,
add_ignore
@ -66,7 +66,7 @@ CLASS lcl_dot_abapgit DEFINITION FINAL FRIENDS ltcl_dot_abapgit.
* IMPORTING iv_language TYPE spras,
get_signature
RETURNING VALUE(rs_signature) TYPE lif_defs=>ty_file_signature
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
DATA: ms_data TYPE ty_dot_abapgit.
@ -75,7 +75,7 @@ CLASS lcl_dot_abapgit DEFINITION FINAL FRIENDS ltcl_dot_abapgit.
to_xml
IMPORTING is_data TYPE ty_dot_abapgit
RETURNING VALUE(rv_xml) TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
from_xml
IMPORTING iv_xml TYPE string
RETURNING VALUE(rs_data) TYPE ty_dot_abapgit.

39
src/zabapgit_exceptions.prog.abap
View File

@ -2,45 +2,6 @@
*& Include ZABAPGIT_EXCEPTIONS
*&---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* CLASS LCX_EXCEPTION DEFINITION
*----------------------------------------------------------------------*
CLASS lcx_exception DEFINITION INHERITING FROM cx_static_check FINAL.
PUBLIC SECTION.
DATA mv_text TYPE string.
METHODS constructor
IMPORTING iv_text TYPE string
ix_previous TYPE REF TO cx_root OPTIONAL.
CLASS-METHODS: raise IMPORTING iv_text TYPE clike
RAISING lcx_exception.
PRIVATE SECTION.
DATA mx_previous TYPE REF TO cx_root.
ENDCLASS. "CX_LOCAL_EXCEPTION DEFINITION
*----------------------------------------------------------------------*
* CLASS LCX_EXCEPTION IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcx_exception IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
mv_text = iv_text.
mx_previous = previous.
ENDMETHOD. "CONSTRUCTOR
METHOD raise.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
iv_text = iv_text.
ENDMETHOD.
ENDCLASS. "lcx_exception IMPLEMENTATION
*----------------------------------------------------------------------*
* CLASS LCX_NOT_FOUND DEFINITION
*----------------------------------------------------------------------*

6
src/zabapgit_file_status.prog.abap
View File

@ -17,7 +17,7 @@ CLASS lcl_file_status DEFINITION FINAL
IMPORTING io_repo TYPE REF TO lcl_repo
io_log TYPE REF TO lcl_log OPTIONAL
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
@ -28,13 +28,13 @@ CLASS lcl_file_status DEFINITION FINAL
it_remote TYPE lif_defs=>ty_files_tt
it_cur_state TYPE lif_defs=>ty_file_signatures_tt
RETURNING VALUE(rt_results) TYPE lif_defs=>ty_results_tt
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
run_checks
IMPORTING io_log TYPE REF TO lcl_log
it_results TYPE lif_defs=>ty_results_tt
io_dot TYPE REF TO lcl_dot_abapgit
iv_top TYPE devclass
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
build_existing
IMPORTING is_local TYPE lif_defs=>ty_file_item
is_remote TYPE lif_defs=>ty_file

34
src/zabapgit_folder_logic.prog.abap
View File

@ -13,7 +13,7 @@ CLASS lcl_folder_logic DEFINITION.
iv_package TYPE devclass
RETURNING
VALUE(rv_path) TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
path_to_package
IMPORTING
iv_top TYPE devclass
@ -22,7 +22,7 @@ CLASS lcl_folder_logic DEFINITION.
RETURNING
VALUE(rv_package) TYPE devclass
RAISING
lcx_exception.
zcx_abapgit_exception.
ENDCLASS.
@ -38,7 +38,7 @@ CLASS lcl_folder_logic IMPLEMENTATION.
lv_length = strlen( io_dot->get_starting_folder( ) ).
IF lv_length > strlen( iv_path ).
lcx_exception=>raise( 'unexpected folder structure' ).
zcx_abapgit_exception=>raise( 'unexpected folder structure' ).
ENDIF.
lv_path = iv_path+lv_length.
lv_parent = iv_top.
@ -86,7 +86,7 @@ CLASS lcl_folder_logic IMPLEMENTATION.
lv_parentcl = lcl_sap_package=>get( iv_package )->read_parent( ).
IF lv_parentcl IS INITIAL.
lcx_exception=>raise( |error, expected parent package, { iv_package }| ).
zcx_abapgit_exception=>raise( |error, expected parent package, { iv_package }| ).
ELSE.
CASE io_dot->get_folder_logic( ).
WHEN lcl_dot_abapgit=>c_folder_logic-full.
@ -102,7 +102,7 @@ CLASS lcl_folder_logic IMPLEMENTATION.
* ZZZ_something. This will define the folder name in the zip file to be "something",
* similarily with online projects. Alternatively change to FULL folder logic
lv_message = 'PREFIX: Unexpected package naming(' && iv_package && ')' ##no_text.
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDIF.
WHEN OTHERS.
ASSERT 0 = 1.
@ -110,7 +110,7 @@ CLASS lcl_folder_logic IMPLEMENTATION.
lv_path = iv_package+lv_len.
IF strlen( lv_path ) = 0.
lcx_exception=>raise( 'Folder logic: length = 0' ).
zcx_abapgit_exception=>raise( 'Folder logic: length = 0' ).
ENDIF.
IF lv_path(1) = '_'.
@ -143,7 +143,7 @@ CLASS ltcl_folder_logic_helper DEFINITION FOR TESTING FINAL.
iv_logic TYPE string
iv_package TYPE devclass
iv_path TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -194,11 +194,11 @@ CLASS ltcl_folder_logic DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION SHOR
METHODS:
setup,
teardown,
prefix1 FOR TESTING RAISING lcx_exception,
prefix2 FOR TESTING RAISING lcx_exception,
prefix_error1 FOR TESTING RAISING lcx_exception,
full1 FOR TESTING RAISING lcx_exception,
full2 FOR TESTING RAISING lcx_exception.
prefix1 FOR TESTING RAISING zcx_abapgit_exception,
prefix2 FOR TESTING RAISING zcx_abapgit_exception,
prefix_error1 FOR TESTING RAISING zcx_abapgit_exception,
full1 FOR TESTING RAISING zcx_abapgit_exception,
full2 FOR TESTING RAISING zcx_abapgit_exception.
ENDCLASS. "ltcl_convert DEFINITION
@ -274,7 +274,7 @@ CLASS ltcl_folder_logic IMPLEMENTATION.
iv_package = '$FOOBAR'
iv_path = '/src/' ).
cl_abap_unit_assert=>fail( 'Error expected' ).
CATCH lcx_exception ##NO_HANDLER.
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
ENDMETHOD.
@ -310,10 +310,10 @@ CLASS ltcl_folder_logic_namespaces DEFINITION FOR TESTING RISK LEVEL HARMLESS DU
METHODS:
setup,
teardown,
prefix1 FOR TESTING RAISING lcx_exception,
prefix2 FOR TESTING RAISING lcx_exception,
full1 FOR TESTING RAISING lcx_exception,
full2 FOR TESTING RAISING lcx_exception.
prefix1 FOR TESTING RAISING zcx_abapgit_exception,
prefix2 FOR TESTING RAISING zcx_abapgit_exception,
full1 FOR TESTING RAISING zcx_abapgit_exception,
full2 FOR TESTING RAISING zcx_abapgit_exception.
ENDCLASS. "ltcl_convert DEFINITION

20
src/zabapgit_forms.prog.abap
View File

@ -7,7 +7,7 @@
*&---------------------------------------------------------------------*
FORM run.
DATA: lx_exception TYPE REF TO lcx_exception,
DATA: lx_exception TYPE REF TO zcx_abapgit_exception,
lv_ind TYPE t000-ccnocliind.
@ -23,13 +23,13 @@ FORM run.
TRY.
lcl_migrations=>run( ).
PERFORM open_gui.
CATCH lcx_exception INTO lx_exception.
MESSAGE lx_exception->mv_text TYPE 'E'.
CATCH zcx_abapgit_exception INTO lx_exception.
MESSAGE lx_exception->text TYPE 'E'.
ENDTRY.
ENDFORM. "run
FORM open_gui RAISING lcx_exception.
FORM open_gui RAISING zcx_abapgit_exception.
IF sy-batch = abap_true.
lcl_background=>run( ).
@ -50,7 +50,7 @@ ENDFORM.
* -->CS_ERROR text
* -->CV_SHOW_POPUP text
* -->RAISING text
* -->LCX_EXCEPTION text
* -->zcx_abapgit_exception text
* -->##CALLED text
* -->##NEEDED text
*----------------------------------------------------------------------*
@ -58,11 +58,11 @@ FORM branch_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt
USING pv_code TYPE clike
CHANGING cs_error TYPE svale
cv_show_popup TYPE c
RAISING lcx_exception ##called ##needed.
RAISING zcx_abapgit_exception ##called ##needed.
* called dynamically from function module POPUP_GET_VALUES_USER_BUTTONS
DATA: lv_url TYPE string,
lx_error TYPE REF TO lcx_exception,
lx_error TYPE REF TO zcx_abapgit_exception,
ls_package_data TYPE scompkdtln,
ls_branch TYPE lcl_git_branch_list=>ty_git_branch,
lv_create TYPE boolean.
@ -85,7 +85,7 @@ FORM branch_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt
TRY.
ls_branch = lcl_popups=>branch_list_popup( lv_url ).
CATCH lcx_exception INTO lx_error.
CATCH zcx_abapgit_exception INTO lx_error.
MESSAGE lx_error TYPE 'S' DISPLAY LIKE 'E'.
RETURN.
ENDTRY.
@ -120,7 +120,7 @@ FORM package_popup TABLES tt_fields TYPE lif_defs=>ty_sval_tt
USING pv_code TYPE clike
CHANGING cs_error TYPE svale
cv_show_popup TYPE c
RAISING lcx_exception ##called ##needed.
RAISING zcx_abapgit_exception ##called ##needed.
* called dynamically from function module POPUP_GET_VALUES_USER_BUTTONS
DATA: ls_package_data TYPE scompkdtln,
@ -161,7 +161,7 @@ FORM output.
p_exclude = lt_ucomm.
ENDFORM.
FORM exit RAISING lcx_exception.
FORM exit RAISING zcx_abapgit_exception.
CASE sy-ucomm.
WHEN 'CBAC'. "Back
IF lcl_app=>gui( )->back( ) IS INITIAL.

106
src/zabapgit_git.prog.abap
View File

@ -18,7 +18,7 @@ CLASS lcl_git_transport DEFINITION FINAL.
it_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt OPTIONAL
EXPORTING et_objects TYPE lif_defs=>ty_objects_tt
ev_branch TYPE lif_defs=>ty_sha1
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
* local to remote
CLASS-METHODS receive_pack
@ -27,12 +27,12 @@ CLASS lcl_git_transport DEFINITION FINAL.
iv_new TYPE lif_defs=>ty_sha1
iv_branch_name TYPE string
iv_pack TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS branches
IMPORTING iv_url TYPE string
RETURNING VALUE(ro_branch_list) TYPE REF TO lcl_git_branch_list
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CONSTANTS: BEGIN OF c_service,
@ -45,7 +45,7 @@ CLASS lcl_git_transport DEFINITION FINAL.
iv_service TYPE string
EXPORTING eo_client TYPE REF TO lcl_http_client
eo_branch_list TYPE REF TO lcl_git_branch_list
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS find_branch
IMPORTING iv_url TYPE string
@ -53,12 +53,12 @@ CLASS lcl_git_transport DEFINITION FINAL.
iv_branch_name TYPE string
EXPORTING eo_client TYPE REF TO lcl_http_client
ev_branch TYPE lif_defs=>ty_sha1
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS parse
EXPORTING ev_pack TYPE xstring
CHANGING cv_data TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_transport DEFINITION
@ -89,22 +89,22 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS decode
IMPORTING iv_data TYPE xstring
RETURNING VALUE(rt_objects) TYPE lif_defs=>ty_objects_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS decode_tree
IMPORTING iv_data TYPE xstring
RETURNING VALUE(rt_nodes) TYPE ty_nodes_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS decode_commit
IMPORTING iv_data TYPE xstring
RETURNING VALUE(rs_commit) TYPE ty_commit
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS encode
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt
RETURNING VALUE(rv_data) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS encode_tree
IMPORTING it_nodes TYPE ty_nodes_tt
@ -118,7 +118,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
IMPORTING iv_type TYPE lif_defs=>ty_type
iv_length TYPE i
RETURNING VALUE(rv_xstring) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CONSTANTS: c_pack_start TYPE x LENGTH 4 VALUE '5041434B', " PACK
@ -128,12 +128,12 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS decode_deltas
CHANGING ct_objects TYPE lif_defs=>ty_objects_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS delta
IMPORTING is_object TYPE lif_defs=>ty_object
CHANGING ct_objects TYPE lif_defs=>ty_objects_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS delta_header
EXPORTING ev_header TYPE i
@ -146,7 +146,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS get_type
IMPORTING iv_x TYPE x
RETURNING VALUE(rv_type) TYPE lif_defs=>ty_type
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS get_length
EXPORTING ev_length TYPE i
@ -155,7 +155,7 @@ CLASS lcl_git_pack DEFINITION FINAL FRIENDS ltcl_git_pack.
CLASS-METHODS zlib_decompress
CHANGING cv_data TYPE xstring
cv_decompressed TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_pack DEFINITION
@ -264,11 +264,11 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_string = lcl_convert=>xstring_to_string_utf8( lv_xstring ).
IF NOT lv_string CP '*unpack ok*'.
lcx_exception=>raise( 'unpack not ok' ).
zcx_abapgit_exception=>raise( 'unpack not ok' ).
ELSEIF lv_string CP '*pre-receive hook declined*'.
lcx_exception=>raise( 'pre-receive hook declined' ).
zcx_abapgit_exception=>raise( 'pre-receive hook declined' ).
ELSEIF lv_string CP '*funny refname*'.
lcx_exception=>raise( 'funny refname' ).
zcx_abapgit_exception=>raise( 'funny refname' ).
ENDIF.
ENDMETHOD. "receive_pack
@ -286,7 +286,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
lv_len = lcl_git_utils=>length_utf8_hex( cv_data ).
IF lv_len > xstrlen( cv_data ).
lcx_exception=>raise( 'parse, string length too large' ).
zcx_abapgit_exception=>raise( 'parse, string length too large' ).
ENDIF.
lv_contents = cv_data(lv_len).
@ -372,7 +372,7 @@ CLASS lcl_git_transport IMPLEMENTATION.
CHANGING cv_data = lv_xstring ).
IF lv_pack IS INITIAL.
lcx_exception=>raise( 'empty pack' ).
zcx_abapgit_exception=>raise( 'empty pack' ).
ENDIF.
et_objects = lcl_git_pack=>decode( lv_pack ).
@ -441,7 +441,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
WHEN lif_defs=>gc_type-ref_d.
lv_type = '111'.
WHEN OTHERS.
lcx_exception=>raise( 'Unexpected object type while encoding pack' ).
zcx_abapgit_exception=>raise( 'Unexpected object type while encoding pack' ).
ENDCASE.
lv_x4 = iv_length.
@ -466,7 +466,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
CONCATENATE lv_result '0' lv_bits+7(7) INTO lv_result.
ELSE.
* this IF can be refactored, use shifting?
lcx_exception=>raise( 'Todo, encoding length' ).
zcx_abapgit_exception=>raise( 'Todo, encoding length' ).
ENDIF.
* convert bit string to xstring
@ -603,7 +603,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
WHEN '111'.
rv_type = lif_defs=>gc_type-ref_d.
WHEN OTHERS.
lcx_exception=>raise( 'Todo, unknown type' ).
zcx_abapgit_exception=>raise( 'Todo, unknown type' ).
ENDCASE.
ENDMETHOD. "get_type
@ -663,7 +663,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
IF rs_commit-author IS INITIAL
OR rs_commit-committer IS INITIAL
OR rs_commit-tree IS INITIAL.
lcx_exception=>raise( 'multiple parents? not supported' ).
zcx_abapgit_exception=>raise( 'multiple parents? not supported' ).
ENDIF.
ENDMETHOD. "decode_commit
@ -714,10 +714,10 @@ CLASS lcl_git_pack IMPLEMENTATION.
* find base
READ TABLE ct_objects ASSIGNING <ls_object> WITH KEY sha1 = is_object-sha1.
IF sy-subrc <> 0.
lcx_exception=>raise( |Base not found, { is_object-sha1 }| ).
zcx_abapgit_exception=>raise( |Base not found, { is_object-sha1 }| ).
ELSEIF <ls_object>-type = lif_defs=>gc_type-ref_d.
* sanity check
lcx_exception=>raise( 'Delta, base eq delta' ).
zcx_abapgit_exception=>raise( 'Delta, base eq delta' ).
ENDIF.
lv_base = <ls_object>-data.
@ -857,7 +857,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
IF ls_node-chmod <> lif_defs=>gc_chmod-dir
AND ls_node-chmod <> lif_defs=>gc_chmod-file
AND ls_node-chmod <> lif_defs=>gc_chmod-executable.
lcx_exception=>raise( 'Unknown chmod' ).
zcx_abapgit_exception=>raise( 'Unknown chmod' ).
ENDIF.
ls_node-name = lv_name.
@ -886,7 +886,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
cv_decompressed = ls_data-raw.
IF lv_compressed_len IS INITIAL.
lcx_exception=>raise( 'Decompression falied :o/' ).
zcx_abapgit_exception=>raise( 'Decompression falied :o/' ).
ENDIF.
cv_data = cv_data+lv_compressed_len.
@ -899,7 +899,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
cv_data = cv_data+1.
ENDIF.
IF cv_data(4) <> lv_adler32.
lcx_exception=>raise( 'Wrong Adler checksum' ).
zcx_abapgit_exception=>raise( 'Wrong Adler checksum' ).
ENDIF.
ENDMETHOD.
@ -926,13 +926,13 @@ CLASS lcl_git_pack IMPLEMENTATION.
* header
IF NOT xstrlen( lv_data ) > 4 OR lv_data(4) <> c_pack_start.
lcx_exception=>raise( 'Unexpected pack header' ).
zcx_abapgit_exception=>raise( 'Unexpected pack header' ).
ENDIF.
lv_data = lv_data+4.
* version
IF lv_data(4) <> c_version.
lcx_exception=>raise( 'Version not supported' ).
zcx_abapgit_exception=>raise( 'Version not supported' ).
ENDIF.
lv_data = lv_data+4.
@ -958,7 +958,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
* strip header, '789C', CMF + FLG
lv_zlib = lv_data(2).
IF lv_zlib <> c_zlib AND lv_zlib <> c_zlib_hmm.
lcx_exception=>raise( 'Unexpected zlib header' ).
zcx_abapgit_exception=>raise( 'Unexpected zlib header' ).
ENDIF.
lv_data = lv_data+2.
@ -973,7 +973,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
raw_out_len = lv_decompress_len ).
IF lv_expected <> lv_decompress_len.
lcx_exception=>raise( 'Decompression falied' ).
zcx_abapgit_exception=>raise( 'Decompression falied' ).
ENDIF.
cl_abap_gzip=>compress_binary(
@ -1024,7 +1024,7 @@ CLASS lcl_git_pack IMPLEMENTATION.
lv_xstring = iv_data(lv_len).
lv_sha1 = lcl_hash=>sha1_raw( lv_xstring ).
IF to_upper( lv_sha1 ) <> lv_data.
lcx_exception=>raise( 'SHA1 at end of pack doesnt match' ).
zcx_abapgit_exception=>raise( 'SHA1 at end of pack doesnt match' ).
ENDIF.
decode_deltas( CHANGING ct_objects = rt_objects ).
@ -1109,7 +1109,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
EXPORTING et_files TYPE lif_defs=>ty_files_tt
et_objects TYPE lif_defs=>ty_objects_tt
ev_branch TYPE lif_defs=>ty_sha1
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS push
IMPORTING io_repo TYPE REF TO lcl_repo_online
@ -1117,24 +1117,24 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
io_stage TYPE REF TO lcl_stage
EXPORTING ev_branch TYPE lif_defs=>ty_sha1
et_updated_files TYPE lif_defs=>ty_file_signatures_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS create_branch
IMPORTING io_repo TYPE REF TO lcl_repo_online
iv_name TYPE string
iv_from TYPE lif_defs=>ty_sha1
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS delete_branch
IMPORTING io_repo TYPE REF TO lcl_repo_online
is_branch TYPE lcl_git_branch_list=>ty_git_branch
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS full_tree
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt
iv_branch TYPE lif_defs=>ty_sha1
RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
@ -1159,7 +1159,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
CLASS-METHODS build_trees
IMPORTING it_expanded TYPE ty_expanded_tt
RETURNING VALUE(rt_trees) TYPE ty_trees_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS find_folders
IMPORTING it_expanded TYPE ty_expanded_tt
@ -1170,14 +1170,14 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
iv_sha1 TYPE lif_defs=>ty_sha1
iv_path TYPE string
CHANGING ct_files TYPE lif_defs=>ty_files_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS walk_tree
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt
iv_tree TYPE lif_defs=>ty_sha1
iv_base TYPE string
RETURNING VALUE(rt_expanded) TYPE ty_expanded_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS receive_pack
IMPORTING is_comment TYPE lif_defs=>ty_comment
@ -1186,7 +1186,7 @@ CLASS lcl_git_porcelain DEFINITION FINAL FRIENDS ltcl_git_porcelain.
it_blobs TYPE lif_defs=>ty_files_tt
io_stage TYPE REF TO lcl_stage
RETURNING VALUE(rv_branch) TYPE lif_defs=>ty_sha1
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_porcelain DEFINITION
@ -1199,7 +1199,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
METHOD receive_pack.
DATA: lv_time TYPE lcl_time=>ty_unixtime,
DATA: lv_time TYPE zcl_abapgit_time=>ty_unixtime,
lv_commit TYPE xstring,
lt_objects TYPE lif_defs=>ty_objects_tt,
lv_pack TYPE xstring,
@ -1210,7 +1210,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
<ls_blob> LIKE LINE OF it_blobs.
lv_time = lcl_time=>get( ).
lv_time = zcl_abapgit_time=>get( ).
READ TABLE it_trees ASSIGNING <ls_tree> WITH KEY path = '/'.
ASSERT sy-subrc = 0.
@ -1302,7 +1302,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
lv_pack TYPE xstring.
IF iv_name CS ` `.
lcx_exception=>raise( 'Branch name cannot contain blank spaces' ).
zcx_abapgit_exception=>raise( 'Branch name cannot contain blank spaces' ).
ENDIF.
* "client MUST send an empty packfile"
@ -1391,7 +1391,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
CLEAR <ls_updated>-sha1. " Mark as deleted
WHEN OTHERS.
lcx_exception=>raise( 'stage method not supported, todo' ).
zcx_abapgit_exception=>raise( 'stage method not supported, todo' ).
ENDCASE.
ENDLOOP.
@ -1419,7 +1419,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
WITH KEY sha1 = iv_tree
type = lif_defs=>gc_type-tree.
IF sy-subrc <> 0.
lcx_exception=>raise( 'tree not found' ).
zcx_abapgit_exception=>raise( 'tree not found' ).
ENDIF.
lt_nodes = lcl_git_pack=>decode_tree( ls_object-data ).
@ -1439,7 +1439,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
iv_base = iv_base && <ls_node>-name && '/' ).
APPEND LINES OF lt_expanded TO rt_expanded.
WHEN OTHERS.
lcx_exception=>raise( 'walk_tree: unknown chmod' ).
zcx_abapgit_exception=>raise( 'walk_tree: unknown chmod' ).
ENDCASE.
ENDLOOP.
@ -1453,7 +1453,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE it_objects INTO ls_object WITH KEY sha1 = iv_branch type = lif_defs=>gc_type-commit.
IF sy-subrc <> 0.
lcx_exception=>raise( 'commit not found' ).
zcx_abapgit_exception=>raise( 'commit not found' ).
ENDIF.
ls_commit = lcl_git_pack=>decode_commit( ls_object-data ).
@ -1479,7 +1479,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE et_objects INTO ls_object WITH KEY sha1 = ev_branch type = lif_defs=>gc_type-commit.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Commit/branch not found' ).
zcx_abapgit_exception=>raise( 'Commit/branch not found' ).
ENDIF.
ls_commit = lcl_git_pack=>decode_commit( ls_object-data ).
@ -1599,7 +1599,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE it_objects ASSIGNING <ls_tree> WITH KEY sha1 = iv_sha1 type = lif_defs=>gc_type-tree.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Walk, tree not found' ).
zcx_abapgit_exception=>raise( 'Walk, tree not found' ).
ENDIF.
lt_nodes = lcl_git_pack=>decode_tree( <ls_tree>-data ).
@ -1609,7 +1609,7 @@ CLASS lcl_git_porcelain IMPLEMENTATION.
READ TABLE it_objects ASSIGNING <ls_blob>
WITH KEY sha1 = <ls_node>-sha1 type = lif_defs=>gc_type-blob.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Walk, blob not found' ).
zcx_abapgit_exception=>raise( 'Walk, blob not found' ).
ENDIF.
CLEAR ls_file.

26
src/zabapgit_git_helpers.prog.abap
View File

@ -14,12 +14,12 @@ CLASS lcl_git_utils DEFINITION FINAL. " > Maybe better move to lcl_git_pack ??
CLASS-METHODS pkt_string
IMPORTING iv_string TYPE string
RETURNING VALUE(rv_pkt) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS length_utf8_hex
IMPORTING iv_data TYPE xstring
RETURNING VALUE(rv_len) TYPE i
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_git_utils
@ -61,7 +61,7 @@ CLASS lcl_git_utils IMPLEMENTATION.
lo_obj->read( EXPORTING n = lv_len
IMPORTING data = lv_string ).
CATCH cx_sy_conversion_codepage.
lcx_exception=>raise( 'error converting to hex, LENGTH_UTF8_HEX' ).
zcx_abapgit_exception=>raise( 'error converting to hex, LENGTH_UTF8_HEX' ).
ENDTRY.
lv_char4 = lv_string.
@ -80,7 +80,7 @@ CLASS lcl_git_utils IMPLEMENTATION.
lv_len = strlen( iv_string ).
IF lv_len >= 255.
lcx_exception=>raise( 'PKT, todo' ).
zcx_abapgit_exception=>raise( 'PKT, todo' ).
ENDIF.
lv_x = lv_len + 4.
@ -115,27 +115,27 @@ CLASS lcl_git_branch_list DEFINITION FINAL.
METHODS constructor
IMPORTING iv_data TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS find_by_name
IMPORTING iv_branch_name TYPE clike
RETURNING VALUE(rs_branch) TYPE ty_git_branch
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_head " For potential future use
RETURNING VALUE(rs_branch) TYPE ty_git_branch
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_head_symref
RETURNING VALUE(rv_head_symref) TYPE string.
METHODS get_branches_only
RETURNING VALUE(rt_branches) TYPE ty_git_branch_list_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_tags_only " For potential future use
RETURNING VALUE(rt_branches) TYPE ty_git_branch_list_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS is_ignored
IMPORTING iv_branch_name TYPE clike
@ -165,7 +165,7 @@ CLASS lcl_git_branch_list DEFINITION FINAL.
IMPORTING iv_data TYPE string
EXPORTING et_list TYPE ty_git_branch_list_tt
ev_head_symref TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS parse_head_params
IMPORTING iv_data TYPE string
@ -192,13 +192,13 @@ CLASS lcl_git_branch_list IMPLEMENTATION.
METHOD find_by_name.
IF iv_branch_name IS INITIAL.
lcx_exception=>raise( 'Branch name empty' ).
zcx_abapgit_exception=>raise( 'Branch name empty' ).
ENDIF.
READ TABLE mt_branches INTO rs_branch
WITH KEY name = iv_branch_name.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Branch not found' ).
zcx_abapgit_exception=>raise( 'Branch not found' ).
ENDIF.
ENDMETHOD. "find_by_name
@ -244,7 +244,7 @@ CLASS lcl_git_branch_list IMPLEMENTATION.
lv_hash = lv_data+4.
lv_name = lv_data+45.
ELSEIF sy-tabix = 2 AND strlen( lv_data ) = 8 AND lv_data(8) = '00000000'.
lcx_exception=>raise( 'No branches, create branch manually by adding file' ).
zcx_abapgit_exception=>raise( 'No branches, create branch manually by adding file' ).
ELSE.
CONTINUE.
ENDIF.

20
src/zabapgit_gui.prog.abap
View File

@ -10,12 +10,12 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
PUBLIC SECTION.
METHODS go_home
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS back
IMPORTING iv_to_bookmark TYPE abap_bool DEFAULT abap_false
RETURNING VALUE(rv_exit) TYPE xfeld
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS on_event FOR EVENT sapevent OF cl_gui_html_viewer
IMPORTING action frame getdata postdata query_table. "#EC NEEDED
@ -34,10 +34,10 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
mo_html_viewer TYPE REF TO cl_gui_html_viewer.
METHODS constructor
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS startup
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS cache_html
IMPORTING iv_text TYPE string
@ -52,7 +52,7 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
RETURNING VALUE(rv_url) TYPE w3url.
METHODS render
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_current_page_name
RETURNING VALUE(rv_page_name) TYPE string.
@ -61,7 +61,7 @@ CLASS lcl_gui DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
IMPORTING ii_page TYPE REF TO lif_gui_page
iv_with_bookmark TYPE abap_bool DEFAULT abap_false
iv_replacing TYPE abap_bool DEFAULT abap_false
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS handle_action
IMPORTING action TYPE c
@ -85,7 +85,7 @@ CLASS lcl_gui IMPLEMENTATION.
METHOD handle_action.
DATA: lx_exception TYPE REF TO lcx_exception,
DATA: lx_exception TYPE REF TO zcx_abapgit_exception,
li_page TYPE REF TO lif_gui_page,
lv_state TYPE i.
@ -130,12 +130,12 @@ CLASS lcl_gui IMPLEMENTATION.
WHEN lif_defs=>gc_event_state-no_more_act.
" Do nothing, handling completed
WHEN OTHERS.
lcx_exception=>raise( |Unknown action: { action }| ).
zcx_abapgit_exception=>raise( |Unknown action: { action }| ).
ENDCASE.
CATCH lcx_exception INTO lx_exception.
CATCH zcx_abapgit_exception INTO lx_exception.
ROLLBACK WORK.
MESSAGE lx_exception->mv_text TYPE 'S' DISPLAY LIKE 'E'.
MESSAGE lx_exception->text TYPE 'S' DISPLAY LIKE 'E'.
CATCH lcx_cancel ##NO_HANDLER.
" Do nothing = gc_event_state-no_more_act
ENDTRY.

12
src/zabapgit_gui_asset_manager.prog.abap
View File

@ -8,7 +8,7 @@ CLASS lcl_gui_asset_manager DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_gui.
METHODS get_asset
IMPORTING iv_asset_name TYPE string
RETURNING VALUE(rv_data) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_images
RETURNING VALUE(rt_images) TYPE lif_defs=>tt_web_assets.
@ -21,12 +21,12 @@ CLASS lcl_gui_asset_manager DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_gui.
METHODS get_inline_asset
IMPORTING iv_asset_name TYPE string
RETURNING VALUE(rv_data) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_mime_asset
IMPORTING iv_asset_name TYPE c
RETURNING VALUE(rv_data) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_inline_images
RETURNING VALUE(rt_images) TYPE lif_defs=>tt_web_assets.
@ -48,7 +48,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
WHEN 'JS_COMMON'.
lv_mime_name = 'ZABAPGIT_JS_COMMON'.
WHEN OTHERS.
lcx_exception=>raise( |Improper resource name: { iv_asset_name }| ).
zcx_abapgit_exception=>raise( |Improper resource name: { iv_asset_name }| ).
ENDCASE.
" Inline is default (for older AG snapshots to work)
@ -58,7 +58,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
ENDIF.
IF rv_data IS INITIAL.
lcx_exception=>raise( |Failed to get GUI resource: { iv_asset_name }| ).
zcx_abapgit_exception=>raise( |Failed to get GUI resource: { iv_asset_name }| ).
ENDIF.
ENDMETHOD. " get_asset.
@ -152,7 +152,7 @@ CLASS lcl_gui_asset_manager IMPLEMENTATION.
WHEN 'JS_COMMON'.
" @@abapmerge include zabapgit_js_common.w3mi.data.js > _inline '$$'.
WHEN OTHERS.
lcx_exception=>raise( |No inline resource: { iv_asset_name }| ).
zcx_abapgit_exception=>raise( |No inline resource: { iv_asset_name }| ).
ENDCASE.
CONCATENATE LINES OF lt_data INTO lv_str SEPARATED BY lif_defs=>gc_newline.

1
src/zabapgit_gui_pages.prog.abap
View File

@ -30,3 +30,4 @@ INCLUDE zabapgit_page_stage.
INCLUDE zabapgit_page_debug.
INCLUDE zabapgit_page_settings.
INCLUDE zabapgit_page_repo_settings.
INCLUDE zabapgit_page_syntax_check.

27
src/zabapgit_gui_router.prog.abap
View File

@ -15,45 +15,45 @@ CLASS lcl_gui_router DEFINITION FINAL.
it_postdata TYPE cnht_post_data_tab OPTIONAL
EXPORTING ei_page TYPE REF TO lif_gui_page
ev_state TYPE i
RAISING lcx_exception lcx_cancel.
RAISING zcx_abapgit_exception lcx_cancel.
PRIVATE SECTION.
METHODS get_page_by_name
IMPORTING iv_name TYPE clike
RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_page_diff
IMPORTING iv_getdata TYPE clike
iv_prev_page TYPE clike
RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_page_branch_overview
IMPORTING iv_getdata TYPE clike
RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_page_stage
IMPORTING iv_getdata TYPE clike
RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_page_db_by_name
IMPORTING iv_name TYPE clike
iv_getdata TYPE clike
RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_page_background
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_page_playground
RETURNING VALUE(ri_page) TYPE REF TO lif_gui_page
RAISING lcx_exception lcx_cancel.
RAISING zcx_abapgit_exception lcx_cancel.
ENDCLASS.
@ -163,6 +163,11 @@ CLASS lcl_gui_router IMPLEMENTATION.
WHEN lif_defs=>gc_action-repo_refresh. " Repo refresh
lcl_services_repo=>refresh( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
WHEN lif_defs=>gc_action-repo_syntax_check.
CREATE OBJECT ei_page TYPE lcl_gui_page_syntax_check
EXPORTING
io_repo = lcl_app=>repo_srv( )->get( lv_key ).
ev_state = lif_defs=>gc_event_state-new_page.
WHEN lif_defs=>gc_action-repo_purge. " Repo remove & purge all objects
lcl_services_repo=>purge( lv_key ).
ev_state = lif_defs=>gc_event_state-re_render.
@ -251,7 +256,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
TRY.
CREATE OBJECT ri_page TYPE (lv_page_class).
CATCH cx_sy_create_object_error.
lcx_exception=>raise( |Cannot create page class { lv_page_class }| ).
zcx_abapgit_exception=>raise( |Cannot create page class { lv_page_class }| ).
ENDTRY.
ENDMETHOD. " get_page_by_name
@ -272,7 +277,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
CATCH cx_sy_create_object_error.
lv_message = |Cannot create page class { lv_page_class }|.
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. " get_page_db_by_name
@ -372,7 +377,7 @@ CLASS lcl_gui_router IMPLEMENTATION.
TRY.
CREATE OBJECT ri_page TYPE (lv_class_name).
CATCH cx_sy_create_object_error.
lcx_exception=>raise( |Cannot create page class { lv_class_name }| ).
zcx_abapgit_exception=>raise( |Cannot create page class { lv_class_name }| ).
ENDTRY.
ENDMETHOD. "get_page_playground

8
src/zabapgit_html_action_utils.prog.abap
View File

@ -38,7 +38,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL.
IMPORTING iv_string TYPE clike
EXPORTING ev_obj_type TYPE tadir-object
ev_obj_name TYPE tadir-obj_name
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS dir_encode
IMPORTING iv_path TYPE string
@ -47,7 +47,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL.
CLASS-METHODS dir_decode
IMPORTING iv_string TYPE clike
RETURNING VALUE(rv_path) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS file_encode
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
@ -64,7 +64,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL.
EXPORTING ev_key TYPE lcl_persistence_repo=>ty_repo-key
eg_file TYPE any "assuming ty_file
eg_object TYPE any "assuming ty_item
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS dbkey_encode
IMPORTING is_key TYPE lcl_persistence_db=>ty_content
@ -90,7 +90,7 @@ CLASS lcl_html_action_utils DEFINITION FINAL.
IMPORTING iv_getdata TYPE clike
EXPORTING ev_key TYPE lcl_persistence_repo=>ty_repo-key
ev_seed TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-METHODS unescape

12
src/zabapgit_html_chunks.prog.abap
View File

@ -7,7 +7,7 @@ CLASS lcl_gui_chunk_lib DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS render_error
IMPORTING ix_error TYPE REF TO lcx_exception OPTIONAL
IMPORTING ix_error TYPE REF TO zcx_abapgit_exception OPTIONAL
iv_error TYPE string OPTIONAL
RETURNING VALUE(ro_html) TYPE REF TO lcl_html.
@ -19,7 +19,7 @@ CLASS lcl_gui_chunk_lib DEFINITION FINAL.
iv_branch TYPE string OPTIONAL
io_news TYPE REF TO lcl_news OPTIONAL
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS render_item_state
IMPORTING iv1 TYPE char1
@ -31,17 +31,17 @@ CLASS lcl_gui_chunk_lib DEFINITION FINAL.
io_repo TYPE REF TO lcl_repo_online
iv_interactive TYPE abap_bool
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS render_js_error_banner
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS render_news
IMPORTING
io_news TYPE REF TO lcl_news
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_gui_chunk_lib
@ -223,7 +223,7 @@ CLASS lcl_gui_chunk_lib IMPLEMENTATION.
CREATE OBJECT ro_html.
IF ix_error IS BOUND.
lv_error = ix_error->mv_text.
lv_error = ix_error->text.
ELSE.
lv_error = iv_error.
ENDIF.

48
src/zabapgit_http.prog.abap
View File

@ -8,13 +8,13 @@ CLASS lcl_proxy_auth DEFINITION FINAL.
CLASS-METHODS:
run
IMPORTING ii_client TYPE REF TO if_http_client
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-DATA: gv_username TYPE string,
gv_password TYPE string.
CLASS-METHODS: enter RAISING lcx_exception.
CLASS-METHODS: enter RAISING zcx_abapgit_exception.
ENDCLASS.
@ -43,7 +43,7 @@ CLASS lcl_proxy_auth IMPLEMENTATION.
cv_pass = gv_password ).
IF gv_username IS INITIAL OR gv_password IS INITIAL.
lcx_exception=>raise( 'Proxy auth failed' ).
zcx_abapgit_exception=>raise( 'Proxy auth failed' ).
ENDIF.
ENDMETHOD.
@ -59,11 +59,11 @@ CLASS lcl_http_digest DEFINITION FINAL.
ii_client TYPE REF TO if_http_client
iv_username TYPE string
iv_password TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
run
IMPORTING
ii_client TYPE REF TO if_http_client
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
DATA: mv_ha1 TYPE string,
@ -80,7 +80,7 @@ CLASS lcl_http_digest DEFINITION FINAL.
iv_data TYPE string
RETURNING
VALUE(rv_hash) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS:
hash
@ -92,7 +92,7 @@ CLASS lcl_http_digest DEFINITION FINAL.
iv_cnonse TYPE string
RETURNING
VALUE(rv_response) TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
parse
IMPORTING
ii_client TYPE REF TO if_http_client.
@ -114,17 +114,17 @@ CLASS lcl_http_client DEFINITION FINAL.
iv_data TYPE xstring
RETURNING
VALUE(rv_data) TYPE xstring
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
get_cdata
RETURNING VALUE(rv_value) TYPE string,
check_http_200
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
send_receive
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
set_headers
IMPORTING iv_url TYPE string
iv_service TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
DATA: mi_client TYPE REF TO if_http_client,
@ -222,7 +222,7 @@ CLASS lcl_http_client IMPLEMENTATION.
WHEN OTHERS.
lv_text = 'Another error occured'. "#EC NOTEXT
ENDCASE.
lcx_exception=>raise( lv_text ).
zcx_abapgit_exception=>raise( lv_text ).
ENDIF.
ENDMETHOD. "send_receive
@ -240,18 +240,18 @@ CLASS lcl_http_client IMPLEMENTATION.
WHEN 200.
RETURN.
WHEN 302.
lcx_exception=>raise( 'HTTP redirect, check URL' ).
zcx_abapgit_exception=>raise( 'HTTP redirect, check URL' ).
WHEN 401.
lcx_exception=>raise( 'HTTP 401, unauthorized' ).
zcx_abapgit_exception=>raise( 'HTTP 401, unauthorized' ).
WHEN 403.
lcx_exception=>raise( 'HTTP 403, forbidden' ).
zcx_abapgit_exception=>raise( 'HTTP 403, forbidden' ).
WHEN 404.
lcx_exception=>raise( 'HTTP 404, not found' ).
zcx_abapgit_exception=>raise( 'HTTP 404, not found' ).
WHEN 415.
lcx_exception=>raise( 'HTTP 415, unsupported media type' ).
zcx_abapgit_exception=>raise( 'HTTP 415, unsupported media type' ).
WHEN OTHERS.
lv_text = mi_client->response->get_cdata( ).
lcx_exception=>raise( |HTTP error code: { lv_code }, { lv_text }| ).
zcx_abapgit_exception=>raise( |HTTP error code: { lv_code }, { lv_text }| ).
ENDCASE.
ENDMETHOD. "http_200
@ -359,7 +359,7 @@ CLASS lcl_http_digest IMPLEMENTATION.
internal_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from CALCULATE_HASH_FOR_RAW' ).
zcx_abapgit_exception=>raise( 'error from CALCULATE_HASH_FOR_RAW' ).
ENDIF.
rv_hash = lv_hash.
@ -383,14 +383,14 @@ CLASS lcl_http DEFINITION FINAL.
IMPORTING iv_url TYPE string
iv_service TYPE string
RETURNING VALUE(ro_client) TYPE REF TO lcl_http_client
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-METHODS:
check_auth_requested
IMPORTING ii_client TYPE REF TO if_http_client
RETURNING VALUE(rv_auth_requested) TYPE abap_bool
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
is_local_system
IMPORTING iv_url TYPE string
RETURNING VALUE(rv_bool) TYPE abap_bool,
@ -399,7 +399,7 @@ CLASS lcl_http DEFINITION FINAL.
io_client TYPE REF TO lcl_http_client
iv_url TYPE string
RETURNING VALUE(rv_scheme) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -446,7 +446,7 @@ CLASS lcl_http IMPLEMENTATION.
lv_text = 'While creating HTTP Client'. "#EC NOTEXT
ENDCASE.
lcx_exception=>raise( lv_text ).
zcx_abapgit_exception=>raise( lv_text ).
ENDIF.
IF lo_settings->get_proxy_authentication( ) = abap_true.
@ -559,7 +559,7 @@ CLASS lcl_http IMPLEMENTATION.
cv_pass = lv_pass ).
IF lv_user IS INITIAL.
lcx_exception=>raise( 'HTTP 401, unauthorized' ).
zcx_abapgit_exception=>raise( 'HTTP 401, unauthorized' ).
ENDIF.
IF lv_user <> lv_default_user.

12
src/zabapgit_migrations.prog.abap
View File

@ -6,13 +6,13 @@ CLASS lcl_migrations DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS run
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-METHODS rebuild_local_checksums_161112
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS local_dot_abapgit
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_migrations
@ -37,7 +37,7 @@ CLASS lcl_migrations IMPLEMENTATION.
lv_msg TYPE string,
lv_shown TYPE abap_bool,
lo_dot_abapgit TYPE REF TO lcl_dot_abapgit,
lx_exception TYPE REF TO lcx_exception.
lx_exception TYPE REF TO zcx_abapgit_exception.
FIELD-SYMBOLS: <lo_repo> LIKE LINE OF lt_repos.
@ -64,12 +64,12 @@ CLASS lcl_migrations IMPLEMENTATION.
" everybody to fetch their repos.
TRY.
<lo_repo>->refresh( ).
CATCH lcx_exception INTO lx_exception.
CATCH zcx_abapgit_exception INTO lx_exception.
lv_msg = |Please do not use the "{ <lo_repo>->get_name( ) }" repository until migrated|.
CALL FUNCTION 'POPUP_TO_INFORM'
EXPORTING
titel = 'Migration has failed'
txt1 = lx_exception->mv_text
txt1 = lx_exception->text
txt2 = lv_msg
txt3 = 'You will be prompted to migrate the repository every time you run abapGit.'
txt4 = 'You can safely remove the repository in its ''Advanced -> Remove'' menu.'.

4
src/zabapgit_news.prog.abap
View File

@ -28,7 +28,7 @@ CLASS lcl_news DEFINITION CREATE PRIVATE FRIENDS ltcl_news.
create " TODO REFACTOR
IMPORTING io_repo TYPE REF TO lcl_repo
RETURNING VALUE(ro_instance) TYPE REF TO lcl_news
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS:
get_log
@ -115,7 +115,7 @@ CLASS lcl_news IMPLEMENTATION.
TRY.
" Find changelog
lt_remote = io_repo->get_files_remote( ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
RETURN.
ENDTRY.

6
src/zabapgit_object_acid.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_acid DEFINITION INHERITING FROM lcl_objects_super FINAL.
PRIVATE SECTION.
METHODS: create_object
RETURNING VALUE(ro_aab) TYPE REF TO cl_aab_id
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_acid DEFINITION
@ -54,7 +54,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
name_not_allowed = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error creating CL_AAB_ID object' ).
zcx_abapgit_exception=>raise( 'error creating CL_AAB_ID object' ).
ENDIF.
ENDMETHOD. "create_object
@ -117,7 +117,7 @@ CLASS lcl_object_acid IMPLEMENTATION.
where_used_error = 9
OTHERS = 10 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error deleting ACID object' ).
zcx_abapgit_exception=>raise( 'error deleting ACID object' ).
ENDIF.
lo_aab->dequeue( ).

6
src/zabapgit_object_auth.prog.abap
View File

@ -64,12 +64,12 @@ CLASS lcl_object_auth IMPLEMENTATION.
CREATE OBJECT lo_auth.
IF lo_auth->add_afield_to_trkorr( ls_authx-fieldname ) <> 0.
lcx_exception=>raise( 'Error deserializing AUTH' ).
zcx_abapgit_exception=>raise( 'Error deserializing AUTH' ).
ENDIF.
MODIFY authx FROM ls_authx.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error deserializing AUTH' ).
zcx_abapgit_exception=>raise( 'Error deserializing AUTH' ).
ENDIF.
CALL FUNCTION 'DB_COMMIT'.
@ -96,7 +96,7 @@ CLASS lcl_object_auth IMPLEMENTATION.
no_authority = 4
OTHERS = 5.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SUSR_AUTF_DELETE_FIELD' ).
zcx_abapgit_exception=>raise( 'error from SUSR_AUTF_DELETE_FIELD' ).
ENDIF.
ENDMETHOD. "lif_object~delete

37
src/zabapgit_object_clas.prog.abap
View File

@ -25,20 +25,20 @@ CLASS lcl_object_clas DEFINITION INHERITING FROM lcl_objects_program.
deserialize_abap
IMPORTING io_xml TYPE REF TO lcl_xml_input
iv_package TYPE devclass
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_docu
IMPORTING io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_tpool
IMPORTING io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_sotr
IMPORTING io_xml TYPE REF TO lcl_xml_input
iv_package TYPE devclass
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
serialize_xml
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -442,7 +442,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
other = 6
OTHERS = 7.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ).
zcx_abapgit_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ).
ENDIF.
ENDMETHOD.
@ -462,7 +462,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
locals_not_initialised = 4
OTHERS = 5.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from generate_locals' ).
zcx_abapgit_exception=>raise( 'error from generate_locals' ).
ENDIF.
ENDMETHOD.
@ -476,7 +476,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
LANGUAGE iv_language
STATE 'I'.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
zcx_abapgit_exception=>raise( 'error from INSERT TEXTPOOL' ).
ENDIF.
lcl_objects_activation=>add( iv_type = 'REPT'
@ -501,7 +501,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SOTR_OBJECT_GET_OBJECTS' ).
zcx_abapgit_exception=>raise( 'error from SOTR_OBJECT_GET_OBJECTS' ).
ENDIF.
READ TABLE lt_objects INDEX 1 INTO lv_object.
@ -538,7 +538,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
no_entry_found = 18
OTHERS = 19.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SOTR_CREATE_CONCEPT' ).
zcx_abapgit_exception=>raise( 'error from SOTR_CREATE_CONCEPT' ).
ENDIF.
ENDLOOP.
ENDMETHOD.
@ -569,7 +569,18 @@ CLASS lcl_oo_class IMPLEMENTATION.
* when the methods are changed
* APPEND cl_oo_classname_service=>get_cs_name( lv_class_name ) TO rt_includes.
lt_methods = cl_oo_classname_service=>get_all_method_includes( lv_class_name ).
cl_oo_classname_service=>get_all_method_includes(
EXPORTING
clsname = lv_class_name
RECEIVING
result = lt_methods
EXCEPTIONS
class_not_existing = 1 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Class { lv_class_name } not existing| ).
ENDIF.
LOOP AT lt_methods ASSIGNING <ls_method>.
APPEND <ls_method>-incname TO rt_includes.
ENDLOOP.
@ -591,7 +602,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
IF sy-subrc = 1.
RETURN. " in case only inactive version exists
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from seo_clif_get' ).
zcx_abapgit_exception=>raise( 'error from seo_clif_get' ).
ENDIF.
ENDMETHOD.
@ -674,7 +685,7 @@ CLASS lcl_oo_class IMPLEMENTATION.
other = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from SEO_CLASS_DELETE_COMPLETE' ).
zcx_abapgit_exception=>raise( 'Error from SEO_CLASS_DELETE_COMPLETE' ).
ENDIF.
ENDMETHOD.

21
src/zabapgit_object_clas_new.prog.abap
View File

@ -25,14 +25,14 @@ CLASS lcl_oo_class_new DEFINITION INHERITING FROM lcl_oo_class.
IMPORTING
iv_name TYPE seoclsname
RAISING
lcx_exception,
zcx_abapgit_exception,
update_meta
IMPORTING
iv_name TYPE seoclsname
iv_exposure TYPE seoexpose
it_source TYPE rswsourcet
RAISING
lcx_exception,
zcx_abapgit_exception,
determine_method_include
IMPORTING
iv_name TYPE seoclsname
@ -40,7 +40,7 @@ CLASS lcl_oo_class_new DEFINITION INHERITING FROM lcl_oo_class.
RETURNING
VALUE(rv_program) TYPE programm
RAISING
lcx_exception,
zcx_abapgit_exception,
init_scanner
IMPORTING
it_source TYPE lif_defs=>ty_string_tt
@ -89,7 +89,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
internal_error_insert_report = 11
OTHERS = 12.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SEO_METHOD_GENERATE_INCLUDE' ).
zcx_abapgit_exception=>raise( 'error from SEO_METHOD_GENERATE_INCLUDE' ).
ENDIF.
rv_program = cl_oo_classname_service=>get_method_include( ls_mtdkey ).
@ -115,7 +115,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
other = 6
OTHERS = 7.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ).
zcx_abapgit_exception=>raise( 'error from SEO_CLASS_CREATE_COMPLETE' ).
ENDIF.
ENDMETHOD.
@ -179,7 +179,8 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
ls_clskey-clsname = iv_name.
CREATE OBJECT lo_update
* todo, downport to 702, see https://github.com/larshp/abapGit/issues/933
CREATE OBJECT lo_update TYPE ('CL_OO_CLASS_SECTION_SOURCE')
EXPORTING
clskey = ls_clskey
exposure = iv_exposure
@ -191,7 +192,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
read_source_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error instantiating CL_OO_CLASS_SECTION_SOURCE' ).
zcx_abapgit_exception=>raise( 'error instantiating CL_OO_CLASS_SECTION_SOURCE' ).
ENDIF.
lo_update->set_dark_mode( seox_true ).
@ -209,7 +210,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
scan_abap_source_error = 1
OTHERS = 2 ).
IF sy-subrc <> 0 OR lv_scan_error = abap_true.
lcx_exception=>raise( 'CLAS, error while scanning source' ).
zcx_abapgit_exception=>raise( 'CLAS, error while scanning source' ).
ENDIF.
* this will update the SEO* database tables
@ -253,7 +254,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
_internal_class_overflow = 19
OTHERS = 20.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SEO_CLASS_GENERATE_CLASSPOOL' ).
zcx_abapgit_exception=>raise( 'error from SEO_CLASS_GENERATE_CLASSPOOL' ).
ENDIF.
ENDMETHOD.
@ -312,7 +313,7 @@ CLASS lcl_oo_class_new IMPLEMENTATION.
TRY.
lt_source = lo_scanner->get_method_impl_source( lv_method ).
CATCH cx_oo_clif_component.
lcx_exception=>raise( 'error from GET_METHOD_IMPL_SOURCE' ).
zcx_abapgit_exception=>raise( 'error from GET_METHOD_IMPL_SOURCE' ).
ENDTRY.
lv_program = determine_method_include(
iv_name = is_key-clsname

16
src/zabapgit_object_cmpt.prog.abap
View File

@ -58,7 +58,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
r_user = rv_user.
CATCH cx_root.
lcx_exception=>raise( 'CMPT not supported' ).
zcx_abapgit_exception=>raise( 'CMPT not supported' ).
ENDTRY.
ENDMETHOD.
@ -85,7 +85,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
r_flg_exists = rv_bool.
CATCH cx_root.
lcx_exception=>raise( 'CMPT not supported' ).
zcx_abapgit_exception=>raise( 'CMPT not supported' ).
ENDTRY.
ENDMETHOD.
@ -110,7 +110,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
ig_data = <template> ).
CATCH cx_root.
lcx_exception=>raise( 'CMPT not supported' ).
zcx_abapgit_exception=>raise( 'CMPT not supported' ).
ENDTRY.
@ -138,7 +138,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
i_flg_lines = abap_true.
CATCH cx_root.
lcx_exception=>raise( 'CMPT not supported' ).
zcx_abapgit_exception=>raise( 'CMPT not supported' ).
ENDTRY.
CALL FUNCTION 'RS_CORR_INSERT'
@ -156,7 +156,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_CORR_INSERT, CMPT' ).
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, CMPT' ).
ENDIF.
ENDMETHOD.
@ -176,11 +176,11 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
r_flg_deleted = deleted.
CATCH cx_root.
lcx_exception=>raise( 'CMPT not supported' ).
zcx_abapgit_exception=>raise( 'CMPT not supported' ).
ENDTRY.
IF deleted = abap_false.
lcx_exception=>raise( |Error deleting CMPT { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |Error deleting CMPT { ms_item-obj_name }| ).
ENDIF.
ENDMETHOD.
@ -199,7 +199,7 @@ CLASS lcl_object_cmpt IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( |Error from RS_TOOL_ACCESS, CMPT| ).
zcx_abapgit_exception=>raise( |Error from RS_TOOL_ACCESS, CMPT| ).
ENDIF.
ENDMETHOD.

10
src/zabapgit_object_dcls.prog.abap
View File

@ -55,8 +55,8 @@ CLASS lcl_object_dcls IMPLEMENTATION.
jump_adt( i_obj_name = ms_item-obj_name
i_obj_type = ms_item-obj_type ).
CATCH lcx_exception.
lcx_exception=>raise( 'DCLS Jump Error' ).
CATCH zcx_abapgit_exception.
zcx_abapgit_exception=>raise( 'DCLS Jump Error' ).
ENDTRY.
ENDMETHOD.
@ -75,7 +75,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
iv_dclname = ms_item-obj_name.
CATCH cx_root.
lcx_exception=>raise( 'DCLS error' ).
zcx_abapgit_exception=>raise( 'DCLS error' ).
ENDTRY.
ENDMETHOD.
@ -133,7 +133,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
ig_data = <ls_data> ).
CATCH cx_root.
lcx_exception=>raise( 'DCLS error' ).
zcx_abapgit_exception=>raise( 'DCLS error' ).
ENDTRY.
ENDMETHOD.
@ -175,7 +175,7 @@ CLASS lcl_object_dcls IMPLEMENTATION.
tadir_insert( iv_package ).
CATCH cx_root.
lcx_exception=>raise( 'DCLS error' ).
zcx_abapgit_exception=>raise( 'DCLS error' ).
ENDTRY.
lcl_objects_activation=>add_item( ms_item ).

12
src/zabapgit_object_ddls.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_ddls DEFINITION INHERITING FROM lcl_objects_super FINAL.
PROTECTED SECTION.
METHODS open_adt_stob
IMPORTING iv_ddls_name TYPE tadir-obj_name
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -123,7 +123,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
me->open_adt_stob( iv_ddls_name = ms_item-obj_name ).
WHEN OTHERS.
lcx_exception=>raise( 'DDLS Jump Error' ).
zcx_abapgit_exception=>raise( 'DDLS Jump Error' ).
ENDCASE.
ENDMETHOD. "jump
@ -142,7 +142,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
EXPORTING
name = ms_item-obj_name.
CATCH cx_root.
lcx_exception=>raise( 'DDLS error deleting' ).
zcx_abapgit_exception=>raise( 'DDLS error deleting' ).
ENDTRY.
ENDMETHOD. "delete
@ -171,7 +171,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
IMPORTING
ddddlsrcv_wa = <ls_data>.
CATCH cx_root.
lcx_exception=>raise( 'DDLS error reading' ).
zcx_abapgit_exception=>raise( 'DDLS error reading' ).
ENDTRY.
ASSIGN COMPONENT 'AS4USER' OF STRUCTURE <ls_data> TO <lv_field>.
@ -233,7 +233,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
devclass = iv_package
prid = 0.
CATCH cx_root.
lcx_exception=>raise( 'DDLS error writing TADIR' ).
zcx_abapgit_exception=>raise( 'DDLS error writing TADIR' ).
ENDTRY.
lcl_objects_activation=>add_item( ms_item ).
@ -293,7 +293,7 @@ CLASS lcl_object_ddls IMPLEMENTATION.
ENDIF.
CATCH cx_root.
lcx_exception=>raise( 'DDLS Jump Error' ).
zcx_abapgit_exception=>raise( 'DDLS Jump Error' ).
ENDTRY.
ENDMETHOD. "open_adt_stob

6
src/zabapgit_object_dial.prog.abap
View File

@ -93,7 +93,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( |Error deserializing dialogmodule { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |Error deserializing dialogmodule { ms_item-obj_name }| ).
ENDIF.
" It seems that there's no API for diapar, therefore we manipulate it directly
@ -157,7 +157,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SE35' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SE35' ).
ENDIF.
ENDMETHOD.
@ -178,7 +178,7 @@ CLASS lcl_object_dial IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( |Error from RS_DIALOG_SHOW, DIAL| ).
zcx_abapgit_exception=>raise( |Error from RS_DIALOG_SHOW, DIAL| ).
ENDIF.
ENDMETHOD.

4
src/zabapgit_object_doct.prog.abap
View File

@ -128,7 +128,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, DOCT' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, DOCT' ).
ENDIF.
ENDMETHOD. "jump
@ -150,7 +150,7 @@ CLASS lcl_object_doct IMPLEMENTATION.
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DOCU_DEL' ).
zcx_abapgit_exception=>raise( 'error from DOCU_DEL' ).
ENDIF.
ENDMETHOD. "delete

4
src/zabapgit_object_docv.prog.abap
View File

@ -87,7 +87,7 @@ CLASS lcl_object_docv IMPLEMENTATION.
METHOD lif_object~jump.
lcx_exception=>raise( 'todo, jump DOCV' ).
zcx_abapgit_exception=>raise( 'todo, jump DOCV' ).
ENDMETHOD. "jump
@ -110,7 +110,7 @@ CLASS lcl_object_docv IMPLEMENTATION.
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DOCU_DEL' ).
zcx_abapgit_exception=>raise( 'error from DOCU_DEL' ).
ENDIF.
ENDMETHOD. "delete

14
src/zabapgit_object_doma.prog.abap
View File

@ -34,12 +34,12 @@ CLASS lcl_object_doma DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
serialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_input
is_dd01v TYPE dd01v
it_dd07v TYPE dd07v_tab
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_doma DEFINITION
@ -124,7 +124,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, DOMA' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_DELETE_OBJ, DOMA' ).
ENDIF.
ENDMETHOD. "delete
@ -151,7 +151,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0 OR ls_dd01v IS INITIAL.
lcx_exception=>raise( 'error from DDIF_DOMA_GET' ).
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_GET' ).
ENDIF.
CLEAR: ls_dd01v-as4user,
@ -217,7 +217,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_DOMA_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_PUT' ).
ENDIF.
deserialize_texts( io_xml = io_xml
@ -331,7 +331,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
ls_dd01v_tmp = is_dd01v.
READ TABLE lt_dd01_texts ASSIGNING <dd01_text> WITH KEY ddlanguage = <lang>.
IF sy-subrc > 0.
lcx_exception=>raise( |DD01_TEXTS cannot find lang { <lang> } in XML| ).
zcx_abapgit_exception=>raise( |DD01_TEXTS cannot find lang { <lang> } in XML| ).
ENDIF.
MOVE-CORRESPONDING <dd01_text> TO ls_dd01v_tmp.
@ -359,7 +359,7 @@ CLASS lcl_object_doma IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_DOMA_PUT @TEXTS' ).
zcx_abapgit_exception=>raise( 'error from DDIF_DOMA_PUT @TEXTS' ).
ENDIF.
ENDLOOP.

14
src/zabapgit_object_dtel.prog.abap
View File

@ -28,11 +28,11 @@ CLASS lcl_object_dtel DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
serialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_input
is_dd04v TYPE dd04v
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -116,7 +116,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, DTEL' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_DELETE_OBJ, DTEL' ).
ENDIF.
ENDMETHOD. "delete
@ -138,7 +138,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
AND as4local = 'A'
AND as4vers = '0000'.
IF sy-subrc <> 0 OR ls_dd04v IS INITIAL.
lcx_exception=>raise( 'Not found in DD04L' ).
zcx_abapgit_exception=>raise( 'Not found in DD04L' ).
ENDIF.
SELECT SINGLE * FROM dd04t
@ -219,7 +219,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_DTEL_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_DTEL_PUT' ).
ENDIF.
deserialize_texts( io_xml = io_xml
@ -308,7 +308,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
ls_dd04v_tmp = is_dd04v.
READ TABLE lt_dd04_texts ASSIGNING <dd04_text> WITH KEY ddlanguage = <lang>.
IF sy-subrc > 0.
lcx_exception=>raise( |DD04_TEXTS cannot find lang { <lang> } in XML| ).
zcx_abapgit_exception=>raise( |DD04_TEXTS cannot find lang { <lang> } in XML| ).
ENDIF.
MOVE-CORRESPONDING <dd04_text> TO ls_dd04v_tmp.
CALL FUNCTION 'DDIF_DTEL_PUT'
@ -323,7 +323,7 @@ CLASS lcl_object_dtel IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_DTEL_PUT @TEXTS' ).
zcx_abapgit_exception=>raise( 'error from DDIF_DTEL_PUT @TEXTS' ).
ENDIF.
ENDLOOP.

40
src/zabapgit_object_enho.prog.abap
View File

@ -10,11 +10,11 @@ INTERFACE lif_object_enho.
deserialize
IMPORTING io_xml TYPE REF TO lcl_xml_input
iv_package TYPE devclass
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
serialize
IMPORTING io_xml TYPE REF TO lcl_xml_output
ii_enh_tool TYPE REF TO if_enh_tool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDINTERFACE. "lif_object_enho
@ -85,7 +85,7 @@ CLASS lcl_object_enho_wdyc IMPLEMENTATION.
lo_wdyconf->if_enh_object~save( ).
lo_wdyconf->if_enh_object~unlock( ).
CATCH cx_enh_root.
lcx_exception=>raise( 'error deserializing ENHO wdyconf' ).
zcx_abapgit_exception=>raise( 'error deserializing ENHO wdyconf' ).
ENDTRY.
ENDMETHOD. "lif_object_enho~deserialize
@ -223,7 +223,7 @@ CLASS lcl_object_enho_wdyn IMPLEMENTATION.
lo_wdyn->if_enh_object~unlock( ).
CATCH cx_root.
lcx_exception=>raise( |error deserializing ENHO wdyn { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |error deserializing ENHO wdyn { ms_item-obj_name }| ).
ENDTRY.
ENDMETHOD. "lif_object_enho~deserialize
@ -252,7 +252,7 @@ CLASS lcl_object_enho_wdyn IMPLEMENTATION.
ig_data = ls_enh_data ).
CATCH cx_enh_not_found.
lcx_exception=>raise( |error serializing ENHO wdyn { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |error serializing ENHO wdyn { ms_item-obj_name }| ).
ENDTRY.
ENDMETHOD. "lif_object_enho~serialize
@ -271,19 +271,19 @@ CLASS lcl_object_enho_clif DEFINITION.
deserialize
IMPORTING io_xml TYPE REF TO lcl_xml_input
io_clif TYPE REF TO cl_enh_tool_clif
RAISING lcx_exception
RAISING zcx_abapgit_exception
cx_enh_root,
serialize
IMPORTING io_xml TYPE REF TO lcl_xml_output
io_files TYPE REF TO lcl_objects_files
io_clif TYPE REF TO cl_enh_tool_clif
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-METHODS: serialize_includes
IMPORTING io_files TYPE REF TO lcl_objects_files
io_clif TYPE REF TO cl_enh_tool_clif
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_enho_clif DEFINITION
*----------------------------------------------------------------------*
@ -541,7 +541,7 @@ CLASS lcl_object_enho_badi IMPLEMENTATION.
lo_badi->if_enh_object~save( ).
lo_badi->if_enh_object~unlock( ).
CATCH cx_enh_root.
lcx_exception=>raise( 'error deserializing ENHO badi' ).
zcx_abapgit_exception=>raise( 'error deserializing ENHO badi' ).
ENDTRY.
ENDMETHOD. "lif_object_enho~deserialize
@ -576,12 +576,12 @@ CLASS lcl_object_enho_hook DEFINITION.
METHODS hook_impl_deserialize
IMPORTING it_spaces TYPE ty_spaces_tt
CHANGING ct_impl TYPE enh_hook_impl_it
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS hook_impl_serialize
EXPORTING et_spaces TYPE ty_spaces_tt
CHANGING ct_impl TYPE enh_hook_impl_it
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_enho_hook DEFINITION
@ -747,7 +747,7 @@ CLASS lcl_object_enho_hook IMPLEMENTATION.
lo_hook_impl->if_enh_object~save( ).
lo_hook_impl->if_enh_object~unlock( ).
CATCH cx_enh_root.
lcx_exception=>raise( 'error deserializing ENHO hook' ).
zcx_abapgit_exception=>raise( 'error deserializing ENHO hook' ).
ENDTRY.
ENDMETHOD. "lif_object_enho~deserialize
@ -852,7 +852,7 @@ CLASS lcl_object_enho_intf IMPLEMENTATION.
lo_enh_intf->if_enh_object~save( ).
lo_enh_intf->if_enh_object~unlock( ).
CATCH cx_enh_root.
lcx_exception=>raise( 'error deserializing ENHO interface' ).
zcx_abapgit_exception=>raise( 'error deserializing ENHO interface' ).
ENDTRY.
ENDMETHOD. "lif_object_enho~deserialize
@ -992,7 +992,7 @@ CLASS lcl_object_enho_class IMPLEMENTATION.
lo_enh_class->if_enh_object~save( ).
lo_enh_class->if_enh_object~unlock( ).
CATCH cx_enh_root.
lcx_exception=>raise( 'error deserializing ENHO class' ).
zcx_abapgit_exception=>raise( 'error deserializing ENHO class' ).
ENDTRY.
ENDMETHOD. "lif_object_enho~deserialize
@ -1082,7 +1082,7 @@ CLASS lcl_object_enho_fugr IMPLEMENTATION.
lo_fugrdata->if_enh_object~unlock( ).
CATCH cx_enh_root.
lcx_exception=>raise( |error deserializing ENHO fugrdata { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |error deserializing ENHO fugrdata { ms_item-obj_name }| ).
ENDTRY.
ENDMETHOD. "lif_object_enho~deserialize
@ -1116,7 +1116,7 @@ CLASS lcl_object_enho_fugr IMPLEMENTATION.
ENDLOOP.
CATCH cx_enh_not_found.
lcx_exception=>raise( |error deserializing ENHO fugrdata { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |error deserializing ENHO fugrdata { ms_item-obj_name }| ).
ENDTRY.
io_xml->add( iv_name = 'TOOL'
@ -1149,7 +1149,7 @@ CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_super FINAL.
RETURNING
VALUE(ri_enho) TYPE REF TO lif_object_enho
RAISING
lcx_exception.
zcx_abapgit_exception.
ENDCLASS. "lcl_object_enho DEFINITION
@ -1206,7 +1206,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
enhancement_id = lv_enh_id
bypassing_buffer = abap_true ).
CATCH cx_enh_root.
lcx_exception=>raise( 'Error from CL_ENH_FACTORY' ).
zcx_abapgit_exception=>raise( 'Error from CL_ENH_FACTORY' ).
ENDTRY.
li_enho = factory( li_enh_tool->get_tool( ) ).
@ -1255,7 +1255,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
is_item = ms_item
io_files = mo_files.
WHEN OTHERS.
lcx_exception=>raise( |Unsupported ENHO type { iv_tool }| ).
zcx_abapgit_exception=>raise( |Unsupported ENHO type { iv_tool }| ).
ENDCASE.
ENDMETHOD. "factory
@ -1297,7 +1297,7 @@ CLASS lcl_object_enho IMPLEMENTATION.
li_enh_object->save( ).
li_enh_object->unlock( ).
CATCH cx_enh_root.
lcx_exception=>raise( 'Error deleting ENHO' ).
zcx_abapgit_exception=>raise( 'Error deleting ENHO' ).
ENDTRY.
ENDMETHOD. "delete

6
src/zabapgit_object_enhs.prog.abap
View File

@ -95,7 +95,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while deserializing EHNS: `
&& lx_root->get_text( ) ##NO_TEXT.
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "deserialize
@ -136,7 +136,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
iv_name = 'BADI_DATA' ).
CATCH cx_enh_root INTO lx_root.
lcx_exception=>raise( `Error occured while serializing EHNS: `
zcx_abapgit_exception=>raise( `Error occured while serializing EHNS: `
&& lx_root->get_text( ) ) ##NO_TEXT.
ENDTRY.
@ -190,7 +190,7 @@ CLASS lcl_object_enhs IMPLEMENTATION.
ENDIF.
lo_badidef_tool->if_enh_object~unlock( ).
CATCH cx_enh_root INTO lx_root.
lcx_exception=>raise( `Error occured while deleting EHNS: `
zcx_abapgit_exception=>raise( `Error occured while deleting EHNS: `
&& lx_root->get_text( ) ) ##NO_TEXT.
ENDTRY.

6
src/zabapgit_object_enqu.prog.abap
View File

@ -96,7 +96,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, ENQU' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_DELETE_OBJ, ENQU' ).
ENDIF.
ENDMETHOD. "delete
@ -125,7 +125,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_ENQU_GET' ).
zcx_abapgit_exception=>raise( 'error from DDIF_ENQU_GET' ).
ENDIF.
IF ls_dd25v IS INITIAL.
RETURN. " does not exist in system
@ -178,7 +178,7 @@ CLASS lcl_object_enqu IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_ENQU_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_ENQU_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

6
src/zabapgit_object_ensc.prog.abap
View File

@ -80,7 +80,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while deserializing ENSC: `
&& lx_root->get_text( ) ##NO_TEXT.
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "deserialize
@ -124,7 +124,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while serializing ENSC: `
&& lx_root->get_text( ) ##NO_TEXT.
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "serialize
@ -170,7 +170,7 @@ CLASS lcl_object_ensc IMPLEMENTATION.
CATCH cx_enh_root INTO lx_root.
lv_message = `Error occured while deleting ENSC: `
&& lx_root->get_text( ) ##NO_TEXT.
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ENDMETHOD. "delete

4
src/zabapgit_object_form.prog.abap
View File

@ -57,7 +57,7 @@ CLASS lcl_object_form DEFINITION INHERITING FROM lcl_objects_super FINAL.
RETURNING
VALUE(et_lines) TYPE lcl_object_form=>tyt_lines
RAISING
lcx_exception.
zcx_abapgit_exception.
METHODS _clear_changed_fields
CHANGING
@ -68,7 +68,7 @@ CLASS lcl_object_form DEFINITION INHERITING FROM lcl_objects_super FINAL.
is_form_data TYPE lcl_object_form=>tys_form_data
it_lines TYPE lcl_object_form=>tyt_lines
RAISING
lcx_exception.
zcx_abapgit_exception.
METHODS _find_form
IMPORTING

44
src/zabapgit_object_fugr.prog.abap
View File

@ -37,45 +37,45 @@ CLASS lcl_object_fugr DEFINITION INHERITING FROM lcl_objects_program FINAL.
METHODS main_name
RETURNING VALUE(rv_program) TYPE program
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS functions
RETURNING VALUE(rt_functab) TYPE ty_rs38l_incl_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS includes
RETURNING VALUE(rt_includes) TYPE rso_t_objnm
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_functions
RETURNING VALUE(rt_functions) TYPE ty_function_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_functions
IMPORTING it_functions TYPE ty_function_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_xml
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_xml
IMPORTING io_xml TYPE REF TO lcl_xml_input
iv_package TYPE devclass
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_includes
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_includes
IMPORTING io_xml TYPE REF TO lcl_xml_input
iv_package TYPE devclass
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS are_exceptions_class_based
IMPORTING iv_function_name TYPE rs38l_fnam
RETURNING VALUE(rv_return) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_fugr DEFINITION
@ -146,7 +146,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
no_program = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RS_GET_ALL_INCLUDES' ).
zcx_abapgit_exception=>raise( 'Error from RS_GET_ALL_INCLUDES' ).
ENDIF.
SELECT unam AS user udat AS date utime AS time FROM reposrc
@ -231,7 +231,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
OTHERS = 12.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from FUNCTION_INCLUDE_SPLIT' ).
zcx_abapgit_exception=>raise( 'error from FUNCTION_INCLUDE_SPLIT' ).
ENDIF.
CALL FUNCTION 'FUNCTION_EXISTS'
@ -252,7 +252,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
error_message = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from FUNCTION_DELETE' ).
zcx_abapgit_exception=>raise( 'error from FUNCTION_DELETE' ).
ENDIF.
ENDIF.
@ -289,7 +289,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
canceled_in_corr = 10
OTHERS = 11.
IF sy-subrc <> 0.
lcx_exception=>raise( |error from RS_FUNCTIONMODULE_INSERT: {
zcx_abapgit_exception=>raise( |error from RS_FUNCTIONMODULE_INSERT: {
sy-subrc } { sy-msgid }{ sy-msgno }| ).
ENDIF.
@ -371,7 +371,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
area_length_error = 11
OTHERS = 12.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from FUNCTION_INCLUDE_SPLIT' ).
zcx_abapgit_exception=>raise( 'error from FUNCTION_INCLUDE_SPLIT' ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'AREAT'
@ -399,7 +399,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
OTHERS = 12.
IF sy-subrc <> 0 AND sy-subrc <> 1 AND sy-subrc <> 3.
* todo, change description
lcx_exception=>raise( 'error from RS_FUNCTION_POOL_INSERT' ).
zcx_abapgit_exception=>raise( 'error from RS_FUNCTION_POOL_INSERT' ).
ENDIF.
ENDMETHOD. "deserialize_xml
@ -457,7 +457,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
no_program = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RS_GET_ALL_INCLUDES' ).
zcx_abapgit_exception=>raise( 'Error from RS_GET_ALL_INCLUDES' ).
ENDIF.
LOOP AT lt_functab ASSIGNING <ls_func>.
@ -517,7 +517,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
function_pool_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RS_FUNCTION_POOL_CONTENTS' ).
zcx_abapgit_exception=>raise( 'Error from RS_FUNCTION_POOL_CONTENTS' ).
ENDIF.
SORT rt_functab BY funcname ASCENDING.
@ -554,7 +554,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
area_length_error = 11
OTHERS = 12.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from FUNCTION_INCLUDE_SPLIT' ).
zcx_abapgit_exception=>raise( 'Error from FUNCTION_INCLUDE_SPLIT' ).
ENDIF.
CONCATENATE lv_namespace 'SAPL' lv_group INTO rv_program.
@ -610,7 +610,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
IF sy-subrc = 2.
CONTINUE.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RPY_FUNCTIONMODULE_READ_NEW' ).
zcx_abapgit_exception=>raise( 'Error from RPY_FUNCTIONMODULE_READ_NEW' ).
ENDIF.
ls_function-exception_classes = are_exceptions_class_based( <ls_func>-funcname ).
@ -675,7 +675,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
invalid_name = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from FUNCTION_IMPORT_DOKU' ).
zcx_abapgit_exception=>raise( 'Error from FUNCTION_IMPORT_DOKU' ).
ENDIF.
ENDMETHOD.
@ -775,7 +775,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
cancelled = 9
OTHERS = 10.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_FUNCTION_POOL_DELETE' ).
zcx_abapgit_exception=>raise( 'error from RS_FUNCTION_POOL_DELETE' ).
ENDIF.
ENDMETHOD. "delete

10
src/zabapgit_object_iarp.prog.abap
View File

@ -18,11 +18,11 @@ CLASS lcl_object_iarp DEFINITION INHERITING FROM lcl_objects_super FINAL.
read
EXPORTING es_attr TYPE w3resoattr
et_parameters TYPE w3resopara_tabletype
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
save
IMPORTING is_attr TYPE w3resoattr
it_parameters TYPE w3resopara_tabletype
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -64,7 +64,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from w3api_resource~load' ).
zcx_abapgit_exception=>raise( 'error from w3api_resource~load' ).
ENDIF.
li_resource->get_attributes( IMPORTING p_attributes = es_attr ).
@ -150,7 +150,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from if_w3_api_resource~load' ).
zcx_abapgit_exception=>raise( 'error from if_w3_api_resource~load' ).
ENDIF.
li_resource->if_w3_api_object~set_changeable( abap_true ).
@ -177,7 +177,7 @@ CLASS lcl_object_iarp IMPLEMENTATION.
IF sy-subrc = 1.
rv_bool = abap_false.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from w3_api_resource~load' ).
zcx_abapgit_exception=>raise( 'error from w3_api_resource~load' ).
ELSE.
rv_bool = abap_true.
ENDIF.

10
src/zabapgit_object_iasp.prog.abap
View File

@ -18,11 +18,11 @@ CLASS lcl_object_iasp DEFINITION INHERITING FROM lcl_objects_super FINAL.
read
EXPORTING es_attr TYPE w3servattr
et_parameters TYPE w3servpara_tabletype
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
save
IMPORTING is_attr TYPE w3servattr
it_parameters TYPE w3servpara_tabletype
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_dtel DEFINITION
@ -64,7 +64,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from w3api_service~load' ).
zcx_abapgit_exception=>raise( 'error from w3api_service~load' ).
ENDIF.
li_service->get_attributes( IMPORTING p_attributes = es_attr ).
@ -150,7 +150,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from if_w3_api_service~load' ).
zcx_abapgit_exception=>raise( 'error from if_w3_api_service~load' ).
ENDIF.
li_service->if_w3_api_object~set_changeable( abap_true ).
@ -177,7 +177,7 @@ CLASS lcl_object_iasp IMPLEMENTATION.
IF sy-subrc = 1.
rv_bool = abap_false.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from w3_api_service~load' ).
zcx_abapgit_exception=>raise( 'error from w3_api_service~load' ).
ELSE.
rv_bool = abap_true.
ENDIF.

10
src/zabapgit_object_iatu.prog.abap
View File

@ -18,11 +18,11 @@ CLASS lcl_object_iatu DEFINITION INHERITING FROM lcl_objects_super FINAL.
read
EXPORTING es_attr TYPE w3tempattr
ev_source TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
save
IMPORTING is_attr TYPE w3tempattr
iv_source TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_iatu DEFINITION
@ -65,7 +65,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from w3api_template~load' ).
zcx_abapgit_exception=>raise( 'error from w3api_template~load' ).
ENDIF.
li_template->get_attributes( IMPORTING p_attributes = es_attr ).
@ -167,7 +167,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from if_w3_api_template~load' ).
zcx_abapgit_exception=>raise( 'error from if_w3_api_template~load' ).
ENDIF.
li_template->if_w3_api_object~set_changeable( abap_true ).
@ -194,7 +194,7 @@ CLASS lcl_object_iatu IMPLEMENTATION.
IF sy-subrc = 1.
rv_bool = abap_false.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from w3_api_template~load' ).
zcx_abapgit_exception=>raise( 'error from w3_api_template~load' ).
ELSE.
rv_bool = abap_true.
ENDIF.

12
src/zabapgit_object_intf.prog.abap
View File

@ -19,18 +19,18 @@ CLASS lcl_object_intf DEFINITION FINAL INHERITING FROM lcl_objects_program.
METHODS deserialize_abap
IMPORTING io_xml TYPE REF TO lcl_xml_input
iv_package TYPE devclass
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_docu
IMPORTING io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
DATA mo_object_oriented_object_fct TYPE REF TO lif_oo_object_fnc.
METHODS serialize_xml
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_intf DEFINITION
@ -288,7 +288,7 @@ CLASS lcl_oo_interface IMPLEMENTATION.
other = 6
OTHERS = 7.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from SEO_INTERFACE_CREATE_COMPLETE' ).
zcx_abapgit_exception=>raise( 'Error from SEO_INTERFACE_CREATE_COMPLETE' ).
ENDIF.
ENDMETHOD.
@ -313,7 +313,7 @@ CLASS lcl_oo_interface IMPLEMENTATION.
IF sy-subrc = 1.
RETURN. " in case only inactive version exists
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from seo_clif_get' ).
zcx_abapgit_exception=>raise( 'error from seo_clif_get' ).
ENDIF.
ENDMETHOD.
@ -329,7 +329,7 @@ CLASS lcl_oo_interface IMPLEMENTATION.
other = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from SEO_INTERFACE_DELETE_COMPLETE' ).
zcx_abapgit_exception=>raise( 'Error from SEO_INTERFACE_DELETE_COMPLETE' ).
ENDIF.
ENDMETHOD.
ENDCLASS.

10
src/zabapgit_object_jobd.prog.abap
View File

@ -47,7 +47,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
ex_is_existing = rv_bool.
CATCH cx_root.
lcx_exception=>raise( |JOBD not supported| ).
zcx_abapgit_exception=>raise( |JOBD not supported| ).
ENDTRY.
ENDMETHOD.
@ -101,7 +101,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
ig_data = <ls_job_definition> ).
CATCH cx_root.
lcx_exception=>raise( |Error serializing JOBD| ).
zcx_abapgit_exception=>raise( |Error serializing JOBD| ).
ENDTRY.
ENDMETHOD.
@ -142,7 +142,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
im_jd_attributes = <ls_job_definition>.
CATCH cx_root.
lcx_exception=>raise( |Error deserializing JOBD| ).
zcx_abapgit_exception=>raise( |Error deserializing JOBD| ).
ENDTRY.
lcl_objects_activation=>add_item( ms_item ).
@ -164,7 +164,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
CALL METHOD lo_job_definition->('DELETE_JD').
CATCH cx_root.
lcx_exception=>raise( |Error deleting JOBD| ).
zcx_abapgit_exception=>raise( |Error deleting JOBD| ).
ENDTRY.
ENDMETHOD.
@ -186,7 +186,7 @@ CLASS lcl_object_jobd IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( |Error from TR_OBJECT_JUMP_TO_TOOL, JOBD| ).
zcx_abapgit_exception=>raise( |Error from TR_OBJECT_JUMP_TO_TOOL, JOBD| ).
ENDIF.
ENDMETHOD.

18
src/zabapgit_object_msag.prog.abap
View File

@ -24,10 +24,10 @@ CLASS lcl_object_msag DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
serialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_msag DEFINITION
@ -92,7 +92,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
no_permission = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RS_DELETE_MESSAGE_ID' ).
zcx_abapgit_exception=>raise( 'Error from RS_DELETE_MESSAGE_ID' ).
ENDIF.
ENDMETHOD. "delete
@ -126,7 +126,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
permission_failure = 02
unknown_objectclass = 03.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RS_CORR_INSERT' ).
zcx_abapgit_exception=>raise( 'Error from RS_CORR_INSERT' ).
ENDIF.
SELECT * FROM t100u INTO TABLE lt_before
@ -136,7 +136,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
DELETE lt_before WHERE msgnr = <ls_t100>-msgnr.
MODIFY t100 FROM <ls_t100>. "#EC CI_SUBRC
IF sy-subrc <> 0.
lcx_exception=>raise( 'MSAG: Table T100 modify failed' ).
zcx_abapgit_exception=>raise( 'MSAG: Table T100 modify failed' ).
ENDIF.
CLEAR ls_t100u.
MOVE-CORRESPONDING <ls_t100> TO ls_t100u ##enh_ok.
@ -145,7 +145,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ls_t100u-selfdef = '3'.
MODIFY t100u FROM ls_t100u. "#EC CI_SUBRC
IF sy-subrc <> 0.
lcx_exception=>raise( 'MSAG: Table T100U modify failed' ).
zcx_abapgit_exception=>raise( 'MSAG: Table T100U modify failed' ).
ENDIF.
ENDLOOP.
@ -156,7 +156,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ls_t100a-ltime = sy-uzeit.
MODIFY t100a FROM ls_t100a. "#EC CI_SUBRC
IF sy-subrc <> 0.
lcx_exception=>raise( 'MSAG: Table T100A modify failed' ).
zcx_abapgit_exception=>raise( 'MSAG: Table T100A modify failed' ).
ENDIF.
ls_t100t-sprsl = mv_language.
@ -164,7 +164,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ls_t100t-stext = ls_t100a-stext.
MODIFY t100t FROM ls_t100t. "#EC CI_SUBRC
IF sy-subrc <> 0.
lcx_exception=>raise( 'MSAG: Table T100T modify failed' ).
zcx_abapgit_exception=>raise( 'MSAG: Table T100T modify failed' ).
ENDIF.
LOOP AT lt_before INTO ls_t100u.
@ -293,7 +293,7 @@ CLASS lcl_object_msag IMPLEMENTATION.
ls_t100-arbgb = lv_msg_id.
MODIFY t100 FROM ls_t100. "#EC CI_SUBRC
IF sy-subrc <> 0.
lcx_exception=>raise( 'MSAG: Table T100 modify failed' ).
zcx_abapgit_exception=>raise( 'MSAG: Table T100 modify failed' ).
ENDIF.
ENDLOOP.

18
src/zabapgit_object_nrob.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_nrob DEFINITION INHERITING FROM lcl_objects_super FINAL.
PRIVATE SECTION.
METHODS:
delete_intervals IMPORTING iv_object TYPE inri-object
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_nrob DEFINITION
@ -104,7 +104,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_READ' ).
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_READ' ).
ENDIF.
io_xml->add( iv_name = 'ATTRIBUTES'
@ -141,7 +141,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
wrong_indicator = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_UPDATE' ).
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_UPDATE' ).
ENDIF.
CALL FUNCTION 'NUMBER_RANGE_OBJECT_CLOSE'
@ -150,7 +150,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
EXCEPTIONS
object_not_initialized = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ).
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_CLOSE' ).
ENDIF.
tadir_insert( iv_package ).
@ -183,7 +183,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
subobject_not_found = 8
OTHERS = 9.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from NUMBER_RANGE_INTERVAL_LIST' ).
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_INTERVAL_LIST' ).
ENDIF.
IF lines( lt_list ) = 0.
@ -208,7 +208,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0 OR lv_error = abap_true.
lcx_exception=>raise( 'error from NUMBER_RANGE_INTERVAL_UPDATE' ).
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_INTERVAL_UPDATE' ).
ENDIF.
CALL FUNCTION 'NUMBER_RANGE_UPDATE_CLOSE'
@ -219,7 +219,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
object_not_initialized = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from NUMBER_RANGE_UPDATE_CLOSE' ).
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_UPDATE_CLOSE' ).
ENDIF.
ENDMETHOD.
@ -243,7 +243,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
wrong_indicator = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from NUMBER_RANGE_OBJECT_DELETE' ).
zcx_abapgit_exception=>raise( 'error from NUMBER_RANGE_OBJECT_DELETE' ).
ENDIF.
ENDMETHOD. "delete
@ -279,7 +279,7 @@ CLASS lcl_object_nrob IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, NROB' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, NROB' ).
ENDIF.
ENDMETHOD. "jump

68
src/zabapgit_object_oo_functions.prog.abap
View File

@ -14,7 +14,7 @@ INTERFACE lif_oo_object_fnc.
CHANGING
is_properties TYPE any
RAISING
lcx_exception,
zcx_abapgit_exception,
generate_locals
IMPORTING
is_key TYPE seoclskey
@ -24,13 +24,13 @@ INTERFACE lif_oo_object_fnc.
it_local_macros TYPE seop_source_string OPTIONAL
it_local_test_classes TYPE seop_source_string OPTIONAL
RAISING
lcx_exception,
zcx_abapgit_exception,
deserialize_source
IMPORTING
is_key TYPE seoclskey
it_source TYPE lif_defs=>ty_string_tt
RAISING
lcx_exception
zcx_abapgit_exception
cx_sy_dyn_call_error,
insert_text_pool
IMPORTING
@ -38,7 +38,7 @@ INTERFACE lif_oo_object_fnc.
it_text_pool TYPE textpool_table
iv_language TYPE spras
RAISING
lcx_exception,
zcx_abapgit_exception,
update_descriptions
IMPORTING
is_key TYPE seoclskey
@ -47,25 +47,27 @@ INTERFACE lif_oo_object_fnc.
IMPORTING
is_item TYPE lif_defs=>ty_item
RAISING
lcx_exception,
zcx_abapgit_exception,
create_sotr
IMPORTING
iv_package TYPE devclass
it_sotr TYPE lif_defs=>ty_sotr_tt
RAISING
lcx_exception,
zcx_abapgit_exception,
create_documentation
IMPORTING
it_lines TYPE tlinetab
iv_object_name TYPE dokhl-object
iv_language TYPE spras
RAISING
lcx_exception,
zcx_abapgit_exception,
get_includes
IMPORTING
iv_object_name TYPE sobj_name
RETURNING
VALUE(rt_includes) TYPE ty_includes_tt,
VALUE(rt_includes) TYPE ty_includes_tt
RAISING
zcx_abapgit_exception,
exists
IMPORTING
iv_object_name TYPE seoclskey
@ -78,7 +80,7 @@ INTERFACE lif_oo_object_fnc.
RETURNING
VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING
lcx_exception
zcx_abapgit_exception
cx_sy_dyn_call_error,
get_skip_test_classes
RETURNING
@ -89,14 +91,14 @@ INTERFACE lif_oo_object_fnc.
RETURNING
VALUE(rs_class_properties) TYPE vseoclass
RAISING
lcx_exception,
zcx_abapgit_exception,
get_interface_properties
IMPORTING
is_interface_key TYPE seoclskey
RETURNING
VALUE(rs_interface_properties) TYPE vseointerf
RAISING
lcx_exception,
zcx_abapgit_exception,
read_text_pool
IMPORTING
iv_class_name TYPE seoclsname
@ -115,7 +117,7 @@ INTERFACE lif_oo_object_fnc.
RETURNING
VALUE(rt_sotr) TYPE lif_defs=>ty_sotr_tt
RAISING
lcx_exception,
zcx_abapgit_exception,
read_descriptions
IMPORTING
iv_obejct_name TYPE seoclsname
@ -125,7 +127,12 @@ INTERFACE lif_oo_object_fnc.
IMPORTING
is_deletion_key TYPE seoclskey
RAISING
lcx_exception.
zcx_abapgit_exception,
read_superclass
IMPORTING
iv_classname TYPE seoclsname
RETURNING
VALUE(rv_superclass) TYPE seoclsname.
ENDINTERFACE.
CLASS lcl_oo_serializer DEFINITION.
@ -138,7 +145,7 @@ CLASS lcl_oo_serializer DEFINITION.
RETURNING
VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING
lcx_exception
zcx_abapgit_exception
cx_sy_dyn_call_error,
are_test_classes_skipped
RETURNING
@ -146,33 +153,33 @@ CLASS lcl_oo_serializer DEFINITION.
METHODS serialize_locals_imp
IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_locals_def
IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_testclasses
IMPORTING
is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_macros
IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
DATA mv_skip_testclass TYPE abap_bool.
METHODS serialize_abap_old
IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_abap_new
IMPORTING is_clskey TYPE seoclskey
RETURNING VALUE(rt_source) TYPE lif_defs=>ty_string_tt
RAISING lcx_exception
RAISING zcx_abapgit_exception
cx_sy_dyn_call_error.
METHODS remove_signatures
CHANGING ct_source TYPE lif_defs=>ty_string_tt.
@ -207,7 +214,7 @@ CLASS lcl_oo_serializer IMPLEMENTATION.
class_not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from CL_OO_SOURCE' ).
zcx_abapgit_exception=>raise( 'error from CL_OO_SOURCE' ).
ENDIF.
lo_source->read( 'A' ).
@ -394,12 +401,12 @@ CLASS lcl_oo_base DEFINITION ABSTRACT.
METHODS deserialize_abap_source_old
IMPORTING is_clskey TYPE seoclskey
it_source TYPE lif_defs=>ty_string_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_abap_source_new
IMPORTING is_clskey TYPE seoclskey
it_source TYPE lif_defs=>ty_string_tt
RAISING lcx_exception
RAISING zcx_abapgit_exception
cx_sy_dyn_call_error.
ENDCLASS.
@ -437,7 +444,7 @@ CLASS lcl_oo_base IMPLEMENTATION.
class_not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from CL_OO_SOURCE' ).
zcx_abapgit_exception=>raise( 'error from CL_OO_SOURCE' ).
ENDIF.
TRY.
@ -446,9 +453,9 @@ CLASS lcl_oo_base IMPLEMENTATION.
lo_source->save( ).
lo_source->access_permission( seok_access_free ).
CATCH cx_oo_access_permission.
lcx_exception=>raise( 'permission error' ).
zcx_abapgit_exception=>raise( 'permission error' ).
CATCH cx_oo_source_save_failure.
lcx_exception=>raise( 'save failure' ).
zcx_abapgit_exception=>raise( 'save failure' ).
ENDTRY.
ENDMETHOD.
@ -470,7 +477,7 @@ CLASS lcl_oo_base IMPLEMENTATION.
TRY.
CALL METHOD lo_source->('IF_OO_CLIF_SOURCE~LOCK').
CATCH cx_oo_access_permission.
lcx_exception=>raise( 'source_new, access permission exception' ).
zcx_abapgit_exception=>raise( 'source_new, access permission exception' ).
ENDTRY.
CALL METHOD lo_source->('IF_OO_CLIF_SOURCE~SET_SOURCE')
@ -512,7 +519,7 @@ CLASS lcl_oo_base IMPLEMENTATION.
ret_code = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DOCU_UPD' ).
zcx_abapgit_exception=>raise( 'error from DOCU_UPD' ).
ENDIF.
ENDMETHOD.
@ -612,6 +619,11 @@ CLASS lcl_oo_base IMPLEMENTATION.
ASSERT 0 = 1. "Subclass responsibility
ENDMETHOD.
METHOD lif_oo_object_fnc~read_superclass.
SELECT SINGLE refclsname FROM vseoextend INTO rv_superclass
WHERE clsname = iv_classname.
ENDMETHOD.
ENDCLASS.
"Backdoor injection for test purposes

4
src/zabapgit_object_para.prog.abap
View File

@ -104,7 +104,7 @@ CLASS lcl_object_para IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_CORR_INSERT, PARA' ).
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT, PARA' ).
ENDIF.
MODIFY tpara FROM ls_tpara. "#EC CI_SUBRC
@ -128,7 +128,7 @@ CLASS lcl_object_para IMPLEMENTATION.
cancelled = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_PRAMETER_DELETE' ).
zcx_abapgit_exception=>raise( 'error from RS_PRAMETER_DELETE' ).
ENDIF.
ENDMETHOD. "delete

14
src/zabapgit_object_pinf.prog.abap
View File

@ -25,18 +25,18 @@ CLASS lcl_object_pinf DEFINITION INHERITING FROM lcl_objects_super FINAL.
IMPORTING is_pinf TYPE ty_pinf
iv_package TYPE devclass
RETURNING VALUE(ri_interface) TYPE REF TO if_package_interface
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
delete_elements
IMPORTING ii_interface TYPE REF TO if_package_interface
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
update_attributes
IMPORTING is_pinf TYPE ty_pinf
ii_interface TYPE REF TO if_package_interface
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
update_elements
IMPORTING is_pinf TYPE ty_pinf
ii_interface TYPE REF TO if_package_interface
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_PINF DEFINITION
@ -266,7 +266,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
unexpected_error = 4
OTHERS = 7 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error creating new package interface' ).
zcx_abapgit_exception=>raise( 'error creating new package interface' ).
ENDIF.
ELSE.
cl_package_interface=>load_package_interface(
@ -283,7 +283,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
object_locked_and_modified = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error loading package interface' ).
zcx_abapgit_exception=>raise( 'error loading package interface' ).
ENDIF.
ENDIF.
@ -329,7 +329,7 @@ CLASS lcl_object_pinf IMPLEMENTATION.
object_locked_and_modified = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error loading package interface, delete' ).
zcx_abapgit_exception=>raise( 'error loading package interface, delete' ).
ENDIF.
* elements must be deleted before the package interface

12
src/zabapgit_object_prag.prog.abap
View File

@ -18,15 +18,15 @@ CLASS lcl_object_prag DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
_raise_pragma_not_exists
RAISING
lcx_exception,
zcx_abapgit_exception,
_raise_pragma_exists
RAISING
lcx_exception,
zcx_abapgit_exception,
_raise_pragma_enqueue
RAISING
lcx_exception.
zcx_abapgit_exception.
ENDCLASS.
@ -157,19 +157,19 @@ CLASS lcl_object_prag IMPLEMENTATION.
METHOD _raise_pragma_enqueue.
lcx_exception=>raise( |Pragma { ms_item-obj_name } enqueue error| ).
zcx_abapgit_exception=>raise( |Pragma { ms_item-obj_name } enqueue error| ).
ENDMETHOD.
METHOD _raise_pragma_exists.
lcx_exception=>raise( |Pragma { ms_item-obj_name } exists| ).
zcx_abapgit_exception=>raise( |Pragma { ms_item-obj_name } exists| ).
ENDMETHOD.
METHOD _raise_pragma_not_exists.
lcx_exception=>raise( |Pragma { ms_item-obj_name } doesn't exist| ).
zcx_abapgit_exception=>raise( |Pragma { ms_item-obj_name } doesn't exist| ).
ENDMETHOD.

6
src/zabapgit_object_prog.prog.abap
View File

@ -23,10 +23,10 @@ CLASS lcl_object_prog DEFINITION INHERITING FROM lcl_objects_program FINAL.
METHODS:
serialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_prog DEFINITION
@ -98,7 +98,7 @@ CLASS lcl_object_prog IMPLEMENTATION.
reject_deletion = 4
OTHERS = 5.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DELETE_PROGRAM' ).
zcx_abapgit_exception=>raise( |Error from RS_DELETE_PROGRAM: { sy-subrc }| ).
ENDIF.
ENDMETHOD. "delete

8
src/zabapgit_object_sfbf.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_sfbf DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
get
RETURNING VALUE(ro_bf) TYPE REF TO cl_sfw_bf
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_SFBF DEFINITION
@ -83,7 +83,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
ro_bf->free( ).
ro_bf = cl_sfw_bf=>get_bf( lv_bf ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
lcx_exception=>raise( 'Error from CL_SFW_BF=>GET_BF' ).
zcx_abapgit_exception=>raise( 'Error from CL_SFW_BF=>GET_BF' ).
ENDTRY.
ENDMETHOD.
@ -190,7 +190,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
TRY.
lo_bf = cl_sfw_bf=>create_bf( lv_bf ).
CATCH cx_pak_not_authorized cx_pak_invalid_state cx_pak_invalid_data.
lcx_exception=>raise( 'error in CL_SFW_BF=>CREATE_BF' ).
zcx_abapgit_exception=>raise( 'error in CL_SFW_BF=>CREATE_BF' ).
ENDTRY.
ls_header-author = sy-uname.
@ -232,7 +232,7 @@ CLASS lcl_object_sfbf IMPLEMENTATION.
READ TABLE lt_msgtab WITH KEY severity = 'E' TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
lcx_exception=>raise( 'Error deleting SFBF' ).
zcx_abapgit_exception=>raise( 'Error deleting SFBF' ).
ENDIF.
ENDMETHOD. "delete

8
src/zabapgit_object_sfbs.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_sfbs DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
get
RETURNING VALUE(ro_bfs) TYPE REF TO cl_sfw_bfs
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_SFBS DEFINITION
@ -57,7 +57,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
ro_bfs->free( ).
ro_bfs = cl_sfw_bfs=>get_bfs( lv_bfset ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
lcx_exception=>raise( 'Error from CL_SFW_BFS=>GET_BFS' ).
zcx_abapgit_exception=>raise( 'Error from CL_SFW_BFS=>GET_BFS' ).
ENDTRY.
ENDMETHOD.
@ -168,7 +168,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
TRY.
lo_bfs = cl_sfw_bfs=>create_bfs( lv_bfset ).
CATCH cx_pak_not_authorized cx_pak_invalid_state cx_pak_invalid_data.
lcx_exception=>raise( 'error in CL_SFW_BFS=>CREATE_BFS' ).
zcx_abapgit_exception=>raise( 'error in CL_SFW_BFS=>CREATE_BFS' ).
ENDTRY.
ls_header-author = sy-uname.
@ -206,7 +206,7 @@ CLASS lcl_object_sfbs IMPLEMENTATION.
READ TABLE lt_msgtab WITH KEY severity = 'E' TRANSPORTING NO FIELDS.
IF sy-subrc = 0.
lcx_exception=>raise( 'Error deleting SFBS' ).
zcx_abapgit_exception=>raise( 'Error deleting SFBS' ).
ENDIF.
ENDMETHOD. "delete

12
src/zabapgit_object_sfpf.prog.abap
View File

@ -21,10 +21,10 @@ CLASS lcl_object_sfpf DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
load
RETURNING VALUE(ri_wb_form) TYPE REF TO if_fp_wb_form
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
form_to_xstring
RETURNING VALUE(rv_xstr) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_doma DEFINITION
@ -96,7 +96,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
TRY.
lo_wb_form->delete( lv_name ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPI error, delete' ).
zcx_abapgit_exception=>raise( 'SFPI error, delete' ).
ENDTRY.
ENDMETHOD. "delete
@ -111,7 +111,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
TRY.
ri_wb_form = cl_fp_wb_form=>load( lv_name ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPF error, load' ).
zcx_abapgit_exception=>raise( 'SFPF error, load' ).
ENDTRY.
ENDMETHOD.
@ -127,7 +127,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
li_fp_form ?= li_wb_form->get_object( ).
rv_xstr = cl_fp_helper=>convert_form_to_xstring( li_fp_form ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPF error, form_to_xstring' ).
zcx_abapgit_exception=>raise( 'SFPF error, form_to_xstring' ).
ENDTRY.
ENDMETHOD.
@ -214,7 +214,7 @@ CLASS lcl_object_sfpf IMPLEMENTATION.
li_wb_object->save( ).
li_wb_object->free( ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPF error, deserialize' ).
zcx_abapgit_exception=>raise( 'SFPF error, deserialize' ).
ENDTRY.
lcl_objects_activation=>add_item( ms_item ).

12
src/zabapgit_object_sfpi.prog.abap
View File

@ -17,10 +17,10 @@ CLASS lcl_object_sfpi DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
load
RETURNING VALUE(ri_wb_interface) TYPE REF TO if_fp_wb_interface
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
interface_to_xstring
RETURNING VALUE(rv_xstr) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_doma DEFINITION
@ -92,7 +92,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
TRY.
lo_wb_interface->delete( lv_name ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPI error, delete' ).
zcx_abapgit_exception=>raise( 'SFPI error, delete' ).
ENDTRY.
ENDMETHOD. "delete
@ -107,7 +107,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
TRY.
ri_wb_interface = cl_fp_wb_interface=>load( lv_name ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPI error, load' ).
zcx_abapgit_exception=>raise( 'SFPI error, load' ).
ENDTRY.
ENDMETHOD.
@ -123,7 +123,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
li_fp_interface ?= li_wb_interface->get_object( ).
rv_xstr = cl_fp_helper=>convert_interface_to_xstring( li_fp_interface ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPI error, interface_to_xstring' ).
zcx_abapgit_exception=>raise( 'SFPI error, interface_to_xstring' ).
ENDTRY.
ENDMETHOD.
@ -160,7 +160,7 @@ CLASS lcl_object_sfpi IMPLEMENTATION.
li_wb_object->save( ).
li_wb_object->free( ).
CATCH cx_fp_api.
lcx_exception=>raise( 'SFPI error, deserialize' ).
zcx_abapgit_exception=>raise( 'SFPI error, deserialize' ).
ENDTRY.
lcl_objects_activation=>add_item( ms_item ).

10
src/zabapgit_object_sfsw.prog.abap
View File

@ -16,7 +16,7 @@ CLASS lcl_object_sfsw DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
get
RETURNING VALUE(ro_switch) TYPE REF TO cl_sfw_sw
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_sfsw DEFINITION
@ -80,7 +80,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
TRY.
ro_switch = cl_sfw_sw=>get_switch_from_db( lv_switch_id ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
lcx_exception=>raise( 'Error from CL_SFW_SW=>GET_SWITCH' ).
zcx_abapgit_exception=>raise( 'Error from CL_SFW_SW=>GET_SWITCH' ).
ENDTRY.
ENDMETHOD.
@ -157,7 +157,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
TRY.
lo_switch = cl_sfw_sw=>create_switch( lv_switch_id ).
CATCH cx_pak_not_authorized cx_pak_invalid_state cx_pak_invalid_data.
lcx_exception=>raise( 'error in CL_SFW_SW=>CREATE_SWITCH' ).
zcx_abapgit_exception=>raise( 'error in CL_SFW_SW=>CREATE_SWITCH' ).
ENDTRY.
ls_header-author = sy-uname.
@ -178,7 +178,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
OTHERS = 2 ).
SET PARAMETER ID 'EUK' FIELD ''.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error in CL_SFW_SW->SAVE_ALL' ).
zcx_abapgit_exception=>raise( 'error in CL_SFW_SW->SAVE_ALL' ).
ENDIF.
@ -198,7 +198,7 @@ CLASS lcl_object_sfsw IMPLEMENTATION.
lo_switch->set_delete_flag( lv_switch_id ).
lo_switch->save_all( ).
CATCH cx_pak_invalid_data cx_pak_invalid_state cx_pak_not_authorized.
lcx_exception=>raise( 'Error deleting Switch' ).
zcx_abapgit_exception=>raise( 'Error deleting Switch' ).
ENDTRY.
ENDMETHOD. "delete

8
src/zabapgit_object_shi3.prog.abap
View File

@ -21,7 +21,7 @@ CLASS lcl_object_shi3 DEFINITION INHERITING FROM lcl_objects_super FINAL.
DATA: mv_tree_id TYPE ttree-id.
METHODS jump_se43
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS clear_fields
CHANGING cs_head TYPE ttree
@ -94,7 +94,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SHI3' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SHI3' ).
ENDIF.
ENDMETHOD. "jump_se43
@ -133,7 +133,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
canceled = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from BMENU_DELETE_TREE, SHI3' ).
zcx_abapgit_exception=>raise( 'error from BMENU_DELETE_TREE, SHI3' ).
ENDIF.
ENDMETHOD. "delete
@ -245,7 +245,7 @@ CLASS lcl_object_shi3 IMPLEMENTATION.
no_nodes_given = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from STREE_HIERARCHY_SAVE, SHI3' ).
zcx_abapgit_exception=>raise( 'Error from STREE_HIERARCHY_SAVE, SHI3' ).
ENDIF.
ENDMETHOD. "deserialize

6
src/zabapgit_object_shlp.prog.abap
View File

@ -92,7 +92,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, SHLP' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_DELETE_OBJ, SHLP' ).
ENDIF.
ENDMETHOD. "delete
@ -125,7 +125,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_SHLP_GET' ).
zcx_abapgit_exception=>raise( 'error from DDIF_SHLP_GET' ).
ENDIF.
IF ls_dd30v IS INITIAL.
RETURN. " does not exist in system
@ -199,7 +199,7 @@ CLASS lcl_object_shlp IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_SHLP_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_SHLP_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

12
src/zabapgit_object_shma.prog.abap
View File

@ -67,7 +67,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
ig_data = ls_area_attributes ).
CATCH cx_root.
lcx_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ).
ENDTRY.
ENDMETHOD.
@ -95,7 +95,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
silent_mode = abap_true.
CATCH cx_root.
lcx_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ).
ENDTRY.
ENDMETHOD.
@ -137,7 +137,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
ENDIF.
CALL METHOD ('\PROGRAM=SAPMSHM_MONITOR\CLASS=LCL_SHMM')=>('FREE_AREA_BY_NAME')
@ -157,7 +157,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
appendable = lv_append.
IF lv_request <> lc_request_delete.
lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
ENDIF.
CALL METHOD lo_cts_if->('INSERT_AREA')
@ -223,7 +223,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
_collect = ' '.
CATCH cx_root.
lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
zcx_abapgit_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
ENDTRY.
ENDMETHOD.
@ -259,7 +259,7 @@ CLASS lcl_object_shma IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SHMA' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SHMA' ).
ENDIF.
ENDMETHOD.

22
src/zabapgit_object_sicf.prog.abap
View File

@ -27,7 +27,7 @@ CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL.
es_icfdocu TYPE icfdocu
et_icfhandler TYPE ty_icfhandler_tt
ev_url TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS insert_sicf
IMPORTING is_icfservice TYPE icfservice
@ -35,7 +35,7 @@ CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL.
it_icfhandler TYPE ty_icfhandler_tt
iv_package TYPE devclass
iv_url TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS change_sicf
IMPORTING is_icfservice TYPE icfservice
@ -43,7 +43,7 @@ CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL.
it_icfhandler TYPE ty_icfhandler_tt
iv_package TYPE devclass
iv_parent TYPE icfparguid
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS to_icfhndlist
IMPORTING it_list TYPE ty_icfhandler_tt
@ -52,7 +52,7 @@ CLASS lcl_object_sicf DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS find_parent
IMPORTING iv_url TYPE string
RETURNING VALUE(rv_parent) TYPE icfparguid
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_sicf DEFINITION
@ -171,7 +171,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'SICF - error from get_info_from_serv' ).
zcx_abapgit_exception=>raise( 'SICF - error from get_info_from_serv' ).
ENDIF.
ASSERT lines( lt_serv_info ) = 1.
@ -261,7 +261,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'SICF - error from service_from_url' ).
zcx_abapgit_exception=>raise( 'SICF - error from service_from_url' ).
ENDIF.
ENDMETHOD. "find_parent
@ -322,7 +322,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 26
OTHERS = 27 ).
IF sy-subrc <> 0.
lcx_exception=>raise( |SICF - error from insert_node: { sy-subrc }| ).
zcx_abapgit_exception=>raise( |SICF - error from insert_node: { sy-subrc }| ).
ENDIF.
ENDMETHOD. "insert_sicf
@ -388,7 +388,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 26
OTHERS = 27 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'SICF - error from change_node' ).
zcx_abapgit_exception=>raise( 'SICF - error from change_node' ).
ENDIF.
ENDMETHOD. "change_sicf
@ -409,7 +409,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
IF ls_icfservice-icfparguid CO '0'.
* not supported by the SAP standard API
lcx_exception=>raise( 'SICF - cannot delete root node, delete node manually' ).
zcx_abapgit_exception=>raise( 'SICF - cannot delete root node, delete node manually' ).
ENDIF.
cl_icf_tree=>if_icf_tree~delete_node(
@ -431,7 +431,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
no_authority = 11
OTHERS = 12 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'SICF - error from delete_node' ).
zcx_abapgit_exception=>raise( 'SICF - error from delete_node' ).
ENDIF.
ENDMETHOD. "delete
@ -467,7 +467,7 @@ CLASS lcl_object_sicf IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SICF' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SICF' ).
ENDIF.
ENDMETHOD. "jump

14
src/zabapgit_object_smim.prog.abap
View File

@ -21,7 +21,7 @@ CLASS lcl_object_smim DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS find_content
IMPORTING iv_url TYPE string
RETURNING VALUE(rv_content) TYPE xstring
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS build_filename
IMPORTING iv_filename TYPE string
@ -31,7 +31,7 @@ CLASS lcl_object_smim DEFINITION INHERITING FROM lcl_objects_super FINAL.
EXPORTING ev_url TYPE string
ev_is_folder TYPE boole_d
RAISING lcx_not_found
lcx_exception.
zcx_abapgit_exception.
ENDCLASS. "lcl_object_smim DEFINITION
@ -140,7 +140,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
READ TABLE lt_files ASSIGNING <ls_file> WITH KEY filename = lv_filename.
IF sy-subrc <> 0.
lcx_exception=>raise( 'SMIM, file not found' ).
zcx_abapgit_exception=>raise( 'SMIM, file not found' ).
ENDIF.
rv_content = <ls_file>-data.
@ -198,7 +198,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
permission_failure = 4
OTHERS = 5 ).
IF sy-subrc <> 0 AND sy-subrc <> 2 AND sy-subrc <> 3.
lcx_exception=>raise( 'error from mime api->get:' && sy-msgv1 ).
zcx_abapgit_exception=>raise( 'error from mime api->get:' && sy-msgv1 ).
ENDIF.
lv_filename = get_filename( lv_url ).
@ -260,7 +260,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
folder_exists = 5
OTHERS = 6 ).
IF sy-subrc <> 5 AND sy-subrc <> 0.
lcx_exception=>raise( 'error frrom SMIM create_folder' ).
zcx_abapgit_exception=>raise( 'error frrom SMIM create_folder' ).
ENDIF.
ELSE.
lv_filename = get_filename( lv_url ).
@ -292,7 +292,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
is_folder = 7
OTHERS = 8 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SMIM put' ).
zcx_abapgit_exception=>raise( 'error from SMIM put' ).
ENDIF.
ENDIF.
@ -325,7 +325,7 @@ CLASS lcl_object_smim IMPLEMENTATION.
not_found = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from delete' ).
zcx_abapgit_exception=>raise( 'error from delete' ).
ENDIF.
ENDMETHOD. "delete

2
src/zabapgit_object_splo.prog.abap
View File

@ -116,7 +116,7 @@ CLASS lcl_object_splo IMPLEMENTATION.
ENDMETHOD. "lif_object~exists
METHOD lif_object~jump.
lcx_exception=>raise( 'todo, jump, SPLO' ).
zcx_abapgit_exception=>raise( 'todo, jump, SPLO' ).
ENDMETHOD. "lif_object~jump
METHOD lif_object~compare_to_remote_version.

2
src/zabapgit_object_ssfo.prog.abap
View File

@ -116,7 +116,7 @@ CLASS lcl_object_ssfo IMPLEMENTATION.
illegal_formtype = 6
OTHERS = 7.
IF sy-subrc <> 0 AND sy-subrc <> 2.
lcx_exception=>raise( 'Error from FB_DELETE_FORM' ).
zcx_abapgit_exception=>raise( 'Error from FB_DELETE_FORM' ).
ENDIF.
ENDMETHOD. "delete

12
src/zabapgit_object_ssst.prog.abap
View File

@ -17,7 +17,7 @@ CLASS lcl_object_ssst DEFINITION INHERITING FROM lcl_objects_super FINAL.
PRIVATE SECTION.
METHODS validate_font
IMPORTING iv_tdfamily TYPE tdfamily
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_ssst DEFINITION
@ -68,7 +68,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
SELECT SINGLE tdfamily FROM tfo01 INTO lv_tdfamily
WHERE tdfamily = iv_tdfamily.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Font family not found' ).
zcx_abapgit_exception=>raise( 'Font family not found' ).
ENDIF.
ENDMETHOD. "validate_font
@ -110,7 +110,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
IF sy-subrc = 2.
RETURN.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from SSF_READ_STYLE' ).
zcx_abapgit_exception=>raise( 'error from SSF_READ_STYLE' ).
ENDIF.
CLEAR ls_header-version.
@ -191,7 +191,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
illegal_language = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SSF_ACTIVATE_STYLE' ).
zcx_abapgit_exception=>raise( 'error from SSF_ACTIVATE_STYLE' ).
ENDIF.
ENDIF.
@ -219,7 +219,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
illegal_language = 6
OTHERS = 7.
IF sy-subrc <> 0 AND sy-subrc <> 2.
lcx_exception=>raise( 'error from SSF_DELETE_STYLE' ).
zcx_abapgit_exception=>raise( 'error from SSF_DELETE_STYLE' ).
ENDIF.
ENDMETHOD. "delete
@ -255,7 +255,7 @@ CLASS lcl_object_ssst IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SSST' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SSST' ).
ENDIF.
ENDMETHOD. "jump

2
src/zabapgit_object_styl.prog.abap
View File

@ -125,7 +125,7 @@ CLASS lcl_object_styl IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, STYL' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, STYL' ).
ENDIF.
ENDMETHOD. "jump

2
src/zabapgit_object_suso.prog.abap
View File

@ -66,7 +66,7 @@ CLASS lcl_object_suso IMPLEMENTATION.
WHERE object = ms_item-obj_name
AND langu = mv_language. "#EC CI_GENBUFF
IF sy-subrc <> 0.
lcx_exception=>raise( 'TOBJT no english description' ).
zcx_abapgit_exception=>raise( 'TOBJT no english description' ).
ENDIF.
SELECT SINGLE * FROM tobjvorflg INTO ls_tobjvorflg

8
src/zabapgit_object_tabl.prog.abap
View File

@ -165,7 +165,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, TABL' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_DELETE_OBJ, TABL' ).
ENDIF.
ENDMETHOD. "delete
@ -212,7 +212,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_TABL_GET' ).
zcx_abapgit_exception=>raise( 'error from DDIF_TABL_GET' ).
ENDIF.
IF ls_dd02v IS INITIAL.
RETURN. " object does not exits
@ -406,7 +406,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_TABL_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_TABL_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).
@ -437,7 +437,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_INDX_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_INDX_PUT' ).
ENDIF.
CALL FUNCTION 'DD_DD_TO_E071'

14
src/zabapgit_object_tabl_valid.prog.abap
View File

@ -11,7 +11,7 @@ CLASS lcl_object_tabl_valid DEFINITION FINAL.
RETURNING
VALUE(rv_message) TYPE string
RAISING
lcx_exception.
zcx_abapgit_exception.
ENDCLASS.
CLASS lcl_tabl_valid_dialog DEFINITION FINAL.
@ -81,7 +81,7 @@ CLASS lcl_tabl_valid_dialog IMPLEMENTATION.
icon_button_2 = 'ICON_OKAY'
default_button = '2'
display_cancel_button = abap_false ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
mv_halt = abap_true.
ENDTRY.
@ -96,13 +96,13 @@ CLASS lct_table_validation DEFINITION FOR TESTING RISK LEVEL HARMLESS DURATION S
PRIVATE SECTION.
METHODS:
setup,
type_changed FOR TESTING RAISING lcx_exception,
no_type_changes FOR TESTING RAISING lcx_exception,
field_not_found FOR TESTING RAISING lcx_exception,
no_fields_no_message FOR TESTING RAISING lcx_exception,
type_changed FOR TESTING RAISING zcx_abapgit_exception,
no_type_changes FOR TESTING RAISING zcx_abapgit_exception,
field_not_found FOR TESTING RAISING zcx_abapgit_exception,
no_fields_no_message FOR TESTING RAISING zcx_abapgit_exception,
create_xmls
RAISING
lcx_exception.
zcx_abapgit_exception.
DATA: mo_table_validator TYPE REF TO lcl_object_tabl_valid,
mo_previous_version_out_xml TYPE REF TO lcl_xml_output,

8
src/zabapgit_object_tobj.prog.abap
View File

@ -136,7 +136,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from CTO_OBJECT_GET' ).
zcx_abapgit_exception=>raise( 'error from CTO_OBJECT_GET' ).
ENDIF.
CLEAR: ls_objh-luser,
@ -203,7 +203,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
IF sy-subrc <> 0.
* TOBJ has to be saved/generated after the DDIC tables have been
* activated - fixed with late deserialization
lcx_exception=>raise( 'error from OBJ_GENERATE' ).
zcx_abapgit_exception=>raise( 'error from OBJ_GENERATE' ).
ENDIF.
io_xml->read( EXPORTING iv_name = 'TOBJ'
@ -236,7 +236,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
object_enqueue_failed = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from OBJ_GENERATE' ).
zcx_abapgit_exception=>raise( 'error from OBJ_GENERATE' ).
ENDIF.
delete_extra( ls_objh-objectname ).
@ -280,7 +280,7 @@ CLASS lcl_object_tobj IMPLEMENTATION.
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, TOBJ' ).
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, TOBJ' ).
ENDIF.
ENDMETHOD. "jump

14
src/zabapgit_object_tran.prog.abap
View File

@ -41,11 +41,11 @@ CLASS lcl_object_tran DEFINITION INHERITING FROM lcl_objects_super FINAL.
serialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize_texts
IMPORTING io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_TRAN DEFINITION
@ -271,7 +271,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
object_not_found = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RPY_TRANSACTION_DELETE' ).
zcx_abapgit_exception=>raise( 'Error from RPY_TRANSACTION_DELETE' ).
ENDIF.
ENDMETHOD. "delete
@ -321,7 +321,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
lv_type = ststc_c_type_parameters.
* todo, or ststc_c_type_variant?
WHEN OTHERS.
lcx_exception=>raise( 'Transaction, unknown CINFO' ).
zcx_abapgit_exception=>raise( 'Transaction, unknown CINFO' ).
ENDCASE.
IF ls_tstcp IS NOT INITIAL.
@ -362,7 +362,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
db_access_error = 8
OTHERS = 9.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RPY_TRANSACTION_INSERT' ).
zcx_abapgit_exception=>raise( 'Error from RPY_TRANSACTION_INSERT' ).
ENDIF.
" Texts deserializing (translations)
@ -398,7 +398,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
IF sy-subrc = 4 OR sy-subrc = 3.
RETURN.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RPY_TRANSACTION_READ' ).
zcx_abapgit_exception=>raise( 'Error from RPY_TRANSACTION_READ' ).
ENDIF.
SELECT SINGLE * FROM tstct INTO ls_tstct
@ -471,7 +471,7 @@ CLASS lcl_object_tran IMPLEMENTATION.
IF lines( lt_tpool_i18n ) > 0.
MODIFY tstct FROM TABLE lt_tpool_i18n.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Update of t-code translations failed' ).
zcx_abapgit_exception=>raise( 'Update of t-code translations failed' ).
ENDIF.
ENDIF.

6
src/zabapgit_object_ttyp.prog.abap
View File

@ -92,7 +92,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, TTYP' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_DELETE_OBJ, TTYP' ).
ENDIF.
ENDMETHOD. "delete
@ -121,7 +121,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_TTYP_GET' ).
zcx_abapgit_exception=>raise( 'error from DDIF_TTYP_GET' ).
ENDIF.
IF ls_dd40v IS INITIAL.
RETURN. " does not exist in system
@ -178,7 +178,7 @@ CLASS lcl_object_ttyp IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_TTYP_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_TTYP_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

14
src/zabapgit_object_type.prog.abap
View File

@ -19,14 +19,14 @@ CLASS lcl_object_type DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS read
EXPORTING ev_ddtext TYPE ddtypet-ddtext
et_source TYPE abaptxt255_tab
RAISING lcx_exception
RAISING zcx_abapgit_exception
lcx_not_found.
METHODS create
IMPORTING iv_ddtext TYPE ddtypet-ddtext
it_source TYPE abaptxt255_tab
iv_devclass TYPE devclass
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_type DEFINITION
@ -54,7 +54,7 @@ CLASS lcl_object_type IMPLEMENTATION.
TRY.
read( ).
rv_bool = abap_true.
CATCH lcx_not_found lcx_exception.
CATCH lcx_not_found zcx_abapgit_exception.
rv_bool = abap_false.
ENDTRY.
@ -90,7 +90,7 @@ CLASS lcl_object_type IMPLEMENTATION.
reps_not_exist = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from TYPD_GET_OBJECT' ).
zcx_abapgit_exception=>raise( 'error from TYPD_GET_OBJECT' ).
ENDIF.
ENDMETHOD. "read
@ -140,14 +140,14 @@ CLASS lcl_object_type IMPLEMENTATION.
illegal_name = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_TYGR_INSERT_SOURCES' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_TYGR_INSERT_SOURCES' ).
ENDIF.
CONCATENATE c_prefix lv_typegroup INTO lv_progname.
UPDATE progdir SET uccheck = abap_true
WHERE name = lv_progname.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error setting uccheck' ).
zcx_abapgit_exception=>raise( 'error setting uccheck' ).
ENDIF.
ENDMETHOD. "create
@ -201,7 +201,7 @@ CLASS lcl_object_type IMPLEMENTATION.
dialog_needed = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error deleting TYPE' ).
zcx_abapgit_exception=>raise( 'error deleting TYPE' ).
ENDIF.
ENDMETHOD. "delete

6
src/zabapgit_object_vcls.prog.abap
View File

@ -83,7 +83,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
incomplete_viewcluster = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error in VIEWCLUSTER_GET_DEFINITION' ).
zcx_abapgit_exception=>raise( 'error in VIEWCLUSTER_GET_DEFINITION' ).
ENDIF.
CLEAR ls_vcldir_entry-author.
@ -142,7 +142,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
object_enqueue_failed = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error in OBJ_GENERATE for VCLS' ).
zcx_abapgit_exception=>raise( 'error in OBJ_GENERATE for VCLS' ).
ENDIF.
ENDMETHOD. "deserialize
@ -190,7 +190,7 @@ CLASS lcl_object_vcls IMPLEMENTATION.
missing_corr_number = 15
OTHERS = 16.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error in VIEWCLUSTER_MAINTENANCE_CALL' ).
zcx_abapgit_exception=>raise( 'error in VIEWCLUSTER_MAINTENANCE_CALL' ).
ENDIF.
ENDMETHOD. "jump

6
src/zabapgit_object_view.prog.abap
View File

@ -128,7 +128,7 @@ CLASS lcl_object_view IMPLEMENTATION.
object_not_specified = 3
permission_failure = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_DD_DELETE_OBJ, VIEW' ).
zcx_abapgit_exception=>raise( 'error from RS_DD_DELETE_OBJ, VIEW' ).
ENDIF.
ENDMETHOD. "delete
@ -165,7 +165,7 @@ CLASS lcl_object_view IMPLEMENTATION.
illegal_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_VIEW_GET' ).
zcx_abapgit_exception=>raise( 'error from DDIF_VIEW_GET' ).
ENDIF.
IF ls_dd25v IS INITIAL.
RETURN. " does not exist in system
@ -264,7 +264,7 @@ CLASS lcl_object_view IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from DDIF_VIEW_PUT' ).
zcx_abapgit_exception=>raise( 'error from DDIF_VIEW_PUT' ).
ENDIF.
lcl_objects_activation=>add_item( ms_item ).

128
src/zabapgit_object_w3xx.prog.abap
View File

@ -28,9 +28,15 @@ CLASS lcl_object_w3super DEFINITION INHERITING FROM lcl_objects_super ABSTRACT.
iv_language TYPE spras.
PROTECTED SECTION.
TYPES tty_bdcdata TYPE STANDARD TABLE OF bdcdata
WITH NON-UNIQUE DEFAULT KEY.
METHODS get_metadata REDEFINITION.
METHODS change_bdc_jump_data ABSTRACT
CHANGING
ct_bdcdata TYPE tty_bdcdata.
PRIVATE SECTION.
DATA ms_key TYPE wwwdatatab.
@ -38,22 +44,22 @@ CLASS lcl_object_w3super DEFINITION INHERITING FROM lcl_objects_super ABSTRACT.
METHODS get_ext
IMPORTING it_params TYPE ty_wwwparams_tt
RETURNING VALUE(rv_ext) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS normalize_params
IMPORTING iv_size TYPE i
CHANGING ct_params TYPE ty_wwwparams_tt " Param table to patch
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS strip_params
CHANGING ct_params TYPE ty_wwwparams_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS find_param
IMPORTING it_params TYPE ty_wwwparams_tt
iv_name TYPE w3_name
RETURNING VALUE(rv_value) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_W3SUPER DEFINITION
@ -89,8 +95,53 @@ CLASS lcl_object_w3super IMPLEMENTATION.
ENDMETHOD.
METHOD lif_object~jump.
" No idea how to jump to SMW0
lcx_exception=>raise( 'Please go to SMW0 for W3MI object' ).
DATA: ls_bdcdata TYPE bdcdata,
lt_bdcdata TYPE tty_bdcdata.
ls_bdcdata-program = 'SAPMWWW0'.
ls_bdcdata-dynpro = '0100'.
ls_bdcdata-dynbegin = 'X'.
APPEND ls_bdcdata TO lt_bdcdata.
change_bdc_jump_data(
CHANGING
ct_bdcdata = lt_bdcdata ).
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'BDC_OKCODE'.
ls_bdcdata-fval = '=CRO1'.
APPEND ls_bdcdata TO lt_bdcdata.
ls_bdcdata-program = 'RSWWWSHW'.
ls_bdcdata-dynpro = '1000'.
ls_bdcdata-dynbegin = 'X'.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'SO_OBJID-LOW'.
ls_bdcdata-fval = ms_item-obj_name.
APPEND ls_bdcdata TO lt_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'BDC_OKCODE'.
ls_bdcdata-fval = '=ONLI'.
APPEND ls_bdcdata TO lt_bdcdata.
CALL FUNCTION 'ABAP4_CALL_TRANSACTION'
STARTING NEW TASK 'GIT'
EXPORTING
tcode = 'SMW0'
mode_val = 'E'
TABLES
using_tab = lt_bdcdata
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from ABAP4_CALL_TRANSACTION, SE35' ).
ENDIF.
ENDMETHOD. "jump
METHOD lif_object~get_metadata.
@ -147,7 +198,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
import_error = 2.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot read W3xx data' ).
zcx_abapgit_exception=>raise( 'Cannot read W3xx data' ).
ENDIF.
CALL FUNCTION 'WWWPARAMS_READ_ALL'
@ -160,7 +211,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
entry_not_exists = 1.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot read W3xx data' ).
zcx_abapgit_exception=>raise( 'Cannot read W3xx data' ).
ENDIF.
lv_size = find_param( it_params = lt_w3params iv_name = c_param_names-filesize ).
@ -187,11 +238,11 @@ CLASS lcl_object_w3super IMPLEMENTATION.
EXCEPTIONS
failed = 1.
WHEN OTHERS.
lcx_exception=>raise( 'Wrong W3xx type' ).
zcx_abapgit_exception=>raise( 'Wrong W3xx type' ).
ENDCASE.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot convert W3xx to xstring' ).
zcx_abapgit_exception=>raise( 'Cannot convert W3xx to xstring' ).
ENDIF.
io_xml->add( iv_name = 'NAME'
@ -236,7 +287,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
lv_xstring = lif_object~mo_files->read_raw( iv_extra = 'data'
iv_ext = get_ext( lt_w3params ) ).
WHEN OTHERS.
lcx_exception=>raise( 'W3xx: Unknown serializer version' ).
zcx_abapgit_exception=>raise( 'W3xx: Unknown serializer version' ).
ENDCASE.
CASE ms_key-relid.
@ -268,12 +319,12 @@ CLASS lcl_object_w3super IMPLEMENTATION.
EXCEPTIONS
failed = 1.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot update W3xx params' ).
zcx_abapgit_exception=>raise( 'Cannot update W3xx params' ).
ENDIF.
CLEAR lt_w3mime.
WHEN OTHERS.
lcx_exception=>raise( 'Wrong W3xx type' ).
zcx_abapgit_exception=>raise( 'Wrong W3xx type' ).
ENDCASE.
" Update size of file based on actual data file size, prove param object name
@ -287,7 +338,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
update_error = 1.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot update W3xx params' ).
zcx_abapgit_exception=>raise( 'Cannot update W3xx params' ).
ENDIF.
ms_key-tdate = sy-datum.
@ -306,7 +357,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
export_error = 2.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot upload W3xx data' ).
zcx_abapgit_exception=>raise( 'Cannot upload W3xx data' ).
ENDIF.
CONCATENATE 'W3' ms_key-relid INTO lv_tadir_obj.
@ -346,7 +397,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
OTHERS = 99.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot update TADIR for W3xx' ).
zcx_abapgit_exception=>raise( 'Cannot update TADIR for W3xx' ).
ENDIF.
ENDMETHOD. "lif_object~deserialize
@ -361,7 +412,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
delete_error = 2.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot delete W3xx data' ).
zcx_abapgit_exception=>raise( 'Cannot delete W3xx data' ).
ENDIF.
CALL FUNCTION 'WWWPARAMS_DELETE_ALL'
@ -371,7 +422,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
delete_error = 1.
IF sy-subrc IS NOT INITIAL.
lcx_exception=>raise( 'Cannot delete W3xx params' ).
zcx_abapgit_exception=>raise( 'Cannot delete W3xx params' ).
ENDIF.
ENDMETHOD. "lif_object~delete
@ -426,7 +477,7 @@ CLASS lcl_object_w3super IMPLEMENTATION.
READ TABLE it_params ASSIGNING <param> WITH KEY name = iv_name.
IF sy-subrc > 0.
lcx_exception=>raise( |W3xx: Cannot find { iv_name } for { ms_key-objid }| ).
zcx_abapgit_exception=>raise( |W3xx: Cannot find { iv_name } for { ms_key-objid }| ).
ENDIF.
rv_value = <param>-value.
@ -445,18 +496,57 @@ ENDCLASS. "lcl_object_W3SUPER IMPLEMENTATION
* Web Reporting/Internet Transaction Server MIME Types (binary data)
*----------------------------------------------------------------------*
CLASS lcl_object_w3mi DEFINITION INHERITING FROM lcl_object_w3super FINAL.
PROTECTED SECTION.
METHODS: change_bdc_jump_data REDEFINITION.
ENDCLASS. "lcl_object_W3MI DEFINITION
CLASS lcl_object_w3mi IMPLEMENTATION.
METHOD change_bdc_jump_data.
DATA: ls_bdcdata LIKE LINE OF ct_bdcdata.
ls_bdcdata-fnam = 'RADIO_HT'.
ls_bdcdata-fval = ' '.
APPEND ls_bdcdata TO ct_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'RADIO_MI'.
ls_bdcdata-fval = 'X'.
APPEND ls_bdcdata TO ct_bdcdata.
ENDMETHOD.
ENDCLASS.
*----------------------------------------------------------------------*
* CLASS lcl_object_W3HT DEFINITION
*----------------------------------------------------------------------*
* Web Reporting/Internet Transaction Server MIME Types (html data)
*----------------------------------------------------------------------*
CLASS lcl_object_w3ht DEFINITION INHERITING FROM lcl_object_w3super FINAL.
PROTECTED SECTION.
METHODS: change_bdc_jump_data REDEFINITION.
ENDCLASS. "lcl_object_W3HT DEFINITION
CLASS lcl_object_w3ht IMPLEMENTATION.
METHOD change_bdc_jump_data.
DATA: ls_bdcdata LIKE LINE OF ct_bdcdata.
ls_bdcdata-fnam = 'RADIO_HT'.
ls_bdcdata-fval = 'X'.
APPEND ls_bdcdata TO ct_bdcdata.
CLEAR ls_bdcdata.
ls_bdcdata-fnam = 'RADIO_MI'.
ls_bdcdata-fval = ' '.
APPEND ls_bdcdata TO ct_bdcdata.
ENDMETHOD.
ENDCLASS.

4
src/zabapgit_object_wapa.prog.abap
View File

@ -35,7 +35,7 @@ CLASS lcl_object_wapa DEFINITION INHERITING FROM lcl_objects_super FINAL.
read_page
IMPORTING is_page TYPE o2pagattr
RETURNING VALUE(rs_page) TYPE ty_page
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_TRAN DEFINITION
@ -211,7 +211,7 @@ CLASS lcl_object_wapa IMPLEMENTATION.
error_occured = 7
invalid_parameter = 8 ).
IF sy-subrc <> 0.
lcx_exception=>raise( |WAPA - error from create_new: { sy-subrc }| ).
zcx_abapgit_exception=>raise( |WAPA - error from create_new: { sy-subrc }| ).
ENDIF.
lo_bsp->save( ).

12
src/zabapgit_object_wdya.prog.abap
View File

@ -17,13 +17,13 @@ CLASS lcl_object_wdya DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS read
EXPORTING es_app TYPE wdy_application
et_properties TYPE wdy_app_property_table
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS save
IMPORTING is_app TYPE wdy_application
it_properties TYPE wdy_app_property_table
iv_package TYPE devclass
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_wdya DEFINITION
@ -83,7 +83,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
CATCH cx_wdy_md_not_existing.
rv_bool = abap_false.
CATCH cx_wdy_md_permission_failure.
lcx_exception=>raise( 'WDYA, permission failure' ).
zcx_abapgit_exception=>raise( 'WDYA, permission failure' ).
ENDTRY.
ENDMETHOD. "lif_object~exists
@ -108,7 +108,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
CATCH cx_wdy_md_not_existing.
RETURN.
CATCH cx_wdy_md_permission_failure.
lcx_exception=>raise( 'WDYA, permission failure' ).
zcx_abapgit_exception=>raise( 'WDYA, permission failure' ).
ENDTRY.
li_app->if_wdy_md_object~get_definition( IMPORTING definition = es_app ).
@ -166,7 +166,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
lo_app->if_wdy_md_lockable_object~save_to_database( ).
CATCH cx_wdy_md_exception.
lcx_exception=>raise( 'error saving WDYA' ).
zcx_abapgit_exception=>raise( 'error saving WDYA' ).
ENDTRY.
ENDMETHOD. "save
@ -219,7 +219,7 @@ CLASS lcl_object_wdya IMPLEMENTATION.
CATCH cx_wdy_md_not_existing.
RETURN.
CATCH cx_wdy_md_exception.
lcx_exception=>raise( 'WDYA, error deleting' ).
zcx_abapgit_exception=>raise( 'WDYA, error deleting' ).
ENDTRY.
ENDMETHOD. "delete

42
src/zabapgit_object_wdyn.prog.abap
View File

@ -24,42 +24,42 @@ CLASS lcl_object_wdyn DEFINITION INHERITING FROM lcl_objects_super FINAL.
RETURNING VALUE(rt_objects) TYPE wdy_md_transport_keys,
read
RETURNING VALUE(rs_component) TYPE wdy_component_metadata
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
read_controller
IMPORTING is_key TYPE wdy_md_controller_key
RETURNING VALUE(rs_controller) TYPE wdy_md_controller_meta_data
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
read_definition
IMPORTING is_key TYPE wdy_md_component_key
RETURNING VALUE(rs_definition) TYPE wdy_md_component_meta_data
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
read_view
IMPORTING is_key TYPE wdy_md_view_key
RETURNING VALUE(rs_view) TYPE wdy_md_view_meta_data
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
recover_controller
IMPORTING is_controller TYPE wdy_md_controller_meta_data
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
recover_definition
IMPORTING is_definition TYPE wdy_md_component_meta_data
iv_package TYPE devclass
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
recover_view
IMPORTING is_view TYPE wdy_md_view_meta_data
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
delta_controller
IMPORTING is_controller TYPE wdy_md_controller_meta_data
RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
delta_definition
IMPORTING is_definition TYPE wdy_md_component_meta_data
VALUE(iv_package) TYPE devclass
RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
delta_view
IMPORTING is_view TYPE wdy_md_view_meta_data
RETURNING VALUE(rs_delta) TYPE svrs2_xversionable_object
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
add_fm_param_exporting
IMPORTING i_name TYPE string
i_value TYPE any
@ -131,7 +131,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
li_component->save_to_database( ).
li_component->unlock( ).
CATCH cx_wdy_md_exception.
lcx_exception=>raise( 'error creating dummy component' ).
zcx_abapgit_exception=>raise( 'error creating dummy component' ).
ENDTRY.
ENDIF.
@ -158,7 +158,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXCEPTIONS
inconsistent_objects = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
zcx_abapgit_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
ENDIF.
ENDMETHOD. "delta_definition
@ -194,7 +194,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
li_controller->save_to_database( ).
li_controller->unlock( ).
CATCH cx_wdy_md_exception.
lcx_exception=>raise( 'error creating dummy controller' ).
zcx_abapgit_exception=>raise( 'error creating dummy controller' ).
ENDTRY.
ENDIF.
@ -254,7 +254,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXCEPTIONS
inconsistent_objects = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
zcx_abapgit_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
ENDIF.
ENDMETHOD. "delta_controller
@ -285,7 +285,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
li_view->save_to_database( ).
li_view->unlock( ).
CATCH cx_wdy_md_exception.
lcx_exception=>raise( 'error creating dummy view' ).
zcx_abapgit_exception=>raise( 'error creating dummy view' ).
ENDTRY.
ENDIF.
@ -325,7 +325,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXCEPTIONS
inconsistent_objects = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
zcx_abapgit_exception=>raise( 'error from SVRS_MAKE_OBJECT_DELTA' ).
ENDIF.
ENDMETHOD. "delta_view
@ -485,7 +485,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
EXCEPTION-TABLE
lt_fm_exception.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from WDYC_GET_OBJECT' ).
zcx_abapgit_exception=>raise( 'error from WDYC_GET_OBJECT' ).
ENDIF.
APPEND LINES OF lt_components TO mt_components.
@ -493,7 +493,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
READ TABLE lt_definition INDEX 1 INTO rs_controller-definition.
IF sy-subrc <> 0.
lcx_exception=>raise( 'WDYC, definition not found' ).
zcx_abapgit_exception=>raise( 'WDYC, definition not found' ).
ENDIF.
CLEAR: rs_controller-definition-author,
@ -530,12 +530,12 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
IF sy-subrc = 1.
RETURN.
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from WDYD_GET_OBJECT' ).
zcx_abapgit_exception=>raise( 'error from WDYD_GET_OBJECT' ).
ENDIF.
READ TABLE lt_definition INDEX 1 INTO rs_definition-definition.
IF sy-subrc <> 0.
lcx_exception=>raise( 'WDYD, definition not found' ).
zcx_abapgit_exception=>raise( 'WDYD, definition not found' ).
ENDIF.
CLEAR: rs_definition-definition-author,
@ -585,7 +585,7 @@ CLASS lcl_object_wdyn IMPLEMENTATION.
not_existing = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from WDYV_GET_OBJECT' ).
zcx_abapgit_exception=>raise( 'error from WDYV_GET_OBJECT' ).
ENDIF.
READ TABLE lt_definition INDEX 1 ASSIGNING <ls_definition>.

20
src/zabapgit_object_webi.prog.abap
View File

@ -38,19 +38,19 @@ CLASS lcl_object_webi DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
handle_endpoint
IMPORTING is_webi TYPE ty_webi
RAISING lcx_exception
RAISING zcx_abapgit_exception
cx_ws_md_exception,
handle_types
IMPORTING is_webi TYPE ty_webi
RAISING lcx_exception
RAISING zcx_abapgit_exception
cx_ws_md_exception,
handle_soap
IMPORTING is_webi TYPE ty_webi
RAISING lcx_exception
RAISING zcx_abapgit_exception
cx_ws_md_exception,
handle_function
IMPORTING is_webi TYPE ty_webi
RAISING lcx_exception
RAISING zcx_abapgit_exception
cx_ws_md_exception.
ENDCLASS. "lcl_object_SFBS DEFINITION
@ -106,7 +106,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
webi_not_exist = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from WEBI_GET_OBJECT' ).
zcx_abapgit_exception=>raise( 'error from WEBI_GET_OBJECT' ).
ENDIF.
SORT ls_webi-pveptype BY
@ -119,7 +119,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
li_vi = cl_ws_md_factory=>get_vif_root( )->get_virtual_interface( lv_name ).
ls_webi-veptext = li_vi->get_short_text( sews_c_vif_version-active ).
CATCH cx_ws_md_exception.
lcx_exception=>raise( 'error serializing WEBI' ).
zcx_abapgit_exception=>raise( 'error serializing WEBI' ).
ENDTRY.
LOOP AT ls_webi-pvepheader ASSIGNING <ls_header>.
@ -162,11 +162,11 @@ CLASS lcl_object_webi IMPLEMENTATION.
IF ls_endpoint-endpointtype = 'BAPI'.
* it looks like some special handling is needed when calling
* set_data, and looking at the cluster data LS_ENDPOINT-CLUSTD
lcx_exception=>raise( 'todo, WEBI BAPI' ).
zcx_abapgit_exception=>raise( 'todo, WEBI BAPI' ).
ENDIF.
IF lines( is_webi-pvepfunction ) <> 1.
lcx_exception=>raise( 'todo, WEBI, function name' ).
zcx_abapgit_exception=>raise( 'todo, WEBI, function name' ).
ENDIF.
* field ls_endpoint-endpointname does not exist in 702
@ -391,7 +391,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
CATCH cx_ws_md_exception ##no_handler.
ENDTRY.
lv_text = lx_root->if_message~get_text( ).
lcx_exception=>raise( 'error deserializing WEBI' ).
zcx_abapgit_exception=>raise( 'error deserializing WEBI' ).
ENDTRY.
lcl_objects_activation=>add_item( ms_item ).
@ -410,7 +410,7 @@ CLASS lcl_object_webi IMPLEMENTATION.
TRY.
lo_vif->if_ws_md_vif_root~delete_virtual_interface( lv_name ).
CATCH cx_ws_md_exception.
lcx_exception=>raise( 'error deleting WEBI' ).
zcx_abapgit_exception=>raise( 'error deleting WEBI' ).
ENDTRY.
ENDMETHOD. "lif_object~delete

8
src/zabapgit_object_xslt.prog.abap
View File

@ -17,7 +17,7 @@ CLASS lcl_object_xslt DEFINITION INHERITING FROM lcl_objects_super FINAL.
METHODS:
get
RETURNING VALUE(ro_xslt) TYPE REF TO cl_o2_api_xsltdesc
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_object_xslt DEFINITION
@ -53,7 +53,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
permission_failure = 2
OTHERS = 3 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from cl_o2_api_xsltdesc=>load' ).
zcx_abapgit_exception=>raise( 'error from cl_o2_api_xsltdesc=>load' ).
ENDIF.
ENDMETHOD.
@ -126,7 +126,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
undefined_name = 5
OTHERS = 6 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from cl_o2_api_xsltdesc=>create_new_from_string' ).
zcx_abapgit_exception=>raise( 'error from cl_o2_api_xsltdesc=>create_new_from_string' ).
ENDIF.
lo_xslt->activate( ).
@ -159,7 +159,7 @@ CLASS lcl_object_xslt IMPLEMENTATION.
version_not_found = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from cl_o2_api_xsltdesc=>load' ).
zcx_abapgit_exception=>raise( 'error from cl_o2_api_xsltdesc=>load' ).
ENDIF.
lo_xslt->set_changeable( abap_true ).

201
src/zabapgit_objects.prog.abap
View File

@ -13,15 +13,15 @@ CLASS lcl_objects_activation DEFINITION FINAL.
CLASS-METHODS add
IMPORTING iv_type TYPE trobjtype
iv_name TYPE clike
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS add_item
IMPORTING is_item TYPE lif_defs=>ty_item
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS activate
IMPORTING iv_ddic TYPE abap_bool DEFAULT abap_false
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS clear.
@ -65,7 +65,7 @@ CLASS lcl_objects_activation IMPLEMENTATION.
insert_into_corr_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_WORKING_OBJECTS_ACTIVATE' ).
zcx_abapgit_exception=>raise( 'error from RS_WORKING_OBJECTS_ACTIVATE' ).
ENDIF.
ENDIF.
@ -132,7 +132,7 @@ CLASS lcl_objects_activation IMPLEMENTATION.
object_not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT' ).
zcx_abapgit_exception=>raise( 'Error from RS_INACTIVE_OBJECTS_IN_OBJECT' ).
ENDIF.
IF iv_type = 'CLAS'.
@ -166,49 +166,49 @@ CLASS lcl_objects_files DEFINITION.
IMPORTING iv_extra TYPE clike OPTIONAL
iv_ext TYPE string
iv_string TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
read_string
IMPORTING iv_extra TYPE clike OPTIONAL
iv_ext TYPE string
RETURNING VALUE(rv_string) TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
add_xml
IMPORTING iv_extra TYPE clike OPTIONAL
io_xml TYPE REF TO lcl_xml_output
iv_normalize TYPE sap_bool DEFAULT abap_true
is_metadata TYPE lif_defs=>ty_metadata OPTIONAL
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
* needed since type-check during dynamic call fails even if the object is compatible
add_xml_from_plugin
IMPORTING iv_extra TYPE clike OPTIONAL
io_xml TYPE REF TO object
iv_normalize TYPE sap_bool DEFAULT abap_true
RAISING lcx_exception ##called,
RAISING zcx_abapgit_exception ##called,
read_xml
IMPORTING iv_extra TYPE clike OPTIONAL
RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml_input
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
read_abap
IMPORTING iv_extra TYPE clike OPTIONAL
iv_error TYPE sap_bool DEFAULT abap_true
RETURNING VALUE(rt_abap) TYPE abaptxt255_tab
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
add_abap
IMPORTING iv_extra TYPE clike OPTIONAL
it_abap TYPE STANDARD TABLE
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
add
IMPORTING is_file TYPE lif_defs=>ty_file,
add_raw
IMPORTING iv_extra TYPE clike OPTIONAL
iv_ext TYPE string
iv_data TYPE xstring
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
read_raw
IMPORTING iv_extra TYPE clike OPTIONAL
iv_ext TYPE string
RETURNING VALUE(rv_data) TYPE xstring
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
get_files
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_files_tt,
set_files
@ -226,7 +226,7 @@ CLASS lcl_objects_files DEFINITION.
IMPORTING iv_filename TYPE string
iv_error TYPE abap_bool DEFAULT abap_true
EXPORTING ev_data TYPE xstring
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
filename
IMPORTING iv_extra TYPE clike OPTIONAL
iv_ext TYPE string
@ -269,32 +269,32 @@ INTERFACE lif_object.
METHODS:
serialize
IMPORTING io_xml TYPE REF TO lcl_xml_output
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
deserialize
IMPORTING iv_package TYPE devclass
io_xml TYPE REF TO lcl_xml_input
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
delete
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
exists
RETURNING VALUE(rv_bool) TYPE abap_bool
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
changed_by
RETURNING VALUE(rv_user) TYPE xubname
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
jump
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
get_metadata
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata,
has_changed_since
IMPORTING iv_timestamp TYPE timestamp
RETURNING VALUE(rv_changed) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS:
compare_to_remote_version
IMPORTING io_remote_version_xml TYPE REF TO lcl_xml_input
RETURNING VALUE(ro_comparison_result) TYPE REF TO lif_comparison_result
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
DATA: mo_files TYPE REF TO lcl_objects_files.
@ -491,7 +491,7 @@ CLASS lcl_objects_files IMPLEMENTATION.
IF sy-subrc <> 0.
IF iv_error = abap_true.
lcx_exception=>raise( |File not found: { iv_filename }| ).
zcx_abapgit_exception=>raise( |File not found: { iv_filename }| ).
ELSE.
RETURN.
ENDIF.
@ -555,7 +555,7 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
jump_adt
IMPORTING i_obj_name TYPE lif_defs=>ty_item-obj_name
i_obj_type TYPE lif_defs=>ty_item-obj_type
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CONSTANTS: c_user_unknown TYPE xubname VALUE 'UNKNOWN'.
@ -576,14 +576,14 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
RETURNING VALUE(rs_metadata) TYPE lif_defs=>ty_metadata,
corr_insert
IMPORTING iv_package TYPE devclass
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
tadir_insert
IMPORTING iv_package TYPE devclass
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
jump_se11
IMPORTING iv_radio TYPE string
iv_field TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
@ -592,7 +592,7 @@ CLASS lcl_objects_super DEFINITION ABSTRACT.
IMPORTING io_object TYPE REF TO cl_wb_object
io_adt TYPE REF TO object
RETURNING VALUE(r_is_adt_jump_possible) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_objects_super DEFINITION
@ -690,10 +690,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
iv_package = iv_package
io_xml = io_xml.
CATCH cx_static_check INTO lx_plugin.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
ix_previous = lx_plugin
iv_text = lx_plugin->get_text( ).
zcx_abapgit_exception=>raise( lx_plugin->get_text( ) ).
ENDTRY.
ENDMETHOD. "lif_object~deserialize
@ -703,10 +700,7 @@ CLASS lcl_objects_bridge IMPLEMENTATION.
TRY.
CALL METHOD mo_plugin->('ZIF_ABAPGIT_PLUGIN~DELETE').
CATCH cx_static_check INTO lx_plugin.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
ix_previous = lx_plugin
iv_text = lx_plugin->get_text( ).
zcx_abapgit_exception=>raise( lx_plugin->get_text( ) ).
ENDTRY.
ENDMETHOD. "lif_object~delete
@ -835,7 +829,7 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super.
io_files TYPE REF TO lcl_objects_files
iv_program TYPE programm OPTIONAL
iv_extra TYPE clike OPTIONAL
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS read_progdir
IMPORTING iv_program TYPE programm
@ -846,7 +840,7 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super.
it_source TYPE abaptxt255_tab
it_tpool TYPE textpool_table
iv_package TYPE devclass
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PROTECTED SECTION.
@ -880,27 +874,27 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super.
METHODS serialize_dynpros
IMPORTING iv_program_name TYPE programm
RETURNING VALUE(rt_dynpro) TYPE ty_dynpro_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS serialize_cua
IMPORTING iv_program_name TYPE programm
RETURNING VALUE(rs_cua) TYPE ty_cua
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_dynpros
IMPORTING it_dynpros TYPE ty_dynpro_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_textpool
IMPORTING iv_program TYPE programm
it_tpool TYPE textpool_table
iv_language TYPE langu OPTIONAL
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS deserialize_cua
IMPORTING iv_program_name TYPE programm
is_cua TYPE ty_cua
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS check_prog_changed_since
IMPORTING iv_program TYPE programm
@ -1015,7 +1009,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
RETURN.
ELSEIF sy-subrc <> 0.
lcl_language=>restore_login_language( ).
lcx_exception=>raise( 'Error reading program' ).
zcx_abapgit_exception=>raise( 'Error reading program' ).
ENDIF.
lcl_language=>restore_login_language( ).
@ -1084,9 +1078,9 @@ CLASS lcl_objects_program IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc = 1.
lcx_exception=>raise( 'Cancelled' ).
zcx_abapgit_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_CORR_INSERT' ).
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ).
ENDIF.
READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. "#EC CI_SUBRC
@ -1130,9 +1124,9 @@ CLASS lcl_objects_program IMPLEMENTATION.
lcl_language=>restore_login_language( ).
IF sy-msgid = 'EU' AND sy-msgno = '510'.
lcx_exception=>raise( 'User is currently editing program' ).
zcx_abapgit_exception=>raise( 'User is currently editing program' ).
ELSE.
lcx_exception=>raise( 'PROG, error updating' ).
zcx_abapgit_exception=>raise( 'PROG, error updating' ).
ENDIF.
ENDIF.
@ -1152,7 +1146,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
STATE 'I'
EXTENSION TYPE is_progdir-name+30.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from INSERT REPORT .. EXTENSION TYPE' ).
zcx_abapgit_exception=>raise( 'error from INSERT REPORT .. EXTENSION TYPE' ).
ENDIF.
ELSE.
INSERT REPORT is_progdir-name
@ -1160,11 +1154,23 @@ CLASS lcl_objects_program IMPLEMENTATION.
STATE 'I'
PROGRAM TYPE is_progdir-subc.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from INSERT REPORT' ).
zcx_abapgit_exception=>raise( 'error from INSERT REPORT' ).
ENDIF.
ENDIF.
<<<<<<< HEAD
ENDIF.
=======
IF NOT it_tpool[] IS INITIAL.
INSERT TEXTPOOL is_progdir-name
FROM it_tpool
LANGUAGE mv_language
STATE 'I'.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from INSERT TEXTPOOL' ).
ENDIF.
ENDIF.
>>>>>>> pr/3
IF NOT it_tpool[] IS INITIAL.
INSERT TEXTPOOL is_progdir-name
@ -1186,7 +1192,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
not_exists = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'not found in PROGDIR' ).
zcx_abapgit_exception=>raise( 'not found in PROGDIR' ).
ENDIF.
* todo, package?
@ -1209,7 +1215,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
not_executed = 1
OTHERS = 2.
IF sy-subrc <> 0.
lcx_exception=>raise( 'PROG, error inserting' ).
zcx_abapgit_exception=>raise( 'PROG, error inserting' ).
ENDIF.
SELECT SINGLE * FROM progdir INTO ls_progdir_new
@ -1281,7 +1287,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
unknown_version = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_CUA_INTERNAL_FETCH' ).
zcx_abapgit_exception=>raise( 'error from RS_CUA_INTERNAL_FETCH' ).
ENDIF.
ENDMETHOD. "serialize_cua
@ -1310,7 +1316,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
not_found = 1
OTHERS = 2.
IF sy-subrc = 2.
lcx_exception=>raise( 'error from screen_list' ).
zcx_abapgit_exception=>raise( 'error from screen_list' ).
ENDIF.
* loop dynpros and skip generated selection screens
@ -1332,7 +1338,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
permission_error = 3
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( 'Error while reading dynpro' ).
zcx_abapgit_exception=>raise( 'Error while reading dynpro' ).
ENDIF.
LOOP AT lt_fields_to_containers ASSIGNING <ls_field>.
@ -1392,7 +1398,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
illegal_field_position = 9
OTHERS = 10.
IF sy-subrc <> 2 AND sy-subrc <> 0.
lcx_exception=>raise( 'error from RPY_DYNPRO_INSERT' ).
zcx_abapgit_exception=>raise( 'error from RPY_DYNPRO_INSERT' ).
ENDIF.
* todo, RPY_DYNPRO_UPDATE?
@ -1462,7 +1468,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
LANGUAGE lv_language
STATE 'I'.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from INSERT TEXTPOOL' ).
zcx_abapgit_exception=>raise( 'error from INSERT TEXTPOOL' ).
ENDIF.
IF lv_language = mv_language. " Add just once
@ -1497,7 +1503,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
AND object = ms_item-obj_type
AND obj_name = ms_item-obj_name. "#EC CI_GENBUFF
IF sy-subrc <> 0.
lcx_exception=>raise( 'not found in tadir' ).
zcx_abapgit_exception=>raise( 'not found in tadir' ).
ENDIF.
ls_tr_key-obj_type = ms_item-obj_type.
@ -1530,7 +1536,7 @@ CLASS lcl_objects_program IMPLEMENTATION.
OTHERS = 2.
IF sy-subrc <> 0.
* if moving code from SAPlink, see https://github.com/larshp/abapGit/issues/562
lcx_exception=>raise( 'error from RS_CUA_INTERNAL_WRITE' ).
zcx_abapgit_exception=>raise( 'error from RS_CUA_INTERNAL_WRITE' ).
ENDIF.
lcl_objects_activation=>add( iv_type = 'CUAD'
@ -1688,7 +1694,7 @@ CLASS lcl_objects_super IMPLEMENTATION.
RECEIVING p_wb_object = li_object
EXCEPTIONS OTHERS = 1 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'ADT Jump Error' ).
zcx_abapgit_exception=>raise( 'ADT Jump Error' ).
ENDIF.
CALL METHOD ('CL_ADT_TOOLS_CORE_FACTORY')=>('GET_INSTANCE')
@ -1697,7 +1703,7 @@ CLASS lcl_objects_super IMPLEMENTATION.
IF is_adt_jump_possible( io_object = li_object
io_adt = li_adt ) = abap_false.
lcx_exception=>raise( 'ADT Jump Error' ).
zcx_abapgit_exception=>raise( 'ADT Jump Error' ).
ENDIF.
CALL METHOD li_adt->('IF_ADT_TOOLS_CORE_FACTORY~GET_URI_MAPPER')
@ -1719,11 +1725,11 @@ CLASS lcl_objects_super IMPLEMENTATION.
EXCEPTIONS OTHERS = 1 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'ADT Jump Error' ).
zcx_abapgit_exception=>raise( 'ADT Jump Error' ).
ENDIF.
CATCH cx_root.
lcx_exception=>raise( 'ADT Jump Error' ).
zcx_abapgit_exception=>raise( 'ADT Jump Error' ).
ENDTRY.
ENDMETHOD.
@ -1769,7 +1775,7 @@ CLASS lcl_objects_super IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
zcx_abapgit_exception=>raise( 'error from TR_TADIR_INTERFACE' ).
ENDIF.
ENDMETHOD.
@ -1795,9 +1801,9 @@ CLASS lcl_objects_super IMPLEMENTATION.
unknown_objectclass = 3
OTHERS = 4.
IF sy-subrc = 1.
lcx_exception=>raise( 'Cancelled' ).
zcx_abapgit_exception=>raise( 'Cancelled' ).
ELSEIF sy-subrc <> 0.
lcx_exception=>raise( 'error from RS_CORR_INSERT' ).
zcx_abapgit_exception=>raise( 'error from RS_CORR_INSERT' ).
ENDIF.
ENDMETHOD. "corr_insert
@ -1820,7 +1826,7 @@ CLASS lcl_objects_super IMPLEMENTATION.
OTHERS = 3 ).
IF sy-subrc <> 0.
lcx_exception=>raise( 'ADT Jump Error' ).
zcx_abapgit_exception=>raise( 'ADT Jump Error' ).
ENDIF.
TRY.
@ -1841,7 +1847,7 @@ CLASS lcl_objects_super IMPLEMENTATION.
ENDIF.
CATCH cx_root.
lcx_exception=>raise( 'ADT Jump Error' ).
zcx_abapgit_exception=>raise( 'ADT Jump Error' ).
ENDTRY.
ENDMETHOD.
@ -1880,21 +1886,21 @@ CLASS lcl_objects_saxx_super DEFINITION ABSTRACT
METHODS:
create_channel_objects
RAISING
lcx_exception,
zcx_abapgit_exception,
get_data
EXPORTING
p_data TYPE any
RAISING
lcx_exception,
zcx_abapgit_exception,
lock
RAISING
lcx_exception,
zcx_abapgit_exception,
unlock
RAISING
lcx_exception,
zcx_abapgit_exception,
get_names.
@ -1921,7 +1927,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ASSIGN lr_data->* TO <ls_data>.
CATCH cx_root.
lcx_exception=>raise( |{ ms_item-obj_name } not supported| ).
zcx_abapgit_exception=>raise( |{ ms_item-obj_name } not supported| ).
ENDTRY.
get_data(
@ -1979,7 +1985,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ASSIGN lr_data->* TO <ls_data>.
CATCH cx_root.
lcx_exception=>raise( |{ ms_item-obj_type } not supported| ).
zcx_abapgit_exception=>raise( |{ ms_item-obj_type } not supported| ).
ENDTRY.
get_data(
@ -2039,7 +2045,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ASSIGN lr_data->* TO <ls_data>.
CATCH cx_root.
lcx_exception=>raise( |{ ms_item-obj_type } not supported| ).
zcx_abapgit_exception=>raise( |{ ms_item-obj_type } not supported| ).
ENDTRY.
io_xml->read(
@ -2070,7 +2076,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
OTHERS = 4.
IF sy-subrc <> 0.
lcx_exception=>raise( |Error occured while creating { ms_item-obj_type }| ).
zcx_abapgit_exception=>raise( |Error occured while creating { ms_item-obj_type }| ).
ENDIF.
mo_appl_obj_data->set_data( <ls_data> ).
@ -2080,7 +2086,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
unlock( ).
CATCH cx_swb_exception.
lcx_exception=>raise( |Error occured while creating { ms_item-obj_type }| ).
zcx_abapgit_exception=>raise( |Error occured while creating { ms_item-obj_type }| ).
ENDTRY.
ENDMETHOD.
@ -2101,7 +2107,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
unlock( ).
CATCH cx_swb_exception.
lcx_exception=>raise( |Error occured while deleting { ms_item-obj_type }| ).
zcx_abapgit_exception=>raise( |Error occured while deleting { ms_item-obj_type }| ).
ENDTRY.
ENDMETHOD.
@ -2134,7 +2140,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
ENDIF.
CATCH cx_root.
lcx_exception=>raise( |{ ms_item-obj_type } not supported| ).
zcx_abapgit_exception=>raise( |{ ms_item-obj_type } not supported| ).
ENDTRY.
ENDMETHOD.
@ -2154,7 +2160,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
p_object_data = mo_appl_obj_data ).
CATCH cx_root.
lcx_exception=>raise( |{ ms_item-obj_type } not supported| ).
zcx_abapgit_exception=>raise( |{ ms_item-obj_type } not supported| ).
ENDTRY.
mo_appl_obj_data->get_data(
@ -2184,7 +2190,7 @@ CLASS lcl_objects_saxx_super IMPLEMENTATION.
OTHERS = 3 ).
IF sy-subrc <> 0.
lcx_exception=>raise( |Error occured while locking { ms_item-obj_type } | && objname ).
zcx_abapgit_exception=>raise( |Error occured while locking { ms_item-obj_type } | && objname ).
ENDIF.
ENDMETHOD. "lock
@ -2247,31 +2253,31 @@ CLASS lcl_objects DEFINITION FINAL.
iv_language TYPE spras
io_log TYPE REF TO lcl_log OPTIONAL
RETURNING VALUE(rt_files) TYPE lif_defs=>ty_files_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS deserialize
IMPORTING io_repo TYPE REF TO lcl_repo
RETURNING VALUE(rt_accessed_files) TYPE lif_defs=>ty_file_signatures_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS delete
IMPORTING it_tadir TYPE lif_defs=>ty_tadir_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS jump
IMPORTING is_item TYPE lif_defs=>ty_item
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS changed_by
IMPORTING is_item TYPE lif_defs=>ty_item
RETURNING VALUE(rv_user) TYPE xubname
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS has_changed_since
IMPORTING is_item TYPE lif_defs=>ty_item
iv_timestamp TYPE timestamp
RETURNING VALUE(rv_changed) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS is_supported
IMPORTING is_item TYPE lif_defs=>ty_item
@ -2289,7 +2295,7 @@ CLASS lcl_objects DEFINITION FINAL.
CLASS-METHODS check_duplicates
IMPORTING it_files TYPE lif_defs=>ty_files_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS create_object
IMPORTING is_item TYPE lif_defs=>ty_item
@ -2297,7 +2303,7 @@ CLASS lcl_objects DEFINITION FINAL.
is_metadata TYPE lif_defs=>ty_metadata OPTIONAL
iv_native_only TYPE abap_bool DEFAULT abap_false
RETURNING VALUE(ri_obj) TYPE REF TO lif_object
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS
prioritize_deser
@ -2310,24 +2316,24 @@ CLASS lcl_objects DEFINITION FINAL.
CLASS-METHODS resolve_ddic
CHANGING ct_tadir TYPE lif_defs=>ty_tadir_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS warning_overwrite
CHANGING ct_results TYPE lif_defs=>ty_results_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS warning_package
IMPORTING is_item TYPE lif_defs=>ty_item
iv_package TYPE devclass
RETURNING VALUE(rv_cancel) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS update_package_tree
IMPORTING iv_package TYPE devclass.
CLASS-METHODS delete_obj
IMPORTING is_item TYPE lif_defs=>ty_item
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS compare_remote_to_local
IMPORTING
@ -2335,13 +2341,16 @@ CLASS lcl_objects DEFINITION FINAL.
it_remote TYPE lif_defs=>ty_files_tt
is_result TYPE lif_defs=>ty_result
RAISING
lcx_exception.
zcx_abapgit_exception.
CLASS-METHODS deserialize_objects
IMPORTING it_objects TYPE ty_deserialization_tt
iv_ddic TYPE abap_bool DEFAULT abap_false
iv_descr TYPE string
CHANGING ct_files TYPE lif_defs=>ty_file_signatures_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS resolve_ddls
CHANGING
ct_tadir TYPE lif_defs=>ty_tadir_tt.
ENDCLASS. "lcl_object DEFINITION

110
src/zabapgit_objects_impl.prog.abap
View File

@ -11,39 +11,29 @@ CLASS lcl_objects IMPLEMENTATION.
METHOD warning_overwrite.
DATA: lv_index TYPE i,
lv_answer TYPE c,
lv_question TYPE string.
DATA: lt_results_overwrite LIKE ct_results.
FIELD-SYMBOLS: <ls_result> LIKE LINE OF ct_results.
LOOP AT ct_results ASSIGNING <ls_result>
WHERE NOT obj_type IS INITIAL.
lv_index = sy-tabix.
IF <ls_result>-lstate IS NOT INITIAL
AND <ls_result>-lstate <> lif_defs=>gc_state-deleted
AND NOT ( <ls_result>-lstate = lif_defs=>gc_state-added
AND <ls_result>-rstate IS INITIAL ).
lv_question = |It looks like object {
<ls_result>-obj_type } { <ls_result>-obj_name
} has been modified locally, overwrite object?|.
lv_answer = lcl_popups=>popup_to_confirm(
titlebar = 'Warning'
text_question = lv_question
display_cancel_button = abap_false ). "#EC NOTEXT
IF lv_answer = '2'.
DELETE ct_results INDEX lv_index.
ENDIF.
"current object has been modified locally, add to table for popup
APPEND <ls_result> TO lt_results_overwrite.
ENDIF.
ENDLOOP.
if lines( lt_results_overwrite ) > 0.
"all returned objects will be overwritten
ct_results = lcl_popups=>popup_select_obj_overwrite( lt_results_overwrite ).
endif.
ENDMETHOD.
METHOD warning_package.
@ -151,10 +141,10 @@ CLASS lcl_objects IMPLEMENTATION.
EXPORTING
is_item = is_item.
CATCH cx_sy_create_object_error.
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDTRY.
ELSE. " No native support? -> fail
lcx_exception=>raise( lv_message ).
zcx_abapgit_exception=>raise( lv_message ).
ENDIF.
ENDTRY.
@ -180,7 +170,7 @@ CLASS lcl_objects IMPLEMENTATION.
iv_language = lif_defs=>gc_english
iv_native_only = iv_native_only ).
rv_bool = abap_true.
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
rv_bool = abap_false.
ENDTRY.
@ -221,7 +211,7 @@ CLASS lcl_objects IMPLEMENTATION.
li_obj = create_object( is_item = is_item
iv_language = lif_defs=>gc_english ).
rv_bool = li_obj->exists( ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
* ignore all errors and assume the object exists
rv_bool = abap_true.
ENDTRY.
@ -248,7 +238,7 @@ CLASS lcl_objects IMPLEMENTATION.
TRY.
lcl_objects_super=>jump_adt( i_obj_name = is_item-obj_name
i_obj_type = is_item-obj_type ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
li_obj->jump( ).
ENDTRY.
ELSE.
@ -334,6 +324,8 @@ CLASS lcl_objects IMPLEMENTATION.
resolve_ddic( CHANGING ct_tadir = lt_tadir ).
resolve_ddls( CHANGING ct_tadir = lt_tadir ).
SORT lt_tadir BY korrnum ASCENDING.
LOOP AT lt_tadir ASSIGNING <ls_tadir>.
@ -428,7 +420,7 @@ CLASS lcl_objects IMPLEMENTATION.
WHEN 'DA'.
<ls_edge>-to-obj_type = 'TTYP'.
WHEN OTHERS.
lcx_exception=>raise( 'resolve_ddic, unknown object_cls' ).
zcx_abapgit_exception=>raise( 'resolve_ddic, unknown object_cls' ).
ENDCASE.
ENDLOOP.
@ -531,7 +523,7 @@ CLASS lcl_objects IMPLEMENTATION.
SORT lt_files BY path ASCENDING filename ASCENDING.
DELETE ADJACENT DUPLICATES FROM lt_files COMPARING path filename.
IF lines( lt_files ) <> lines( it_files ).
lcx_exception=>raise( 'Duplicates' ).
zcx_abapgit_exception=>raise( 'Duplicates' ).
ENDIF.
ENDMETHOD.
@ -616,7 +608,7 @@ CLASS lcl_objects IMPLEMENTATION.
lv_cancel = warning_package( is_item = ls_item
iv_package = lv_package ).
IF lv_cancel = abap_true.
lcx_exception=>raise( 'cancelled' ).
zcx_abapgit_exception=>raise( 'cancelled' ).
ENDIF.
CREATE OBJECT lo_files
@ -723,13 +715,73 @@ CLASS lcl_objects IMPLEMENTATION.
lo_comparison_result->show_confirmation_dialog( ).
IF lo_comparison_result->is_result_complete_halt( ) = abap_true.
RAISE EXCEPTION TYPE lcx_exception
EXPORTING
iv_text = 'Deserialization aborted by user'.
zcx_abapgit_exception=>raise( 'Deserialization aborted by user' ).
ENDIF.
ENDIF.
ENDIF.
ENDMETHOD.
METHOD resolve_ddls.
" As CDS-Views aka DDLS can be dependent on each other,
" we wan't to ensure that they are deleted in the right order.
" Otherwise deletion is prohibited by standard API
TYPES: BEGIN OF ty_ddls_name.
INCLUDE TYPE ddsymtab.
TYPES: END OF ty_ddls_name.
TYPES: tty_ddls_names TYPE STANDARD TABLE OF ty_ddls_name
WITH NON-UNIQUE DEFAULT KEY,
BEGIN OF ty_dependency,
depname TYPE dd02l-tabname,
deptyp TYPE c LENGTH 4,
deplocal TYPE dd02l-as4local,
refname TYPE dd02l-tabname,
reftyp TYPE c LENGTH 4,
kind TYPE c LENGTH 1,
END OF ty_dependency.
DATA: lt_dependency TYPE STANDARD TABLE OF ty_dependency
WITH NON-UNIQUE DEFAULT KEY,
lt_ddls_name TYPE tty_ddls_names,
ls_ddls_name LIKE LINE OF lt_ddls_name.
FIELD-SYMBOLS: <tadir_ddls> TYPE lif_defs=>ty_tadir,
<dependency> TYPE ty_dependency,
<tadir_dependent> TYPE lif_defs=>ty_tadir.
LOOP AT ct_tadir ASSIGNING <tadir_ddls>
WHERE object = 'DDLS'.
CLEAR: lt_dependency,
lt_ddls_name.
ls_ddls_name-name = <tadir_ddls>-obj_name.
INSERT ls_ddls_name INTO TABLE lt_ddls_name.
PERFORM ('DDLS_GET_DEP') IN PROGRAM ('RADMASDL')
TABLES lt_ddls_name lt_dependency.
LOOP AT lt_dependency ASSIGNING <dependency>
WHERE deptyp = 'DDLS'
AND refname = <tadir_ddls>-obj_name.
READ TABLE ct_tadir ASSIGNING <tadir_dependent>
WITH KEY pgmid = 'R3TR'
object = 'DDLS'
obj_name = <dependency>-depname
BINARY SEARCH.
CHECK sy-subrc = 0.
<tadir_dependent>-korrnum = <tadir_dependent>-korrnum - 1.
ENDLOOP.
ENDLOOP.
ENDMETHOD.
ENDCLASS. "lcl_objects IMPLEMENTATION

8
src/zabapgit_page.prog.abap
View File

@ -14,11 +14,11 @@ INTERFACE lif_gui_page.
it_postdata TYPE cnht_post_data_tab OPTIONAL
EXPORTING ei_page TYPE REF TO lif_gui_page
ev_state TYPE i
RAISING lcx_exception lcx_cancel.
RAISING zcx_abapgit_exception lcx_cancel.
METHODS render
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDINTERFACE.
@ -38,11 +38,11 @@ CLASS lcl_gui_page DEFINITION ABSTRACT.
METHODS render_content ABSTRACT
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS scripts
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.

8
src/zabapgit_page_background.prog.abap
View File

@ -32,7 +32,7 @@ CLASS lcl_gui_page_bkg_run IMPLEMENTATION.
METHOD run.
DATA: lx_error TYPE REF TO lcx_exception,
DATA: lx_error TYPE REF TO zcx_abapgit_exception,
lv_text TYPE string,
lv_line TYPE i VALUE 1.
@ -48,8 +48,8 @@ CLASS lcl_gui_page_bkg_run IMPLEMENTATION.
APPEND lv_text TO mt_text.
lv_line = lv_line + 1.
ENDDO.
CATCH lcx_exception INTO lx_error.
APPEND lx_error->mv_text TO mt_text.
CATCH zcx_abapgit_exception INTO lx_error.
APPEND lx_error->text TO mt_text.
ENDTRY.
ENDMETHOD.
@ -92,7 +92,7 @@ CLASS lcl_gui_page_bkg DEFINITION FINAL
RETURNING VALUE(ro_menu) TYPE REF TO lcl_html_toolbar,
render_data
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.

24
src/zabapgit_page_branch_overview.prog.abap
View File

@ -29,12 +29,12 @@ CLASS lcl_branch_overview DEFINITION FINAL.
CLASS-METHODS: run
IMPORTING io_repo TYPE REF TO lcl_repo_online
RETURNING VALUE(rt_commits) TYPE ty_commit_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS: compress
IMPORTING it_commits TYPE ty_commit_tt
RETURNING VALUE(rt_commits) TYPE ty_commit_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-METHODS: get_branches
RETURNING VALUE(rt_branches) TYPE lcl_git_branch_list=>ty_git_branch_list_tt.
@ -44,17 +44,17 @@ CLASS lcl_branch_overview DEFINITION FINAL.
CLASS-METHODS:
parse_commits
IMPORTING it_objects TYPE lif_defs=>ty_objects_tt
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
determine_branch
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
determine_merges
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
fixes
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
get_git_objects
IMPORTING io_repo TYPE REF TO lcl_repo_online
RETURNING VALUE(rt_objects) TYPE lif_defs=>ty_objects_tt
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
CLASS-DATA:
gt_branches TYPE lcl_git_branch_list=>ty_git_branch_list_tt,
@ -308,7 +308,7 @@ CLASS lcl_gui_page_boverview DEFINITION FINAL INHERITING FROM lcl_gui_page.
METHODS:
constructor
IMPORTING io_repo TYPE REF TO lcl_repo_online
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
lif_gui_page~on_event REDEFINITION.
PROTECTED SECTION.
@ -333,20 +333,20 @@ CLASS lcl_gui_page_boverview DEFINITION FINAL INHERITING FROM lcl_gui_page.
METHODS:
refresh
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
body
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
form_select
IMPORTING iv_name TYPE string
RETURNING VALUE(ro_html) TYPE REF TO lcl_html,
render_merge
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
decode_merge
IMPORTING it_postdata TYPE cnht_post_data_tab
RETURNING VALUE(rs_merge) TYPE ty_merge
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
build_menu
RETURNING VALUE(ro_menu) TYPE REF TO lcl_html_toolbar,
escape_branch

6
src/zabapgit_page_commit.prog.abap
View File

@ -15,7 +15,7 @@ CLASS lcl_gui_page_commit DEFINITION FINAL INHERITING FROM lcl_gui_page.
constructor
IMPORTING io_repo TYPE REF TO lcl_repo_online
io_stage TYPE REF TO lcl_stage
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
lif_gui_page~on_event REDEFINITION.
PROTECTED SECTION.
@ -32,10 +32,10 @@ CLASS lcl_gui_page_commit DEFINITION FINAL INHERITING FROM lcl_gui_page.
RETURNING VALUE(ro_html) TYPE REF TO lcl_html,
render_stage
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
render_form
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
render_text_input
IMPORTING iv_name TYPE string
iv_label TYPE string

2
src/zabapgit_page_db.prog.abap
View File

@ -161,7 +161,7 @@ CLASS lcl_gui_page_db DEFINITION FINAL INHERITING FROM lcl_gui_page.
METHODS explain_content
IMPORTING is_data TYPE lcl_persistence_db=>ty_content
RETURNING VALUE(rv_text) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.

4
src/zabapgit_page_debug.prog.abap
View File

@ -14,7 +14,7 @@ CLASS lcl_gui_page_debuginfo DEFINITION FINAL INHERITING FROM lcl_gui_page.
PRIVATE SECTION.
METHODS render_debug_info
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS render_supported_object_types
RETURNING VALUE(rv_html) TYPE string.
@ -58,7 +58,7 @@ CLASS lcl_gui_page_debuginfo IMPLEMENTATION.
ro_html->add( |<p>abapGit version: { lif_defs=>gc_abap_version }</p>| ).
ro_html->add( |<p>XML version: { lif_defs=>gc_xml_version }</p>| ).
ro_html->add( |<p>GUI version: { lv_gui_version }</p>| ).
ro_html->add( |<p>LCL_TIME: { lcl_time=>get( ) }</p>| ).
ro_html->add( |<p>LCL_TIME: { zcl_abapgit_time=>get( ) }</p>| ).
ro_html->add( |<p>SY time: { sy-datum } { sy-uzeit } { sy-tzone }</p>| ).
ENDMETHOD. "render_debug_info

8
src/zabapgit_page_diff.prog.abap
View File

@ -31,7 +31,7 @@ CLASS lcl_gui_page_diff DEFINITION FINAL INHERITING FROM lcl_gui_page.
is_file TYPE lif_defs=>ty_file OPTIONAL
is_object TYPE lif_defs=>ty_item OPTIONAL
iv_supress_stage TYPE abap_bool DEFAULT abap_false
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
lif_gui_page~on_event REDEFINITION.
PROTECTED SECTION.
@ -76,7 +76,7 @@ CLASS lcl_gui_page_diff DEFINITION FINAL INHERITING FROM lcl_gui_page.
IMPORTING it_remote TYPE lif_defs=>ty_files_tt
it_local TYPE lif_defs=>ty_files_item_tt
is_status TYPE lif_defs=>ty_result
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS build_menu
IMPORTING iv_supress_stage TYPE abap_bool
RETURNING VALUE(ro_menu) TYPE REF TO lcl_html_toolbar.
@ -145,7 +145,7 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
ENDIF.
IF lines( mt_diff_files ) = 0.
lcx_exception=>raise( 'PAGE_DIFF ERROR: No diff files found' ).
zcx_abapgit_exception=>raise( 'PAGE_DIFF ERROR: No diff files found' ).
ENDIF.
ms_control-page_menu = build_menu( iv_supress_stage ).
@ -179,7 +179,7 @@ CLASS lcl_gui_page_diff IMPLEMENTATION.
ENDIF.
IF <ls_local> IS INITIAL AND <ls_remote> IS INITIAL.
lcx_exception=>raise( |DIFF: file not found { is_status-filename }| ).
zcx_abapgit_exception=>raise( |DIFF: file not found { is_status-filename }| ).
ENDIF.
APPEND INITIAL LINE TO mt_diff_files ASSIGNING <ls_diff>.

20
src/zabapgit_page_main.prog.abap
View File

@ -7,7 +7,7 @@ CLASS lcl_gui_page_main DEFINITION FINAL INHERITING FROM lcl_gui_page.
PUBLIC SECTION.
METHODS:
constructor
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
lif_gui_page~on_event REDEFINITION.
PROTECTED SECTION.
@ -24,19 +24,19 @@ CLASS lcl_gui_page_main DEFINITION FINAL INHERITING FROM lcl_gui_page.
METHODS:
test_changed_by
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
retrieve_active_repo
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
render_toc
IMPORTING it_repo_list TYPE lcl_repo_srv=>ty_repo_tt
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
build_main_menu
RETURNING VALUE(ro_menu) TYPE REF TO lcl_html_toolbar,
render_repo
IMPORTING io_repo TYPE REF TO lcl_repo
RETURNING VALUE(ro_html) TYPE REF TO lcl_html
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -77,7 +77,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
lcl_app=>user( )->set_repo_show( lv_key ).
TRY.
lcl_app=>repo_srv( )->get( lv_key )->refresh( ).
CATCH lcx_exception ##NO_HANDLER.
CATCH zcx_abapgit_exception ##NO_HANDLER.
ENDTRY.
ev_state = lif_defs=>gc_event_state-re_render.
@ -112,7 +112,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
METHOD render_content.
DATA: lt_repos TYPE lcl_repo_srv=>ty_repo_tt,
lx_error TYPE REF TO lcx_exception,
lx_error TYPE REF TO zcx_abapgit_exception,
lo_tutorial TYPE REF TO lcl_gui_view_tutorial,
lo_repo LIKE LINE OF lt_repos.
@ -122,7 +122,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
TRY.
lt_repos = lcl_app=>repo_srv( )->list( ).
CATCH lcx_exception INTO lx_error.
CATCH zcx_abapgit_exception INTO lx_error.
ro_html->add( lcl_gui_chunk_lib=>render_error( ix_error = lx_error ) ).
RETURN.
ENDTRY.
@ -145,7 +145,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
TRY.
lcl_app=>repo_srv( )->list( ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
RETURN.
ENDTRY.
@ -155,7 +155,7 @@ CLASS lcl_gui_page_main IMPLEMENTATION.
IF mv_show IS NOT INITIAL.
TRY. " verify the key exists
lcl_app=>repo_srv( )->get( mv_show ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
CLEAR mv_show.
lcl_app=>user( )->set_repo_show( mv_show ).
ENDTRY.

18
src/zabapgit_page_merge.prog.abap
View File

@ -31,7 +31,7 @@ CLASS lcl_merge DEFINITION FINAL.
iv_source TYPE string
iv_target TYPE string
RETURNING VALUE(rs_merge) TYPE ty_merge
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CLASS-DATA: gs_merge TYPE ty_merge,
@ -43,20 +43,20 @@ CLASS lcl_merge DEFINITION FINAL.
all_files
RETURNING VALUE(rt_files) TYPE lcl_git_porcelain=>ty_expanded_tt,
calculate_result
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
find_ancestors
IMPORTING iv_commit TYPE lif_defs=>ty_sha1
RETURNING VALUE(rt_ancestors) TYPE ty_ancestor_tt
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
find_first_common
IMPORTING it_list1 TYPE ty_ancestor_tt
it_list2 TYPE ty_ancestor_tt
RETURNING VALUE(rs_common) TYPE ty_ancestor
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
fetch_git
IMPORTING iv_source TYPE string
iv_target TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -69,7 +69,7 @@ CLASS lcl_merge IMPLEMENTATION.
IF iv_source = iv_target.
lcx_exception=>raise( 'source = target' ).
zcx_abapgit_exception=>raise( 'source = target' ).
ENDIF.
CLEAR gs_merge.
@ -244,7 +244,7 @@ CLASS lcl_merge IMPLEMENTATION.
ENDLOOP.
ENDLOOP.
lcx_exception=>raise( 'error finding common ancestor' ).
zcx_abapgit_exception=>raise( 'error finding common ancestor' ).
ENDMETHOD.
@ -323,7 +323,7 @@ CLASS lcl_gui_page_merge DEFINITION FINAL INHERITING FROM lcl_gui_page.
IMPORTING io_repo TYPE REF TO lcl_repo_online
iv_source TYPE string
iv_target TYPE string
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
lif_gui_page~on_event REDEFINITION.
PROTECTED SECTION.
@ -365,7 +365,7 @@ CLASS lcl_gui_page_merge IMPLEMENTATION.
CASE iv_action.
WHEN c_actions-merge.
IF ms_merge-stage->count( ) = 0.
lcx_exception=>raise( 'nothing to merge' ).
zcx_abapgit_exception=>raise( 'nothing to merge' ).
ENDIF.
CREATE OBJECT ei_page TYPE lcl_gui_page_commit

2
src/zabapgit_page_settings.prog.abap
View File

@ -47,7 +47,7 @@ CLASS lcl_gui_page_settings DEFINITION FINAL INHERITING FROM lcl_gui_page.
VALUE(rt_post_fields) TYPE tihttpnvp.
METHODS persist_settings
RAISING
lcx_exception.
zcx_abapgit_exception.
METHODS read_settings.
ENDCLASS.

10
src/zabapgit_page_stage.prog.abap
View File

@ -15,7 +15,7 @@ CLASS lcl_gui_page_stage DEFINITION FINAL INHERITING FROM lcl_gui_page.
IMPORTING
io_repo TYPE REF TO lcl_repo_online
iv_seed TYPE string OPTIONAL
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
lif_gui_page~on_event REDEFINITION.
PROTECTED SECTION.
@ -48,7 +48,7 @@ CLASS lcl_gui_page_stage DEFINITION FINAL INHERITING FROM lcl_gui_page.
process_stage_list
IMPORTING it_postdata TYPE cnht_post_data_tab
io_stage TYPE REF TO lcl_stage
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
build_menu
RETURNING VALUE(ro_menu) TYPE REF TO lcl_html_toolbar.
@ -134,7 +134,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
lt_fields = lcl_html_action_utils=>parse_fields( lv_string ).
IF lines( lt_fields ) = 0.
lcx_exception=>raise( 'process_stage_list: empty list' ).
zcx_abapgit_exception=>raise( 'process_stage_list: empty list' ).
ENDIF.
LOOP AT lt_fields ASSIGNING <ls_item>.
@ -160,7 +160,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
WHEN lcl_stage=>c_method-skip.
" Do nothing
WHEN OTHERS.
lcx_exception=>raise( |process_stage_list: unknown method { <ls_item>-value }| ).
zcx_abapgit_exception=>raise( |process_stage_list: unknown method { <ls_item>-value }| ).
ENDCASE.
ENDLOOP.
@ -345,7 +345,7 @@ CLASS lcl_gui_page_stage IMPLEMENTATION.
IF sy-subrc = 0.
rv_user = lcl_objects=>changed_by( ls_local_file-item ).
ENDIF.
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
CLEAR rv_user. "Should not raise errors if user last changed by was not found
ENDTRY.

59
src/zabapgit_page_syntax_check.prog.abap Normal file
View File

@ -0,0 +1,59 @@
*&---------------------------------------------------------------------*
*& Include ZABAPGIT_PAGE_SYNTAX_CHECK
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Include ZABAPGIT_PAGE_REPO_SETTINGS
*&---------------------------------------------------------------------*
CLASS lcl_gui_page_syntax_check DEFINITION FINAL INHERITING FROM lcl_gui_page.
PUBLIC SECTION.
METHODS:
constructor
IMPORTING io_repo TYPE REF TO lcl_repo.
PROTECTED SECTION.
CONSTANTS:
BEGIN OF c_action,
back TYPE string VALUE 'back',
END OF c_action.
DATA: mo_repo TYPE REF TO lcl_repo.
METHODS:
render_content REDEFINITION.
ENDCLASS.
CLASS lcl_gui_page_syntax_check IMPLEMENTATION.
METHOD constructor.
super->constructor( ).
ms_control-page_title = 'SYNTAX CHECK'.
mo_repo = io_repo.
ENDMETHOD. " constructor.
METHOD render_content.
DATA: lt_result TYPE scit_alvlist,
ls_result LIKE LINE OF lt_result.
lt_result = zcl_abapgit_syntax_check=>run( mo_repo->get_package( ) ).
CREATE OBJECT ro_html.
ro_html->add( '<div class="toc">' ).
IF lines( lt_result ) = 0.
ro_html->add( 'No errors' ).
ENDIF.
LOOP AT lt_result INTO ls_result.
ro_html->add( |{ ls_result-objtype } { ls_result-objname } { ls_result-kind } { ls_result-text }<br>| ).
ENDLOOP.
ro_html->add( '</div>' ).
ENDMETHOD. "render_content
ENDCLASS. "lcl_gui_page_debuginfo

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

@ -0,0 +1,22 @@
<?xml version="1.0" encoding="utf-8"?>
<abapGit version="v1.0.0" serializer="LCL_OBJECT_PROG" serializer_version="v1.0.0">
<asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
<asx:values>
<PROGDIR>
<NAME>ZABAPGIT_PAGE_SYNTAX_CHECK</NAME>
<STATE>A</STATE>
<VARCL>X</VARCL>
<SUBC>I</SUBC>
<RLOAD>E</RLOAD>
<UCCHECK>X</UCCHECK>
</PROGDIR>
<TPOOL>
<item>
<ID>R</ID>
<ENTRY>Include ZABAPGIT_PAGE_SYNTAX_CHECK</ENTRY>
<LENGTH>34</LENGTH>
</item>
</TPOOL>
</asx:values>
</asx:abap>
</abapGit>

180
src/zabapgit_persistence.prog.abap
View File

@ -7,7 +7,7 @@ CLASS lcl_settings DEFINITION DEFERRED.
CLASS lcl_persist_migrate DEFINITION FINAL.
PUBLIC SECTION.
CLASS-METHODS: run RAISING lcx_exception.
CLASS-METHODS: run RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CONSTANTS:
@ -15,17 +15,17 @@ CLASS lcl_persist_migrate DEFINITION FINAL.
CLASS-METHODS:
migrate_settings
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
migrate_repo
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
migrate_user
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
table_create
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
table_exists
RETURNING VALUE(rv_exists) TYPE abap_bool,
lock_create
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
lock_exists
RETURNING VALUE(rv_exists) TYPE abap_bool,
settings_exists
@ -60,21 +60,21 @@ CLASS lcl_persistence_db DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
IMPORTING iv_type TYPE ty_type
iv_value TYPE ty_content-value
iv_data TYPE ty_content-data_str
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
delete
IMPORTING iv_type TYPE ty_type
iv_value TYPE ty_content-value
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
update
IMPORTING iv_type TYPE ty_type
iv_value TYPE ty_content-value
iv_data TYPE ty_content-data_str
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
modify
IMPORTING iv_type TYPE ty_type
iv_value TYPE ty_content-value
iv_data TYPE ty_content-data_str
RAISING lcx_exception,
RAISING zcx_abapgit_exception,
read
IMPORTING iv_type TYPE ty_type
iv_value TYPE ty_content-value
@ -84,13 +84,13 @@ CLASS lcl_persistence_db DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
IMPORTING iv_mode TYPE enqmode DEFAULT 'E'
iv_type TYPE ty_type
iv_value TYPE ty_content-value
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
METHODS: validate_and_unprettify_xml
IMPORTING iv_xml TYPE string
RETURNING VALUE(rv_xml) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -128,42 +128,42 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
METHODS list
RETURNING VALUE(rt_repos) TYPE tt_repo
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_sha1
IMPORTING iv_key TYPE ty_repo-key
iv_branch_sha1 TYPE ty_repo_xml-sha1
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_local_checksums
IMPORTING iv_key TYPE ty_repo-key
it_checksums TYPE ty_repo_xml-local_checksums
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_url
IMPORTING iv_key TYPE ty_repo-key
iv_url TYPE ty_repo_xml-url
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_branch_name
IMPORTING iv_key TYPE ty_repo-key
iv_branch_name TYPE ty_repo_xml-branch_name
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_head_branch
IMPORTING iv_key TYPE ty_repo-key
iv_head_branch TYPE ty_repo_xml-head_branch
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_offline
IMPORTING iv_key TYPE ty_repo-key
iv_offline TYPE ty_repo_xml-offline
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_dot_abapgit
IMPORTING iv_key TYPE ty_repo-key
is_dot_abapgit TYPE lcl_dot_abapgit=>ty_dot_abapgit
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS add
IMPORTING iv_url TYPE string
@ -173,22 +173,22 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
iv_offline TYPE sap_bool DEFAULT abap_false
is_dot_abapgit TYPE lcl_dot_abapgit=>ty_dot_abapgit
RETURNING VALUE(rv_key) TYPE ty_repo-key
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS delete
IMPORTING iv_key TYPE ty_repo-key
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS read
IMPORTING iv_key TYPE ty_repo-key
RETURNING VALUE(rs_repo) TYPE ty_repo
RAISING lcx_exception
RAISING zcx_abapgit_exception
lcx_not_found.
METHODS lock
IMPORTING iv_mode TYPE enqmode
iv_key TYPE ty_repo-key
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CONSTANTS c_type_repo TYPE lcl_persistence_db=>ty_type VALUE 'REPO'.
@ -198,7 +198,7 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
METHODS from_xml
IMPORTING iv_repo_xml_string TYPE string
RETURNING VALUE(rs_repo) TYPE ty_repo_xml
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS to_xml
IMPORTING is_repo TYPE ty_repo
@ -206,7 +206,7 @@ CLASS lcl_persistence_repo DEFINITION FINAL.
METHODS get_next_id
RETURNING VALUE(rv_next_repo_id) TYPE lcl_persistence_db=>ty_content-value
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS.
@ -244,20 +244,20 @@ CLASS lcl_persist_background DEFINITION FINAL.
METHODS list
RETURNING VALUE(rt_list) TYPE tt_background
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS modify
IMPORTING is_data TYPE ty_background
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS delete
IMPORTING iv_key TYPE ty_background-key
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS exists
IMPORTING iv_key TYPE ty_background-key
RETURNING VALUE(rv_yes) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CONSTANTS c_type TYPE lcl_persistence_db=>ty_type VALUE 'BACKGROUND'.
@ -268,7 +268,7 @@ CLASS lcl_persist_background DEFINITION FINAL.
METHODS from_xml
IMPORTING iv_string TYPE string
RETURNING VALUE(rs_xml) TYPE ty_xml
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS to_xml
IMPORTING is_background TYPE ty_background
@ -341,12 +341,12 @@ CLASS lcl_settings DEFINITION FINAL.
RETURNING
VALUE(ev_settings_xml) TYPE string
RAISING
lcx_exception,
zcx_abapgit_exception,
set_xml_settings
IMPORTING
iv_settings_xml TYPE string
RAISING
lcx_exception,
zcx_abapgit_exception,
set_defaults.
PRIVATE SECTION.
@ -372,7 +372,7 @@ CLASS lcl_persist_settings DEFINITION FINAL.
IMPORTING
io_settings TYPE REF TO lcl_settings
RAISING
lcx_exception.
zcx_abapgit_exception.
METHODS read
RETURNING
VALUE(ro_settings) TYPE REF TO lcl_settings.
@ -483,104 +483,104 @@ CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
METHODS set_default_git_user_name
IMPORTING iv_username TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_default_git_user_name
RETURNING VALUE(rv_username) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS set_default_git_user_email
IMPORTING iv_email TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_default_git_user_email
RETURNING VALUE(rv_email) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS set_repo_show
IMPORTING iv_key TYPE lcl_persistence_repo=>ty_repo-key
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_repo_show
RETURNING VALUE(rv_key) TYPE lcl_persistence_repo=>ty_repo-key
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS set_repo_git_user_name
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
iv_username TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_repo_git_user_name
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
RETURNING VALUE(rv_username) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS set_repo_login
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
iv_login TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_repo_login
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
RETURNING VALUE(rv_login) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS set_repo_git_user_email
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
iv_email TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_repo_git_user_email
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
RETURNING VALUE(rv_email) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS set_repo_last_change_seen
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
iv_version TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_repo_last_change_seen
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
RETURNING VALUE(rv_version) TYPE string
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS toggle_hide_files
RETURNING VALUE(rv_hide) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_hide_files
RETURNING VALUE(rv_hide) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS toggle_changes_only
RETURNING VALUE(rv_changes_only) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_changes_only
RETURNING VALUE(rv_changes_only) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS toggle_diff_unified
RETURNING VALUE(rv_diff_unified) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_diff_unified
RETURNING VALUE(rv_diff_unified) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS get_favorites
RETURNING VALUE(rt_favorites) TYPE tt_favorites
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS toggle_favorite
IMPORTING iv_repo_key TYPE lcl_persistence_repo=>ty_repo-key
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS is_favorite_repo
IMPORTING iv_repo_key TYPE lcl_persistence_repo=>ty_repo-key
RETURNING VALUE(rv_yes) TYPE abap_bool
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
PRIVATE SECTION.
CONSTANTS c_type_user TYPE lcl_persistence_db=>ty_type VALUE 'USER'.
@ -614,7 +614,7 @@ CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
METHODS from_xml
IMPORTING iv_xml TYPE string
RETURNING VALUE(rs_user) TYPE ty_user
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS to_xml
IMPORTING is_user TYPE ty_user
@ -622,21 +622,21 @@ CLASS lcl_persistence_user DEFINITION FINAL CREATE PRIVATE FRIENDS lcl_app.
METHODS read
RETURNING VALUE(rs_user) TYPE ty_user
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update
IMPORTING is_user TYPE ty_user
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS read_repo_config
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
RETURNING VALUE(rs_repo_config) TYPE ty_repo_config
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
METHODS update_repo_config
IMPORTING iv_url TYPE lcl_persistence_repo=>ty_repo-url
is_repo_config TYPE ty_repo_config
RAISING lcx_exception.
RAISING zcx_abapgit_exception.
ENDCLASS. "lcl_persistence_user DEFINITION
@ -971,7 +971,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( |Could not aquire lock { iv_type } { iv_value }| ).
zcx_abapgit_exception=>raise( |Could not aquire lock { iv_type } { iv_value }| ).
ENDIF.
* trigger dummy update task to automatically release locks at commit
@ -1002,7 +1002,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
lcx_exception=>raise( 'DB Delete failed' ).
zcx_abapgit_exception=>raise( 'DB Delete failed' ).
ENDIF.
ENDMETHOD.
@ -1029,7 +1029,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
WHERE type = iv_type
AND value = iv_value.
IF sy-subrc <> 0.
lcx_exception=>raise( 'DB update failed' ).
zcx_abapgit_exception=>raise( 'DB update failed' ).
ENDIF.
ENDMETHOD. "update
@ -1047,7 +1047,7 @@ CLASS lcl_persistence_db IMPLEMENTATION.
MODIFY (c_tabname) FROM ls_content.
IF sy-subrc <> 0.
lcx_exception=>raise( 'DB modify failed' ).
zcx_abapgit_exception=>raise( 'DB modify failed' ).
ENDIF.
ENDMETHOD.
@ -1107,7 +1107,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
lcx_exception=>raise( 'key not found' ).
zcx_abapgit_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-dot_abapgit = is_dot_abapgit.
@ -1143,7 +1143,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
lcx_exception=>raise( 'key not found' ).
zcx_abapgit_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-local_checksums = it_checksums.
@ -1163,7 +1163,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
IF iv_url IS INITIAL.
lcx_exception=>raise( 'update, url empty' ).
zcx_abapgit_exception=>raise( 'update, url empty' ).
ENDIF.
ASSERT NOT iv_key IS INITIAL.
@ -1171,7 +1171,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
lcx_exception=>raise( 'key not found' ).
zcx_abapgit_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-url = iv_url.
@ -1195,7 +1195,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
lcx_exception=>raise( 'key not found' ).
zcx_abapgit_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-branch_name = iv_branch_name.
@ -1219,7 +1219,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
lcx_exception=>raise( 'key not found' ).
zcx_abapgit_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-head_branch = iv_head_branch.
@ -1242,7 +1242,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
lcx_exception=>raise( 'key not found' ).
zcx_abapgit_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-offline = iv_offline.
@ -1266,7 +1266,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
TRY.
ls_repo = read( iv_key ).
CATCH lcx_not_found.
lcx_exception=>raise( 'key not found' ).
zcx_abapgit_exception=>raise( 'key not found' ).
ENDTRY.
ls_repo-sha1 = iv_branch_sha1.
@ -1351,7 +1351,7 @@ CLASS lcl_persistence_repo IMPLEMENTATION.
RESULT repo = rs_repo ##NO_TEXT.
IF rs_repo IS INITIAL.
lcx_exception=>raise( 'Inconsistent repo metadata' ).
zcx_abapgit_exception=>raise( 'Inconsistent repo metadata' ).
ENDIF.
ENDMETHOD.
@ -1509,56 +1509,56 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'PROXY_URL' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'PROXY_PORT' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'PROXY_AUTH' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'CRIT_TESTS' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'MAX_LINES' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'ADT_JUMP' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'COMMENT_LEN' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
TRY.
lcl_app=>db( )->delete(
iv_type = 'SETTINGS'
iv_value = 'BODY_SIZE' ).
CATCH lcx_exception.
CATCH zcx_abapgit_exception.
ENDTRY.
ENDMETHOD.
@ -1669,7 +1669,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'migrate, error from DDIF_ENQU_PUT' ).
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_ENQU_PUT' ).
ENDIF.
lv_obj_name = lcl_persistence_db=>c_lock.
@ -1684,7 +1684,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
zcx_abapgit_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
ENDIF.
CALL FUNCTION 'DDIF_ENQU_ACTIVATE'
@ -1695,7 +1695,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
put_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
lcx_exception=>raise( 'migrate, error from DDIF_ENQU_ACTIVATE' ).
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_ENQU_ACTIVATE' ).
ENDIF.
ENDMETHOD.
@ -1770,7 +1770,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
put_refused = 5
OTHERS = 6.
IF sy-subrc <> 0.
lcx_exception=>raise( 'migrate, error from DDIF_TABL_PUT' ).
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_TABL_PUT' ).
ENDIF.
lv_obj_name = lcl_persistence_db=>c_tabname.
@ -1785,7 +1785,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
lcx_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
zcx_abapgit_exception=>raise( 'migrate, error from TR_TADIR_INTERFACE' ).
ENDIF.
CALL FUNCTION 'DDIF_TABL_ACTIVATE'
@ -1799,7 +1799,7 @@ CLASS lcl_persist_migrate IMPLEMENTATION.
put_failure = 2
OTHERS = 3.
IF sy-subrc <> 0 OR lv_rc <> 0.
lcx_exception=>raise( 'migrate, error from DDIF_TABL_ACTIVATE' ).
zcx_abapgit_exception=>raise( 'migrate, error from DDIF_TABL_ACTIVATE' ).
ENDIF.
ENDMETHOD.
@ -1943,7 +1943,7 @@ CLASS lcl_persist_settings IMPLEMENTATION.
lcl_app=>db( )->read( iv_type = lcl_settings=>c_dbtype_settings
iv_value = '' ) ).
CATCH lcx_not_found lcx_exception.
CATCH lcx_not_found zcx_abapgit_exception.
ro_settings->set_defaults( ).

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