list bos in dialog programming through process on value-request

[Former Member]

Dear all,

i am using FM to get list box but not getting list of values , i am getting blank screen , on which getting header stmt

Restrict value range (1) 3 entries found.

**********************************************************************************

TYPES : BEGIN OF F4_VALUES,

TYPE(5) TYPE C,

END OF F4_VALUES.

DATA: F4_VALUE TYPE TABLE OF F4_VALUES WITH HEADER LINE.

DATA: PROGNAME LIKE SY-REPID,

DYNNUM LIKE SY-DYNNR.

************************************************************************************

*************************************************

PROCESS ON VALUE-REQUEST.

FIELD WA_DATA-TYPE MODULE EXP_TYPE.

**********************************************************

**********************************************************

MODULE exp_type INPUT.

CLEAR F4_VALUE.

REFRESH F4_VALUE.

F4_VALUE-TYPE = 'Shift'.

APPEND F4_VALUE.

F4_VALUE-TYPE = 'Flat'.

APPEND F4_VALUE.

F4_VALUE-TYPE = 'Day'.

APPEND F4_VALUE.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'TYPE'

DYNPPROG = PROGNAME

DYNPNR = DYNNUM

DYNPROFIELD = 'WA_DATA-TYPE'

VALUE_ORG = 'S'

MULTIPLE_CHOICE = ' '

TABLES

VALUE_TAB = F4_VALUE

• FIELD_TAB =

• RETURN_TAB =

• DYNPFLD_MAPPING =

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Thanks in advance.

Vijay dwivedi

[Former Member]

hii vijay,

1. There are two important things :

a)PARAMETERS : a(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.

b) Fm VRM_SET_VALUES

2. just copy paste

3.

REPORT abc.

TYPE-POOLS : vrm.

DATA : v TYPE vrm_values.

DATA : vw LIKE LINE OF v.

PARAMETERS : a(10) TYPE c AS LISTBOX VISIBLE LENGTH 10.

INITIALIZATION.

vw-key = '1'.

vw-text = 'Jan'.

APPEND vw TO v.

vw-key = '2'.

vw-text = 'Feb'.

APPEND vw TO v.

vw-key = '3'.

vw-text = 'Mar'.

APPEND vw TO v.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'A'

values = v

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

Check the link -

rgrds,

Shweta

Edited by: Shweta Joon on Aug 24, 2009 1:19 PM

[Former Member]

Hi,

thanks dear for your valuable response.

I don't want to use vrm_set_values.

because i am using in table control and its output style is not acceptable in my company.

well b4 that i used these code several time and it works properly but now its giving no putput.

somewhere i am doing something wrong but missing.

is there any one who can assist me in my code.

regards

vijay

[Former Member]

Hi,

Instead of providing the VRM_ function module in POV, use it in PBO module.

That is

AT SELECTION-SCREEN OUTPUT

it works.

Take F1 help for further info

Cheers

Ramchander.K