Code: Alles auswählen.
DATA:
test_st type standard table of char01,
test_so type sorted table of char01 with unique key table_line.
APPEND:
'A' to test_st,
'A' to test_st.
TRY.
test_so = test_st.
CATCH CX_SY_ITAB_DUPLICATE_KEY.
ENDTRY.
Code: Alles auswählen.
DATA ld_char01 TYPE char01.
DATA:
test_st TYPE STANDARD TABLE OF char01,
test_so TYPE SORTED TABLE OF char01 WITH UNIQUE KEY table_line.
APPEND:
'A' TO test_st,
'A' TO test_st.
LOOP AT test_st INTO ld_char01.
INSERT ld_char01 INTO TABLE test_so.
if sy-subrc ne 0.
write: / 'Fehler beim Eintrag'.
endif.
ENDLOOP.
Code: Alles auswählen.
* test_so = test_st.
test_so = VALUE #( FOR wa IN test_st ( wa ) ).
Folgende Benutzer bedankten sich beim Autor black_adept für den Beitrag:
ralf.wenzel
Ich werd zu alt für den *...black_adept hat geschrieben: test_so = VALUE #( FOR wa IN test_st ( wa ) ).
$ch&!#ßralf.wenzel hat geschrieben:wofür wirst du zu alt?
Code: Alles auswählen.
read table matnr_liste
transporting no fields
with key matnr = p_matnr.
if sy-subrc eq 0.
".....
endif.
Code: Alles auswählen.
if line_exists( matnr_liste[ matnr = p_matnr ] ).
"....
endif.
So ein Mist. Kann mir jemand erklären, wie ich das gescheit angezeigt kriege? Das ist ganz normale ABAP-Syntax (allerdings 7.4).... Aus den eckigen Klammern wird "Mist" (TM)ralf.wenzel hat geschrieben:Code: Alles auswählen.
if line_exists( matnr_liste[ matnr = p_matnr ] ). ".... endif.
Code: Alles auswählen.
converted_matnrs = conv_material_numbers( VALUE #( FOR row IN stock ( row ) ) ).
Code: Alles auswählen.
DATA material_numbers TYPE STANDARD TABLE OF matnr WITH EMPTY KEY.
material_numbers = VALUE #( FOR <row> IN stock ( row-matnr ) ).
SORT material_numbers BY table_line.
DELETE ADJACENT DUPLICATES FROM material_numbers COMPARING ALL FIELDS.
converted_matnrs = conv_material_numbers( VALUE #( FOR row2 IN material_numbers ( row2 ) ) ).