Listbox mit Werten aus Itab füllen

Code: Alles auswählen.

  PARAMETER P_PRIOK TYPE T356-PRIOK AS LISTBOX VISIBLE LENGTH 20.


  TABLES: T350, T356, T356_T, T003O.

  TYPE-POOLS VRM.

*----------------------------------------------------------------------*
*   TABLE IT_PRIO
*----------------------------------------------------------------------*

  TYPES: BEGIN OF TY_PRIO,
             PRIOK  TYPE T356-PRIOK,
             PRIOKX TYPE T356_T-PRIOKX,
         END OF TY_PRIO.

  DATA: IT_PRIO TYPE TABLE OF TY_PRIO WITH HEADER LINE,
        WA_PRIO TYPE          TY_PRIO.

*----------------------------------------------------------------------*
*  F4-Hilfe für Prio                                                           *
*----------------------------------------------------------------------*

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_PRIOK.

  DATA: IT_PRIO TYPE TABLE OF TY_PRIO WITH HEADER LINE.
  DATA: WA_PRIO TYPE          TY_PRIO.

  CLEAR IT_PRIO.

  SELECT   T~PRIOK
           PRIOKX
    FROM T356 AS T INNER JOIN T356_T AS U
    ON T~PRIOK = U~PRIOK
    INNER JOIN T350 AS V
    ON U~ARTPR = V~ARTPR
    INTO CORRESPONDING FIELDS OF TABLE IT_PRIO
    WHERE AUART = 'FWSR' AND
    T~ARTPR = 'PM'.


INITIALIZATION.

  DATA L_VALUE   TYPE VRM_VALUE.
  DATA T_VALUES  TYPE VRM_VALUES.


  LOOP AT IT_PRIO INTO WA_PRIO.
    L_VALUE-KEY   = WA_PRIO-PRIOK.
    L_VALUE-TEXT = WA_PRIO-PRIOKX.
    APPEND L_VALUE TO T_VALUES.
  ENDLOOP.


  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = 'P_PRIOK'
      VALUES = T_VALUES.