topic Re: catching errors in call transaction in Application Development and Automation Discussions

catching errors in call transaction

Former Member — Thu, 21 Jun 2007 03:50:19 GMT

Hi ,

Plz provide a sample piece which is used to catch errors in call transaction .

Also if anyone will be able to explain it , it will be of much help to me .

I know that we use some structure to capture the error , but need a code for it .

Thnx ,

Abhishek .

Re: catching errors in call transaction

Former Member — Thu, 21 Jun 2007 03:53:47 GMT

hi,

call transaction doesn't provide errror handlling we have to take care of it using BDCMSGCOLL structure and FORMAT_MESSAGES.u can open session and u can check them in sm35 also and u can store the error records into file and u can reprocess them later.

check the example:

*CALL TRANSACTION ERROR HANDLLING

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

Message was edited by:

Sudha Rani Pathuri

Re: catching errors in call transaction

Former Member — Thu, 21 Jun 2007 03:54:03 GMT

Hi,

You have to use the messages addition in the call transaction..

Ex..



DATA: T_MESSAGES TYPE STANDARD TABLE OF MSGCOLL.
DATA: S_MESSAGES TYPE MSGCOLL.

* call the transaction.
CALL TRANSACTION 'MM01' USING BDCDATA MESSAGES INTO T_MESSAGES.

* check if there is any error messages.
LOOP AT T_MESSAGES WHERE TYPE = 'E' OR TYPE = 'A'.
  EXIT.
ENDLOOP.

IF SY-SUBRC = 0.
  WRITE: / 'Error in call transaction'.
ELSE.
  WRITE: / 'No errors'.
ENDIF.

Thanks

Naren

Re: catching errors in call transaction

Former Member — Thu, 21 Jun 2007 03:54:34 GMT

Hi,

See the code

CALL TRANSACTION 'F-65'

USING gt_bdcdata

MODE lv_callmode

UPDATE 'S'

MESSAGES INTO gt_messages.

LOOP AT gt_messages INTO gs_messages.

CLEAR gt_messages_disp.

gt_messages_disp-line1 = lv_line1.

gt_messages_disp-line2 = lv_line2.

gt_messages_disp-doc_no = lv_doc_numbers.

MOVE-CORRESPONDING gs_messages TO gt_messages_disp.

APPEND gt_messages_disp.

ENDLOOP.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

id = gt_messages_disp-msgid

lang = sy-langu

no = gt_messages_disp-msgnr

v1 = gt_messages_disp-msgv1

v2 = gt_messages_disp-msgv2

v3 = gt_messages_disp-msgv3

v4 = gt_messages_disp-msgv4

IMPORTING

msg = lv_msgtxt

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.

Now here you can get the message text and it is on you how you want to display the same.

Regards,

Atish

Re: catching errors in call transaction

jayanthi_jayaraman — Thu, 21 Jun 2007 03:57:32 GMT

Hi,

Try this code.If you run bdc in mode N, you can use the fm suggested in this code to capture the errors.If you debugged the code, you will able to get it clearly.

DATA : T_BDCDATA TYPE BDCDATA OCCURS 0 WITH HEADER LINE.

DATA: T_MESSTAB TYPE BDCMSGCOLL OCCURS 0 WITH HEADER LINE.

DATA: W_TEXTOUT LIKE T100-TEXT.

CALL TRANSACTION <tcode> USING T_BDCDATA MODE 'N'

UPDATE 'L'

MESSAGES INTO T_MESSTAB.

IF SY-SUBRC <> 0.

LOOP AT T_MESSTAB.

CLEAR T_ERROR

IF T_MESSTAB-MSGTYP = 'E'.

CALL FUNCTION 'MESSAGE_TEXT_BUILD'

EXPORTING

MSGID = T_MESSTAB-MSGID

MSGNR = T_MESSTAB-MSGNR

MSGV1 = T_MESSTAB-MSGV1

MSGV2 = T_MESSTAB-MSGV2

MSGV3 = T_MESSTAB-MSGV3

MSGV4 = T_MESSTAB-MSGV4

IMPORTING

MESSAGE_TEXT_OUTPUT = W_TEXTOUT.

IF SY-SUBRC = 0.

MOVE : T_MAIN-PERNR TO T_ERROR-PERNR,

T_MAIN-AMOUNT TO T_ERROR-AMOUNT,

T_MAIN-W_TYPE TO T_ERROR-W_TYPE,

W_TEXTOUT TO T_ERROR-ERROR.

APPEND T_ERROR.

CLEAR T_ERROR.

DELETE T_MESSTAB.

ENDIF.

ENDLOOP.

ENDFORM. " SUB_MSGTAB

ENDIF.

Reward points if it helps.

Re: catching errors in call transaction

Former Member — Thu, 21 Jun 2007 04:01:14 GMT

Gupta,

By using the BDCMSGCOLL you can get only messages ,but if you want to get erro reords you have use one more function module FORMAT_MESSAGE

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

use this code

CALL TRANSACTION tcode USING i_bdcdata MODE l_mode

UPDATE upd_n

MESSAGES INTO err_data.

IF NOT err_data[] IS INITIAL.

LOOP AT err_data WHERE msgtyp EQ 'S' OR msgtyp EQ 'E'.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

id = err_data-msgid

lang = 'E'

no = err_data-msgnr

v1 = err_data-msgv1

v2 = err_data-msgv2

v3 = err_data-msgv3

v4 = err_data-msgv4

IMPORTING

msg = v_text

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.

ENDLOOP.

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

(OR)

After CALL transaction ,If sy-subrc ne 0

move those records into one internal table....

================================================

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

Don't forget to reward if useful.......