call transaction with errors

[Former Member]

please send me code for a transaction that uses call transaction method with error handling.my mail id :<email removed by moderator>

from

srinivas

[Peter_Inotai]

You have to use "MESSAGES INTO ITAB" addition and check the content of this internal table.

Best regards,

Peter

DATA: ITAB TYPE TABLE OF BDCMSGCOLL. 

CALL TRANSACTION 'ABC'  USING BDCDATA  MODE 'N' 
                         MESSAGES INTO ITAB. 

LOOP AT ITAB.
* put your checks here
ENDLOOP.

[Former Member]

hi,

check the sample code.In this call transaction error records are handlled using <b>FORMAT_MESSAGE</b> AND <b>BDCMSGCOLL.</b>.EVEN SESSION IS OPENED FOR CHECKING THOSE RECORDS.

REPORT ztest_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.

ENDFORM. " form_writeop

[Former Member]

Hi,

REPORT ZBDC_TRANSACTION1 .

*----

---

• TO STORE THE MESSAGE

*----

---

DATA: V_MSG(100).

*----

---

• DECLARATION OF INTERNAL TABLE

*----

---

DATA: BEGIN OF ITAB OCCURS 0,

MBRSH LIKE RMMG1-MBRSH,

MTART LIKE RMMG1-MTART,

MATNR LIKE RMMG1_REF-MATNR,

KZSEL1 LIKE MSICHTAUSW-KZSEL,

KZSEL2 LIKE MSICHTAUSW-KZSEL,

MAKTX LIKE MAKT-MAKTX,

MEINS LIKE MARA-MEINS,

MATKL LIKE MARA-MATKL,

MTPOS_MARA LIKE MARA-MTPOS_MARA,

END OF ITAB.

*----

---

• DECLARATION OF INTERNAL TABLE FOR BDCDATA

*----

---

DATA: BDCITAB LIKE BDCDATA OCCURS 0 WITH HEADER LINE.

*----

---

• DECLARATION OF INTERNAL TABLE FOR BDCMSGCOLL

*----

---

DATA: BDCMSG LIKE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

*----

---

• DECLARATION OF INTERNAL TABLE TO STORE ALL MESSAGES

*----

---

DATA: BEGIN OF MSGTAB OCCURS 0,

MSG(100),

END OF MSGTAB.

*----

---

• SELECTION SCREEN

*----

---

SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: P_FILE LIKE RLGRAP-FILENAME OBLIGATORY

DEFAULT 'C:\WINDOWS\DESKTOP\'.

PARAMETERS: R_APP RADIOBUTTON GROUP G1 DEFAULT 'X',

R_PRE RADIOBUTTON GROUP G1.

PARAMETERS: P_MSGFIL LIKE RLGRAP-FILENAME DEFAULT 'SAI-MSG.TXT'.

SELECTION-SCREEN: END OF BLOCK B1.

*----

---

• START OF SELECTION

*----

---

*----

---

• FIRST UPLOAD THE FILE

*----

---

PERFORM UPLOAD_FILE.

• CHECK IF DATA IS AVAILABLE IN INTERNAL TABLE OR NOT

IF NOT ITAB[] IS INITIAL.

LOOP AT ITAB.

• FIRST POPULATE BDC INTERNAL TABLE

PERFORM POPULATE_BDCDATA.

• CALL THE TRANSACTION TO UPDATE THE DATA

PERFORM UPDATE_BDCDATA.

• NOW WRITE THE MESSAGES POPULATED ON TO THE SCREEN

PERFORM WRITE_MESSAGES.

• REFRESH THE BDCITAB INTERNAL TABLE

REFRESH BDCITAB.

• REFRESH THE BDCMSG INTERNAL TABLE

REFRESH BDCMSG.

ENDLOOP.

• NOW START DOWNLOADING THE MESSAGES

IF R_APP = 'X'. "START DOWNLOADING MESSAGES INTO APP. SERVER

PERFORM DOWNLOAD_MSG_INTO_APPSERV.

ELSE. "START DOWNLOADING MESSAGES INTO PRE. LAYER

PERFORM DOWNLOAD_MSG_INTO_PRESERV.

ENDIF.

ELSE.

WRITE:/ 'NO DATA FOUND TO UPDATE DATABASE'.

ENDIF.

• REFRESH THE MSGTAB INTERNAL TABLE

REFRESH MSGTAB.

&----

---

*& Form UPLOAD_FILE

&----

---

• TO UPLOAD THE FILE MENTIONED IN THE SCREEN

----

---

FORM UPLOAD_FILE.

• CALL THE FUNCTION WS_UPLOAD TO UPLOAD DATA FROM FILE TO INTERNAL TABLE

CALL FUNCTION 'WS_UPLOAD'

EXPORTING

FILENAME = P_FILE

FILETYPE = 'ASC'

TABLES

DATA_TAB = ITAB

EXCEPTIONS

CONVERSION_ERROR = 1

FILE_OPEN_ERROR = 2

FILE_READ_ERROR = 3

INVALID_TYPE = 4

NO_BATCH = 5

UNKNOWN_ERROR = 6

INVALID_TABLE_WIDTH = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

OTHERS = 10

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " UPLOAD_FILE

&----

---

*& Form POPULATE_BDCDATA

&----

---

• TO POPULATE BDCITAB INTERNAL TABLE

----

---

FORM POPULATE_BDCDATA.

----

---

• WRITE THE FIRST SCREEN NAME, SCREEN NUMBER IN THE FIRST ROW

----

---

PERFORM WRITE_DATA USING : 'SAPLMGMM' '0060' 'X',

----

---

• WRITE THE VALUES IN THE FIELDS GIVEN BELOW IN THE FIRST SCREEN

• RMMG1-MBRSH

• RMMG1-MTART

• RMMG1_REF-MATNR

----

---

: 'RMMG1-MBRSH' ITAB-MBRSH SPACE,

: 'RMMG1-MTART' ITAB-MTART SPACE,

: 'RMMG1_REF-MATNR' ITAB-MATNR SPACE,

----

---

• WRITE THE OK_CODE SO AS TO GET TO THE NEXT SCREEN

----

---

: 'BDC_OKCODE' '=AUSW' SPACE,

----

---

• NOW GO TO THE NEXT SCREEN TO ENTER VALUES IN OTHER FIELDS

----

---

: 'SAPLMGMM' '0070' 'X',

----

---

• WRITE THE VALUES IN THE FIELDS GIVEN BELOW IN THE NEXT SCREEN

• MSICHTAUSW-KZSEL(01)

• MSICHTAUSW-KZSEL(02)

----

---

: 'MSICHTAUSW-KZSEL(01)' ITAB-KZSEL1 SPACE,

: 'MSICHTAUSW-KZSEL(02)' ITAB-KZSEL2 SPACE,

----

---

• WRITE THE OK_CODE SO AS TO GET TO THE NEXT SCREEN

----

---

: 'BDC_OKCODE' '=ENTR' SPACE,

----

---

• NOW GO TO THE NEXT SCREEN TO ENTER VALUES IN OTHER FIELDS

----

---

: 'SAPLMGMM' '4004' 'X',

----

---

• WRITE THE VALUES IN THE FIELDS GIVEN BELOW IN THE NEXT SCREEN

• MAKT-MAKTX

• MARA-MEINS

• MARA-MATKL

• MARA-MTPOS_MARA

----

---

: 'MAKT-MAKTX' ITAB-MAKTX SPACE,

: 'MARA-MEINS' ITAB-MEINS SPACE,

: 'MARA-MATKL' ITAB-MATKL SPACE,

: 'MARA-MTPOS_MARA' ITAB-MTPOS_MARA SPACE,

----

---

• NOW WRITE THE OK_CODE TO SAVE THE DATA

----

---

: 'BDC_OKCODE' '=BU' SPACE.

ENDFORM. " POPULATE_BDCDATA

&----

---

*& Form POPULATE_BDCDATA

&----

---

• TO POPULATE BDCITAB INTERNAL TABLE

----

---

FORM WRITE_DATA USING TXT1 TXT2 FLAG.

IF FLAG = 'X'.

BDCITAB-PROGRAM = TXT1.

BDCITAB-DYNPRO = TXT2.

BDCITAB-DYNBEGIN = 'X'.

ELSE.

BDCITAB-FNAM = TXT1.

BDCITAB-FVAL = TXT2.

ENDIF.

APPEND BDCITAB.

CLEAR BDCITAB.

ENDFORM.

&----

---

*& Form UPDATE_BDCDATA

&----

---

• THIS IS USEFUL TO CALL THE TRANSACTION AND UPDATE THE DATABASE

----

---

FORM UPDATE_BDCDATA.

• CALL THE TRANSSACTION TO UPDATE THE DATA

CALL TRANSACTION 'MM01' "MATERIAL MANAGEMENT SCREEN

USING BDCITAB "ALREADY POPULATED BDCDATA STRUCTURE

MODE 'A' "TO SHOW ALL SCREENS

UPDATE 'S' "TO UPDATE DATA SYNCHORNOUSLY

MESSAGES INTO BDCMSG. "POPULATE ALL MESSAGES INTO BDCMSG TABLE

ENDFORM. " UPDATE_BDCDATA

&----

---

*& Form WRITE_MESSAGES

&----

---

• TO WRITE THE MESSAGES POPULATED IN BDCMSG INTERNAL TABLE

----

---

FORM WRITE_MESSAGES.

LOOP AT BDCMSG.

• TO FORMAT ALL MESSAGES INTO A SINGLE MESSAGES

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = BDCMSG-MSGID

LANG = SY-LANGU

NO = BDCMSG-MSGNR

V1 = BDCMSG-MSGV1

V2 = BDCMSG-MSGV2

V3 = BDCMSG-MSGV3

V4 = BDCMSG-MSGV4

IMPORTING

MSG = V_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.

ELSE.

• WRITE THE MESSAGE ON TO THE SCREEN

CONCATENATE BDCMSG-MSGTYP ':' V_MSG INTO V_MSG.

• NOW ADD THE MESSAGE TO THE MSG INTERNAL TABLE

MSGTAB-MSG = V_MSG.

APPEND MSGTAB.

CLEAR MSGTAB.

WRITE:/ V_MSG.

ENDIF.

ENDLOOP.

ENDFORM. " WRITE_MESSAGES

&----

---

*& Form DOWNLOAD_MSG_INTO_APPSERV

&----

---

• TO DOWNLOAD ALL MESSAGES INTO APPLICATION SERVER AS A FILE

----

---

FORM DOWNLOAD_MSG_INTO_APPSERV.

OPEN DATASET P_MSGFIL FOR OUTPUT IN TEXT MODE.

IF SY-SUBRC = 0.

LOOP AT MSGTAB.

TRANSFER MSGTAB TO P_MSGFIL.

ENDLOOP.

CLOSE DATASET P_MSGFIL.

ENDIF.

ENDFORM. " DOWNLOAD_MSG_INTO_APPSERV

&----

---

*& Form DOWNLOAD_MSG_INTO_PRESERV

&----

---

• DOWNLOAD MESSAGES INTO PRESENTATION LAYER MACHINE

----

---

FORM DOWNLOAD_MSG_INTO_PRESERV.

CALL FUNCTION 'WS_DOWNLOAD'

EXPORTING

FILENAME = P_MSGFIL

FILETYPE = 'ASC'

TABLES

DATA_TAB = MSGTAB

EXCEPTIONS

FILE_OPEN_ERROR = 1

FILE_WRITE_ERROR = 2

INVALID_FILESIZE = 3

INVALID_TYPE = 4

NO_BATCH = 5

UNKNOWN_ERROR = 6

INVALID_TABLE_WIDTH = 7

GUI_REFUSE_FILETRANSFER = 8

CUSTOMER_ERROR = 9

OTHERS = 10

.

IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " DOWNLOAD_MSG_INTO_PRESERV

Thanks

PK