Skip to end of metadata
Go to start of metadata

 

REPORT  f4val.

TYPES BEGIN OF fs,
  vkorg TYPE  tvko-vkorg,
  END OF fs.
DATA :it_vkorg TYPE STANDARD TABLE OF fs,
      wa_vkorg TYPE fs.

PARAMETERS p_bukrs TYPE tvko-bukrs,
               p_vkorg TYPE tvko-vkorg.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vkorg.

  SELECT vkorg FROM tvko INTO TABLE it_vkorg WHERE bukrs EQ  p_bukrs.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
*       DDIC_STRUCTURE         = ' '
      retfield               'VKORG'
*       PVALKEY                = ' '
*       DYNPPROG               = ' '
*       DYNPNR                 = ' '
*       DYNPROFIELD            = ' '
*       STEPL                  = 0
*       WINDOW_TITLE           =
*       VALUE                  = ' '
     value_org              'S'             "you can pass 'C'  "optional
*       MULTIPLE_CHOICE        = ' '
*       DISPLAY                = ' '
*       CALLBACK_PROGRAM       = ' '
*       CALLBACK_FORM          = ' '
*       CALLBACK_METHOD        =
*       MARK_TAB               =
*     IMPORTING
*       USER_RESET             =
    TABLES
      value_tab              it_vkorg
*       FIELD_TAB              =
*       RETURN_TAB             =
*       DYNPFLD_MAPPING        =
*     EXCEPTIONS
*       PARAMETER_ERROR        = 1
*       NO_VALUES_FOUND        = 2
*       OTHERS                 = 3
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

  • No labels