List box on the selection screen from the table

REPORT ZMYG_TEST.
*Autor : Giridhar Pujari
TYPES : BEGIN OF ty_tcur,
SPRAS TYPE SPRAS,
WAERS TYPE WAERS_CURC,
END OF ty_tcur.



TYPE-POOLS : VRM.

*PARAMETERS : SPRAS TYPE SPRAS as listbox visible length 10 USER-COMMAND onli,
* list AS LISTBOX VISIBLE LENGTH 20 .

PARAMETERS : SPRAS TYPE SPRAS,
list AS LISTBOX VISIBLE LENGTH 20 user-command onli.


DATA : listing TYPE VRM_VALUES WITH HEADER LINE.

DATA t_tcur TYPE STANDARD TABLE OF ty_tcur WITH HEADER LINE.

AT SELECTION-SCREEN OUTPUT.

IF SPRAS IS NOT INITIAL.

CLEAR : listing.


SELECT SPRAS WAERS FROM TCURT INTO TABLE t_tcur WHERE SPRAS EQ SPRAS.

LOOP AT t_tcur.
LISTING-KEY = sy-tabix.
LISTING-TEXT = t_tcur-waers.
APPEND LISTING.
ENDLOOP.


CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'LIST'
values = listing[]
* 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.

ENDIF.