BDC for purchase order

Question

Hi guys I have written the following program to upload the purchase order data by using BDC call transaction method, now I want to write whatever is in the message table, I mean the errors if there are any and the other required fields. So can you please help me in writing that :
Thanks
Rajeev Gupta
*& Report  ZBDC_PURCHASEORDER                                          *
REPORT  zbdc_purchaseorder                      .
Definition of Structures *
DATA: bdctab LIKE bdcdata OCCURS 0 WITH HEADER LINE.
DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF itab OCCURS 0,
        vend_no(10),
        ord_typ(2),
        date(8),
        purch_org(4),
        purch_grp(3),
        plant(4),
        sloc(4),
        mat_grp(3),
        mat_no(18),
        quant(13),
        inc_term(3),
        inc_inf(28),
      END OF itab.
DATA: itab2 LIKE itab OCCURS 0 WITH HEADER LINE.
Definition of Variables *
DATA: v_tabix LIKE syst-tabix,
      v_tabix2(2) TYPE n,
      v_ekorg LIKE ekko-ekorg,
      v_werks LIKE ekpo-werks,
      v_lifnr LIKE ekko-lifnr,
      v_bednr LIKE ekpo-bednr,
      v_index LIKE syst-index,
      l1 LIKE syst-tabix,
      c_tabix(2),
      v_mat_no(18),
      v_mat_quant(16).
Definition of Constants *
START-OF-SELECTION *
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM create_bdcdata.
END-OF-SELECTION.
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data .
  CALL FUNCTION 'WS_UPLOAD'
    EXPORTING
      filename                = 'C:\Documents and Settings\ekansh\Desktop\purc_order.txt'
      filetype                = 'DAT'
    TABLES
      data_tab                = itab
    EXCEPTIONS
      conversion_error        = 1
      file_open_error         = 2
      file_read_error         = 3
      invalid_table_width     = 4
      invalid_type            = 5
      no_batch                = 6
      unknown_error           = 7
      gui_refuse_filetransfer = 8
      OTHERS                  = 9.
  itab2[] = itab[].
*write : / itab-vend_no.
ENDFORM.                    " get_data
*&      Form  create_bdcdata
      text
-->  p1        text
<--  p2        text
FORM create_bdcdata .
  DESCRIBE TABLE itab LINES l1.
  LOOP AT itab.
    v_tabix = syst-tabix.
    IF v_tabix = 1.
      MOVE v_tabix TO v_tabix2.
      PERFORM bdc_dynpro USING:
        'X'  'SAPMM06E'        '0100',
        ''   'BDC_OKCODE'      '/00',
        ''   'EKKO-LIFNR'      itab-vend_no,
        ''   'RM06E-BSART'     itab-ord_typ,
        ''   'RM06E-BEDAT'     itab-date,
        ''   'EKKO-EKORG'      itab-purch_org,
        ''   'EKKO-EKGRP'      itab-purch_grp,
        ''   'RM06E-WERKS'     itab-plant,
        ''   'RM06E-LGORT'     itab-sloc,
        ''   'RM06E-MATKL'     itab-mat_grp.
      PERFORM line_bdc_tab.
      v_lifnr = itab-vend_no.
      v_ekorg = itab-purch_org.
      v_werks = itab-plant.
     v_bednr = itab-bednr.
    ELSE.
      IF v_lifnr = itab-vend_no   AND
         v_ekorg = itab-purch_org AND
         v_werks = itab-plant.
       v_bednr = itab-bednr.
        v_tabix2 = v_tabix2 + 1.
        PERFORM line_bdc_tab.
      ELSE.
        PERFORM bdc_dynpro USING:
          'X'  'SAPMM06E'        '0100',
          ''   'BDC_OKCODE'      '/00',
          ''   'EKKO-LIFNR'      itab-vend_no,
          ''   'RM06E-BSART'     itab-ord_typ,
          ''   'RM06E-BEDAT'     itab-date,
          ''   'EKKO-EKORG'      itab-purch_org,
          ''   'EKKO-EKGRP'      itab-purch_grp,
          ''   'RM06E-WERKS'     itab-plant,
          ''   'RM06E-LGORT'     itab-sloc,
          ''   'RM06E-MATKL'     itab-mat_grp.
        CLEAR v_tabix2.
        v_tabix2 = v_tabix2 + 1.
        PERFORM line_bdc_tab.
        v_lifnr = itab-vend_no.
        v_ekorg = itab-purch_org.
        v_werks = itab-plant.
       v_bednr = itab-bednr.
      ENDIF.
    ENDIF.
    READ TABLE itab2 WITH KEY vend_no   = itab-vend_no
                              purch_org = itab-purch_org
                              plant     = itab-plant.
    IF v_tabix = 1.
      MOVE syst-tabix TO v_index.
    ENDIF.
    v_index = v_index + 1.
    READ TABLE itab2 INDEX v_index.
    IF itab2-vend_no   = itab-vend_no   AND
       itab2-purch_org = itab-purch_org AND
       itab2-plant     = itab-plant.
      IF l1 = v_tabix.
        PERFORM call_save.
        CALL TRANSACTION 'ME21' USING bdctab
        MODE 'A'
        UPDATE 'S'
        MESSAGES INTO messtab.
        CLEAR bdctab.
        REFRESH bdctab.
      ENDIF.
    ELSE.
      PERFORM call_save.
      CALL TRANSACTION 'ME21' USING bdctab
      MODE 'A'
      UPDATE 'S'
      MESSAGES INTO messtab.
      CLEAR bdctab.
      REFRESH bdctab.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " create_bdcdata
*&      Form  bdc_dynpro
      text
     -->P_0120   text
     -->P_0121   text
     -->P_0122   text
FORM bdc_dynpro  USING    p1
                          p2
                          p3.
  IF p1 = 'X'.
    bdctab-dynbegin = p1.
    bdctab-program = p2.
    bdctab-dynpro = p3.
  ELSE.
    bdctab-fnam = p2.
    bdctab-fval = p3.
  ENDIF.
  APPEND bdctab.
  CLEAR bdctab.
ENDFORM.                    " bdc_dynpro
*&      Form  line_bdc_tab
      text
-->  p1        text
<--  p2        text
FORM line_bdc_tab .
  PERFORM bdc_dynpro USING:
    'X'  'SAPMM06E'        '0120',
    ''   'BDC_OKCODE'      '/00'.
  MOVE v_tabix2 TO c_tabix.
  CONCATENATE 'EKPO-EMATN(' c_tabix ')'  INTO v_mat_no.
  CONCATENATE 'EKPO-MENGE(' c_tabix ')'  INTO v_mat_quant.
  CONDENSE v_mat_no.
  CONDENSE v_mat_quant.
  PERFORM bdc_dynpro USING:
    '' v_mat_no    itab-mat_no,
    '' v_mat_quant itab-quant.
ENDFORM.                    " line_bdc_tab
*&      Form  call_save
      text
-->  p1        text
<--  p2        text
FORM call_save .
  PERFORM bdc_dynpro USING:
   'X'  'SAPMM06E'        '0120',
    ''   'BDC_OKCODE'      '=BU',
    'X'    'SAPLSPO1'        '0300',
    ''     'BDC_OKCODE'      '=YES'.
ENDFORM.                    " call_save

Answer 1

<b>Overview</b>
loop at itab.
call transaction ......
if sy-subrc <> '0'.
perform error_message.
endif.
endloop.
form error_message.
call funtion 'format_message'. * to write the error message in to the screen
endform.
See the below example code for BDMSGCOLL Structure ...
REPORT znit_bdc_assign
NO STANDARD PAGE HEADING LINE-SIZE 255.
for programs doing a data transfer by creating a batch-input session
and
for programs doing a data transfer by CALL TRANSACTION USING
*******Here SESSION = ' ' and CTU = 'X'
DATA: ctumode LIKE ctu_params-dismode VALUE 'N' ,
cupdate LIKE ctu_params-updmode VALUE 'L' ,
e_group(12), "group name of error-session
e_user(12) , "user for error-session
e_keep VALUE 'X', "'X' = keep session if finished
e_hdate LIKE sy-datum.
DATA: smalllog VALUE ' ' ,
nodata VALUE '/'.
DATA: flag .
DATA DECLARATION *
TYPES: begin of t_result,
matnr(18) , "TYPE RMMG1-MATNR
maktx(40) , "TYPE makt-maktx
bismt(18) , "TYPE mara-bismt
brgew(13) , "TYPE mara-brgew
gewei(3) , "TYPE mara-gewei
message(250), "Message
END OF t_result .
DATA : right TYPE STANDARD TABLE OF t_result ,
wrong TYPE STANDARD TABLE OF t_result ,
wa_result TYPE t_result .
data definition
Batchinputdata of single transaction
DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE.
messages of call transaction
DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE.
error session opened (' ' or 'X')
DATA: e_group_opened.
message texts
TABLES: t100.
*INITIALIZATION
INITIALIZATION.
MOVE sy-uname TO e_user .
Start new transaction according to parameters *
FORM bdc_transaction USING tcode.
DATA: l_mstring(480).
DATA: l_subrc LIKE sy-subrc.
batch input session
REFRESH messtab.
CALL TRANSACTION tcode USING bdcdata
MODE ctumode
UPDATE cupdate
MESSAGES INTO messtab.
l_subrc = sy-subrc.
IF smalllog <> 'X'.
WRITE: / 'CALL_TRANSACTION', "CH01
tcode, "CH01
'returncode:'(i05), "CH01
l_subrc, "CH01
'RECORD:', "CH01
sy-index. "CH01
LOOP AT messtab.
SELECT SINGLE * FROM t100 WHERE sprsl = messtab-msgspra
AND arbgb = messtab-msgid
AND msgnr = messtab-msgnr.
IF sy-subrc = 0.
l_mstring = t100-text.
IF l_mstring CS '&1'.
REPLACE '&1' WITH messtab-msgv1 INTO l_mstring.
REPLACE '&2' WITH messtab-msgv2 INTO l_mstring.
REPLACE '&3' WITH messtab-msgv3 INTO l_mstring.
REPLACE '&4' WITH messtab-msgv4 INTO l_mstring.
ELSE.
REPLACE '&' WITH messtab-msgv1 INTO l_mstring.
REPLACE '&' WITH messtab-msgv2 INTO l_mstring.
REPLACE '&' WITH messtab-msgv3 INTO l_mstring.
REPLACE '&' WITH messtab-msgv4 INTO l_mstring.
ENDIF.
CONDENSE l_mstring.
WRITE: / messtab-msgtyp, l_mstring(250).
IF messtab-msgtyp = 'S' . "If successfully uploaded CH01
flag = '1' .
ELSE .
flag = '2' . "if not succesfully uploaded CH01
ENDIF.
MOVE l_mstring TO wa_result-message .
ELSE.
WRITE: / messtab.
ENDIF.
ENDLOOP.
SKIP.
Erzeugen fehlermappe ************************************************
IF l_subrc <> 0 AND e_group <> space.
IF e_group_opened = ' '.
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
client = sy-mandt
group = e_group
user = e_user
keep = e_keep
holddate = e_hdate.
e_group_opened = 'X'.
ENDIF.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
tcode = tcode
TABLES
dynprotab = bdcdata.
ENDIF.
ENDIF.
REFRESH bdcdata.
ENDFORM.
Start new screen *
FORM bdc_dynpro USING program dynpro.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM.
Insert field *
FORM bdc_field USING fnam fval.
IF fval <> nodata.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDIF.
ENDFORM.
*Structure of the internal table in which data has to be uploaded
TYPES: BEGIN OF t_final,
matnr(18) , "TYPE RMMG1-MATNR
maktx(40) , "TYPE makt-maktx
bismt(18) , "TYPE mara-bismt
brgew(13) , "TYPE mara-brgew
gewei(3) , "TYPE mara-gewei
END OF t_final .
DATA: answer , "return value in popup_to_comfirm
count1 TYPE i , "no. of records not succusfully uploaded
count2 TYPE i . "no. of records successfully uploaded
DATA: i_final TYPE STANDARD TABLE OF t_final ,
wa_final TYPE t_final .
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY.
stores file name to be uploaded
AT SELECTION SCREEN *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file .
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
DEF_FILENAME = ' '
DEF_PATH = ' '
mask = ',.,..'
MODE = ' '
TITLE = ' '
IMPORTING
filename = p_file
RC =
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
START OF SELECTION *
START-OF-SELECTION.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = 'Confirm Pop-UP'
DIAGNOSE_OBJECT = ' '
text_question = 'Would you like to proceed?'
text_button_1 = 'Yes'(001)
icon_button_1 = 'ICON_OKAY'
text_button_2 = 'No'(002)
icon_button_2 = 'ICON_CANCEL'
default_button = '1'
display_cancel_button = 'X'
USERDEFINED_F1_HELP = ' '
start_column = 25
start_row = 6
POPUP_TYPE =
IMPORTING
answer = answer
TABLES
PARAMETER =
EXCEPTIONS
text_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.
CHECK answer EQ '1'.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
CODEPAGE = ' '
filename = p_file
filetype = 'DAT'
HEADLEN = ' '
LINE_EXIT = ' '
TRUNCLEN = ' '
USER_FORM = ' '
USER_PROG = ' '
DAT_D_FORMAT = ' '
IMPORTING
FILELENGTH =
TABLES
data_tab = i_final
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.
LOOP AT i_final INTO wa_final .
PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.
PERFORM bdc_field USING 'BDC_CURSOR'
'RMMG1-MATNR'.
PERFORM bdc_field USING 'BDC_OKCODE'
'/00'.
PERFORM bdc_field USING 'RMMG1-MATNR'
wa_final-matnr.
MOVE wa_final-matnr TO wa_result-matnr .
PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.
PERFORM bdc_field USING 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=ENTR'.
PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'
'X'.
PERFORM bdc_dynpro USING 'SAPLMGMM' '4004'.
PERFORM bdc_field USING 'BDC_OKCODE'
'=BU'.
PERFORM bdc_field USING 'MAKT-MAKTX'
wa_final-maktx.
PERFORM bdc_field USING 'BDC_CURSOR'
'MARA-BISMT'.
PERFORM bdc_field USING 'MARA-BISMT'
wa_final-bismt.
PERFORM bdc_field USING 'MARA-BRGEW'
wa_final-brgew.
PERFORM bdc_field USING 'MARA-GEWEI'
wa_final-gewei.
MOVE wa_final-maktx TO wa_result-maktx .
MOVE wa_final-bismt TO wa_result-bismt .
MOVE wa_final-brgew TO wa_result-brgew .
MOVE wa_final-gewei TO wa_result-gewei .
PERFORM bdc_transaction USING 'MM02'.
flag = '1' Record updated successfully
flag = '2' Record not updated
IF flag = '1' .
APPEND wa_result TO right .
count1 = count1 + 1 .
ELSEIF flag = '2' .
APPEND wa_result TO wrong .
count2 = count2 + 1 .
ENDIF .
ENDLOOP.
Report Generation
WRITE : ' Success Item' .
SKIP .
WRITE : / ' Number of Success Items: ', count1 , ' Items.' .
SKIP .
WRITE: / 'Material Number ',
19 'Material Name',
59 'Old Mat. Name',
77 'Gross Wt.',
90 'Weight Unit',
105 'Message' .
WRITE: sy-uline .
LOOP AT right INTO wa_result .
WRITE: / wa_result-matnr ,
19 wa_result-maktx ,
59 wa_result-bismt ,
77 wa_result-brgew ,
90 wa_result-gewei ,
105 wa_result-message .
ENDLOOP .
SKIP 2 .
WRITE : /' Error Item' .
SKIP .
WRITE : / ' Number of Error Items: ', count2 , ' Items.' .
SKIP .
WRITE: / 'Material Number ',
19 'Material Name',
59 'Old Mat. Name',
77 'Gross Wt.',
90 'Weight Unit',
105 'Message' .
WRITE: sy-uline .
LOOP AT wrong INTO wa_result .
WRITE: / wa_result-matnr ,
19 wa_result-maktx ,
59 wa_result-bismt ,
77 wa_result-brgew ,
90 wa_result-gewei ,
105 wa_result-message .
ENDLOOP .
Reward Points if it is helpful
Rgds,
Naren
Message was edited by:
        Naren Someneni