Hi Neha TJ,
Please follow the code...
If it is module pool follw the same , if it selection screen give the screen name of your input parameter by clicking F1 of your input selection screen field...
Eg :-
MODULE pbo OUTPUT.
TYPE-POOLS: vrm.
DATA: values TYPE vrm_values,
value LIKE LINE OF values.
DATA : lv_famsa TYPE pa0582-famsa1,
it_famsa TYPE STANDARD TABLE OF pa0582-famsa1.
DATA : it TYPE STANDARD TABLE OF pa0582,
wa TYPE pa0582,
count TYPE i VALUE 0.
SELECT SINGLE * FROM pa0582 INTO wa WHERE pernr = '00000035'.
DO 20 TIMES VARYING lv_famsa FROM wa-famsa1 NEXT wa-famsa2.
IF lv_famsa IS NOT INITIAL.
APPEND lv_famsa TO it_famsa.
ENDIF.
ENDDO.
CLEAR lv_famsa.
LOOP AT it_famsa INTO lv_famsa.
value-text = lv_famsa.
APPEND value TO values.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'IO' " SCREEN FILED VALUE
values = values
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.
ENDMODULE. " PBO OUTPUT
Rgds,
Vijay SR
