Searcha Help 的函数 F4IF_INT_TABLE_VALUE_REQUEST 使用说明（二）

*&---------------------------------------------------------------------*
*& Report  ZJOHN_8
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZJOHN_8.
DATA: OK_CODE LIKE SY-UCOMM.

data: begin of it_tab occurs 0,
      col1,
      col2(20) type c,
      end of it_tab.
DATA: INPUT1(30) TYPE C.
data: input2(30) type c.
data: input3(30) type c.
DATA: dynpro_values type table of dynpread,
      field_value like line of dynpro_values.
field_value-fieldname = 'INPUT1'.
APPEND field_value to dynpro_values.
it_tab-col1 = '1'.
it_tab-col2 = 'hello'.
append it_tab.
it_tab-col1 = '2'.
it_tab-col2 = 'text'.
append it_tab.
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.
LEAVE PROGRAM.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  VALUE_INPUT1  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE VALUE_INPUT1 INPUT.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
*   DDIC_STRUCTURE         = ' '
    RETFIELD               = 'COL1'
*   PVALKEY                = ' '
   DYNPPROG               =  SY-REPID
   DYNPNR                 =  SY-DYNNR
   DYNPROFIELD            =  'INPUT1'
*   STEPL                  = 0
*   WINDOW_TITLE           =
*   VALUE                  = ' '
   VALUE_ORG              = 'S'
*   MULTIPLE_CHOICE        = ' '
*   DISPLAY                = ' '
*   CALLBACK_PROGRAM       = ' '
*   CALLBACK_FORM          = ' '
*   MARK_TAB               =
* IMPORTING
*   USER_RESET             =
  TABLES
    VALUE_TAB              = it_tab[]
*   FIELD_TAB              =
*   RETURN_TAB             =
*   DYNPFLD_MAPPING        =
* EXCEPTIONS
*   PARAMETER_ERROR        = 1
*   NO_VALUES_FOUND        = 2
*   OTHERS                 = 3
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
clear dynpro_values.
field_value-fieldname = 'INPUT1'.
APPEND field_value to dynpro_values.
CALL FUNCTION 'DYNP_VALUES_READ'
  EXPORTING
    DYNAME                         = SY-REPID
    DYNUMB                         = SY-DYNNR
*   TRANSLATE_TO_UPPER             = ' '
*   REQUEST                        = ' '
*   PERFORM_CONVERSION_EXITS       = ' '
*   PERFORM_INPUT_CONVERSION       = ' '
*   DETERMINE_LOOP_INDEX           = ' '
  TABLES
    DYNPFIELDS                     = dynpro_values
* EXCEPTIONS
*   INVALID_ABAPWORKAREA           = 1
*   INVALID_DYNPROFIELD            = 2
*   INVALID_DYNPRONAME             = 3
*   INVALID_DYNPRONUMMER           = 4
*   INVALID_REQUEST                = 5
*   NO_FIELDDESCRIPTION            = 6
*   INVALID_PARAMETER              = 7
*   UNDEFIND_ERROR                 = 8
*   DOUBLE_CONVERSION              = 9
*   STEPL_NOT_FOUND                = 10
*   OTHERS                         = 11
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
READ TaBLE dynpro_values index 1 into field_value.
READ TABLE IT_TAB WITH KEY col1 = field_value-FIELDVALUE.
clear dynpro_values.
field_value-fieldname = 'INPUT2'.
FIELD_VALUE-FIELDVALUE = IT_TAB-COL2.
APPEND field_value to dynpro_values.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
  EXPORTING
    DYNAME                     = SY-REPID
    DYNUMB                     = SY-DYNNR
  TABLES
    DYNPFIELDS                 = dynpro_values
* EXCEPTIONS
*   INVALID_ABAPWORKAREA       = 1
*   INVALID_DYNPROFIELD        = 2
*   INVALID_DYNPRONAME         = 3
*   INVALID_DYNPRONUMMER       = 4
*   INVALID_REQUEST            = 5
*   NO_FIELDDESCRIPTION        = 6
*   UNDEFIND_ERROR             = 7
*   OTHERS                     = 8
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

 

ENDMODULE.                 " VALUE_INPUT1  INPUT

就是可以调用'F4IF_INT_TABLE_VALUE_REQUEST' 但是没有任何值 出现，我的SCREEN很简单，只用三个栏位，INPUT1 ，INPUT2， INPUT3 ！