topic MIRA bdc program in Application Development and Automation Discussions

MIRA bdc program

Former Member — Tue, 18 Sep 2007 10:32:35 GMT

Hi guru's,

Can any one send me the bdc program for MIRA transaction plz.

Thanks in advance.

Thanks&regards,

Srinivas

Re: MIRA bdc program

Former Member — Thu, 20 Sep 2007 08:39:05 GMT

hi srinivasa

I am replying you for transaction mm01

hope this might help you some how

first record using shdb then this

REPORT zsee_pg NO STANDARD PAGE HEADING.

types : begin of t_mat,

matnr(20),

desc(50),

uom(5),

end of t_mat.

data : i_mat type table of t_mat.

data : wa_mat type t_mat.

INCLUDE bdcrecxx.

START-OF-SELECTION.

CALL FUNCTION 'UPLOAD'

EXPORTING

FILETYPE = 'DAT'

TABLES

data_tab = i_mat.

PERFORM open_group.

LOOP AT i_mat INTO wa_mat.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0060'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_CURSOR'

'RMMG1-MTART'.

PERFORM bdc_field USING 'RMMG1-MATNR'

wa_mat-matnr. " 'zsm'.

PERFORM bdc_field USING 'RMMG1-MBRSH'

'M'.

PERFORM bdc_field USING 'RMMG1-MTART'

'ERSA'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '0070'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=ENTR'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MSICHTAUSW-KZSEL(01)'.

PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)'

'X'.

PERFORM bdc_dynpro USING 'SAPLMGMM' '4000'.

PERFORM bdc_field USING 'BDC_OKCODE'

'/00'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLMGMM'

& ' 2000TABFRA1'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLMGD1'

& ' 1002SUB1'.

PERFORM bdc_field USING 'MAKT-MAKTX'

wa_mat-desc. " 'zsm'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLMGD1'

& ' 2001SUB2'.

PERFORM bdc_field USING 'BDC_CURSOR'

'MARA-MEINS'.

PERFORM bdc_field USING 'MARA-MEINS'

wa_mat-uom. " 'kg'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLMGD1'

& ' 2561SUB3'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLMGD1'

& ' 2007SUB4'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLMGD1'

& ' 2005SUB5'.

PERFORM bdc_field USING 'BDC_SUBSCR'

'SAPLMGD1'

& ' 2011SUB6'.

PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'.

PERFORM bdc_field USING 'BDC_OKCODE'

'=YES'.

PERFORM bdc_transaction USING 'MM01'.

REFRESH bdcdata.

ENDLOOP.

PERFORM close_group.