topic Re: F4 Help in Application Development and Automation Discussions

F4 Help

Former Member — Fri, 01 Sep 2006 11:31:47 GMT

HI ,

I need replacement Function module for "HELP_VALUES_GET_WITH_TABLE" as this FM is obselete. Its urgent. Thnaks in advance .

Regards,

Kasi.S

Re: F4 Help

Former Member — Fri, 01 Sep 2006 11:33:52 GMT

Hi kasi,

1. F4IF_INT_TABLE_VALUE_REQUEST

2. just copy paste to have a taste of it.

REPORT ABC.

*----

DATA : BEGIN OF ITAB OCCURS 0,

UNAME LIKE USR01-BNAME,

END OF ITAB.

data : RETURN_TAB LIKE DDSHRETVAL occurs 0 .

data : wa LIKE DDSHRETVAL .

DATA : MY(12) TYPE C.

*----

SELECT-OPTIONS: A FOR MY.

*----

AT SELECTION-SCREEN ON VALUE-REQUEST FOR A-LOW.

PERFORM MYPOPULATE.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR A-HIGH.

PERFORM MYPOPULATE.

*----

mypopulate

*----

FORM MYPOPULATE.

REFRESH ITAB.

CLEAR ITAB.

ITAB-UNAME = 'U01'. APPEND ITAB.

ITAB-UNAME = 'U02'. APPEND ITAB.

ITAB-UNAME = 'U03'. APPEND ITAB.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

DDIC_STRUCTURE = ' '

retfield = 'ITAB-UNAME'

PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'A'

STEPL = 0
WINDOW_TITLE =
VALUE = ' '

VALUE_ORG = 'S'

MULTIPLE_CHOICE = 'X'

DISPLAY = ' '
CALLBACK_PROGRAM = ' '
CALLBACK_FORM = ' '
MARK_TAB =
IMPORTING
USER_RESET =

tables

value_tab = ITAB

FIELD_TAB = FTAB

RETURN_TAB = return_tab

DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3

IF RETURN_TAB IS NOT INITIAL.

REFRESH A.

CLEAR A.

*----

LOOP AT RETURN_TAB INTO WA.

A-SIGN = 'I'.

A-OPTION = 'EQ'.

A-LOW = WA-FIELDVAL.

A-HIGH = WA-FIELDVAL.

APPEND A.

ENDLOOP.

ENDIF.

ENDFORM. "MYPOPULATE

regards,

amit m.

Re: F4 Help

Former Member — Fri, 01 Sep 2006 11:36:13 GMT

hi,

Use FM F4TOOL_F4FUNCTION_BRIDGE or FM 'F4IF_INT_TABLE_VALUE_REQUEST'

Regards,

Santosh

Message was edited by: Santosh Kumar P

Re: F4 Help

Former Member — Fri, 01 Sep 2006 11:39:32 GMT

HI,

Find the belowsaid code for ur help ( courtesy : SAP Library).

Reward points if helpful..

Input help in dialog modules</b>

REPORT DEMO_DYNPRO_F4_HELP_MODULE.

TYPES: BEGIN OF VALUES,
         CARRID TYPE SPFLI-CARRID,
         CONNID TYPE SPFLI-CONNID,
       END OF VALUES.

DATA: CARRIER(3) TYPE C,
      CONNECTION(4) TYPE C.

DATA: PROGNAME LIKE SY-REPID,
      DYNNUM   LIKE SY-DYNNR,
      DYNPRO_VALUES TYPE TABLE OF DYNPREAD,
      FIELD_VALUE LIKE LINE OF DYNPRO_VALUES,
      VALUES_TAB TYPE TABLE OF VALUES.

CALL SCREEN 100.

MODULE INIT OUTPUT.
  PROGNAME = SY-REPID.
  DYNNUM   = SY-DYNNR.
  CLEAR: FIELD_VALUE, DYNPRO_VALUES.
  FIELD_VALUE-FIELDNAME = 'CARRIER'.
  APPEND FIELD_VALUE TO DYNPRO_VALUES.
ENDMODULE.

MODULE CANCEL INPUT.
  LEAVE PROGRAM.
ENDMODULE.

MODULE VALUE_CARRIER INPUT.

  CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'
       EXPORTING
            TABNAME           = 'DEMOF4HELP'
            FIELDNAME         = 'CARRIER1'
            DYNPPROG          =  PROGNAME
            DYNPNR            =  DYNNUM
            DYNPROFIELD       = 'CARRIER'.

ENDMODULE.

MODULE VALUE_CONNECTION INPUT.

  CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            DYNAME                   = PROGNAME
            DYNUMB                   = DYNNUM
            TRANSLATE_TO_UPPER       = 'X'
       TABLES
            DYNPFIELDS               = DYNPRO_VALUES.

  READ TABLE DYNPRO_VALUES INDEX 1 INTO FIELD_VALUE.

  SELECT  CARRID CONNID
    FROM  SPFLI
    INTO  CORRESPONDING FIELDS OF TABLE VALUES_TAB
    WHERE CARRID = FIELD_VALUE-FIELDVALUE.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            RETFIELD         = 'CONNID'
            DYNPPROG         = PROGNAME
            DYNPNR           = DYNNUM
            DYNPROFIELD      = 'CONNECTION'
            VALUE_ORG        = 'S'
       TABLES
            VALUE_TAB        = VALUES_TAB.

ENDMODULE.

Regards

Re: F4 Help

Former Member — Fri, 01 Sep 2006 11:51:13 GMT

Hi Kasi.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_matnr-high.
*--Provide F4 help for materials restricted to zsample_track table
  PERFORM f4_matnr USING 'S_MATNR-HIGH'.
*&---------------------------------------------------------------------*
*&      Form  F4_MATNR
*&---------------------------------------------------------------------*
*       F4 help for Material
*----------------------------------------------------------------------*
FORM f4_matnr  USING p_field.

*--Temporary internal table for holding Materials used for f4
  DATA : BEGIN OF lt_matnr OCCURS 0,
           matnr LIKE zsample_track-matnr,
         END OF lt_matnr.

  REFRESH lt_matnr.
  CLEAR lt_matnr.

*--Fetch Material numbers from zsample_track table
  SELECT DISTINCT matnr
         FROM zsample_track
         INTO TABLE lt_matnr.
  IF sy-subrc = 0.
    sort lt_matnr by matnr.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield        = p_field
        dynpprog        = sy-repid
        dynpnr          = sy-dynnr
        dynprofield     = p_field
        value_org       = c_s
      TABLES
        value_tab       = lt_matnr
      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.
  ENDIF.
ENDFORM.                                                    " F4_MATNR

Thanks

Vikranth Khimavath