Search help F4.

[Former Member]

Hi Guru,

I have to create selection screen with three field as follow.

SELECT-OPTIONS : in_psphi FOR prps-psphi NO-EXTENSION NO INTERVALS. u201CProject

SELECT-OPTIONS : in_wbs FOR prps-POSID NO-EXTENSION NO INTERVALS u201CWBS

SELECT-OPTIONS : in_aufnr FOR afko-aufnr NO-EXTENSION NO INTERVALS. u201CNetwork

SELECT-OPTIONS : in_vornr FOR ent5816-VORNR NO-EXTENSION NO NTERVALS. Activity

When I input project number then all WBS elements related project number would come in search help. Same way all network number and activity

Would come accordingly when I press F4.

Can you suggest me how can I do this.

Best regards.

Pravin

[Former Member]

Hi,

For each field,you can use Function Module

F4IF_INT_TABLE_VALUE_REQUEST

  IMPORTING
     VALUE(DDIC_STRUCTURE) TYPE  TABNAME DEFAULT SPACE
     VALUE(RETFIELD) TYPE  DFIES-FIELDNAME
     VALUE(PVALKEY) TYPE  DDSHPVKEY DEFAULT SPACE
     VALUE(DYNPPROG) TYPE  SY-REPID DEFAULT SPACE
     VALUE(DYNPNR) TYPE  SY-DYNNR DEFAULT SPACE
     VALUE(DYNPROFIELD) TYPE  HELP_INFO-DYNPROFLD DEFAULT SPACE
     VALUE(STEPL) TYPE  SY-STEPL DEFAULT 0
     VALUE(WINDOW_TITLE) TYPE  C OPTIONAL
     VALUE(VALUE) TYPE  HELP_INFO-FLDVALUE DEFAULT SPACE
     VALUE(VALUE_ORG) TYPE  DDBOOL_D DEFAULT 'C'
     VALUE(MULTIPLE_CHOICE) TYPE  DDBOOL_D DEFAULT SPACE
     VALUE(DISPLAY) TYPE  DDBOOL_D DEFAULT SPACE
     VALUE(CALLBACK_PROGRAM) TYPE  SY-REPID DEFAULT SPACE
     VALUE(CALLBACK_FORM) TYPE  SY-XFORM DEFAULT SPACE
     REFERENCE(MARK_TAB) TYPE  DDSHMARKS OPTIONAL
  EXPORTING
     VALUE(USER_RESET) TYPE  C
  TABLES
      VALUE_TAB
      FIELD_TAB STRUCTURE  DFIES OPTIONAL
      RETURN_TAB STRUCTURE  DDSHRETVAL OPTIONAL
      DYNPFLD_MAPPING STRUCTURE  DSELC OPTIONAL
  EXCEPTIONS
      PARAMETER_ERROR
      NO_VALUES_FOUND

regards,

Anirban

[Former Member]

check this sample code:

DATA: BEGIN OF t_match OCCURS 0,
        ename LIKE pa0001-ename,
        plstx LIKE t528t-plstx,
        plans LIKE pa0001-plans,
        pernr LIKE pa0001-pernr,
      END OF t_match.

DATA t_fields LIKE help_value OCCURS 10 WITH HEADER LINE.
DATA l_plans LIKE t_match-plans.

DATA : return LIKE ddshretval OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF dynpfields OCCURS 0.
        INCLUDE STRUCTURE dynpread.
DATA: END OF dynpfields.


SELECTION-SCREEN BEGIN OF BLOCK b_blk WITH FRAME TITLE text-001.
PARAMETERS p_bukrs  like anla-bukrs default 'CL10'.
select-options p_kostlv for t_datos-orgeh. " Departamento
select-options p_kostl  for t_datos-kostl. "Centro de costo
select-options p_plans  for t_datos-plans.
SELECTION-SCREEN END OF BLOCK b_blk.

selection-screen begin of block b_emp with frame title text-003.
select-options p_emp for t_datos-stort.
selection-screen end of block b_emp.

selection-screen begin of block b_res with frame title text-002.
parameters: p_resp(30) obligatory.
selection-screen end of block b_res.


AT SELECTION-SCREEN.

  IF p_kostlv IS INITIAL AND
     p_kostl IS INITIAL AND
     p_plans IS INITIAL.

    MESSAGE e001(00) WITH 'Debe ingresar al menos un valor'.
  ENDIF.

AT SELECTION-SCREEN ON value-request for p_plans-low.

  SELECT *
  INTO CORRESPONDING FIELDS OF TABLE t_match
  FROM pa0001
  where plans between '50000000' and '59999999'.

  LOOP AT t_match.

    SELECT SINGLE plstx
      INTO t_match-plstx
      FROM t528t
      WHERE plans EQ t_match-plans
          AND sprsl EQ 'S'.
    MODIFY t_match.

  ENDLOOP.


  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield    = 'pernr'
      dynprofield = 'p_pernr'
      dynpprog    = sy-repid
      dynpnr      = sy-dynnr
      value_org   = 'S'
    TABLES
      value_tab   = t_match.

[Former Member]

Hi,

You can use the above mentioned FM or you can apply the search help for individual fields from SE11.

Please refer to this thread

Regards,

Manish

[Former Member]

Thax to all

i have solved this problem.