Code: Alles auswählen.
SELECT technischer Name beschreibung FROM rsdodso
WHERE objvers = 'A'[
AND technischer name = SELECT-OPTION./code]
Danke im Vorraus
Viele Grüße Patryk
Code: Alles auswählen.
TYPE-POOLS: vrm.
TYPES:
BEGIN OF ty_rsdodso,
odsobject TYPE rsdodso-odsobject,
objvers TYPE rsdodso-objvers,
txtlg TYPE rsdodsot-txtlg,
END OF ty_rsdodso,
BEGIN OF ty_rsdodsot,
txtlg TYPE rsdodsot-txtlg,
END OF ty_rsdodsot.
DATA:
l_s_rsdodso TYPE ty_rsdodso,
l_t_rsdodso TYPE STANDARD TABLE OF ty_rsdodso,
l_s_rsdodsot TYPE ty_rsdodsot,
l_t_rsdodsot TYPE STANDARD TABLE OF ty_rsdodsot,
param TYPE vrm_id,
values TYPE vrm_values,
value LIKE LINE OF values.
FIELD-SYMBOLS:
<rsdodso_fields> TYPE ty_rsdodso,
<rsdodsot_fields> TYPE ty_rsdodsot.
SELECT-OPTIONS: so_odsob FOR <rsdodso_fields>-odsobject.
PERFORM infos.
PERFORM ausgabe.
FORM infos.
SELECT rsdodso~odsobject txtlg
INTO CORRESPONDING FIELDS OF TABLE l_t_rsdodso
FROM rsdodso INNER JOIN rsdodsot ON rsdodsot~odsobject = rsdodso~odsobject
WHERE rsdodso~objvers = 'A'.
ENDFORM.
FORM ausgabe.
LOOP AT l_t_rsdodso ASSIGNING <rsdodso_fields> .
WRITE:/ <rsdodso_fields>-odsobject,
<rsdodso_fields>-txtlg.
ENDLOOP.
ENDFORM.