ABAPAF 4 POPUP

  1. REPORT ZINI_02.
  2.  
  3. DATA: T_RETURN TYPE STANDARD TABLE OF DDSHRETVAL.
  4.  
  5. SELECT * FROM T005T UP TO 500 ROWS INTO TABLE @DATA(T_BP) WHERE SPRAS = @SY-LANGU.
  6.  
  7. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  8.   EXPORTING
  9.     RETFIELD        = 'LAND1'
  10.     VALUE_ORG       = 'S'
  11.   TABLES
  12.     VALUE_TAB       = T_BP
  13. *   FIELD_TAB       =
  14.     RETURN_TAB      = T_RETURN
  15.   EXCEPTIONS
  16.     PARAMETER_ERROR = 1
  17.     NO_VALUES_FOUND = 2
  18.     OTHERS          = 3.
  19. IF SY-SUBRC EQ 0.
  20.   DATA(CAMPO) = T_RETURN[ 1 ]-FIELDVAL.
  21. ENDIF.
  22. BREAK-POINT.
[$[Get Code]]