Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

list-box

Former Member
0 Likes
593

Hi all,,

Is list-box in a selection-screen is possible?

If possible, please get me a sample code.

It should without module pool programming.

Thanks,

Naveena.

1 ACCEPTED SOLUTION
Read only

former_member188829
Active Contributor
0 Likes
570

Hi,

You Can Use FM:VRM_SET_VALUES

Check this program...

REPORT ZEXAMPLE1_1 .

TYPE-POOLS : VRM.

DATA : VALUES TYPE vrm_values.

DATA : VW LIKE LINE OF VALUES.

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

INITIALIZATION.

vw-key = '1'.

vw-text = 'SUN'.

APPEND vw TO VALUES.

vw-key = '2'.

vw-text = 'MON'.

APPEND vw TO VALUES.

vw-key = '3'.

vw-text = 'TUE'.

APPEND vw TO VALUES.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'LIST'

values = VALUES

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

Message was edited by:

Vishnu Reddy

5 REPLIES 5
Read only

former_member188829
Active Contributor
0 Likes
571

Hi,

You Can Use FM:VRM_SET_VALUES

Check this program...

REPORT ZEXAMPLE1_1 .

TYPE-POOLS : VRM.

DATA : VALUES TYPE vrm_values.

DATA : VW LIKE LINE OF VALUES.

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

INITIALIZATION.

vw-key = '1'.

vw-text = 'SUN'.

APPEND vw TO VALUES.

vw-key = '2'.

vw-text = 'MON'.

APPEND vw TO VALUES.

vw-key = '3'.

vw-text = 'TUE'.

APPEND vw TO VALUES.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = 'LIST'

values = VALUES

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

Message was edited by:

Vishnu Reddy

Read only

Former Member
0 Likes
570

hi Naveed,

just copy paste this code and check,

REPORT ZLIST.

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF LIST.

PARAMETERS: PS_PARM(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

NAME = 'PS_PARM'.

VALUE-KEY = '1'.

VALUE-TEXT = 'JAI'.

APPEND VALUE TO LIST.

VALUE-KEY = '2'.

VALUE-TEXT = 'SRI'.

APPEND VALUE TO LIST.

NAME = 'PS_PARM'.

VALUE-KEY = '3'.

VALUE-TEXT = 'SAI'.

APPEND VALUE TO LIST.

NAME = 'PS_PARM'.

VALUE-KEY = '4'.

VALUE-TEXT = 'RAM'.

APPEND VALUE TO LIST.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = NAME

VALUES = LIST.

START-OF-SELECTION.

WRITE: / 'Parameter:', PS_PARM.

hope this helps.

Read only

Former Member
0 Likes
570

HI

YES IT IS POSSIBLE

PARAMETER : p_int AS LISTBOX VISIBLE LENGTH 10 OBLIGATORY.
 " Giving OBLIGATORY will solve your problem.
 " Check this sample
TYPE-POOLS : vrm.
PARAMETER : p_int AS LISTBOX VISIBLE LENGTH 10 OBLIGATORY.
 
DATA : name  TYPE vrm_id,
       list  TYPE vrm_values,
       value LIKE LINE OF list.
 
AT SELECTION-SCREEN OUTPUT.
  name = 'P_INT'.
 
  value-key = 'One'.
  value-text = '1'.
  APPEND value TO list.
  value-key = 'Two'.
  value-text = '2'.
  APPEND value TO list.
 
  CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = name
            values = list.
  CLEAR list.

Read only

former_member386202
Active Contributor
0 Likes
570

Hi,

Yes its possible

Ex

PARAMETERS p_carrid TYPE spfli-carrid

AS LISTBOX VISIBLE LENGTH 20

USER-COMMAND onli

DEFAULT 'LH'.

Regards,

Prashant

Read only

Former Member
0 Likes
570

Hello all,,,

thanks for your help.

It works fine.

But how trigger this list box- using command.

ie at user-command.

How to proceed on with at user-command.