Post values from selection screen into vkm5 transaction

Question

Hi all,
i need to create a report , when user enters values in the selection screen of that report, that values must be transported into a transaction VKM5 and then that transported values must be updated in a ztable.
ex:
in selection screen if user enter doc no:xxxxxx
                                                     date:  20.09.2011
                                                     Reason for release: some text
then that doc no: xxxxx must be transported into vkm5 transaction and that values(selection screen values) must be uploaded into a ztable.
i tried the below code
TABLES: ZVKM5.
data: IT_ZVKM5 type standard table of ZVKM5,
      WA_ZVKM5 type ZVKM5.
PARAMETERS    : S_VBELN LIKE ZVKM5-VBELN ,
                s_date LIKE  zvkm5-bldat ,
                s_text LIKE  zvkm5-text .
call transaction 'VKM5'.
*LOOP AT IT_ZVKM5 INTO WA_ZVKM5.
   WA_ZVKM5-VBELN = S_VBELN.
   WA_ZVKM5-bldat = S_DATE.
   WA_ZVKM5-text  = S_TEXT .
   modify ZVKM5 from table IT_ZVKM5.
  if sy-subrc = 0.
  endif.
*ENDLOOP.
Kindly suggest me,
thanks in advance,
ben2012.

Answer 1

Thanks to all ,
Solved by me.
REPORT  ZVKM5.
TABLES: ZVKM5, vbuk.
types: begin of ty_zvkm5 ,
       vbeln type VBELN_VL,
       BLDAT type BLDAT,
       TEXT type TEXT,
       UNAME TYPE CDUSERNAME,
  end of ty_zvkm5.
TYPES: BEGIN OF TY_CDHDR,
       OBJECTID TYPE CDOBJECTV,
END OF TY_CDHDR.
DATA: IT_CDHDR TYPE TABLE OF TY_CDHDR,
      WA_CDHDR TYPE TY_CDHDR.
data: IT_ZVKM5 like ZVKM5 occurs 0 with header line,
      WA_ZVKM5 type ty_ZVKM5.
  DATA: bdcdata_wa  TYPE bdcdata,
        bdcdata_tab TYPE TABLE OF bdcdata.
data: date type STRING.
PARAMETERS    : S_VBELN LIKE ZVKM5-VBELN ,
                s_date LIKE  zvkm5-bldat ,
                s_text LIKE  zvkm5-text .
      CLEAR bdcdata_wa.
      bdcdata_wa-program  = 'RVKRED05'.
      bdcdata_wa-dynpro   = '1000'.
      bdcdata_wa-dynbegin = 'X'.
      APPEND bdcdata_wa TO bdcdata_tab.
      CLEAR bdcdata_wa.
      bdcdata_wa-fnam = 'BDC_CURSOR'.
      bdcdata_wa-fval = 'VBELN-LOW'. " pass the field name
      APPEND bdcdata_wa TO bdcdata_tab.
      CLEAR bdcdata_wa.
      bdcdata_wa-fnam = 'VBELN-LOW'. " pass the field name
      bdcdata_wa-fval =  S_VBELN. " pass the date here
      APPEND bdcdata_wa TO bdcdata_tab .
call transaction 'VKM5' using bdcdata_tab .
REFRESH IT_ZVKM5.
SELECT  OBJECTID
        FROM CDHDR INTO TABLE IT_CDHDR.
LOOP AT IT_CDHDR INTO WA_CDHDR.
IF WA_CDHDR-OBJECTID  = S_VBELN.
move s_vbeln to it_zvkm5-vbeln.
move S_date to it_zvkm5-bldat.
move s_text to it_zvkm5-text.
MOVE SY-UNAME TO IT_ZVKM5-UNAME.
append it_zvkm5 to it_zvkm5.
modify zvkm5 from  table it_zvkm5.
UPDATE zvkm5.
ENDIF.
ENDLOOP.
CLEAR: S_VBELN, S_DATE, S_TEXT.