Values not shown in F4IF_INT_TAB_VALUE_REQUEST

[Former Member]

Hi All

I want to show the user the values from my itab at event at selection-screen on value-request on f1.I am passing following parameter to the FM

retfield , value_org ('S')

and tables

value_tab , return_tab.

Now the problem is though the itab passed i.e. value_tab is not empty, it is not showing the values just it is getting poped up thats all ?

Any clues ??

Thanks in anticipation

pM

[Former Member]

Hi,

See this code

REPORT Z.

data: begin of inttab occurs 10,

bukrs like t001-bukrs,

butxt like t001-butxt,

ort01 like t001-ort01,

end of inttab,

ret_tab like DDSHRETVAL occurs 0 with header line.

start-of-selection.

select bukrs butxt ort01 from t001 into table inttab.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'BUKRS'

• PVALKEY = ' '

• DYNPPROG = ' '

• DYNPNR = ' '

• DYNPROFIELD = ' '

• STEPL = 0

WINDOW_TITLE = 'Select Company Code'

VALUE = 'S*'

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

TABLES

VALUE_TAB = inttab

• FIELD_TAB =

RETURN_TAB = ret_tab

• DYNPFLD_MAPPING =

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

write: / 'Error =', sy-subrc.

else.

loop at ret_tab.

write ret_tab-fieldval.

endloop.

ENDIF.

• end of code

Thanks & Reagrds,

Judith.

[Former Member]

Hi all,

Thanks for your responses. The problem it seems was that I was not updating the field_tab and hence it was not getting the field info.

Thanks

pM

[jayanthi_jayaraman]

Hi,

Try this example.

F4IF_INT_TABLE_VALUE_REQUEST F4 help that returns the values selected in an internal table. Very handy when programming your very own F4 help for a field.

Example:

data:

begin of t_values occurs 2,

value like kna1-begru,

end of t_values,

t_return like ddshretval occurs 0 with header line.

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.

o_begru-low = t_return-fieldval.

if o_begru-low = 'PAR*'.

o_begru-option = 'CP'.

else.

o_begru-option = 'EQ'.

endif.

o_begru-sign = 'I'.

append o_begru to s_begru.

else.

o_begru = i_begru.

endif.