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

background mode lock, #447

Browse Source
This commit is contained in:
larshp 2017-01-03 08:04:18 +00:00
parent ae80cec1f5
commit 21bf0a3bd3
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
src/zabapgit_background.prog.abap
View File

@ -166,6 +166,8 @@ CLASS lcl_background IMPLEMENTATION.
METHOD run. METHOD run.
CONSTANTS: c_enq_type TYPE c LENGTH 12 VALUE 'BACKGROUND'.
DATA: lo_per TYPE REF TO lcl_persistence_background, DATA: lo_per TYPE REF TO lcl_persistence_background,
lo_repo TYPE REF TO lcl_repo_online, lo_repo TYPE REF TO lcl_repo_online,
lt_list TYPE lcl_persistence_background=>tt_background, lt_list TYPE lcl_persistence_background=>tt_background,
@ -174,6 +176,20 @@ CLASS lcl_background IMPLEMENTATION.
FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list. FIELD-SYMBOLS: <ls_list> LIKE LINE OF lt_list.
CALL FUNCTION 'ENQUEUE_EZABAPGIT'
EXPORTING
mode_zabapgit = 'E'
type = c_enq_type
_scope = '3'
EXCEPTIONS
foreign_lock = 1
system_failure = 2
OTHERS = 3.
IF sy-subrc <> 0.
WRITE: / 'Another intance of the program is already running'.
RETURN.
ENDIF.
CREATE OBJECT lo_per. CREATE OBJECT lo_per.
lt_list = lo_per->list( ). lt_list = lo_per->list( ).
@ -204,6 +220,10 @@ CLASS lcl_background IMPLEMENTATION.
WRITE: / 'Nothing configured' ##NO_TEXT. WRITE: / 'Nothing configured' ##NO_TEXT.
ENDIF. ENDIF.
CALL FUNCTION 'DEQUEUE_EZABAPGIT'
EXPORTING
type = c_enq_type.
ENDMETHOD. ENDMETHOD.
ENDCLASS. ENDCLASS.