AT SELECTION-SCREEN ON VALUE-REQUEST

[Former Member]

Hi, I want to display the VALUE-REQUEST in my report program for a particular field from the internal table which have a list of fields and their description.

The user should be able to see the field name and its description and also if possible the entry should be possible only through value-request i.e. it should not be possible to type in the values(field-name in my case).

Message was edited by: Kaushal Bhavsar

[Former Member]

Hi Kaushal,

Just go through the code.

TABLES : ztable

PARAMETERS : p_name(10) TYPE c.

DATA : BEGIN OF itab OCCURS 0,

name TYPE znames,

code TYPE zcodes,

END OF itab.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_name.

SELECT name code

FROM ztable

INTO TABLE itab.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'NAME'

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = 'P_NAME'

value_org = 'S'

TABLES

value_tab = itab

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

Regards,

Mukesh Kumar

[Former Member]

Hi kaushal,

1. To get a taste of it, just copy paste.

2.

REPORT ABC.

*----

---

DATA : BEGIN OF ITAB OCCURS 0,

UNAME LIKE USR01-BNAME,

END OF ITAB.

data : RETURN_TAB LIKE DDSHRETVAL occurs 0 .

data : RETURN_wa LIKE DDSHRETVAL .

*----

---

PARAMETERS : A(12) TYPE C.

*----

---

AT SELECTION-SCREEN ON VALUE-REQUEST FOR A.

ITAB-UNAME = 'U01'. APPEND ITAB.

ITAB-UNAME = 'U02'. APPEND ITAB.

ITAB-UNAME = 'U03'. APPEND ITAB.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

retfield = 'ITAB-UNAME'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'A'

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

tables

value_tab = ITAB

• FIELD_TAB = FTAB

RETURN_TAB = return_tab

• DYNPFLD_MAPPING =

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

break-point.

regards,

amit m.

[Former Member]

Hi,

Check this code..

REPORT ZTEST.
PARAMETERS : p_VBELN (10) TYPE c.
DATA : BEGIN OF it_help OCCURS 0,
vbeln like vbak-vbeln,
posnr like vbap-posnr,
END OF it_help.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VBELN.
SELECT vbeln posnr
FROM vbap
INTO TABLE it_help.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'VBELN'
dynpprog = sy-repid
dynpnr = sy-dynnr
dynprofield = 'P_VBELN'
value_org = 'S'
TABLES
value_tab = it_help
EXCEPTIONS
parameter_error = 1
no_values_found = 2
OTHERS = 3.

Regards

vijay

[Former Member]

Hai Kaushal

go through the following Code

TABLES : MARA.

DATA: BEGIN OF IT_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MTART LIKE MARA-MTART,

END OF IT_MARA.

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

parameters : P_MATNR LIKE MARA-MATNR.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_MATNR.

SELECT MATNR MTART FROM MARA INTO table it_mara where MTART = 'ROH'.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'MATNR'

DYNPPROG = SY-REPID

DYNPNR = '1000'

DYNPROFIELD = 'P_MATNR'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = it_mara

RETURN_TAB = T_RETURN

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

Thanks & regards

Sreenivasulu P