Hallo zusammen,
ich versuche auf den Inhalt 2 Tabellen mit einem Join zu verknüpfen und dann in eine von mir angelgte interne Tabelle zu speichern. Danach sollte das Feld ausgegeben werden. Leider passiert beim Ausführen nichts.
Wäre super, wenn mir jemand weiterhelfen könnte.
TYPES: BEGIN OF ty_ausg,
posid TYPE prps-posid,
objnr TYPE prps-objnr,
prart TYPE prps-prart,
stat TYPE jest-stat,
END OF ty_ausg.
CONSTANTS : rbselected TYPE c LENGTH 1 VALUE 'X'.
DATA: t_ausg TYPE TABLE OF ty_ausg WITH HEADER LINE, p_prart TYPE prps-prart, wa_ausg type ty_ausg.
SELECTION-SCREEN BEGIN OF BLOCK para WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs TYPE bukrs.
SELECT-OPTIONS:
so_prart FOR p_prart.
SELECTION-SCREEN END OF BLOCK para.
SELECTION-SCREEN BEGIN OF BLOCK rbuttons WITH FRAME TITLE text-002.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 2.
PARAMETERS: rb1 RADIOBUTTON GROUP rb .
SELECTION-SCREEN COMMENT 5(30) text-003 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 2.
PARAMETERS: rb2 RADIOBUTTON GROUP rb.
SELECTION-SCREEN COMMENT 5(30) text-004.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK rbuttons.
*&---------------------------------------------------------------------*
*& Applikationslogik
*&---------------------------------------------------------------------*
SELECT prps~posid prps~objnr prps~prart jest~stat
FROM prps JOIN jest ON prps~objnr = jest~objnr
INTO CORRESPONDING FIELDS OF table t_ausg
WHERE prps~pbukr = p_bukrs
AND prps~prart IN so_prart
.
LOOP AT t_ausg INTO wa_ausg.
WRITE:
/ wa_ausg-posid,
wa_ausg-objnr,
wa_ausg-prart,
wa_ausg-stat.
ENDLOOP.