at selection-screen value-request

[Former Member]

hi friends

i want the detailed notes on value-request please send me

regards

jagadish

[Former Member]

REPORT ZF4help

no standard page heading

line-size 80

line-count 65

message-id ZSD

parameters p_vbeln like t685-kschl.

data: dg_vstel like likp-vstel,

dg_vname(9),

dg_persnumber like adrp-persnumber.

tables: t685t.

select-options: s_vtext for T685T-VTEXT no-extension no intervals.

DATA: RETURN_TAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.

at selection-screen ON VALUE-REQUEST FOR s_vtext-low.

DATA : BEGIN OF dt_fields OCCURS 1.

INCLUDE STRUCTURE help_value.

DATA : END OF dt_fields.

DATA : BEGIN OF dt_data OCCURS 0,

kschl LIKE t685t-kschl,

vtext like t685t-vtext,

END OF dt_data.

DATA : dl_index LIKE sy-index.

DATA : dl_field LIKE T685T-VTEXT,

dl_kschl like t685t-kschl.

data: DL_STEPL LIKE SY-STEPL.

clear: dt_fields.

Refresh:dt_fields.

clear: dt_data.

refresh: dt_data.

dt_fields-tabname = 'T685T'.

dt_fields-fieldname = 'KSCHL'.

dt_fields-selectflag = 'X'.

append dt_fields.

clear dt_fields.

dt_fields-tabname = 'T685T'.

dt_fields-fieldname = 'VTEXT'.

dt_fields-selectflag = 'X'.

append dt_fields.

clear dt_fields.

data: begin of dt_dynpro occurs 0.

include structure DYNPREAD.

data: end of dt_dynpro.

dt_dynpro-FIELDNAME = 'S_VTEXT-LOW'.

append dt_dynpro.

CALL FUNCTION 'DYNP_GET_STEPL'

IMPORTING

POVSTEPL = dl_stepl

EXCEPTIONS

STEPL_NOT_FOUND = 1

OTHERS = 2.

dt_dynpro-fieldname = 'S_VTEXT-LOW'.

dt_dynpro-stepl = '1'.

append dt_dynpro.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = 'ZF4HELP'

DYNUMB = '1000'

• TRANSLATE_TO_UPPER = ' '

• REQUEST = ' '

• PERFORM_CONVERSION_EXITS = ' '

• PERFORM_INPUT_CONVERSION = ' '

• DETERMINE_LOOP_INDEX = ' '

TABLES

DYNPFIELDS = dt_dynpro

EXCEPTIONS

INVALID_ABAPWORKAREA = 1

INVALID_DYNPROFIELD = 2

INVALID_DYNPRONAME = 3

INVALID_DYNPRONUMMER = 4

INVALID_REQUEST = 5

NO_FIELDDESCRIPTION = 6

INVALID_PARAMETER = 7

UNDEFIND_ERROR = 8

DOUBLE_CONVERSION = 9

STEPL_NOT_FOUND = 10

OTHERS = 11

.

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 dt_DYNPRO index 1.

s_vtext-low = dt_DYNPRO-fieldvalue.

s_vtext-sign = 'I'.

s_vtext-option = 'EQ'.

append s_vtext.

select kschl

vtext

into table dt_data

from t685t

where spras = 'EN' and

kvewe = 'B' and

kappl = 'V2'." and

"vtext in s_vtext.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'S_VTEXT-LOW'

• PVALKEY = ' '

DYNPPROG = 'ZF4HELP'

DYNPNR = '1000'

DYNPROFIELD = 'S_VTEXT-LOW'

STEPL = '1'

• WINDOW_TITLE =

• VALUE = ' '

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

TABLES

VALUE_TAB = dt_data

• FIELD_TAB =

RETURN_TAB = return_tab

• DYNPFLD_MAPPING =

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3

.

If sy-subrc eq 0.

read table RETURN_TAB index 1.

If sy-subrc eq 0.

S_VTEXT-LOW = RETURN_TAB-FIELDVAL.

Endif.

Endif.

[Manohar2u]

Refer to this sample program

http://www.sap-img.com/abap/value-request-for-parameter.htm

Regds

Manohar

[Former Member]

thanks manohar reddy,

it is working fine

regards

jagadish

[Manohar2u]

Welcome Jagadish.

Can you closed the thread if the problem is solved?

Regds

Manohar

[Former Member]

check the demo program

DEMO_SELECTION_SCREEN_F4