Sir/mam,
I am getting a short dump error after executing this bdc session program
Runtime error: raise exception
short text: exception condition"upload_ole" raised.
The following program is given below:
report ZBDC_SESSION3
no standard page heading line-size 255.
*include bdcrecx1.
TYPES : BEGIN OF TY_MARA,
MATNR TYPE MATNR,
MBRSH TYPE MBRSH,
MTART TYPE MTART,
MAKTX TYPE MAKTX,
MEINS TYPE MEINS,
END OF TY_MARA.
DATA : IT_MARA TYPE STANDARD TABLE OF TY_MARA,
WA_MARA TYPE TY_MARA.
DATA : IT_EXCEL TYPE STANDARD TABLE OF ALSMEX_TABLINE,
WA_EXCEL TYPE ALSMEX_TABLINE.
DATA : BDCDATA TYPE BDCDATA OCCURS 0 WITH HEADER LINE.
start-of-selection.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = 'C:\Documents and Settings\Administrator\Desktop\BDC_SESSION3.XLS'
I_BEGIN_COL = 1
I_BEGIN_ROW = 2
I_END_COL = 5
I_END_ROW = 3
TABLES
INTERN = IT_EXCEL
* EXCEPTIONS
* INCONSISTENT_PARAMETERS = 1
* UPLOAD_OLE = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*perform open_group.
LOOP AT IT_EXCEL INTO WA_EXCEL.
CASE WA_EXCEL-COL.
WHEN '0001'.
WA_MARA-MATNR = WA_EXCEL-VALUE.
WHEN '0002'.
WA_MARA-MBRSH = WA_EXCEL-VALUE.
WHEN '0003'.
WA_MARA-MTART = WA_EXCEL-VALUE.
WHEN '0004'.
WA_MARA-MAKTX = WA_EXCEL-VALUE.
WHEN '0005'.
WA_MARA-MEINS = WA_EXCEL-VALUE.
AT END OF ROW.
APPEND WA_MARA TO IT_MARA.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
* DEST = FILLER8
GROUP = 'ZKUMAR'
* HOLDDATE = FILLER8
KEEP = 'X'
USER = SY-UNAME
* RECORD = FILLER1
PROG = SY-CPROG
* DCPFM = '%'
* DATFM = '%'
* IMPORTING
* QID =
* EXCEPTIONS
* CLIENT_INVALID = 1
* DESTINATION_INVALID = 2
* GROUP_INVALID = 3
* GROUP_IS_LOCKED = 4
* HOLDDATE_INVALID = 5
* INTERNAL_ERROR = 6
* QUEUE_ERROR = 7
* RUNNING = 8
* SYSTEM_LOCK_ERROR = 9
* USER_INVALID = 10
* OTHERS = 11
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
LOOP AT IT_MARA INTO WA_MARA.
CLEAR BDCDATA.
REFRESH BDCDATA.
performbdc_dynpro using 'SAPLMGMM' '0060'.
performbdc_field using 'BDC_CURSOR'
'RMMG1-MTART'.
performbdc_field using 'BDC_OKCODE'
'/00'.
performbdc_field using 'RMMG1-MATNR'
WA_MARA-MATNR.
"'MIRINDA'.
performbdc_field using 'RMMG1-MBRSH'
WA_MARA-MBRSH.
"'F'.
performbdc_field using 'RMMG1-MTART'
WA_MARA-MTART.
"'FGTR'.
performbdc_dynpro using 'SAPLMGMM' '0070'.
performbdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
performbdc_field using 'BDC_OKCODE'
'=ENTR'.
performbdc_field using 'MSICHTAUSW-KZSEL(01)'
'X'.
performbdc_dynpro using 'SAPLMGMM' '4004'.
performbdc_field using 'BDC_OKCODE'
'=BU'.
performbdc_field using 'MAKT-MAKTX'
WA_MARA-MAKTX.
"' COLD DRINK'.
performbdc_field using 'BDC_CURSOR'
'MARA-MEINS'.
performbdc_field using 'MARA-MEINS'
WA_MARA-MEINS.
"'L'.
performbdc_field using 'MARA-MTPOS_MARA'
'NORM'.
*perform bdc_transaction using 'MM01'.
*perform close_group.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = 'MM01'
* POST_LOCAL = NOVBLOCAL
* PRINTING = NOPRINT
* SIMUBATCH = ' '
* CTUPARAMS = ' '
TABLES
DYNPROTAB = BDCDATA
* EXCEPTIONS
* INTERNAL_ERROR = 1
* NOT_OPEN = 2
* QUEUE_ERROR = 3
* TCODE_INVALID = 4
* PRINTING_INVALID = 5
* POSTING_INVALID = 6
* OTHERS = 7
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
CALL FUNCTION 'BDC_CLOSE_GROUP'
* EXCEPTIONS
* NOT_OPEN = 1
* QUEUE_ERROR = 2
* OTHERS = 3
.
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*----------------------------------------------------------------------*
* Start new screen *
*----------------------------------------------------------------------*
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
*----------------------------------------------------------------------*
* Insert field *
*----------------------------------------------------------------------*
FORM BDC_FIELD USING FNAM FVAL.
* IF FVAL <> NODATA.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
* ENDIF.
someone help me for this bdc session program
Message was edited by: Matthew Billingham - removed virulent formatting