Selection-Screen - F4

Question

my requirement is
<b>in my program i have 2 select-options
1.Company code (s_bukrs)
2.Portfolios (s_pfolio)</b>
these two are maintained in a Ztable
a)if we press F4 on Company code it has to show d values from Ztable-company code, and also
b)
i)if we press F4 on Portfolios by entering company code ,it has to show d values from Ztable-portfolios related to that company code,
ii)if we press F4 on Portfolios without entering company code ,it has to show d all values from Ztable-portfolios
code i written is..
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_pfolio-low.
PERFORM f4_for_portfolios.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_pfolio-high.
PERFORM f4_for_portfolios.
FORM f4_for_portfolios.
l_dynpro = sy-repid.
l_dynnar = sy-dynnr.
for parameters/one single value(low/high) of select-option this is OK,
If i give 'S_BUKRS' it is giving dump.
it_dynpfields-fieldname = 'S_BUKRS-LOW'.
APPEND it_dynpfields.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = l_dynpro
dynumb = l_dynnar " '1000'
translate_to_upper = 'X'
TABLES
dynpfields = it_dynpfields.
READ TABLE it_dynpfields INDEX 1.
i have declard one range in my program..
REFRESH r_bukrs.
IF NOT it_dynpfields-fieldvalue IS INITIAL.
r_bukrs-low = it_dynpfields-fieldvalue.
r_bukrs-sign = 'I'.
r_bukrs-option = 'EQ'.
APPEND r_bukrs.
ENDIF.
SELECT abukrs aportfolio b~xportb
INTO TABLE it_plo
FROM ( zlt_mandate AS a
INNER JOIN twpob AS b
ON abukrs = bbukrs
AND aportfolio = brportb )
WHERE a~bukrs IN r_bukrs . "= it_dynpfields-fieldvalue.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'PORTFOLIO'
dynpprog = l_dynpro
dynpnr = l_dynnar
dynprofield = 'S_PFOLIO-LOW'
value_org = 'S'"C
display = 'F'
TABLES
value_tab = it_plo.
ENDFORM. "get_portfolios
<b>if i want get all the valuse which are delacred in SELECT-OPTION 'S_BUKRS',,,,,
,,,,,,,,,,,,What is the procedure ?</b>
ENDFORM.
Regards,
Ramesh.

Answer 1

tables: mkpf.
select-options : p_mblnr for mkpf-mblnr.
TYPES: BEGIN OF TY_MBLNR,
       MBLNR TYPE MKPF-MBLNR,
       MJAHR TYPE  MKPF-MJAHR,
       END OF TY_MBLNR.
data: t_mblnr type standard table of TY_mblnr,
      t_DDSHRETVAL type standard table of DDSHRETVAL.
at selection-screen on value-request for p_mblnr-high.
select mblnr
       MJAHR
       from mkpf up to 5000 rows
       into TABLE t_mblnr.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
  DDIC_STRUCTURE         = ' '
    RETFIELD               = 'MBLNR'
  PVALKEY                = ' '
   DYNPPROG               = SY-REPID
   DYNPNR                 = '1000'
   DYNPROFIELD            = 'P_MBLNR-HIGH'
  STEPL                  = 0
  WINDOW_TITLE           = WINDOW_TITLE
   VALUE                  = 'P_MBLNR-HIGH'
   VALUE_ORG              = 'S'
   MULTIPLE_CHOICE        = 'X'
  DISPLAY                = ' '
   CALLBACK_PROGRAM       = sy-repid
  CALLBACK_FORM          = ' '
  MARK_TAB               = MARK_TAB
IMPORTING
  USER_RESET             = USER_RESET
  TABLES
    VALUE_TAB              = T_MBLNR
  FIELD_TAB              = FIELD_TAB
   RETURN_TAB             = t_DDSHRETVAL
  DYNPFLD_MAPPING        = 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.
Ramesh try this here u can select more than one mblnr, and then read table   t_DDSHRETVAL agnst return_tab.
and popluate your select-option..
have u any doubts ask me agn
regards,
santhosh