Buenos dias,
Saludos espero que me puedan ayudar , cree una tabla z, al guardar un registro me esta arrojando el sig error dbif_rsql_sql_error cx_sy_open_sql_db. el error esta en include LSVIMFTX
eb debugg dice que esta variable modified_entries toma el valor de 1.
LOOP AT total.
CHECK <action> EQ neuer_eintrag.
* MOVE: total TO <table1>,
* <table1> TO mod_elem_tab.
* APPEND mod_elem_tab.
APPEND <vim_total_struc> TO <mod_elem_tab>.
ADD 1 TO modified_entries.
IF x_header-texttbexst EQ space OR
<action_text> EQ original.
READ TABLE extract WITH KEY <vim_xtotal_key>. "#EC *
<action> = original.
IF sy-subrc = 0.
<xact> = original.
MODIFY extract INDEX sy-tabix.
ENDIF.
MODIFY total.
ENDIF.
ENDLOOP.
IF modified_entries NE 0.
LOOP AT total.
CHECK <action> EQ neuer_eintrag.
* MOVE: total TO <table1>,
* <table1> TO mod_elem_tab.
* APPEND mod_elem_tab.
APPEND <vim_total_struc> TO <mod_elem_tab>.
ADD 1 TO modified_entries.
IF x_header-texttbexst EQ space OR
<action_text> EQ original.
READ TABLE extract WITH KEY <vim_xtotal_key>. "#EC *
<action> = original.
IF sy-subrc = 0.
<xact> = original.
MODIFY extract INDEX sy-tabix.
ENDIF.
MODIFY total.
ENDIF.
ENDLOOP.
IF modified_entries NE 0.
*------------------*--------------------------------------------
* Changes done on 07.08/2009 to handle Checkman errors. DUTTAN.
*--------------------------------------------------------------
* Start - Handling exceptions for Unique Indexes.
* TRY.
INSERT (x_header-maintview) FROM TABLE <mod_elem_tab>.
* CATCH cx_sy_open_sql_db.
* MESSAGE i862(sv).
* ENDTRY.
* End - Handling.
*---------------------------------------------------------------
* End of Change. 07/08/2009 DUTTAN.
*---------------------------------------------------------------
ENDIF.