‎2008 Apr 08 6:45 AM
I used this function module ( F4IF_INT_TABLE_VALUE_REQUEST )t o get the values from the internal table .... I want to dispaly the value( which i got using the function module F4IF_INT_TABLE_VALUE_REQUEST ) in the selectionscreen ..
pls help me out..
Thanks in advance...
‎2008 Apr 08 6:51 AM
Hi,
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.
Pls. reward if useful....
‎2008 Apr 08 6:49 AM
use the function module in the following event
AT SELECTION-SCREEN ON VALUE-REQUEST FOR <filed-name>
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'.
you will get the values in f4 help.
.
‎2008 Apr 08 6:51 AM
Hi,
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.
Pls. reward if useful....
‎2008 Apr 08 6:51 AM
‎2008 Apr 08 6:54 AM
Hi,
FORM F4.
refresh it_list.
select * from z06pde12_sys appending corresponding fields of table
it_list
order by systyp.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
RETFIELD = 'SYSTYP'
DYNPPROG = 'Z06PDE12_RSUSR003'
DYNPNR = '1000'
DYNPROFIELD = 'PA_SYST'
VALUE_ORG = 'S'
TABLES
VALUE_TAB = it_list
return_tab = it_retn.
.
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM
Regards
Kiran
‎2008 Apr 08 6:55 AM
Hi,
Just see the below code:
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
DDIC_STRUCTURE = 'ALATGRF4'
RETFIELD = 'CUSGRPNAME'
DYNPPROG = 2220_PROGRAM_NAME
DYNPNR = 2220_DYNPRO_NR
DYNPROFIELD = 2220_ATTR_GROUP_FIELD
WINDOW_TITLE = 2220_F4_WINDOW_TITLE
VALUE_ORG = 'S'
TABLES
VALUE_TAB = 2220_ATTR_GROUP_NAMES
EXCEPTIONS
OTHERS = 99.
Pass all these parameters.
Regards,
If helpful reward with points(Don't forget).