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