From 9ba7c3af7de28c37630fe57585c1358a0875c88a Mon Sep 17 00:00:00 2001 From: larshp Date: Fri, 8 Jul 2016 13:38:40 +0000 Subject: [PATCH] fix PROG R TPOOL, close #287 --- src/zabapgit.prog.abap | 2 +- src/zabapgit_objects.prog.abap | 15 +++++++++++++-- 2 files changed, 14 insertions(+), 3 deletions(-) diff --git a/src/zabapgit.prog.abap b/src/zabapgit.prog.abap index e22ccb5a7..78fd2877c 100644 --- a/src/zabapgit.prog.abap +++ b/src/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit LINE-SIZE 100. * See http://www.abapgit.org 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) diff --git a/src/zabapgit_objects.prog.abap b/src/zabapgit_objects.prog.abap index 2839abca0..b12127c18 100644 --- a/src/zabapgit_objects.prog.abap +++ b/src/zabapgit_objects.prog.abap @@ -751,7 +751,7 @@ CLASS lcl_objects_program DEFINITION INHERITING FROM lcl_objects_super. METHODS deserialize_cua IMPORTING iv_program_name TYPE programm - is_cua TYPE ty_cua + is_cua TYPE ty_cua RAISING lcx_exception. CLASS-METHODS: @@ -908,6 +908,8 @@ CLASS lcl_objects_program IMPLEMENTATION. lv_title TYPE rglif-title, ls_progdir_new TYPE progdir. + FIELD-SYMBOLS: TYPE any. + CALL FUNCTION 'RS_CORR_INSERT' EXPORTING @@ -928,7 +930,16 @@ CLASS lcl_objects_program IMPLEMENTATION. ENDIF. READ TABLE it_tpool INTO ls_tpool WITH KEY id = 'R'. "#EC CI_SUBRC - lv_title = ls_tpool-entry. + 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 . + IF sy-subrc = 0. + CLEAR . + ENDIF. + + lv_title = ls_tpool-entry. + ENDIF. SELECT SINGLE progname FROM reposrc INTO lv_progname WHERE progname = is_progdir-name