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