topic Re: AT SELECTION-SCREEN ON VALUE-REQUEST in Application Development and Automation Discussions

AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 16 Jun 2006 09:13:38 GMT

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

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 16 Jun 2006 09:18:50 GMT

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

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 16 Jun 2006 09:19:58 GMT

Hi kaushal,

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

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.

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 16 Jun 2006 09:29:26 GMT

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

Re: AT SELECTION-SCREEN ON VALUE-REQUEST

Former Member — Fri, 16 Jun 2006 09:35:13 GMT

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