File upload problem - BAPI_DOCUMENT_CREATE2

Hi All,

I am trying to upload a new document using the below code, but no is generated, but file is missing

REPORT  ZSBN_DMS_T1

DATA: LS_DOC    LIKE BAPI_DOC_DRAW2,
           LS_RETURN LIKE BAPIRET2.
 
DATA: LF_DOCTYPE    LIKE BAPI_DOC_DRAW2-DOCUMENTTYPE,
      LF_DOCNUMBER  LIKE BAPI_DOC_DRAW2-DOCUMENTNUMBER,
      LF_DOCPART    LIKE BAPI_DOC_DRAW2-DOCUMENTTYPE,
      LF_DOCVERSION LIKE BAPI_DOC_AUX-DOCVERSION.


DATA: LT_FILES LIKE BAPI_DOC_FILES2 OCCURS 0 WITH HEADER LINE,

      LT_DRAT  LIKE BAPI_DOC_DRAT OCCURS 0 WITH HEADER LINE,

      LT_DRAD  LIKE BAPI_DOC_DRAD OCCURS 0 WITH HEADER LINE.

LS_DOC-DOCUMENTTYPE    = 'CPE'. 
LS_DOC-DOCUMENTVERSION = '01'.
LS_DOC-DOCUMENTPART    = '001'.

LS_DOC-STATUSEXTERN   = 'CO'.
LS_DOC-LABORATORY     = '001'.



REFRESH LT_FILES.
CLEAR LT_FILES.

LT_FILES-DOCFILE      = 'E:\NewFolder\Book1.xls'.
LT_FILES-WSAPPLICATION = 'XLS'.
APPEND LT_FILES.

CLEAR LT_DRAT.
REFRESH LT_DRAT.


LT_DRAT-LANGUAGE    = 'EN'.
LT_DRAT-DESCRIPTION = 'BHARANI DOC'.
APPEND LT_DRAT.

CALL FUNCTION 'BAPI_DOCUMENT_CREATE2'
      EXPORTING: DOCUMENTDATA         = LS_DOC
      IMPORTING: DOCUMENTTYPE         = LF_DOCTYPE
                 DOCUMENTNUMBER       = LF_DOCNUMBER
                 DOCUMENTPART         = LF_DOCPART
                 DOCUMENTVERSION      = LF_DOCVERSION
                 RETURN               = LS_RETURN
     TABLES: DOCUMENTDESCRIPTIONS = LT_DRAT
             OBJECTLINKS          = LT_DRAD
             DOCUMENTFILES        = LT_FILES.

IF LS_RETURN-TYPE CA 'EA'.
  ROLLBACK WORK.
  MESSAGE ID '26' TYPE 'I' NUMBER '000'
          WITH LS_RETURN-MESSAGE.

ELSE.

DATA : WAIT TYPE BAPITA-WAIT VALUE '5',
       RET  TYPE BAPIRET2.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
 EXPORTING
   WAIT          = WAIT
 IMPORTING
   RETURN        = RET
          .
 MESSAGE ID '26' TYPE 'I' NUMBER '000'
          WITH LF_DOCNUMBER.
ENDIF.

pls help.

with rgds,

Bharani

Edited by: S BHARANIDARAN on Mar 23, 2010 12:14 PM