Skip to Content
0
Former Member
Feb 26, 2009 at 07:39 AM

Issue with the Search help created

22 Views

Created a Search help for substance number and also to display the Text.

When clicked on Selection-screen, it is displaying the Search Help properly

ex:  A------B
     11----This is SDN
     12----Today is a bright day
     13----Have a great day

Now when i am selecting the number 12 from the Search help window, it is taking the Description value.

Ex : Selected 12, it displays  "Today is a bright day" in that select option

.

Here is my code...

DATA : it_return1 LIKE ddshretval OCCURS 0 WITH HEADER LINE,
       it_return2 LIKE ddshretval OCCURS 0 WITH HEADER LINE.

types  : BEGIN OF TY_SH,
         ATTRV20  TYPE  /SAPSLL/ATTRV20, "Attribute Value for Chars from Feeder System (Length 20)
         END OF TY_SH.

 DATA : T_SH TYPE STANDARD TABLE OF TY_SH,
       WA_SH TYPE TY_SH.

TYPES  : BEGIN OF TY_SH1,
         ATTRV20  TYPE  /SAPSLL/ATTRV20, "Attribute Value for Chars from Feeder System (Length 20)
         TEXT1    TYPE  /SAPSLL/TEXT60,   "Text 60 Characters Long
         END OF TY_SH1.

 DATA : T_SH1 TYPE STANDARD TABLE OF TY_SH1,
       WA_SH1 TYPE TY_SH1.

TYPES  : BEGIN OF TY_FINAL_SH,
         ATTRV20  TYPE  /SAPSLL/ATTRV20, "Attribute Value for Chars from Feeder System (Length 20)
         TEXT1    TYPE  /SAPSLL/TEXT60,   "Text 60 Characters Long
         END OF TY_FINAL_SH.

 DATA : T_FINAL_SH TYPE STANDARD TABLE OF TY_FINAL_SH,
       WA_FINAL_SH TYPE TY_FINAL_SH.


DATA :  G_ATTR20A TYPE /SAPSLL/PRGEN-ATTR20A.   "SUBSTANCE ID


SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-101.
SELECT-OPTIONS :        "Added Serach help Z_SH FOR NBR SCHEME
              S_AT20A FOR G_ATTR20A.          "+DG1K902218  "SUBSTANCE ID

SELECTION-SCREEN END OF BLOCK B1.


at selection-screen on value-request for s_AT20A-low.
PERFORM SHELP.


at selection-screen on value-request for s_AT20A-high.
PERFORM SHELP.


*&---------------------------------------------------------------------*
*&      Form  SHELP
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SHELP .


 select attrv20
        into table t_sh
        from /SAPSLL/TCOATV20.

 select attrv20
        text1
        from /sapsll/tcoatt20
        into table t_sh1.


loop at t_sh into wa_sh.

 if sy-subrc = 0.
   wa_final_sh-attrv20 = wa_sh-attrv20.
  endif.

 read table t_sh1 into wa_sh1 with key attrv20 = wa_sh-attrv20.

  if sy-subrc = 0.
       wa_final_sh-text1 = wa_sh1-text1.
  endif.

 append wa_final_sh to t_final_sh.

endloop.

 sort t_final_sh by attrv20.

DATA: gd_repid like sy-repid.
gd_repid = sy-repid.



CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
  EXPORTING
    RETFIELD              = 'S_AT20A'
   VALUE_ORG              = 'S'
  TABLES
    VALUE_TAB             = t_final_sh
   RETURN_TAB             = it_return1
 EXCEPTIONS
   PARAMETER_ERROR        = 1
   NO_VALUES_FOUND        = 2
   OTHERS                 = 3.

    S_AT20A-low  = it_return1-fieldval.
    S_AT20A-high = it_return1-fieldval.

ENDFORM.                    " SHE

Any suggestions will be appreciated!

Regards,

Kittu

Edited by: Kittu on Feb 26, 2009 8:39 AM