*&---------------------------------------------------------------------* *& Module F4_VALUE01 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE f4_value01 INPUT. SELECT aufnr01 FROM ztab_03 INTO CORRESPONDING FIELDS OF TABLE l_aufnr01. SORT l_aufnr01 BY aufnr01. DELETE ADJACENT DUPLICATES FROM l_aufnr01 COMPARING aufnr01. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'AUFNR02'"指定要返回屏幕参数的在内表中的field dynpprog = sy-repid"指定屏幕参数所在的程序名称 dynpnr = sy-dynnr "指定参数所在的屏幕编号 dynprofield = 'S_AUFNR01'"指定屏幕参数的名称 value_org = 'S'"S代表structure"S代表structure * IMPORTING * USER_RESET = TABLES value_tab = l_aufnr01 * 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. ENDMODULE. " F4_VALUE01 INPUT
屏幕间跳转
*&---------------------------------------------------------------------* *& Form OK_DATA01 *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM ok_data01 . DATA: i_rete LIKE TABLE OF ddshretval WITH HEADER LINE. CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'APPLYNO' value_org = 'S' TABLES value_tab = l_applyno return_tab = i_rete. SET PARAMETER ID 'PID' FIELD i_rete-fieldval."l_applyno-applyno. CALL TRANSACTION 'ZPP_WLSGD'." AND SKIP FIRST SCREEN. ENDFORM. " OK_DATA01