Values to be added in Listbox in modulepoolprogram

Question

Hi,
I have one listbox in my module pool program..
for thgis list box i need to add values like quarter...Halfyear and year
how to add to this list box.

Answer 1

hi,
U can use the function module VRM_SET_VALUES to add the values into list box. for that u have to use TYPE-POOOLS VRM in your prg..
here is the sample code for adding values into the listbox using VRM.
pls reward points if its useful for u.
*& Report  ZTEST1                                                      *
REPORT  ZTEST1                                  .
TABLES: ZEMP.
TYPE-POOLS VRM.
DATA SCR LIKE SY-DYNNR VALUE 9002.
DATA: OK_CODE LIKE SY-UCOMM,
      save_ok TYPE sy-ucomm.
DATA: name  TYPE vrm_id VALUE 'ZEMP-EMPNO',
      list  TYPE vrm_values,
      value LIKE LINE OF list.
DATA: wa_EMP TYPE ZEMP.
DATA: name1  TYPE vrm_id VALUE 'ZEMP-EMPNAME',
      list1  TYPE vrm_values,
      value1 LIKE LINE OF list1.
DATA: wa_EMP1 TYPE ZEMP.
CALL SCREEN 9001.
*&      Module  USER_COMMAND_9001  INPUT
      text
MODULE USER_COMMAND_9001 INPUT.
*OK_CODE = SY-UCOMM.
CASE SY-UCOMM.
*MODIFY ZSAMPLE1.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CLICK'.
SCR = 9000.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9001  INPUT
*&      Module  USER_COMMAND_9000  INPUT
      text
MODULE USER_COMMAND_9000 INPUT.
SELECT * FROM ZEMP WHERE EMPNO = ZEMP-EMPNO.
ENDSELECT.
CASE SY-UCOMM.
WHEN 'SAVE'.
*ZEMP-EMPNO = ZEMP-EMPNO.
*ZEMP-EMPNAME = ZEMP-EMPNAME.
INSERT ZEMP.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_9000  INPUT
*&      Module  VRM_VALUE  OUTPUT
      text
MODULE VRM_VALUE OUTPUT.
BREAK-POINT.
SELECT EMPNO FROM  ZEMP INTO  CORRESPONDING FIELDS OF wa_EMP.
    value-key  = wa_EMP-EMPNO.
   APPEND value TO list.
ENDSELECT.
CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = name
            values = list.
SELECT EMPNAME FROM  ZEMP INTO  CORRESPONDING FIELDS OF wa_EMP1.
    VALUE1-KEY  = wa_EMP1-EMPNAME.
   APPEND value1 TO list1.
   ENDSELECT.
CALL FUNCTION 'VRM_SET_VALUES'
       EXPORTING
            id     = name1
            values = list1.
ENDMODULE.                 " VRM_VALUE  OUTPUT