Skip to Content
0
Former Member
Jun 10, 2008 at 11:09 AM

bdc program for mi01(inventory) error

52 Views

HI EXPERTS,

i have written a coding as per the requirement for inventory data upload by using transaction code 'MI01'.but it is always showing an error that " flat file is not found".please help me in solving this problem.

here is the coding.

report ZMM_RDD0009_MATERIAL_INVENTORY

no standard page heading line-size 255.

  • structure declaration.

types : begin of TY_UPLOAD ,

WERKS TYPE IKPF-WERKS,

LGORT TYPE IKPF-LGORT,

MATNR TYPE ISEG-MATNR,

END OF TY_UPLOAD.

  • INTERNAL TABLE DECLARATION.

  • internal table for upload the data.

data:t_upload type standard table of ty_upload initial size 0,

*internal table for bdcdata.

t_bdcdata type standard table of bdcdata initial size 0 ,

*internal table for bdcmsgcoll.

t_bdcmsgcoll type standard table of bdcmsgcoll initial size 0,

t_error type standard table of ty_upload initial size 0,

  • WORK-AREA DECLARATION.

  • work-area for upload the data.

w_upload type ty_upload,

bdcdata type bdcdata,

  • work-area for bdcmsgcoll.

w_bdcmsg type bdcmsgcoll,

*global variable declaration.

g_message(70) type c.

*include bdcrecx1.

start-of-selection.

call function 'GUI_UPLOAD'

exporting

filename = 'D:/FLATFILE.TXT'

filetype = 'ASC'

has_field_separator = 'X'

  • HEADER_LENGTH = 0

  • READ_BY_LINE = 'X'

  • DAT_MODE = ' '

  • IMPORTING

  • FILELENGTH =

  • HEADER =

tables

data_tab = t_upload.

  • EXCEPTIONS

call function 'BDC_OPEN_GROUP'

exporting

client = sy-mandt

  • DEST = FILLER8

group = 'ERROR_MAT'

  • HOLDDATE = ''

  • KEEP = 'X'

user = sy-uname

  • RECORD = FILLER1

prog = sy-cprog.

loop at t_upload into w_upload.

refresh t_bdcdata.

*perform open_group.

perform bdc_dynpro using 'SAPMM07I' '0700'.

perform bdc_field using 'BDC_CURSOR'

'IKPF-LGORT'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

*perform bdc_field using 'RM07I-BLDAT'

  • 'W_UPLOAD-BLDAT'.

*perform bdc_field using 'RM07I-GIDAT'

  • 'W_UPLOAD-GIDAT'.

perform bdc_field using 'IKPF-WERKS'

'W_UPLOAD-WERKS'.

perform bdc_field using 'IKPF-LGORT'

'W_UPLOAD-LGORT'.

perform bdc_field using 'RM07I-XLVOCA'

'X'.

perform bdc_dynpro using 'SAPMM07I' '0721'.

perform bdc_field using 'BDC_CURSOR'

'ISEG-MATNR(02)'.

perform bdc_field using 'BDC_OKCODE'

'/00'.

perform bdc_field using 'ISEG-MATNR(01)'

'W_UPLOAD-MATNR(01)'.

*perform bdc_field using 'ISEG-MATNR(02)'

  • 'W_UPLOAD-MATNR(02)'.

perform bdc_dynpro using 'SAPMM07I' '0721'.

perform bdc_field using 'BDC_CURSOR'

'ISEG-MATNR(01)'.

perform bdc_field using 'BDC_OKCODE'

'=BU'.

*perform bdc_transaction using 'MI01'.

*perform close_group.

call transaction 'MI01' using t_bdcdata mode 'N' update 'S'

messages into t_bdcmsgcoll.

if sy-subrc <> 0.

*append w_upload to t_error.

call function 'BDC_INSERT'

exporting

tcode = 'MI01'

tables

dynprotab = t_bdcdata.

endif.

clear w_bdcmsg.

read table t_bdcmsgcoll into w_bdcmsg index 1.

call function 'FORMAT_MESSAGE'

exporting

id = w_bdcmsg-msgid

lang = sy-langu

no = w_bdcmsg-msgnr

v1 = w_bdcmsg-msgv1

v2 = w_bdcmsg-msgv2

v3 = w_bdcmsg-msgv3

v4 = w_bdcmsg-msgv4

importing

msg = g_message

exceptions

not_found = 1

others = 2.

if sy-subrc = 0.

write:/ w_upload-WERKS,'----', g_message.

refresh t_bdcmsgcoll.

endif.

endloop.

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.

----


  • Start new screen *

----


form bdc_dynpro using program dynpro.

clear bdcdata.

bdcdata-program = program.

bdcdata-dynpro = dynpro.

bdcdata-dynbegin = 'X'.

append bdcdata to t_bdcdata.

clear bdcdata.

endform.

----


  • Insert field *

----


form bdc_field using fnam fval.

  • IF FVAL <> NODATA.

clear bdcdata.

bdcdata-fnam = fnam.

bdcdata-fval = fval.

append bdcdata to t_bdcdata.

clear bdcdata.

  • ENDIF.

endform.

Edited by: rohit on Jun 10, 2008 1:09 PM