Hi Regarding selection parameters and list box

Question

Hi
This is the test Progra I am Checking for List but
When ever , After selecting from list , if press enter the value is going off,
and after executing I couldn't read P_int
when i am not geting any value into p_int.
REPORT YTEST_VINESH1.
*TYPEPOOLS
TYPE-POOLS : vrm.
*Tables
DATA DICLARATION.
DATA : name  TYPE vrm_id,
       list  TYPE vrm_values,
       value LIKE LINE OF list.
data: itab like lfa1 occurs 0 with header line.
DATA:P_INT1(20) TYPE C.
*SELECTION SECREEN
PARAMETER : p_int AS LISTBOX VISIBLE LENGTH 20.
*INITIALIZATION.
initialization.
select * from lfa1 up to 10 rows into table itab .
AT SELEECTION EVENTS
AT SELECTION-SCREEN OUTPUT.
  name = 'P_INT'.
loop at itab.
  value-key = sy-TABIX.
  value-text = itab-lifnr.
  APPEND value TO list.
endloop.
  CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = name
            values = list.
  CLEAR list.
*START-OF-SELECTION.
START-OF-SELECTION.
MOVE P_INT TO P_INT1.
WRITE:/ 'HAI HOW R U',P_INT1.
Thanks & Regards,
[email protected]

Answer 1

Hi,
Check this sample code:
REPORT  ZDROP_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.