12-20-2006 7:52 AM
Hi experts,
For F4IF_INT_TABLE_VALUE_REQUEST function what are necessary
arguments, kindly explain with one example
Thanks in advance
R.vijai
12-20-2006 7:55 AM
data: begin of t_tvkot occurs 0,
vkorg like tvkot-vkorg,
vtext like tvkot-vtext,
end of t_tvkot.
parameters: p_vkorg like tvkot-vkorg .
at selection-screen on value-request for p_vkorg.
select vkorg vtext from tvkot
into table t_tvkot
where spras = sy-langu.
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
exporting
retfield = 'P_VKORG'
value_org = 'S'
tables
value_tab = t_tvkot
exceptions
parameter_error = 1
no_values_found = 2
others = 3.
start-of-selection.
12-20-2006 7:55 AM
data: begin of t_tvkot occurs 0,
vkorg like tvkot-vkorg,
vtext like tvkot-vtext,
end of t_tvkot.
parameters: p_vkorg like tvkot-vkorg .
at selection-screen on value-request for p_vkorg.
select vkorg vtext from tvkot
into table t_tvkot
where spras = sy-langu.
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
exporting
retfield = 'P_VKORG'
value_org = 'S'
tables
value_tab = t_tvkot
exceptions
parameter_error = 1
no_values_found = 2
others = 3.
start-of-selection.
12-20-2006 7:56 AM
Hi,
Check this code and reward points by clicking the star on the left of reply,if it helps.
tables kna1.
data:
begin of t_values occurs 2,
value like kna1-begru,
end of t_values,
t_return like ddshretval occurs 0 with header line.
select-options s_begru for kna1-begru.
at selection-screen on value-request for s_begru-low.
refresh t_values.
t_values = 'PAR*'.
append t_values.
t_values = 'UGG'.
append t_values.
call function 'F4IF_INT_TABLE_VALUE_REQUEST'
exporting
retfield = 'BEGRU'
value_org = 'S'
tables
value_tab = t_values
return_tab = t_return
exceptions
parameter_error = 1
no_values_found = 2
others = 3.
if sy-subrc = 0.
read table t_return index 1.
s_begru-low = t_return-fieldval.
endif.
12-20-2006 7:57 AM
The field RETFIELD is necessary in this FM
REPORT Ztest_HELP .
TABLES : MARA.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS : P_MATNR(10) TYPE C.
SELECTION-SCREEN END OF BLOCK B1.
DATA : BEGIN OF ITAB OCCURS 0,
MATNR TYPE MATNR,
END OF ITAB.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.
SELECT *
FROM MARA
INTO CORRESPONDING FIELDS OF
TABLE ITAB.
UP TO 1000 ROWS.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'MATERIAL NUMBER'
DYNPPROG = SY-REPID
DYNPNR = SY-DYNNR
DYNPROFIELD = 'P_MATNR'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = ITAB
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3.
12-20-2006 7:57 AM
Hi ,
Try like this .
DATA: lf_repid LIKE sy-repid,
lf_dynnr LIKE sy-dynnr,
lf_dynprofield LIKE help_info-dynprofld,
lf_retfield LIKE dfies-fieldname.
MOVE sy-repid TO lf_repid.
MOVE sy-dynnr TO lf_dynnr.
MOVE 'PA_DPROF' TO lf_dynprofield.
MOVE 'PROFILNAME' TO lf_retfield.
PERFORM prepare_gt_value_tab.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = lf_retfield
dynpprog = lf_repid
dynpnr = lf_dynnr
dynprofield = lf_dynprofield
value_org = 'S'
TABLES
value_tab = it_value_tab
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.
Regards ,
Senthil
12-20-2006 7:57 AM
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ST_NAME.
SELECT STOCK ST_NAME
CURRPR
FROM
ZEXCH
INTO TABLE TEMP_ITAB
WHERE EXCH = FIELD_VALUE-FIELDVALUE.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'ST_NAME'
DYNPPROG = SY-CPROG
DYNPNR = SY-DYNNR
DYNPROFIELD = 'ST_NAME'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = TEMP_ITAB
RETURN_TAB = RETURN.
this is the sample code, do this in the event
AT SELECTION-SCREEN ON VALUE-REQUEST FOR ST_NAME.
Award point if found helpful