F4IF_INT_TABLE_VALUE_REQUEST

[Former Member]

Hi

i want 2 know what are the parameters we hav 2 pass in this function module???????

and i also want 2 know about DYNP_VALUES_UPDATE ....what is the work of this FM.....

pls help me ...if anybody know the answer...

regards,

AMAYIKA

[Former Member]

http://sapprograms.blogspot.com/2008/04/f4-help-for-month.html

http://sapprograms.blogspot.com/2008/04/f4-help-for-z-table.html

http://sapprograms.blogspot.com/2008/04/f4-help-for-field-with-ztable.html

for another fm..

CALL FUNCTION 'DYNP_VALUES_UPDATE'

EXPORTING

DYNAME = W_DYNAME

DYNUMB = W_DYNUMB

TABLES

DYNPFIELDS = DYNPFIELDS

EXCEPTIONS

INVALID_ABAPWORKAREA = 01

INVALID_DYNPROFIELD = 02

INVALID_DYNPRONAME = 03

INVALID_DYNPRONUMMER = 04

INVALID_REQUEST = 05

NO_FIELDDESCRIPTION = 06

UNDEFIND_ERROR = 07.

[Former Member]

Hi Kunu,

DATA : v_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.

SELECT-OPTIONS : s_plant1 FOR

zaw_pol_plan-plant MODIF ID chg NO-EXTENSION NO INTERVALS.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_plant1-low .

SELECT werks INTO TABLE i_t001w

FROM t001w.

IF sy-subrc EQ 0.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'WERKS'

dynpprog = ws_repid

dynpnr = sy-dynnr

value_org = 'S'

TABLES

value_tab = i_t001w

return_tab = v_return

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.

s_plant1-low = v_return-fieldval.

[Former Member]

Hi Kunu,

DATA : v_return LIKE ddshretval OCCURS 0 WITH HEADER LINE.

SELECT-OPTIONS : s_plant1 FOR 
zaw_pol_plan-plant MODIF ID chg NO-EXTENSION NO INTERVALS.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_plant1-low .

SELECT werks INTO TABLE i_t001w
FROM t001w.

IF sy-subrc EQ 0.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'WERKS'
dynpprog = ws_repid
dynpnr = sy-dynnr
value_org = 'S'
TABLES
value_tab = i_t001w
return_tab = v_return
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.

s_plant1-low = v_return-fieldval.

[Former Member]

Hi,

&----

---

*& Report ZDE_F4

*&

&----

---

*&

*&

&----

---

REPORT ZDE_F4.

selection-screen: begin of block b1.

parameters: vbeln LIKE vbak-vbeln,

p_ernam LIKE vbak-ernam.

selection-screen: end of block b1.

types: begin of ty_vbak,

vbeln LIKE vbak-vbeln,

p_ernam LIKE vbak-ernam,

end of ty_vbak.

data: i_vbak type table of ty_vbak,

w_vbak type ty_vbak.

data: i_dyn type table of DYNPREAD,

w_dyn like line of i_dyn.

at selection-screen on value-request for P_ernam.

w_dyn-fieldname = 'VBELN'.

APPEND W_DYN TO I_DYN.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = SY-REPID

DYNUMB = SY-DYNNR

TRANSLATE_TO_UPPER = 'X'

• REQUEST = ' '

• PERFORM_CONVERSION_EXITS = ' '

• PERFORM_INPUT_CONVERSION = ' '

• DETERMINE_LOOP_INDEX = ' '

TABLES

DYNPFIELDS = I_DYN

• EXCEPTIONS

• INVALID_ABAPWORKAREA = 1

• INVALID_DYNPROFIELD = 2

• INVALID_DYNPRONAME = 3

• INVALID_DYNPRONUMMER = 4

• INVALID_REQUEST = 5

• NO_FIELDDESCRIPTION = 6

• INVALID_PARAMETER = 7

• UNDEFIND_ERROR = 8

• DOUBLE_CONVERSION = 9

• STEPL_NOT_FOUND = 10

• OTHERS = 11

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

READ TABLE I_DYN INDEX 1 INTO W_DYN.

data: v_DOCU(10) type c.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = W_DYN-FIELDVALUE

IMPORTING

OUTPUT = v_DOCU

.

SELECT VBELN ERNAM FROM VBAK INTO TABLE I_VBAK WHERE VBELN EQ V_DOCU.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'ERNAM'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'P_ERNAM'

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

VALUE_TAB = I_VBAK

• FIELD_TAB =

• RETURN_TAB =

• DYNPFLD_MAPPING =

• 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.

I think it is useful for you.

Reward points if useful.

Thanks & regards

Deepika

[Former Member]

Hi,

The sample code is,

CLEAR wa_dynpread.

wa_dynpread-fieldname = 'ZCAN_HDR-PLANT'.

APPEND wa_dynpread TO it_dynpread.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = sy-repid

dynumb = sy-dynnr

• TRANSLATE_TO_UPPER = ' '

• request = 'A'

• PERFORM_CONVERSION_EXITS = ' '

• PERFORM_INPUT_CONVERSION = ' '

• DETERMINE_LOOP_INDEX = ' '

• START_SEARCH_IN_CURRENT_SCREEN = ' '

• START_SEARCH_IN_MAIN_SCREEN = ' '

• START_SEARCH_IN_STACKED_SCREEN = ' '

• START_SEARCH_ON_SCR_STACKPOS = ' '

• SEARCH_OWN_SUBSCREENS_FIRST = ' '

• SEARCHPATH_OF_SUBSCREEN_AREAS = ' '

TABLES

dynpfields = it_dynpread

EXCEPTIONS

invalid_abapworkarea = 1

invalid_dynprofield = 2

invalid_dynproname = 3

invalid_dynpronummer = 4

invalid_request = 5

no_fielddescription = 6

invalid_parameter = 7

undefind_error = 8

double_conversion = 9

stepl_not_found = 10

OTHERS = 11

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

CLEAR wa_dynpread.

READ TABLE it_dynpread INTO wa_dynpread WITH KEY fieldname = 'ZCAN_HDR-PLANT'.

IF sy-subrc = 0.

SELECT hawb_bl_no plant exbond_no doc_type cha_agent

FROM zcan_cha INTO TABLE it_hawb

WHERE plant = wa_dynpread-fieldvalue.

ENDIF.

REFRESH it_dynpread.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

retfield = 'HAWB_BL_NO'

• PVALKEY = ' '

dynpprog = sy-cprog

dynpnr = sy-dynnr

dynprofield = 'ZCAN_HDR-HAWB_BL_NO'

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

value_org = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

value_tab = it_hawb

• FIELD_TAB =

• RETURN_TAB =

• DYNPFLD_MAPPING =

• 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.

The FM DYNP_VALUES_UPDATE is used to Change screen field contents w/o PBO.

You can use this function module to reset selected help processor field contents in the corresponding screen fields

Example

data: dyname like d020s-prog value 'TESTPROG',

dynumb like d020-dnum value '100'.

data: begin of dynpfields occurs 3.

include structure dynpread.

data: end of dynpfields.

move 'TABNAME' to dynpfields-fieldname.

move 'Testtable' to dynpfields-fieldvalue.

append dynpfields.

move 'FIELDNAME' to dynpfields-fieldname.

move 'Testfield' to dynpfields-fieldvalue.

append dynpfields.

call function 'DYNP_VALUES_UPDATE'

exporting

dyname = dyname

dynumb = dynumb

tables

dynpfields = dynpfields

exceptions

invalid_abapworkarea = 01

invalid_dynprofield = 02

invalid_dynproname = 03

invalid_dynpronummer = 04

invalid_request = 05

no_fielddescription = 06

undefind_error = 07.

[sivasatyaprasad_yerra]

Hi,

  
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
    exporting
      retfield        = 'COLUMN_NAME' " column name to be displayed in F4
      dynpprog        = sy-repid
      dynpnr          = sy-dynnr
      dynprofield     = ''
      value_org       = 'S'
    tables
      value_tab       = it_table "internal table which contains the values to be displayed
      field_tab       = field_tab " Fields which needs to be displayed
      return_tab      = return_tab " Fields which needs to returned for selected row
      dynpfld_mapping = dynpfld_mapping " field mappings  from it_table and field_tab
    exceptions
      parameter_error = 1
      no_values_found = 2
      others          = 3.

*DYNP_VALUES_UPDATE * is to be used to update any structure value other than input help strcuture field.

Regards,

Siva.

Edited by: Siva Satya Prasad Yerra on Jun 16, 2008 4:01 PM