Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

F4 Help

Former Member

‎09-01-2006 12:31 PM

0 Kudos

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

4 REPLIES 4

Former Member

‎09-01-2006 12:33 PM

0 Kudos

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.

Former Member

‎09-01-2006 12:36 PM

0 Kudos

hi,

Use FM <b>F4TOOL_F4FUNCTION_BRIDGE</b> or FM <b>'F4IF_INT_TABLE_VALUE_REQUEST'</b>

Regards,

Santosh

Message was edited by: Santosh Kumar P

Former Member

‎09-01-2006 12:39 PM

0 Kudos

HI,

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

Reward points if helpful..

<b>

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

Former Member

‎09-01-2006 12:51 PM

0 Kudos

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