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

Exception Handling: IATU refactored (#3043)

Browse Source 
* Create pull.yml

* Refactored IATU

* Delete pull.yml

* abapLint
This commit is contained in:
mariusraht2 2019-11-06 09:46:35 +01:00 committed by Lars Hvam
parent fb527126ef
commit 4f1ed3b8b6
1 changed files with 247 additions and 59 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

306
src/objects/zcl_abapgit_object_iatu.clas.abap
View File

@ -12,48 +12,72 @@ CLASS zcl_abapgit_object_iatu DEFINITION PUBLIC INHERITING FROM zcl_abapgit_obje
ev_source TYPE string ev_source TYPE string
RAISING zcx_abapgit_exception, RAISING zcx_abapgit_exception,
save save
IMPORTING is_attr TYPE w3tempattr IMPORTING is_attr TYPE w3tempattr iv_source TYPE string
iv_source TYPE string RAISING zcx_abapgit_exception,
w3_api_load
IMPORTING is_name TYPE iacikeyt
EXPORTING eo_template TYPE REF TO if_w3_api_template
RAISING zcx_abapgit_exception,
w3_api_set_changeable
IMPORTING iv_changeable TYPE abap_bool
io_template TYPE REF TO if_w3_api_template
RAISING zcx_abapgit_exception,
w3_api_delete
IMPORTING io_template TYPE REF TO if_w3_api_template
RAISING zcx_abapgit_exception,
w3_api_save
IMPORTING io_template TYPE REF TO if_w3_api_template
RAISING zcx_abapgit_exception,
w3_api_get_attributes
IMPORTING io_template TYPE REF TO if_w3_api_template
EXPORTING es_attributes TYPE w3tempattr
RAISING zcx_abapgit_exception,
w3_api_get_source
IMPORTING io_template TYPE REF TO if_w3_api_template
EXPORTING et_source TYPE w3htmltabtype
RAISING zcx_abapgit_exception,
w3_api_create_new
IMPORTING is_template_data TYPE w3tempattr
EXPORTING eo_template TYPE REF TO if_w3_api_template
RAISING zcx_abapgit_exception,
w3_api_set_attributes
IMPORTING io_template TYPE REF TO if_w3_api_template
is_attr TYPE w3tempattr
RAISING zcx_abapgit_exception,
w3_api_set_source
IMPORTING io_template TYPE REF TO if_w3_api_template
it_source TYPE w3htmltabtype
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
ENDCLASS. ENDCLASS.
CLASS ZCL_ABAPGIT_OBJECT_IATU IMPLEMENTATION. CLASS zcl_abapgit_object_iatu IMPLEMENTATION.
METHOD read. METHOD read.
DATA: li_template TYPE REF TO if_w3_api_template, DATA: lo_template TYPE REF TO if_w3_api_template,
lt_source TYPE w3htmltabtype, lt_source TYPE w3htmltabtype,
ls_name TYPE iacikeyt. ls_name TYPE iacikeyt.
ls_name = ms_item-obj_name. ls_name = ms_item-obj_name.
cl_w3_api_template=>if_w3_api_template~load( w3_api_load( EXPORTING is_name = ls_name
EXPORTING IMPORTING eo_template = lo_template ).
p_template_name = ls_name
IMPORTING
p_template = li_template
EXCEPTIONS
object_not_existing = 1
permission_failure = 2
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from w3api_template~load' ).
ENDIF.
li_template->get_attributes( IMPORTING p_attributes = es_attr ). w3_api_get_attributes( EXPORTING io_template = lo_template
IMPORTING es_attributes = es_attr ).
CLEAR: es_attr-chname, CLEAR: es_attr-chname,
es_attr-tdate, es_attr-tdate,
es_attr-ttime, es_attr-ttime,
es_attr-devclass. es_attr-devclass.
li_template->get_source( IMPORTING p_source = lt_source ). w3_api_get_source( EXPORTING io_template = lo_template
IMPORTING et_source = lt_source ).
CONCATENATE LINES OF lt_source INTO ev_source RESPECTING BLANKS. CONCATENATE LINES OF lt_source INTO ev_source RESPECTING BLANKS.
@ -64,15 +88,14 @@ CLASS ZCL_ABAPGIT_OBJECT_IATU IMPLEMENTATION.
DATA: lt_source TYPE w3htmltabtype, DATA: lt_source TYPE w3htmltabtype,
lv_source TYPE string, lv_source TYPE string,
li_template TYPE REF TO if_w3_api_template. lo_template TYPE REF TO if_w3_api_template.
cl_w3_api_template=>if_w3_api_template~create_new( w3_api_create_new( EXPORTING is_template_data = is_attr
EXPORTING p_template_data = is_attr IMPORTING eo_template = lo_template ).
p_program_name = is_attr-programm
IMPORTING p_template = li_template ).
li_template->set_attributes( is_attr ). w3_api_set_attributes( io_template = lo_template
is_attr = is_attr ).
lv_source = iv_source. lv_source = iv_source.
WHILE strlen( lv_source ) >= 255. WHILE strlen( lv_source ) >= 255.
@ -83,9 +106,10 @@ CLASS ZCL_ABAPGIT_OBJECT_IATU IMPLEMENTATION.
APPEND lv_source TO lt_source. APPEND lv_source TO lt_source.
ENDIF. ENDIF.
li_template->set_source( lt_source ). w3_api_set_source( io_template = lo_template
it_source = lt_source ).
li_template->if_w3_api_object~save( ). w3_api_save( lo_template ).
ENDMETHOD. ENDMETHOD.
@ -97,29 +121,21 @@ CLASS ZCL_ABAPGIT_OBJECT_IATU IMPLEMENTATION.
METHOD zif_abapgit_object~delete. METHOD zif_abapgit_object~delete.
DATA: li_template TYPE REF TO if_w3_api_template, DATA: lo_template TYPE REF TO if_w3_api_template,
ls_name TYPE iacikeyt. ls_name TYPE iacikeyt.
ls_name = ms_item-obj_name. ls_name = ms_item-obj_name.
cl_w3_api_template=>if_w3_api_template~load( w3_api_load( EXPORTING is_name = ls_name
EXPORTING IMPORTING eo_template = lo_template ).
p_template_name = ls_name
IMPORTING
p_template = li_template
EXCEPTIONS
object_not_existing = 1
permission_failure = 2
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from if_w3_api_template~load' ).
ENDIF.
li_template->if_w3_api_object~set_changeable( abap_true ). w3_api_set_changeable( io_template = lo_template
li_template->if_w3_api_object~delete( ). iv_changeable = abap_true ).
li_template->if_w3_api_object~save( ).
w3_api_delete( io_template = lo_template ).
w3_api_save( io_template = lo_template ).
ENDMETHOD. ENDMETHOD.
@ -149,21 +165,8 @@ CLASS ZCL_ABAPGIT_OBJECT_IATU IMPLEMENTATION.
ls_name = ms_item-obj_name. ls_name = ms_item-obj_name.
cl_w3_api_template=>if_w3_api_template~load( cl_w3_api_template=>s_check_exist( EXPORTING p_template_name = ls_name
EXPORTING IMPORTING p_exists = rv_bool ).
p_template_name = ls_name
EXCEPTIONS
object_not_existing = 1
permission_failure = 2
error_occured = 3
OTHERS = 4 ).
IF sy-subrc = 1.
rv_bool = abap_false.
ELSEIF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from w3_api_template~load' ).
ELSE.
rv_bool = abap_true.
ENDIF.
ENDMETHOD. ENDMETHOD.
@ -224,4 +227,189 @@ CLASS ZCL_ABAPGIT_OBJECT_IATU IMPLEMENTATION.
iv_string = lv_source ) ##NO_TEXT. iv_string = lv_source ) ##NO_TEXT.
ENDMETHOD. ENDMETHOD.
METHOD w3_api_load.
cl_w3_api_template=>if_w3_api_template~load(
EXPORTING
p_template_name = is_name
IMPORTING
p_template = eo_template
EXCEPTIONS
object_not_existing = 1
permission_failure = 2
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from if_w3_api_template~load subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_set_changeable.
io_template->if_w3_api_object~set_changeable(
EXPORTING
p_changeable = iv_changeable
EXCEPTIONS
action_cancelled = 1
object_locked_by_other_user = 2
permission_failure = 3
object_already_changeable = 4
object_already_unlocked = 5
object_just_created = 6
object_deleted = 7
object_modified = 8
object_not_existing = 9
object_invalid = 10
error_occured = 11
OTHERS = 12 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~set_changeable subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_delete.
io_template->if_w3_api_object~delete(
EXCEPTIONS
object_not_empty = 1
object_not_changeable = 2
object_invalid = 3
error_occured = 4
OTHERS = 5 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~delete subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_save.
io_template->if_w3_api_object~save(
EXCEPTIONS
object_invalid = 1
object_not_changeable = 2
action_cancelled = 3
permission_failure = 4
not_changed = 5
data_invalid = 6
error_occured = 7
OTHERS = 8 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~save subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_get_attributes.
io_template->get_attributes(
IMPORTING
p_attributes = es_attributes
EXCEPTIONS
object_invalid = 1
template_deleted = 2
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~get_attributes subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_get_source.
io_template->get_source(
IMPORTING
p_source = et_source
EXCEPTIONS
object_invalid = 1
template_deleted = 2
error_occured = 3
OTHERS = 4 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~get_source subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_create_new.
cl_w3_api_template=>if_w3_api_template~create_new(
EXPORTING
p_template_data = is_template_data
p_program_name = is_template_data-programm
IMPORTING
p_template = eo_template
EXCEPTIONS
object_already_existing = 1
object_just_created = 2
not_authorized = 3
undefined_name = 4
author_not_existing = 5
action_cancelled = 6
error_occured = 7
user_error = 8
OTHERS = 9 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~create_new subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_set_attributes.
io_template->set_attributes(
EXPORTING
p_attributes = is_attr
EXCEPTIONS
object_not_changeable = 1
object_deleted = 2
object_invalid = 3
author_not_existing = 4
authorize_failure = 5
error_occured = 6
OTHERS = 7 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~set_attributes subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
METHOD w3_api_set_source.
io_template->set_source(
EXPORTING
p_source = it_source
EXCEPTIONS
object_not_changeable = 1
object_deleted = 2
object_invalid = 3
authorize_failure = 4
invalid_parameter = 5
error_occured = 6
OTHERS = 7 ).
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( |Error from w3_api_template~set_source subrc={ sy-subrc }| ).
ENDIF.
ENDMETHOD.
ENDCLASS. ENDCLASS.