Code: Alles auswählen.
FORM convert_in_header_order USING is_data TYPE crmxif_bustrans
CHANGING ct_orderadm_h TYPE bad_orderadm_h_mess_t.
STATICS lt_fieldlist TYPE TABLE OF smog_sfldn.
DATA: ls_fieldlist TYPE smog_sfldn.
FIELD-SYMBOLS: <lf_orderadm_h> TYPE bad_orderadm_h_mess,
<lf_m1o_ind_response> TYPE crmt_m1o_ind_response.
LOOP AT ct_orderadm_h ASSIGNING <lf_orderadm_h>.
* Only set additional sendbits (flaglist)
IF lt_fieldlist IS INITIAL.
ls_fieldlist-fieldname = gc_orderadm_i_m1o_ind_asn. APPEND ls_fieldlist TO lt_fieldlist.
ls_fieldlist-fieldname = gc_orderadm_i_m1o_ind_confirm. APPEND ls_fieldlist TO lt_fieldlist.
ls_fieldlist-fieldname = gc_orderadm_i_m1o_ind_invoice. APPEND ls_fieldlist TO lt_fieldlist.
ls_fieldlist-fieldname = gc_orderadm_i_m1o_ind_ers. APPEND ls_fieldlist TO lt_fieldlist.
ls_fieldlist-fieldname = gc_orderadm_h_m1o_ind_response. APPEND ls_fieldlist TO lt_fieldlist.
ls_fieldlist-fieldname = gc_orderadm_h_m1o_bidid. APPEND ls_fieldlist TO lt_fieldlist.
ENDIF.
ASSIGN COMPONENT gc_orderadm_h_m1o_ind_response OF STRUCTURE <lf_orderadm_h> TO <lf_m1o_ind_response>.
CLEAR <lf_m1o_ind_response>.
CALL FUNCTION 'SMO_SNDBITS_SETX'
EXPORTING
structurename = 'BAD_ORDERADM_H_MESS'
TABLES
sfields = lt_fieldlist
CHANGING
sndbits = <lf_orderadm_h>-sendbits.
ENDLOOP.
ENDFORM. " convert_in_object_id