diff --git a/zabapgit.prog.abap b/zabapgit.prog.abap index 067d44159..40f32dde6 100644 --- a/zabapgit.prog.abap +++ b/zabapgit.prog.abap @@ -3,7 +3,7 @@ REPORT zabapgit. * See http://www.abapgit.org CONSTANTS: gc_xml_version TYPE string VALUE 'v1.0.0', "#EC NOTEXT - gc_abap_version TYPE string VALUE 'v1.2.5'. "#EC NOTEXT + gc_abap_version TYPE string VALUE 'v1.2.6'. "#EC NOTEXT ******************************************************************************** * The MIT License (MIT) @@ -3074,6 +3074,7 @@ CLASS lcl_objects_program IMPLEMENTATION. lt_d020s TYPE TABLE OF d020s. FIELD-SYMBOLS: LIKE LINE OF lt_d020s, + TYPE scrpostyle, LIKE LINE OF lt_fields_to_containers, LIKE LINE OF rt_dynpro. @@ -3114,10 +3115,11 @@ CLASS lcl_objects_program IMPLEMENTATION. ENDIF. LOOP AT lt_fields_to_containers ASSIGNING . -* output style is a NUMC field, the XML conversion -* will fail if it contains invalid value - IF -outputstyle = ' '. - CLEAR -outputstyle. +* output style is a NUMC field, the XML conversion will fail if it contains invalid value +* field does not exist in all versions + ASSIGN COMPONENT 'OUTPUTSTYLE' OF STRUCTURE TO . + IF sy-subrc = 0 AND = ' '. + CLEAR . ENDIF. ENDLOOP.