Probleme mit F4IF_INT_TABLE_VALUE_REQUEST

Code: Alles auswählen.

REPORT zheadoff NO STANDARD PAGE HEADING.

***** TABLES ***********************************************************
TABLES: knvv,                                  "Customer sales view
        knmt,                                  "Customer materials
        m_debiz,                               "Head office matchocde
*INS DP191005
        knvp.                                  "Customer partner

***** INTERNAL TABLES **************************************************

DATA: BEGIN OF t_werks OCCURS 2,
       werks(4) TYPE c.
DATA: END OF t_werks,


***** SELECTION SCREEN *************************************************
*SELECT-OPTIONS: s_knrze   FOR  m_debiz-knrze,  "Head office "DP191005
SELECT-OPTIONS: s_payer   FOR  knvp-kunn2 OBLIGATORY,
*                s_bukrs   FOR  m_debiz-bukrs,  "Company code
         s_vkorg   FOR  knvv-vkorg OBLIGATORY DEFAULT '0180',
         s_vtweg   FOR  knvv-vtweg OBLIGATORY DEFAULT '00',
         s_spart   FOR  knvv-spart OBLIGATORY DEFAULT '01'.

PARAMETERS: P_WERK LIKE T_WERKS-WERKS.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_werk.
  T_WERKS = 'S930'.
  APPEND T_WERKS.
  T_WERKS = 'S931'.
  APPEND T_WERKS.


DATA: PROGNAME LIKE SY-REPID,
DYNNUM LIKE SY-DYNNR.

PROGNAME = SY-REPID.
DYNNUM = SY-DYNNR.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
    RETFIELD = 'WERKS'
    DYNPPROG = progname
    DYNPNR = dynnum
    DYNPROFIELD = 'P_WERK'
    WINDOW_TITLE = 'WERKE'
    VALUE_ORG = 'S'
  TABLES
    VALUE_TAB = T_WERKS
    .

*$*$                    MAIN PROCESSING LOOP
*-----------------------------------------------------------------------
* Even START-OF-SELECTION
*-----------------------------------------------------------------------
START-OF-SELECTION.
.
.
.