topic Re: Re:search help in Application Development and Automation Discussions

Re:search help

Former Member — Wed, 09 Aug 2006 18:03:36 GMT

hi to all,

i wrote like this

select-options: s_manif for sood-objnam no intervals

and also i put search search help for this field.

while pressing F4 it is displaying all the distribution list names but while double clicking on the distribution list name it is not coming into the s_manif field.

<b>hi appana thanks for giving the code</b>.

now it is displaying the distribution names.

but while i double clicking on the particular F4 popup the name is not displaying into the s_manif field it is appearing blank

please help me in this regard

thanks

sun

Message was edited by: sun deep

Re: Re:search help

Laxmana_Appana_ — Wed, 09 Aug 2006 18:06:39 GMT

Hi,

Get the distribution list names(OBJNAM) from table SOOD with OBJTP = 'DLI' and then call your own F4 help based on selected values.

code :

select-options: S_OBJNAM for sood-OBJNAM no intervals.



AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_OBJNAM-low.

DATA: BEGIN OF li_OBJNAM OCCURS 0,
         OBJNAM like sood-OBJNAM,
        END OF li_OBJNAM.

  DATA: li_ret_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
  DATA: lt_dynpfields LIKE dynpread OCCURS 0 WITH HEADER LINE.


select objnam from sood
       into table li_OBJNAM
              where objtp = 'DLI'.



 CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'S_OBJNAM'
      dynpnr          = sy-dynnr
      dynpprog        = sy-repid
      dynprofield     = text-044
      value_org       = 'S'
    TABLES
      value_tab       = li_OBJNAM
      return_tab      = li_ret_tab
    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.

read table li_ret_tab index 1.
   if sy-subrc eq 0.
       ------here your code
   endif.

Regards

Appana

Re: Re:search help

Former Member — Wed, 09 Aug 2006 18:13:05 GMT

Hai Sundeep

Check the following Code

TABLES : MARD.

DATA: BEGIN OF IT_MARD OCCURS 0,

WERKS LIKE MARD-WERKS,

END OF IT_MARD.

DATA : T_RETURN TYPE STANDARD TABLE OF DDSHRETVAL WITH HEADER LINE.

parameters : P_WERKS LIKE MARD-WERKS.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_WERKS.

SELECT WERKS FROM MARD UP TO 10 ROWS INTO table IT_MARD.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'WERKS'

DYNPPROG = SY-REPID

DYNPNR = '1000'

DYNPROFIELD = 'P_WERKS'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = IT_MARD

RETURN_TAB = T_RETURN

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

Thanks & regards

Sreenivasulu P

Re: Re:search help

RichHeilman — Wed, 09 Aug 2006 18:16:33 GMT

HEre is the modified coding. This will return the value to the SELECT-OPTIONS field even in the multiple sections area.




report zrich_0001.

tables: sood.

select-options: s_objnam for sood-objnam no intervals.

at selection-screen on value-request for s_objnam-low.

  data: begin of li_objnam occurs 0,
      objnam like sood-objnam,
  end of li_objnam.

<b>*  data: li_ret_tab like ddshretval occurs 0 with header line.</b>
  data: lt_dynpfields like dynpread occurs 0 with header line.

  select objnam from sood
   into table li_objnam  where objtp = 'DLI'.

  call function 'F4IF_INT_TABLE_VALUE_REQUEST'
       exporting
<b>            retfield        = 'OBJNAM'</b>
            dynpnr          = sy-dynnr
            dynpprog        = sy-repid
<b>          dynprofield     = 'S_OBJNAM'</b>
          value_org       = 'S'
     tables
          value_tab       = li_objnam
<b>*            return_tab      = li_ret_tab</b>
     exceptions
          parameter_error = 1
          no_values_found = 2
          others          = 3.

Regards,

Rich Heilman