How to fill the values in List Box?

Question

Hi Experts,
Can anyone explain me how to fill the values in the List Box such that the value should be from the table?
For Example : Fill the EmpID from table T1 into the ListBox?
Thanks in Advance,
Regards,
Raghu

Answer 1

hi,
and u doing it through report means from se38 than here is code...
DATA : BEGIN OF itab OCCURS 0,
        matnr LIKE mara-matnr,
       END OF itab.
DATA : ok_code LIKE sy-ucomm.
CALL SCREEN 0200.
*&      Module  STATUS_0200  OUTPUT
      text
MODULE status_0200 OUTPUT.
  SET PF-STATUS 'Z200'.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE user_command_0200 INPUT.
  CASE ok_code.
    WHEN 'BACK' OR 'UP' OR 'CANC'.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
*&      Module  mat_val  INPUT
      text
MODULE mat_val INPUT.
  SELECT matnr FROM mara INTO CORRESPONDING FIELDS OF TABLE itab
    WHERE matnr BETWEEN '000000000000000101' AND '000000000000000109'.
    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        retfield               = 'MATNR'
       VALUE_ORG              = 'S'
      tables
        value_tab              = itab
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDMODULE.                 " mat_val  INPUT
<b>And this is flow logic..</b>
PROCESS BEFORE OUTPUT.
  MODULE status_0200.
PROCESS AFTER INPUT.
  MODULE user_command_0200.
PROCESS ON VALUE-REQUEST.
  FIELD itab-matnr MODULE mat_val.