Code: Alles auswählen.
READ TABLE et_records into ls_record INDEX 1.
CASE sy-subrc.
WHEN ls_record+69(6) = 'MEDR04'.
me->xml_to_edifact_rec( it_records = et_records ).
WHEN ls_record+69(6) = 'MEDR03'.
me->xml_to_edifact_ent( it_records = et_records ).
WHEN OTHERS.
ev_rc = sy-subrc.
ENDCASE.Code: Alles auswählen.
READ TABLE et_records into ls_record INDEX 1.
IF sy-subrc = 0.
CASE ls_record+69(6)
WHEN 'MEDR04'.
me->xml_to_edifact_rec( it_records = et_records ).
WHEN 'MEDR03'.
me->xml_to_edifact_ent( it_records = et_records ).
WHEN OTHERS.
ENDCASE.
ENDIF.