Code: Alles auswählen.
PERFORM get_one_characteristic
USING
'B887'
<fs_it_alldata>-objnrwbs
CHANGING
lv_return_value.
FORM get_one_characteristic USING lv_atnam lv_objek
CHANGING value TYPE string.
DATA: lt_ausp TYPE STANDARD TABLE OF ausp,
wa_ausp LIKE LINE OF lt_ausp,
ln_atinn TYPE atinn,
ls_cawn TYPE cawn,
ls_cawnt TYPE cawnt.
SELECT * FROM ausp INTO TABLE lt_ausp
WHERE objek EQ lv_objek.
SELECT SINGLE atinn FROM cabn INTO ln_atinn
WHERE atnam EQ lv_atnam.
IF sy-subrc EQ 0.
READ TABLE lt_ausp INTO wa_ausp WITH KEY atinn = ln_atinn.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM cawn INTO ls_cawn
WHERE atinn EQ ln_atinn
AND atwrt EQ wa_ausp-atwrt.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM cawnt INTO ls_cawnt
WHERE atinn EQ ln_atinn
AND atzhl EQ ls_cawn-atzhl.
IF sy-subrc EQ 0.
value = ls_cawnt-atwtb.
ELSE.
value = wa_ausp-atwrt.
ENDIF.
ELSE.
value = wa_ausp-atwrt.
ENDIF.
ENDIF.
ENDIF.
ENDFORM.