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

log and show activation errors

Browse Source
This commit is contained in:
Christian Günter 2018-01-17 15:02:21 +00:00
parent 1ea86107d4
commit 11b7b9ed8f
1 changed files with 62 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
src/zabapgit_objects.prog.abap
View File

@ -45,7 +45,9 @@ CLASS lcl_objects_activation DEFINITION FINAL.
CLASS-METHODS activate_ddic CLASS-METHODS activate_ddic
RAISING zcx_abapgit_exception. RAISING zcx_abapgit_exception.
CLASS-METHODS show_activation_errors
IMPORTING iv_logname TYPE ddmass-logname
RAISING zcx_abapgit_exception.
CLASS-DATA: gt_objects TYPE TABLE OF dwinactiv. CLASS-DATA: gt_objects TYPE TABLE OF dwinactiv.
@ -242,7 +244,9 @@ CLASS lcl_objects_activation IMPLEMENTATION.
DATA: lt_gentab TYPE STANDARD TABLE OF dcgentb, DATA: lt_gentab TYPE STANDARD TABLE OF dcgentb,
ls_gentab LIKE LINE OF lt_gentab, ls_gentab LIKE LINE OF lt_gentab,
lv_rc TYPE sy-subrc, lv_rc TYPE sy-subrc,
lt_deltab TYPE STANDARD TABLE OF dcdeltb. lt_deltab TYPE STANDARD TABLE OF dcdeltb,
action_tab TYPE dctablrestab,
lv_logname TYPE ddmass-logname.
FIELD-SYMBOLS: <ls_object> LIKE LINE OF gt_objects. FIELD-SYMBOLS: <ls_object> LIKE LINE OF gt_objects.
@ -256,18 +260,24 @@ CLASS lcl_objects_activation IMPLEMENTATION.
IF lt_gentab IS NOT INITIAL. IF lt_gentab IS NOT INITIAL.
lv_logname = |ABAPGIT_{ sy-datum }_{ sy-uzeit }|.
CALL FUNCTION 'DD_MASS_ACT_C3' CALL FUNCTION 'DD_MASS_ACT_C3'
EXPORTING EXPORTING
ddmode = 'C' ddmode = 'C'
medium = space medium = 'T'
write_log = space device = 'T'
log_head_tail = space logname = lv_logname
write_log = abap_true
log_head_tail = abap_true
t_on = space t_on = space
prid = 1
IMPORTING IMPORTING
act_rc = lv_rc act_rc = lv_rc
TABLES TABLES
gentab = lt_gentab gentab = lt_gentab
deltab = lt_deltab deltab = lt_deltab
cnvtab = action_tab
EXCEPTIONS EXCEPTIONS
access_failure = 1 access_failure = 1
no_objects = 2 no_objects = 2
@ -279,8 +289,52 @@ CLASS lcl_objects_activation IMPLEMENTATION.
zcx_abapgit_exception=>raise( 'error from DD_MASS_ACT_C3' ). zcx_abapgit_exception=>raise( 'error from DD_MASS_ACT_C3' ).
ENDIF. ENDIF.
IF lv_rc > 0.
show_activation_errors( lv_logname ).
ENDIF. ENDIF.
ENDIF.
ENDMETHOD.
METHOD show_activation_errors.
DATA: lt_lines TYPE STANDARD TABLE OF trlog,
lv_logname_db TYPE ddprh-protname,
lo_log TYPE REF TO zcl_abapgit_log.
FIELD-SYMBOLS: <ls_line> LIKE LINE OF lt_lines.
lv_logname_db = iv_logname.
CALL FUNCTION 'TR_READ_LOG'
EXPORTING
iv_log_type = 'DB'
iv_logname_db = lv_logname_db
TABLES
et_lines = lt_lines
EXCEPTIONS
invalid_input = 1
access_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
zcx_abapgit_exception=>raise( 'error from TR_READ_LOG' ).
ENDIF.
DELETE lt_lines WHERE severity <> 'E'.
CREATE OBJECT lo_log.
LOOP AT lt_lines ASSIGNING <ls_line>.
lo_log->add( <ls_line>-line ).
ENDLOOP.
lo_log->show( ).
ENDMETHOD. ENDMETHOD.
ENDCLASS. "lcl_objects_activation IMPLEMENTATION ENDCLASS. "lcl_objects_activation IMPLEMENTATION