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 dumps

Browse Source 
Fields containing invalid values
Ignore if descriptions are not found
This commit is contained in:
larshp 2017-01-04 18:57:22 +00:00
parent 47e7f91299
commit b58e608a3f
5 changed files with 26 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/zabapgit_object_clas.prog.abap
View File

@ -962,7 +962,7 @@ CLASS lcl_object_clas IMPLEMENTATION.
no_entry_found = 1 no_entry_found = 1
OTHERS = 2. OTHERS = 2.
IF sy-subrc <> 0. IF sy-subrc <> 0.
lcx_exception=>raise( 'error from SOTR_GET_CONCEPT' ). CONTINUE.
ENDIF. ENDIF.
CLEAR: ls_header-paket, CLEAR: ls_header-paket,

5
src/zabapgit_object_dtel.prog.abap
View File

@ -159,6 +159,11 @@ CLASS lcl_object_dtel IMPLEMENTATION.
ls_dd04v-entitytab. ls_dd04v-entitytab.
ENDIF. ENDIF.
IF ls_dd04v-routputlen = ''.
* numeric field, make sure it is initial or XML serilization will dump
CLEAR ls_dd04v-routputlen.
ENDIF.
io_xml->add( iv_name = 'DD04V' io_xml->add( iv_name = 'DD04V'
ig_data = ls_dd04v ). ig_data = ls_dd04v ).
io_xml->add( iv_name = 'TPARA' io_xml->add( iv_name = 'TPARA'

5
src/zabapgit_object_fugr.prog.abap
View File

@ -398,10 +398,7 @@ CLASS lcl_object_fugr IMPLEMENTATION.
SELECT SINGLE areat INTO lv_areat SELECT SINGLE areat INTO lv_areat
FROM tlibt FROM tlibt
WHERE spras = mv_language WHERE spras = mv_language
AND area = ms_item-obj_name. "#EC CI_GENBUFF AND area = ms_item-obj_name. "#EC CI_GENBUFF "#EC CI_SUBRC
IF sy-subrc <> 0.
lcx_exception=>raise( 'not found in TLIBT' ).
ENDIF.
lt_functab = functions( ). lt_functab = functions( ).
lt_includes = includes( ). lt_includes = includes( ).

5
src/zabapgit_object_para.prog.abap
View File

@ -60,10 +60,7 @@ CLASS lcl_object_para IMPLEMENTATION.
SELECT SINGLE * FROM tparat INTO ls_tparat SELECT SINGLE * FROM tparat INTO ls_tparat
WHERE paramid = ms_item-obj_name WHERE paramid = ms_item-obj_name
AND sprache = mv_language. "#EC CI_GENBUFF AND sprache = mv_language. "#EC CI_GENBUFF "#EC CI_SUBRC
IF sy-subrc <> 0.
lcx_exception=>raise( 'PARA no english description' ).
ENDIF.
io_xml->add( iv_name = 'TPARA' io_xml->add( iv_name = 'TPARA'
ig_data = ls_tpara ). ig_data = ls_tpara ).

7
src/zabapgit_object_tabl.prog.abap
View File

@ -132,6 +132,7 @@ CLASS lcl_object_tabl IMPLEMENTATION.
lt_dd17v TYPE dd17vtab, lt_dd17v TYPE dd17vtab,
lt_dd35v TYPE TABLE OF dd35v, lt_dd35v TYPE TABLE OF dd35v,
lv_index LIKE sy-index, lv_index LIKE sy-index,
lv_masklen TYPE c LENGTH 4,
lt_dd36m TYPE dd36mttyp. lt_dd36m TYPE dd36mttyp.
FIELD-SYMBOLS: <ls_dd12v> LIKE LINE OF lt_dd12v, FIELD-SYMBOLS: <ls_dd12v> LIKE LINE OF lt_dd12v,
@ -181,6 +182,9 @@ CLASS lcl_object_tabl IMPLEMENTATION.
IF ls_dd02v-datmax = ''. IF ls_dd02v-datmax = ''.
CLEAR ls_dd02v-datmax. CLEAR ls_dd02v-datmax.
ENDIF. ENDIF.
IF ls_dd02v-datavg = ''.
CLEAR ls_dd02v-datavg.
ENDIF.
CLEAR: ls_dd09l-as4user, CLEAR: ls_dd09l-as4user,
ls_dd09l-as4date, ls_dd09l-as4date,
@ -207,7 +211,8 @@ CLASS lcl_object_tabl IMPLEMENTATION.
<ls_dd03p>-scrtext_m, <ls_dd03p>-scrtext_m,
<ls_dd03p>-scrtext_l. <ls_dd03p>-scrtext_l.
IF <ls_dd03p>-masklen = '' OR NOT <ls_dd03p>-masklen CO '0123456789'. lv_masklen = <ls_dd03p>-masklen.
IF lv_masklen = '' OR NOT lv_masklen CO '0123456789'.
* make sure the field contains valid data, or the XML will dump * make sure the field contains valid data, or the XML will dump
CLEAR <ls_dd03p>-masklen. CLEAR <ls_dd03p>-masklen.
ENDIF. ENDIF.