topic Re: Error handling in Session Method in Application Development and Automation Discussions

Error handling in Session Method

Former Member — Tue, 12 Jun 2007 04:02:13 GMT

Hi Experts,

In BDC Call Transaction we down load the errors for end users purpose. But in Session Method , how can end user can see the errors without going to SM35. Bcz end user dont know what is SM35.

Pls guide me how to solve this problem.

Thank You.

Siva Kumar

Re: Error handling in Session Method

Former Member — Tue, 12 Jun 2007 04:05:43 GMT

You could use bdcmsgcoll in sesion method to get errors or use this program RSBDCLOG to dowmload into .txt file.

Re: Error handling in Session Method

Former Member — Tue, 12 Jun 2007 04:08:53 GMT

can u give an example for this

Thank you

Re: Error handling in Session Method

Former Member — Tue, 12 Jun 2007 04:16:51 GMT

there is no option in sm35 to download ,so we use program to download by using session name in selection

RSBDCLOG

or use We have the tables BDCLD and BDCLM, which will capture the log details inthe session. Firstly, sesssion should be processed. After that log will be created. Then caputure the information into an internal table using BDCLM and BDCLD.

See the example program with error handling

REPORT zreport_bdc_session_01 .

**// Include program for top and global data declaration

*INCLUDE zreport_bdc_01_top.

*// Include for subroutines

*INCLUDE zreport_bdc_01_forms.

*// Types

TYPES:

BEGIN OF typ_itab,

lifnr TYPE rf02k-lifnr,

ekorg TYPE rf02k-ekorg,

ktokk TYPE rf02k-ktokk,

name1 TYPE lfa1-name1,

sortl TYPE lfa1-sortl,

ort01 TYPE lfa1-ort01,

pstlz TYPE lfa1-pstlz,

land1 TYPE lfa1-land1,

waers TYPE lfm1-waers,

END OF typ_itab.

*// GlobalInternal tables

DATA:

it_itab TYPE STANDARD TABLE OF typ_itab,

it_bdc TYPE STANDARD TABLE OF bdcdata,

it_msg TYPE STANDARD TABLE OF bdcmsgcoll.

*// Global worlareas

DATA:

wa_itab TYPE typ_itab,

wa_bdc TYPE bdcdata,

wa_msg TYPE bdcmsgcoll.

*// global variables.

DATA:

g_ret TYPE c ,

g_file TYPE char20,

g_msg TYPE char100,

tmp_file TYPE string,

g_qid TYPE apqi-qid.

*// global constants.

CONSTANTS:

c_e TYPE c VALUE 'E',

c_s TYPE c VALUE 'S'.

*// selection screen

PARAMETERS:

p_file TYPE char20 OBLIGATORY DEFAULT 'C:\VENDOR19.TXT'.

g_file = p_file.

CALL FUNCTION 'WS_QUERY'

EXPORTING

filename = g_file

query = 'FE'

IMPORTING

return = g_ret.

IF g_ret NE '1'.

MESSAGE text-001 TYPE c_e.

STOP.

ENDIF.

START-OF-SELECTION.

tmp_file = p_file.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = tmp_file

FILETYPE = 'ASC'

has_field_separator = 'X'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
CHECK_BOM = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

data_tab = it_itab

EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_READ_ERROR = 2
NO_BATCH = 3
GUI_REFUSE_FILETRANSFER = 4
INVALID_TYPE = 5
NO_AUTHORITY = 6
UNKNOWN_ERROR = 7
BAD_DATA_FORMAT = 8
HEADER_NOT_ALLOWED = 9
SEPARATOR_NOT_ALLOWED = 10
HEADER_TOO_LONG = 11
UNKNOWN_DP_ERROR = 12
ACCESS_DENIED = 13
DP_OUT_OF_MEMORY = 14
DISK_FULL = 15
DP_TIMEOUT = 16
OTHERS = 17

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT
DEST = FILLER8

group = 'ZSESSION01'

HOLDDATE = FILLER8

keep = 'X'

user = sy-uname

RECORD = FILLER1
PROG = SY-CPROG

IMPORTING

qid = g_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.

ENDIF.

LOOP AT it_itab INTO wa_itab.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0107' 'X'.

PERFORM f_bdcdata:

TABLES it_bdc

USING 'BDC_CURSOR' 'RF02K-KTOKK',

TABLES it_bdc

USING 'BDC_OKCODE' '/00',

TABLES it_bdc

USING 'RF02K-LIFNR' wa_itab-lifnr,

TABLES it_bdc

USING 'RF02K-EKORG' wa_itab-ekorg,

TABLES it_bdc

USING 'RF02K-KTOKK' wa_itab-ktokk.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0110' 'X'.

PERFORM f_bdcdata:

TABLES it_bdc

USING 'BDC_CURSOR' 'LFA1-LAND1',

TABLES it_bdc

USING 'BDC_OKCODE' '/00',

TABLES it_bdc

USING 'LFA1-NAME1' wa_itab-name1,

TABLES it_bdc

USING 'LFA1-SORTL' wa_itab-sortl,

TABLES it_bdc

USING 'LFA1-ORT01' wa_itab-ort01,

TABLES it_bdc

USING 'LFA1-PSTLZ' wa_itab-pstlz,

TABLES it_bdc

USING 'LFA1-LAND1' wa_itab-land1.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0120' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_OKCODE' '/00'.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0310' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_CURSOR' 'LFM1-WAERS',

TABLES it_bdc

USING 'BDC_OKCODE' '/00',

TABLES it_bdc

USING 'LFM1-WAERS' wa_itab-waers.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPMF02K' '0320' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_CURSOR' 'RF02K-LIFNR',

TABLES it_bdc

USING 'BDC_OKCODE' '=ENTR'.

PERFORM f_bdcsys TABLES it_bdc

USING 'SAPLSPO1' '0300' 'X'.

PERFORM f_bdcdata: TABLES it_bdc

USING 'BDC_OKCODE' '=YES'.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

tcode = 'MK01'

POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT
SIMUBATCH = ' '
CTUPARAMS = ' '

TABLES

dynprotab = it_bdc

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.

ENDIF.

REFRESH: it_bdc.

ENDLOOP.

LOOP AT it_msg INTO wa_msg WHERE msgtyp = c_e .

CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
id = wa_msg-msgid
lang = sy-langu
no = wa_msg-msgnr
v1 = wa_msg-msgv1
v2 = wa_msg-msgv2
v3 = wa_msg-msgv3
v4 = wa_msg-msgv4
IMPORTING
msg = g_msg
EXCEPTIONS
not_found = 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.

WRITE:/ ' MESSAGE: ', g_msg .
ENDLOOP.

REFRESH it_msg.

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.

ENDIF.

SUBMIT rsbdcbtc WITH qid = g_qid .

&----

*& Form f_bdcsys

&----

text

----

-->P_IT_BDC text
-->P_0129 text
-->P_0130 text
-->P_0131 text

----

FORM f_bdcsys TABLES p_it_bdc STRUCTURE bdcdata

USING value(p_0129)

value(p_0130)

value(p_0131).

p_it_bdc-program = p_0129.

p_it_bdc-dynpro = p_0130.

p_it_bdc-dynbegin = p_0131.

APPEND p_it_bdc TO p_it_bdc.

CLEAR p_it_bdc.

ENDFORM. " f_bdcsys

&----

*& Form f_bdcdata

&----

text

----

-->P_IT_BDC text
-->P_0168 text
-->P_0169 text

----

FORM f_bdcdata TABLES p_it_bdc STRUCTURE bdcdata

USING value(p_0168)

value(p_0169).

p_it_bdc-fnam = p_0168.

p_it_bdc-fval = p_0169.

APPEND p_it_bdc TO p_it_bdc.

CLEAR p_it_bdc.

ENDFORM. " f_bdcdata

You can process the session by going in tcode SM35

seshu

reward points if helpful.

Re: Error handling in Session Method

Former Member — Tue, 12 Jun 2007 04:32:27 GMT

hi,

We have the tables BDCLD and BDCLM, which will capture the log details

inthe session. Firstly, sesssion should be processed. After that log

will be created. Then caputure the information into an internal table

using BDCLM and BDCLD.

for downloading log data then use Program : RSBDCLOG

REPORT zgopi_report

NO STANDARD PAGE HEADING

LINE-SIZE 255

MESSAGE-ID ZRASH.

************************************************************************

Internal Table Declarations *

************************************************************************

*--Internal Table for Data Uploading.

DATA : BEGIN OF IT_FFCUST OCCURS 0,

KUNNR(10),

BUKRS(4),

KTOKD(4),

ANRED(15),

NAME1(35),

SORTL(10),

STRAS(35),

ORT01(35),

PSTLZ(10),

LAND1(3),

SPRAS(2),

AKONT(10),

END OF IT_FFCUST.

*--Internal Table to Store Error Records.

DATA : BEGIN OF IT_ERRCUST OCCURS 0,

KUNNR(10),

EMSG(255),

END OF IT_ERRCUST.

*--Internal Table to Store Successful Records.

DATA : BEGIN OF IT_SUCCUST OCCURS 0,

KUNNR(10),

SMSG(255),

END OF IT_SUCCUST.

*--Internal Table for Storing the BDC data.

DATA : IT_CUSTBDC LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

*--Internal Table for storing the messages.

DATA : IT_CUSTMSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

DATA : V_FLAG1(1) VALUE ' ',

"Flag used for opening session.

V_TLINES LIKE SY-TABIX,

"For storing total records processed.

V_ELINES LIKE SY-TABIX,

"For storing the no of error records.

V_SLINES LIKE SY-TABIX.

"For storing the no of success records.

************************************************************************

Selection screen *

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK B1.

PARAMETERS : V_FNAME LIKE RLGRAP-FILENAME,

V_SESNAM LIKE RLGRAP-FILENAME.

SELECTION-SCREEN END OF BLOCK B1.

************************************************************************

Start-of-selection *

************************************************************************

START-OF-SELECTION.

*-- Form to upload flatfile data into the internal table.

PERFORM FORM_UPLOADFF.

************************************************************************

TOP-OF-PAGE *

************************************************************************

TOP-OF-PAGE.

WRITE:/ 'Details of the error and success records for the transaction'

ULINE.

SKIP.

************************************************************************

End of Selection *

************************************************************************

END-OF-SELECTION.

*-- Form to Generate a BDC from the Uploaded Internal table

PERFORM FORM_BDCGENERATE.

*--To write the totals and the session name.

PERFORM FORM_WRITEOP.

&----

*& Form form_uploadff

&----

Form to upload flatfile data into the internal table.

----

FORM FORM_UPLOADFF .

*--Variable to change the type of the parameter file name.

DATA : LV_FILE TYPE STRING.

LV_FILE = V_FNAME.

*--Function to upload the flat file to the internal table.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = LV_FILE

FILETYPE = 'ASC'

HAS_FIELD_SEPARATOR = 'X'

HEADER_LENGTH = 0
READ_BY_LINE = 'X'
DAT_MODE = ' '
IMPORTING
FILELENGTH =
HEADER =

TABLES

DATA_TAB = IT_FFCUST

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_READ_ERROR = 2

NO_BATCH = 3

GUI_REFUSE_FILETRANSFER = 4

INVALID_TYPE = 5

NO_AUTHORITY = 6

UNKNOWN_ERROR = 7

BAD_DATA_FORMAT = 8

HEADER_NOT_ALLOWED = 9

SEPARATOR_NOT_ALLOWED = 10

HEADER_TOO_LONG = 11

UNKNOWN_DP_ERROR = 12

ACCESS_DENIED = 13

DP_OUT_OF_MEMORY = 14

DISK_FULL = 15

DP_TIMEOUT = 16

OTHERS = 17

IF SY-SUBRC = 0.

*--Deleting the headings from the internal table.

DELETE IT_FFCUST INDEX 1.

*--Getting the total number of records uploaded.

DESCRIBE TABLE IT_FFCUST LINES V_TLINES.

ENDIF.

ENDFORM. " form_uploadff

&----

*& Form Form_bdcgenerate

&----

Form to Generate a BDC from the Uploaded Internal table

----

FORM FORM_BDCGENERATE .

*--Generating the BDC table for the fields of the internal table.

LOOP AT IT_FFCUST.

PERFORM POPULATEBDC USING :

'X' 'SAPMF02D' '0105',

' ' 'BDC_OKCODE' '/00' ,

' ' 'RF02D-KUNNR' IT_FFCUST-KUNNR,

' ' 'RF02D-BUKRS' IT_FFCUST-BUKRS,

' ' 'RF02D-KTOKD' IT_FFCUST-KTOKD,

'X' 'SAPMF02D' '0110' ,

' ' 'BDC_OKCODE' '/00',

' ' 'KNA1-ANRED' IT_FFCUST-ANRED,

' ' 'KNA1-NAME1' IT_FFCUST-NAME1,

' ' 'KNA1-SORTL' IT_FFCUST-SORTL,

' ' 'KNA1-STRAS' IT_FFCUST-STRAS,

' ' 'KNA1-ORT01' IT_FFCUST-ORT01,

' ' 'KNA1-PSTLZ' IT_FFCUST-PSTLZ,

' ' 'KNA1-LAND1' IT_FFCUST-LAND1,

' ' 'KNA1-SPRAS' IT_FFCUST-SPRAS,

'X' 'SAPMFO2D' '0120',

' ' 'BDC_OKCODE' '/00',

'X' 'SAPMF02D' '0125',

' ' 'BDC_OKCODE' '/00',

'X' 'SAPMF02D' '0130',

' ' 'BDC_OKCODE' '=ENTR',

'X' 'SAPMF02D' '0340',

' ' 'BDC_OKCODE' '=ENTR',

'X' 'SAPMF02D' '0360',

' ' 'BDC_OKCODE' '=ENTR',

'X' 'SAPMF02D' '0210',

' ' 'KNB1-AKONT' IT_FFCUST-AKONT,

' ' 'BDC_OKCODE' '/00',

'X' 'SAPMF02D' '0215',

' ' 'BDC_OKCODE' '/00',

'X' 'SAPMF02D' '0220',

' ' 'BDC_OKCODE' '/00',

'X' 'SAPMF02D' '0230',

' ' 'BDC_OKCODE' '=UPDA'.

*--Calling the transaction 'fd01'.

CALL TRANSACTION 'FD01' USING IT_CUSTBDC MODE 'N' UPDATE 'S'

MESSAGES INTO IT_CUSTMSG.

IF SY-SUBRC <> 0.

*--Populating the error records internal table.

IT_ERRCUST-KUNNR = IT_FFCUST-KUNNR.

APPEND IT_ERRCUST.

CLEAR IT_ERRCUST.

*--Opening a session if there is an error record.

IF V_FLAG1 = ' '.

PERFORM FORM_OPENSESSION.

V_FLAG1 = 'X'.

ENDIF.

*--Inserting the error records into already open session.

IF V_FLAG1 = 'X'.

PERFORM FORM_INSERT.

ENDIF.

*--Populating the Success records internal table.

ELSE.

IT_SUCCUST-KUNNR = IT_FFCUST-KUNNR.

APPEND IT_SUCCUST.

CLEAR IT_SUCCUST.

ENDIF.

*--Displaying the messages.

IF NOT IT_CUSTMSG[] IS INITIAL.

PERFORM FORM_FORMATMSG.

ENDIF.

*--Clearing the message and bdc tables.

CLEAR : IT_CUSTBDC[],IT_CUSTMSG[].

ENDLOOP.

*--Getting the total no of error records.

DESCRIBE TABLE IT_ERRCUST LINES V_ELINES.

*--Getting the total no of successful records.

DESCRIBE TABLE IT_SUCCUST LINES V_SLINES.

*--Closing the session only if it is open.

IF V_FLAG1 = 'X'.

PERFORM FORM_CLOSESESS.

ENDIF.

ENDFORM. " Form_bdcgenerate

&----

*& Form populatebdc

&----

FOrm to Populate the BDC table.

----

FORM POPULATEBDC USING VALUE(P_0178)

VALUE(P_0179)

VALUE(P_0180).

IF P_0178 = 'X'.

IT_CUSTBDC-PROGRAM = P_0179.

IT_CUSTBDC-DYNPRO = P_0180.

IT_CUSTBDC-DYNBEGIN = 'X'.

ELSE.

IT_CUSTBDC-FNAM = P_0179.

IT_CUSTBDC-FVAL = P_0180.

ENDIF.

APPEND IT_CUSTBDC.

CLEAR IT_CUSTBDC.

ENDFORM. " populatebdc

&----

*& Form FORM_OPENSESSION

&----

Form to Open a session.

----

FORM FORM_OPENSESSION .

*--Variable to convert the given session name into reqd type.

DATA : LV_SESNAM(12).

LV_SESNAM = V_SESNAM.

*--Opening a session.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = LV_SESNAM

HOLDDATE = '20040805'

KEEP = 'X'

USER = SY-UNAME

PROG = SY-CPROG

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.

WRITE 😕 'Session not open'.

ENDIF.

ENDFORM. " FORM_OPENSESSION

&----

*& Form FORM_INSERT

&----

fORM TO INSERT ERROR RECOED INTO A SESSION.

----

FORM FORM_INSERT .

*--Inserting the record into session.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'FD01'

POST_LOCAL = NOVBLOCAL
PRINTING = NOPRINT
SIMUBATCH = ' '
CTUPARAMS = ' '

TABLES

DYNPROTAB = IT_CUSTBDC

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.

WRITE 😕 'Unable to insert the record'.

ENDIF.

ENDFORM. " FORM_INSERT

&----

*& Form FORM_CLOSESESS

&----

Form to Close the Open Session.

----

FORM FORM_CLOSESESS .

CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS

NOT_OPEN = 1

QUEUE_ERROR = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

ENDIF.

ENDFORM. " FORM_CLOSESESS

&----

*& Form FORM_FORMATMSG

&----

Form to format messages.

----

FORM FORM_FORMATMSG .

*--Var to store the formatted msg.

DATA : LV_MSG(255).

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = SY-MSGID

LANG = SY-LANGU

NO = SY-MSGNO

V1 = SY-MSGV1

V2 = SY-MSGV2

V3 = SY-MSGV3

V4 = SY-MSGV4

IMPORTING

MSG = LV_MSG

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

IF SY-SUBRC = 0.

WRITE 😕 LV_MSG.

ENDIF.

ULINE.

ENDFORM. " FORM_FORMATMSG

&----

*& Form form_writeop

&----

To write the totals and the session name.

----

FORM FORM_WRITEOP .

WRITE 😕 'Total Records Uploaded :',V_TLINES,

/ 'No of Error Records :',V_ELINES,

/ 'No of Success Records :',V_SLINES,

/ 'Name of the Session :',V_SESNAM.

ULINE.

Re: Error handling in Session Method

Former Member — Tue, 12 Jun 2007 10:40:19 GMT

Hi Shiv,

There is no need to write long code..

..after executing your program..

..submit the program with your session name with skip first screen..

..it will automatically generate logs..

Thanks

Krish