regarding selecton screen

[Former Member]

hi all,

i want to know the program that would give the other selection screen on selecting the other radiobutton but the process should be at selection screen.and also i want to know the program in reports not in module pool programming that would give the drop down list.

[Former Member]

Program for List box in Report Pgm.

PROGRAM zcmtest01.

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 = 'Line 1'.

APPEND value TO list.

value-key = '2'.

value-text = 'Line 2'.

APPEND value TO list.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING id = name

values = list.

START-OF-SELECTION.

WRITE: / 'Parameter:', ps_parm.

Regards,

Param.

[Former Member]

Hi Sara,

For the first requirement u have to make use of modif id for the radio button and handle it in AT SELECTION-SCREEN OUTPUT event.

Check this sample code for dropdown list.

REPORT ZSW_DROP_DOWN_LIST.

TABLES: LFA1.

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF LIST.

PARAMETERS: P_LIFNR LIKE LFA1-LIFNR AS LISTBOX VISIBLE LENGTH 20.

DATA: BEGIN OF IT_ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

LAND1 LIKE LFA1-LAND1,

NAME1 LIKE LFA1-NAME1,

END OF IT_ITAB.

initialization.

SELECT LIFNR LAND1 NAME1 FROM LFA1 INTO IT_ITAB .

VALUE-KEY = it_itab-LIFNR.

WRITE it_itab-LAND1 TO VALUE-TEXT .

CONCATENATE VALUE-KEY VALUE-TEXT

it_itab-NAME1

INTO VALUE-TEXT SEPARATED BY '~'.

APPEND VALUE TO LIST.

ENDSELECT.

NAME = 'P_LIFNR'.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = NAME

VALUES = LIST.

start-of-selection.

write:/ p_lifnr.

[former_member404244]

Hi,

plz have a look at the code...

TYPE-POOLS: vrm.

PARAMETER: pr_spart TYPE spart AS LISTBOX VISIBLE LENGTH 7.

*AT SELECTION-SCREEN ON VALUE-REQUEST FOR pr_spart.

INITIALIZATION.

*----Code for Drop down list....

DATA: lit_spart_list TYPE vrm_values, "Table for list of Divisions

lwa_spart_list TYPE vrm_value,

lw_name TYPE vrm_id. "Name of parameter with list-box.

*---Assign selected values to table that would be passed to FM VRM_SET_VALUES

CLEAR : lwa_spart_list,

lw_name.

*---Pass required values for list-box display.

lwa_spart_list-key = 'H'.

lwa_spart_list-text = 'HL'.

APPEND lwa_spart_list TO lit_spart_list.

lwa_spart_list-key = 'S'.

lwa_spart_list-text = 'SL'.

APPEND lwa_spart_list TO lit_spart_list.

lwa_spart_list-key = 'P'.

lwa_spart_list-text = 'PP'.

APPEND lwa_spart_list TO lit_spart_list.

lwa_spart_list-key = 'F'.

lwa_spart_list-text = 'FR'.

APPEND lwa_spart_list TO lit_spart_list.

*Name of parameter to which list is to be assigned

lw_name = 'PR_SPART'.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = lw_name

values = lit_spart_list

EXCEPTIONS

id_illegal_name = 1

OTHERS = 2.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

Regards,

Nagaraj

[Former Member]

Hi,

check this example for at selection-screen output.

PARAMETERS: P_RAD1 RADIOBUTTON GROUP RAD1 USER-COMMAND A DEFAULT 'X'.

PARAMETERS: P_RAD2 RADIOBUTTON GROUP RAD1.

PARAMETERS : P_SFILE(100) TYPE C MODIF ID MO1 DEFAULT 'nazeer'.

• At selection Screen Output Event

AT SELECTION-SCREEN OUTPUT.

IF P_RAD1 EQ 'X'.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'MO1'.

screen-input = 0.

P_SFILE = 'P_RAD1 is selected'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'MO1'.

P_SFILE = 'P_RAD2 is selected'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

endif.