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

fix PROGDIR update, close #179

Browse Source
This commit is contained in:
larshp 2016-02-24 19:56:06 +01:00
parent 1d1b124ba8
commit 242e513d3c
1 changed files with 31 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

62
zabapgit.prog.abap
View File

@ -2991,41 +2991,41 @@ CLASS lcl_objects_program IMPLEMENTATION.
ENDIF. ENDIF.
ENDIF. ENDIF.
CALL FUNCTION 'READ_PROGDIR' ENDIF.
EXPORTING
i_progname = is_progdir-name CALL FUNCTION 'READ_PROGDIR'
i_state = 'I' EXPORTING
IMPORTING i_progname = is_progdir-name
e_progdir = ls_progdir_new i_state = 'I'
EXCEPTIONS IMPORTING
not_exists = 1 e_progdir = ls_progdir_new
OTHERS = 2. EXCEPTIONS
IF sy-subrc <> 0. not_exists = 1
_raise 'not found in PROGDIR'. OTHERS = 2.
ENDIF. IF sy-subrc <> 0.
_raise 'not found in PROGDIR'.
ENDIF.
* todo, package? * todo, package?
ls_progdir_new-ldbname = is_progdir-ldbname. ls_progdir_new-ldbname = is_progdir-ldbname.
ls_progdir_new-dbna = is_progdir-dbna. ls_progdir_new-dbna = is_progdir-dbna.
ls_progdir_new-dbapl = is_progdir-dbapl. ls_progdir_new-dbapl = is_progdir-dbapl.
ls_progdir_new-rload = is_progdir-rload. ls_progdir_new-rload = is_progdir-rload.
ls_progdir_new-fixpt = is_progdir-fixpt. ls_progdir_new-fixpt = is_progdir-fixpt.
ls_progdir_new-varcl = is_progdir-varcl. ls_progdir_new-varcl = is_progdir-varcl.
ls_progdir_new-appl = is_progdir-appl. ls_progdir_new-appl = is_progdir-appl.
CALL FUNCTION 'UPDATE_PROGDIR'
EXPORTING
i_progdir = ls_progdir_new
i_progname = ls_progdir_new-name
i_state = ls_progdir_new-state
EXCEPTIONS
not_executed = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'PROG, error inserting'.
ENDIF.
CALL FUNCTION 'UPDATE_PROGDIR'
EXPORTING
i_progdir = ls_progdir_new
i_progname = ls_progdir_new-name
i_state = ls_progdir_new-state
EXCEPTIONS
not_executed = 1
OTHERS = 2.
IF sy-subrc <> 0.
_raise 'PROG, error inserting'.
ENDIF. ENDIF.
lcl_objects_activation=>add( iv_type = 'REPS' lcl_objects_activation=>add( iv_type = 'REPS'