F4 帮助和屏幕间跳转

*&---------------------------------------------------------------------*
*&      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