A query in module pool

Question

hi all,
           I have a query in module pool, my problem is
lets say i have two fields in a screen.
       out of which one is a date field and other one is a field which has got F4 help.
When i pick some values from the F4 help i have to populate the date field simaultaneously.
EG: when i pick value 1 from F4 help then i have to pass
the date value to screen as soon as i pick.
Can anybody help me out..
Regards,
Krishnakumar

Answer 1

Hi,
Check this sample code and kindly reward points by clicking the star on the left of reply,if it helps.
PROCESS BEFORE OUTPUT.
PROCESS AFTER INPUT.
FIELD s_begru MODULE abc ON INPUT.
Process on value-request.
field s_begru module f4_help.
*& Report  ZZZ_JAYTEST1                                                *
REPORT  ZZZ_JAYTEST1                            .
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.
data s_begru like kna1-begru.
call screen 9000.
*&      Module  f4_help  INPUT
      text
module f4_help input.
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 = t_return-fieldval.
*Populate the date field also here
endif.
endmodule.                 " f4_help  INPUT
*&      Module  abc  INPUT
      text
module abc input.
read table t_values with key value = s_begru.
if sy-subrc ne 0.
clear s_begru.
endif.
endmodule.                 " abc  INPUT