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

fix PROG R TPOOL, close #287

Browse Source
This commit is contained in:
larshp 2016-07-08 13:38:40 +00:00
parent 9d0cbfb858
commit 9ba7c3af7d
2 changed files with 14 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit.prog.abap
View File

@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100.
* See http://www.abapgit.org * See http://www.abapgit.org
CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT
gc_abap_version TYPE string VALUE 'v1.15.4'. "#EC NOTEXT gc_abap_version TYPE string VALUE 'v1.15.5'. "#EC NOTEXT
******************************************************************************** ********************************************************************************
* The MIT License (MIT) * The MIT License (MIT)

11
src/zabapgit_objects.prog.abap
View File

@ -908,6 +908,8 @@ CLASS lcl_objects_program IMPLEMENTATION.
lv_title TYPE rglif-title, lv_title TYPE rglif-title,
ls_progdir_new TYPE progdir. ls_progdir_new TYPE progdir.
FIELD-SYMBOLS: <lg_any> TYPE any.
CALL FUNCTION 'RS_CORR_INSERT' CALL FUNCTION 'RS_CORR_INSERT'
EXPORTING EXPORTING
@ -928,7 +930,16 @@ CLASS lcl_objects_program IMPLEMENTATION.
ENDIF. ENDIF.
READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. "#EC CI_SUBRC READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. "#EC CI_SUBRC
IF sy-subrc = 0.
* there is a bug in RPY_PROGRAM_UPDATE, the header line of TTAB is not
* cleared, so the title length might be inherited from a different program.
ASSIGN ('(SAPLSIFP)TTAB') TO <lg_any>.
IF sy-subrc = 0.
CLEAR <lg_any>.
ENDIF.
lv_title = ls_tpool-entry. lv_title = ls_tpool-entry.
ENDIF.
SELECT SINGLE progname FROM reposrc INTO lv_progname SELECT SINGLE progname FROM reposrc INTO lv_progname
WHERE progname = is_progdir-name WHERE progname = is_progdir-name