Updating text data and master data

[Former Member]

Hello everyone,

I'm new to the ABAP language and I'm having some trouble with updating and inserting data in my tables. The problem goes like this :

1) To modify an existing line in my table, I need only to update a text data. So I specify 'T' as tab class in the RSDMD_WRITE_ATTRIBUTES_TEXTS function. The update works fine.

2) To add a new line to my table, I have to deal with both master data and text data. So I have another RSDMD_WRITE_ATTRIBUTES_TEXTS function this time with 'M' as tab class. I have put this function before the one with 'T' as tab class.

My problem is that the add a new line doesn't work. I'd be very grateful if anyone could give me some hint. Thank you very much for your help.

Best Regards,

Dimple

Here's my code :

**********************************************************

**********************************************************

**********************************************************

clear : t_wa_tproginv, t_wa_mproginv, l_wa_mproginv, l_wa_mproginv.

l_form_fields-id = 'ZPROGINV'.

read table gt_form_fields from l_form_fields into l_form_fields.

l_wa_tproginv-/BIC/ZCPROGINV = l_form_fields-frm_val.

l_wa_mproginv-/BIC/ZCPROGINV = l_form_fields-frm_val.

l_form_fields-id = 'ZEXAUTO'.

read table gt_form_fields from l_form_fields into l_form_fields.

l_wa_tproginv-APPR_YEAR = l_form_fields-frm_val.

l_wa_mproginv-APPR_YEAR = l_form_fields-frm_val.

l_wa_mproginv-OBJVERS = 'A'.

l_form_fields-id = 'ZLANGU'.

read table gt_form_fields from l_form_fields into l_form_fields.

l_wa_tproginv-LANGU = l_form_fields-frm_val.

l_form_fields-id = 'ZPROGINV_TC'.

read table gt_form_fields from l_form_fields into l_form_fields.

l_wa_tproginv-TXTSH = l_form_fields-frm_val.

l_form_fields-id = 'ZPROGINV_TL'.

read table gt_form_fields from l_form_fields into l_form_fields.

l_wa_tproginv-TXTLG = l_form_fields-frm_val.

append l_wa_tproginv to t_wa_tproginv.

append l_wa_mproginv to t_wa_mproginv.

call function 'RSDMD_WRITE_ATTRIBUTES_TEXTS'

exporting

i_iobjnm = 'ZCPROGINV'

i_tabclass = 'M'

tables

i_t_table = t_wa_mproginv

exceptions

attribute_name_error = 1

iobj_not_found = 2

generate_program_error = 3

others = 4.

if sy-subrc <> 0.

lt_err_msg-condition = 'rsdmdmzproginv'. read table gt_err_msgs from lt_err_msg into lt_err_msg.

concatenate sy-msgid '/' sy-msgty '/' sy-msgno '/' sy-msgv1 '/' sy-msgv2 '/' sy-msgv2 '/' sy-msgv3 '/' sy-msgv4 into lt_err_msg-message.

page->messages->add_message(

condition = lt_err_msg-condition

message = lt_err_msg-message

severity = lt_err_msg-severity ).

endif.

call function 'RSDMD_WRITE_ATTRIBUTES_TEXTS'

exporting

i_iobjnm = 'ZCPROGINV'

i_tabclass = 'T'

tables

i_t_table = t_wa_tproginv

exceptions

attribute_name_error = 1

iobj_not_found = 2

generate_program_error = 3

others = 4.

if sy-subrc <> 0.

lt_err_msg-condition = 'rsdmdmzproginv'. read table gt_err_msgs from lt_err_msg into lt_err_msg.

concatenate sy-msgid '/' sy-msgty '/' sy-msgno '/' sy-msgv1 '/' sy-msgv2 '/' sy-msgv2 '/' sy-msgv3 '/' sy-msgv4 into lt_err_msg-message.

page->messages->add_message(

condition = lt_err_msg-condition

message = lt_err_msg-message

severity = lt_err_msg-severity ).

endif.

call function 'RSDMD_MD_ACTIVATE'

exporting

i_chabasnm = 'ZCPROGINV'.

call function 'RSDDS_AGGREGATES_MAINTAIN'

exporting

i_protnumber = 'ZCPROGINV'.

if sy-subrc <> 0.

lt_err_msg-condition = 'rsdmdtzproginvchgrun'. read table gt_err_msgs from lt_err_msg into lt_err_msg.

concatenate sy-msgid '/' sy-msgty '/' sy-msgno '/' sy-msgv1 '/' sy-msgv2 '/' sy-msgv2 '/' sy-msgv3 '/' sy-msgv4 into lt_err_msg-message.

page->messages->add_message(

condition = lt_err_msg-condition

message = lt_err_msg-message

severity = lt_err_msg-severity ).

endif.

[Former Member]

I found the prob. It was elsewhere. Thx anyway.