URGENT: BDC problem small one

hi everybody
I am new to BDC and I have created a BDC for MM01. It is working well. I am using it by call transaction method. But my problem is this when the last material is created it is good but it does not stop and starts the next material creation and every time when i run the bdc it will waste a material number.
and please tell me the code to stop the bdc in each method and to move to next method
follwoing is the bdc code.
report ZDEMO_ZCON
       no standard page heading line-size 255.
data: begin of record OCCURS 0,
       MATNR(018),
       MBRSH_001(001),
       MTART_002(004),
       WERKS_015(004),
        MAKTX(040),
        MEINS(003),
        MATKL(009),
       BISMT(18),
       EXTWG(18),
        EKGRP(003),
       XCHPF_025(001),
        WEBAZ(003),
        DISGR(004),
       DISMM_030(002),
       MINBE(18),
        DISPO(003),
       DISLS(002),
       MABST(18),
       SOBSL(2),
       PLIFZ_034(003),
       FHORI_036(003),
       MTVFP_039(002),
        BKLAS(004),
END OF RECORD.
include bdcrecx1.
start-of-selection.
CALL FUNCTION 'UPLOAD'
EXPORTING
CODEPAGE = ' '
FILENAME = 'C:\BOOKS3'           " Name of the tab delimited flat file on desktop
FILETYPE = 'DAT'
ITEM = ' '
FILEMASK_MASK = ' '
FILEMASK_TEXT = ' '
FILETYPE_NO_CHANGE = ' '
FILEMASK_ALL = ' '
FILETYPE_NO_SHOW = ' '
LINE_EXIT = ' '
USER_FORM = ' '
USER_PROG = ' '
SILENT = 'S'
IMPORTING
FILESIZE =
CANCEL =
ACT_FILENAME =
ACT_FILETYPE =
TABLES
data_tab = record                   " Name of internal table with data.
EXCEPTIONS
CONVERSION_ERROR = 1
INVALID_TABLE_WIDTH = 2
INVALID_TYPE = 3
NO_BATCH = 4
UNKNOWN_ERROR = 5
GUI_REFUSE_FILETRANSFER = 6
OTHERS = 7*
.IF sy-subrc <> 0.
*MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*ENDIF.
perform open_group.
LOOP AT RECORD.
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-MBRSH'
                              'M'.
perform bdc_field       using 'RMMG1-MTART'
                              'ZCON'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(13)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=P+'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(09)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(12)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(13)'
                              'X'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(08)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(04)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(05)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(06)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(07)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(08)'
                              'X'.
perform bdc_dynpro      using 'SAPLMGMM' '0080'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-LGORT'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'RMMG1-WERKS'
                              'MFPL'.
perform bdc_field       using 'RMMG1-LGORT'
                              'ccon'.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-MATKL'.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARA-MATKL'
                              record-matKl.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-EKGRP'.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARC-EKGRP'
                              record-ekgrp.
perform bdc_field       using 'MARA-MATKL'
                              record-matkl.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-DISGR'.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARC-DISGR'
                              record-disgr.
perform bdc_field       using 'MARC-EKGRP'
                              record-ekgrp.
perform bdc_field       using 'MARC-DISMM'
                              'ND'.
perform bdc_field       using 'MARC-DISPO'
                              record-dispo.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-WEBAZ'.
perform bdc_field       using 'MARC-WEBAZ'
                              record-webaz.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '=PB01'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARC-WEBAZ'
                              record-webaz.
perform bdc_dynpro      using 'SAPLQPLS' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMQAM-ARGUMENT'.
perform bdc_field       using 'BDC_OKCODE'
                              '=NEU'.
perform bdc_dynpro      using 'SAPLQPLS' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMQAM-AKTIV(01)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=WEIT'.
perform bdc_field       using 'RMQAM-ART(01)'
                              'ZCON'.
perform bdc_field       using 'RMQAM-APA(01)'
                              'X'.
perform bdc_field       using 'RMQAM-AKTIV(01)'
                              'X'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARC-WEBAZ'
                              record-webaz.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MBEW-BKLAS'
                              record-bklas.
perform bdc_field       using 'MBEW-VPRSV'
                              'V'.
perform bdc_field       using 'MBEW-PEINH'
                              '1'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARC-LOSGR'
                              '1'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MBEW-BKLAS'
                              record-bklas.
perform bdc_field       using 'MBEW-VPRSV'
                              'V'.
perform bdc_field       using 'MBEW-PEINH'
                              '1'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARC-PERKZ'
                              'M'.
perform bdc_field       using 'BDC_CURSOR'
                              'MARC-MTVFP'.
perform bdc_field       using 'MARC-MTVFP'
                              '02'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARC-WEBAZ'
                              record-webaz.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MBEW-BKLAS'
                              record-bklas.
perform bdc_field       using 'MBEW-VPRSV'
                              'V'.
perform bdc_field       using 'MBEW-PEINH'
                              '1'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MARA-MEINS'
                              record-meins.
perform bdc_field       using 'MARC-LOSGR'
                              '1'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'BDC_CURSOR'
                              'MAKT-MAKTX'.
perform bdc_field       using 'MAKT-MAKTX'
                              record-maktx.
perform bdc_field       using 'MBEW-BKLAS'
                              record-bklas.
perform bdc_field       using 'MBEW-VPRSV'
                              'V'.
perform bdc_field       using 'MBEW-PEINH'
                              '1'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
perform bdc_transaction using 'MM01'.
ENDLOOP.
perform close_group.
plz provide the solution
points wil b awarded
thanx and regards

**　Program ID ： ZMAT_CREATE
**　Program Desc ： Material Master Creation
**　Process Overview ：
**　Created By ： R. NAGARAJAN
**　Created Date ： 22/08/2006
**　Company Name ： Infoview Technologies Limited
REPORT ZMAT_CREATE
NO STANDARD PAGE HEADING LINE-SIZE 132 MESSAGE-ID ZBDCMSG.
Internal table definition *
DATA: BEGIN OF ITAB OCCURS 0,
MATNR LIKE RMMG1-MATNR, " Material Number
MBRSH LIKE RMMG1-MBRSH, " Industry Sector
MTART LIKE RMMG1-MTART, " Material Type
WERKS LIKE RMMG1-WERKS, " Plant
LGORT LIKE RMMG1-LGORT, " Storage Location
VKORG LIKE RMMG1-VKORG, " Sales Organization
VTWEG LIKE RMMG1-VTWEG, " Distribution Channel
LGNUM LIKE RMMG1-LGNUM, " Warehouse Number
LGTYP LIKE RMMG1-LGTYP, " Storage Type
MAKTX LIKE MAKT-MAKTX, " Material Description
MEINS LIKE MARA-MEINS, " Base Unit of Measure
MATKL LIKE MARA-MATKL, " Material Group
SPART LIKE MARA-SPART, " Division
MTPOS_MARA LIKE MARA-MTPOS_MARA, "General item category group
GEWEI LIKE MARA-GEWEI, " Weight Unit
TAXKM1 LIKE MG03STEUER-TAXKM, " Tax classification material
TAXKM2 LIKE MG03STEUER-TAXKM, " Tax classification material
KONDM LIKE MVKE-KONDM, " Material Pricing Group
MTPOS LIKE MVKE-MTPOS , "ItemCategoryGroupFromMaterialMaster
MTVFP LIKE MARC-MTVFP, " Checking Group for AvailabilityCheck
TRAGR LIKE MARA-TRAGR, " Transportation group
LADGR LIKE MARC-LADGR, " Loading group
TDLINE LIKE RSTXT-TXLINE, " Text editor text line
EKGRP LIKE MARC-EKGRP, " Purchasing Group
DISMM LIKE MARC-DISMM, " MRP Type
BESKZ LIKE MARC-BESKZ, " Procurement Type
SOBSL LIKE MARC-SOBSL, " Special procurement type
PERKZ LIKE MARC-PERKZ, " Period indicator
PRMOD LIKE MPOP-PRMOD, " Forecast model
KZINI LIKE MPOP-KZINI, " Initialization indicator
AUTRU LIKE MARC-AUTRU, " Reset Forecast Model Automatically
MODAV LIKE MPOP-MODAV, " Model selection procedure
IPRKZ LIKE MARA-IPRKZ, " Period indicator for shelf life expiration date
BWTTY LIKE MBEW-BWTTY, " Valuation Category
BKLAS LIKE MBEW-BKLAS, " Valuation Class
EKLAS LIKE MBEW-EKLAS, " Valuation Class for Sales OrderStock
VPRSV LIKE MBEW-VPRSV, " Price Control Indicator
EKALR LIKE MBEW-EKALR, "MaterialIsCostedWithQuantityStructure
END OF ITAB,
*// TEXT HEADER
GT_HEAD LIKE THEAD,
*// Text lines
GT_TEXT LIKE STANDARD TABLE OF TLINE,
GW_TEXT LIKE TLINE,
Data definition *
WS_REP_CNT(6) TYPE C,
SESSION(12) TYPE C.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-000.
PARAMETERS:
PA_GROUP LIKE APQI-GROUPID OBLIGATORY DEFAULT 'MMupload',
PA_FNAME LIKE IBIPPARMS-PATH OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B1.
Include statements *
INCLUDE ZBDCREX.
At Selection Screen definition *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR PA_FNAME.
*//GETTING FLAT FILE PATH
PERFORM FILE_PATH USING PA_FNAME.
Start of Selection definition *
START-OF-SELECTION.
*//UPLOADING THE FLAT FILE
PERFORM DATA_UPLOAD TABLES ITAB USING PA_FNAME.
*// BDC OPEN GROUP
PERFORM OPEN_GROUP USING PA_GROUP.
SKIP 3.
FORMAT COLOR COL_HEADING INVERSE ON.
WRITE 40 TEXT-001.
FORMAT COLOR COL_HEADING INVERSE OFF.
SKIP 1.
FORMAT COLOR COL_NEGATIVE INVERSE ON.
WRITE :/3 TEXT-002, 13 SY-MANDT, 104 TEXT-003, 113 SY-UNAME,
/3 TEXT-004, 13 SY-DATUM, 104 TEXT-005, 113 SY-UZEIT.
FORMAT COLOR COL_NEGATIVE INVERSE OFF.
LOOP AT ITAB.
WS_REP_CNT = WS_REP_CNT + 1. "To Count no. of Records Processed
PERFORM MM_UPLOAD.
ENDLOOP.
*//STATUS INDICATION
IF SY-SUBRC = 0.
SESSION = PA_GROUP.
SKIP 1.
FORMAT COLOR COL_TOTAL INVERSE ON.
WRITE: /38 TEXT-006 , WS_REP_CNT.
FORMAT COLOR COL_TOTAL INVERSE OFF.
MESSAGE S000 WITH SESSION.
ENDIF.
*// BDC CLOSE GROUP
PERFORM CLOSE_GROUP.
SET PF-STATUS 'ZMM01PF'.
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'SESSION'.
CALL TRANSACTION 'SM35'.
WHEN 'EXIT'.
LEAVE PROGRAM.
WHEN 'CANCEL'.
LEAVE SCREEN.
ENDCASE .
FORM MM_UPLOAD *
FORM MM_UPLOAD.
REFRESH BDCDATA.
*// Create Material: Initial Screen
perform bdc_dynpro using 'SAPLMGMM' '0060'.
perform bdc_field using 'BDC_CURSOR'
'RMMG1-MATNR'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'RMMG1-MATNR'
ITAB-MATNR.
perform bdc_field using 'RMMG1-MBRSH'
ITAB-MBRSH.
perform bdc_field using 'RMMG1-MTART'
ITAB-MTART.
*// Selection Views
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using 'BDC_OKCODE'
'SELA'.
perform bdc_dynpro using 'SAPLMGMM' '0070'.
perform bdc_field using 'BDC_CURSOR'
'MSICHTAUSW-DYTXT(01)'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
*// Organization Levels
perform bdc_dynpro using 'SAPLMGMM' '0080'.
perform bdc_field using 'BDC_OKCODE'
'=ENTR'.
perform bdc_field using 'RMMG1-WERKS'
ITAB-WERKS.
perform bdc_field using 'RMMG1-LGORT'
ITAB-LGORT.
perform bdc_field using 'RMMG1-VKORG'
ITAB-VKORG.
perform bdc_field using 'RMMG1-VTWEG'
ITAB-VTWEG.
perform bdc_field using 'RMMG1-LGNUM'
ITAB-LGNUM.
perform bdc_field using 'RMMG1-LGTYP'
ITAB-LGTYP.
*// Basic Data 1: Screen
perform bdc_dynpro using 'SAPLMGMM' '4004'.
perform bdc_field using 'BDC_OKCODE'
'=SP04'.
perform bdc_field using 'MAKT-MAKTX'
ITAB-MAKTX.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MARA-SPART'
ITAB-SPART.
perform bdc_field using 'MARA-MTPOS_MARA'
ITAB-MTPOS_MARA.
perform bdc_field using 'BDC_CURSOR'
'MARA-GEWEI'.
perform bdc_field using 'MARA-BRGEW'
'9000'.
perform bdc_field using 'MARA-GEWEI'
ITAB-GEWEI.
perform bdc_field using 'MARA-NTGEW'
'8000'.
*// Sales: Sales Organization 1: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP05'.
perform bdc_field using 'MG03STEUER-TAXKM(01)'
ITAB-TAXKM1.
perform bdc_field using 'MG03STEUER-TAXKM(02)'
ITAB-TAXKM2.
perform bdc_dynpro using 'SAPLMGMM' '4200'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'BDC_OKCODE'
'=SP05'.
*// Sales: Sales Organization 2: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP06'.
perform bdc_field using 'BDC_CURSOR'
'MVKE-KONDM'.
perform bdc_field using 'MVKE-KONDM'
ITAB-KONDM.
perform bdc_field using 'MARA-MTPOS_MARA'
ITAB-MTPOS_MARA.
perform bdc_field using 'MVKE-MTPOS'
ITAB-MTPOS.
*// Sales: General / Plant Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP12'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MARA-BRGEW'
'9000'.
perform bdc_field using 'MARA-GEWEI'
ITAB-GEWEI.
perform bdc_field using 'MARA-XCHPF'
perform bdc_field using 'MARA-NTGEW'
'8000'.
perform bdc_field using 'MARC-MTVFP'
ITAB-MTVFP.
perform bdc_field using 'BDC_CURSOR'
'MARC-LADGR'.
perform bdc_field using 'MARA-TRAGR'
ITAB-TRAGR.
perform bdc_field using 'MARC-LADGR'
ITAB-LADGR.
*// MRP 1: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP13'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MARC-EKGRP'
ITAB-EKGRP.
perform bdc_field using 'BDC_CURSOR'
'MARC-DISMM'.
perform bdc_field using 'MARC-DISMM'
ITAB-DISMM.
*// MRP 2: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP14'.
perform bdc_field using 'BDC_CURSOR'
'RMMG1_BEZ-WERKS_BEZ'.
perform bdc_field using 'MARC-BESKZ'
ITAB-BESKZ.
perform bdc_field using 'MARC-SOBSL'
ITAB-SOBSL .
*// MRP 3: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP16'.
perform bdc_field using 'BDC_CURSOR'
'MARC-PERKZ'.
perform bdc_field using 'MARC-PERKZ'
ITAB-PERKZ.
perform bdc_field using 'MARC-MTVFP'
ITAB-MTVFP.
*// Forecasting Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP17'.
perform bdc_field using 'BDC_CURSOR'
'MPOP-PRMOD'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MPOP-PRMOD'
ITAB-PRMOD.
perform bdc_field using 'MARC-PERKZ'
ITAB-PERKZ.
perform bdc_field using 'MPOP-PERAN'
'60'.
perform bdc_field using 'MPOP-ANZPR'
'12'.
perform bdc_field using 'MPOP-KZINI'
ITAB-KZINI.
perform bdc_field using 'MPOP-SIGGR'
'4.000'.
perform bdc_field using 'MARC-AUTRU'
ITAB-AUTRU.
perform bdc_field using 'MPOP-MODAV'
ITAB-MODAV.
*// Work Scheduling Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP19'.
perform bdc_field using 'BDC_CURSOR'
'MARC-FRTME'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
*// Plant data / Stor. 1: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP20'.
perform bdc_field using 'BDC_CURSOR'
'MAKT-MAKTX'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MARA-IPRKZ'
ITAB-IPRKZ.
*// Plant data / Stor. 2: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP21'.
perform bdc_field using 'BDC_CURSOR'
'MAKT-MAKTX'.
perform bdc_field using 'MARA-BRGEW'
'9000'.
perform bdc_field using 'MARA-GEWEI'
ITAB-GEWEI.
perform bdc_field using 'MARA-NTGEW'
'8000'.
*// Warehouse Management 1: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP23'.
perform bdc_field using 'BDC_CURSOR'
'MAKT-MAKTX'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MARA-BRGEW'
'9000'.
perform bdc_field using 'MARA-GEWEI'
ITAB-GEWEI.
*// Quality Management Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP24'.
perform bdc_field using 'BDC_CURSOR'
'MAKT-MAKTX'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
*// Accounting 1: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP26'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MBEW-BWTTY'
ITAB-BWTTY.
perform bdc_field using 'MARA-SPART'
ITAB-SPART.
perform bdc_field using 'BDC_CURSOR'
'MBEW-STPRS'.
perform bdc_field using 'MBEW-BKLAS'
ITAB-BKLAS.
perform bdc_field using 'MBEW-EKLAS'
ITAB-EKLAS.
perform bdc_field using 'MBEW-VPRSV'
ITAB-VPRSV.
perform bdc_field using 'MBEW-PEINH'
'1'.
perform bdc_field using 'MBEW-VERPR'
'800'.
perform bdc_field using 'MBEW-STPRS'
'800'.
*// Costing 1: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=SP27'.
perform bdc_field using 'BDC_CURSOR'
'MAKT-MAKTX'.
perform bdc_field using 'MARA-MEINS'
ITAB-MEINS.
perform bdc_field using 'MBEW-EKALR'
ITAB-EKALR.
perform bdc_field using 'MARC-LOSGR'
'1'.
*// Costing 2: Screen
perform bdc_dynpro using 'SAPLMGMM' '4000'.
perform bdc_field using 'BDC_OKCODE'
'=BABA'.
perform bdc_field using 'BDC_CURSOR'
'MAKT-MAKTX'.
perform bdc_field using 'MBEW-BKLAS'
ITAB-BKLAS.
perform bdc_field using 'MBEW-BWTTY'
ITAB-BWTTY.
perform bdc_field using 'MBEW-EKLAS'
ITAB-EKLAS.
perform bdc_field using 'MBEW-VPRSV'
ITAB-VPRSV.
perform bdc_field using 'MBEW-PEINH'
'1'.
perform bdc_field using 'MBEW-VERPR'
'800.00'.
perform bdc_field using 'MBEW-STPRS'
'800.00'.
perform bdc_dynpro using 'SAPLSPO1' '0300'.
perform bdc_field using 'BDC_OKCODE'
'=YES'.
*//BDC INSERT
PERFORM BDC_TRANSACTION TABLES BDCDATA
USING 'MM01'. " MESSAGES INTO GT_MSG.
*// Text Header Data
CONCATENATE ITAB-MATNR ' 000101'
INTO GT_HEAD-TDNAME .
GT_HEAD-TDOBJECT = 'MVKE' .
GT_HEAD-TDID = '0001' .
GT_HEAD-TDSPRAS = SY-LANGU.
*// Sales Text
GW_TEXT-TDFORMAT = '00'.
GW_TEXT-TDLINE = ITAB-TDLINE .
APPEND GW_TEXT TO GT_TEXT.
CALL FUNCTION 'SAVE_TEXT'
EXPORTING
CLIENT = SY-MANDT
HEADER = GT_HEAD
INSERT = 'X'
SAVEMODE_DIRECT = 'X'
OWNER_SPECIFIED = ' '
TABLES
LINES = GT_TEXT
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
OBJECT = 4
OTHERS = 5.
IF SY-SUBRC 0.
SKIP 2.
FORMAT COLOR COL_NEGATIVE INVERSE ON.
WRITE: / 'Unable to Insert Salestext for Material : ', ITAB-MATNR .
FORMAT COLOR COL_NEGATIVE INVERSE OFF.
ENDIF.
CLEAR: GT_HEAD, GT_TEXT, GW_TEXT.
ENDFORM. "MM_UPLOAD

Similar Messages

Wifi problem: I have a airport wifi the small one with one port for modem. My Problem is airport wifi works fine however when I power off my IMac then power it up later on It does not show a connection I then have to manual do it my self it's a pain and n

I have a airport wifi the small one with one port for modem. My Problem is airport wifi works fine however when I power off my IMac then power it up later on It does not show a connection I then have to manual do it my self it's a pain and never happened before I have tried resetting the airport unit but still no luck please help.
Thank you
Roy from malden

Hi Roy, this has worked for a few...
Make a New Location, Using network locations in Mac OS X ...
http://support.apple.com/kb/HT2712
10.7 & 10.8…
System Preferences>Network, top of window>Locations>Edit Locations, little plus icon, give it a name.
10.5.x/10.6.x/10.7.x instructions...
System Preferences>Network, click on the little gear at the bottom next to the + & - icons, (unlock lock first if locked), choose Set Service Order.
The interface that connects to the Internet should be dragged to the top of the list.
Instead of joining your Network from the list, click the WiFi icon at the top, and click join other network. Fill in everything as needed.

BDC Problem for FF67

Hi All,
I have developed BDC for FF67 transaction ,
Am having a problem in that , My problem is that the second screen number, where we enter line items, is different in development server and different in production server.
In development am having second screen number as 8001 and in production server am having screen number as 8000.
I want to know why the screen number is different in two servers.
Regards,
Bharat.
Edited by: bharat tambat on Nov 6, 2008 3:21 PM
am waiting for reply...
Edited by: bharat tambat on Nov 7, 2008 6:23 AM

Hi Bharat
Probably too late for an advice but always try using a BAPI for SAP posting.
Go for BDC only if one is not available !!
Re: Regd : BAPI might interest you.
Neeraj

Network problem with one particular iMac in a home network

I want to report a problem involving one particular iMac (2008 Al 24").
On my home network (Apple Airport Extreme and Express extensions, about five Macs and couple of iDevices), all other Macs can see and connect to each other as well as printing to the networked Brother printer without problem.
However, on one particular iMac, I can see all other Macs, can set Brother printer as default with green dot next to it in Print Preference Pane, but I can not connect to other macs, nor print to the printer. Meanwhile, the iMac can get on the internet without any problem. I checked Share Preference Pane and all settings are same as other macs.
The iMac used to work flawlessly until recently, and I first noticed the problem because I could not print, getting a message the printer can not be found (and the dots turn yellow for a while then went back to normal green). Then, I found neither the iMac, nor other macs on the network can connect to each other, even though I can see all of them in Finder.
I opened Apple Remote Network on my own mac, and I can see and connect all other shared macs, but this iMac's status showed not online, even though the IP adress is valid. As a results, no other macs can connect to the iMac, either. It seems to be a problem with the intranet only, not internet.
One more thing, about a month ago, the iMac popped out a warning about network name, saying the old name was in use (conflict) in the network, so I have to change it in Share Pane. Not sure if this is related to the intranet problem.
Reboot and repaired permission several times, no change. Hate to reinstall everything. Any help would be greatly appreciated.

Another update:
For unknown reason, my iMac was suddenly back onto the home "intranet". It can be accessed by my MacBook Air through Finder Connect, and can also be seen by Apple Remote Desktop.
However, printing is still a problem while other macs have no problem printing to the same printer. Whenever I send a print task, either Word document, or other programs such as GraphicConverter image, the iMac tried to connect to the default printer, but failed, and wanted to try again in 30 seconds 9and continued to fail). Meanwhile, the green dot next to the printer selection turned to yellow in Preference Pane. But as soon as I cancel the print job, the printer status went back to normal green.
The printer is a Brother color laser HL-4070CDW, connected through wireless (g only), with it own DHCP but specific IP address. I printed out a setting for the printer and all looks normal, and all other macs can print to it without problem. Other macs can also get access to the printer profile, and check inks copy counts, etc, but the iMac cannot.
Only thing changed since last post was a new update for Apple Airport firmware (to 7.5.2 I think). So my problem is still half solved: can connect to other macs on the same network, but still not be able to print.

TS3276 I have recently had a problem with one of my hotmail accounts, some sort of virus sending random emails to people in my address book. Hotmail advised me to change my password for that account, which I did. Why won't mail recognise the new password?

I have recently had a problem with one of my hotmail accounts, some sort of virus sending random emails from my address book. Hotmail advised me to delete all contacts and change the password for that account, which I did on my laptop running windows XP. The change was successful and I was able to send and receive emails with no problem. I then had to change the account password on my iPhone 4s, which I did and it too was successful but when I came to change the password on my iMac, running the latest version of Lion it would not recognise the new password. I have tried to remove the account details and re-install but every time I go to add new account my old details are in the box. This is very frustrating as I use my iMac for all my profects and I need to access my email. Please help.

hi guys,
I had already deleted all reference to the hotmail account in question from the keychain access app, I have also tried to delete and re-instal the account details from within mail. The icon in the side bar dissapears but when I go to Add Account, the old account details are in the new account box. I then input my new password but am told that the server does not recognise it. If I access hotmail via google on the iMac I can get into my account with no problems. I am thinking there must be some other form of security system within the mac software that is blocking the new password. This is driving me nuts. I have been trying to resolve this for the last two days. Thank you for your advise anyway.

I have a few hundred duplicates in my iPhoto library, but the file sizes are different. So one is 1.3mb and one is 567kb. I want to delete the smaller ones, but short of comparing each duplicate, is there a way to do this?

I have a few hundred duplicates in my iPhoto library, but the file sizes are different. So one is 1.3mb and one is 567kb. I want to delete the smaller ones, but short of comparing each duplicate, is there a way to do this? I've been looking at Duplicate Annhilator but I don't think it can do it.
Thanks!

I just ran a test with iPhoto Library Manager, Duplicate Annihilator, iPhoto Duplicate Cleaner, Duplifinder and Photodedupo. I imported a folder of 5 photos into a test library 3 times, allowing iPhoto to import duplicates. I then ran the 5 photos thru resizer to reduce their jpeg compression but all other aspects of the file the same.
None of the duplicate removal apps found set that was reduced in the file resizer. That's probably due to the fact that the file creation date was being used as a criteria and the resized photo would have a different file creation date even though the Image Capture date was the same.
They all found the 3 regular duplicates and some of them would mark two and leave the 3rd unmarked. iPhoto Duplicate Cleaner can sort the found duplicates by file size but if the file was edited to get the reduced file size it might not be found as it would have a different file creation/modification date.
iPhoto Library Manage was able to find all duplicates and mark them as such if the file names were the same the the filename option was selected. Otherwise it also missed the modified, resized version. It allowed one to select the one photo to save before going to work on the library.
So if a photo has been reduced in image quality or pixel size it will not be considered a duplicate.
OT

I took my mac in to get a new HD, but they gave me a smaller one without me knowing?

So I took my imac in a few months ago because it wasn't working- they said I needed a new HD so I said okay and they took my computer and days later I got it back only to realize it was so much slower then before (even with my HD was dying it was faster!) I have a hard time even using it between it crashing, freezing, everything. I then am told that they most likely put in a smaller hard drive, and sure enough... they did. They charged me around 250USD for them to put in the new HD, and I had no clue that they put a smaller one in- THEY NEVER TOLD ME! Its been months and I can't take how slow this is- its simply ridiculous! What do I do? Do I go back in and complain or what?

You most likely would have had a really good case if you had contacted the repair place immediately or at least withing a few days. I can't imagine that you wouldn't have noticed all this immediately. If it's been a few months, I'd assume there isn't much they'll do; you can try it and ask if they have a parts warranty.

Just installed Lion and the Magic TrackPad and I am having a problem with one click commands. I have to hit the pad fairly hard with one finger to get it to accept the command. Is this normal, is there another way that I am suppose to execute commands?

Just installed Lion and the Magic TrackPad and I am having a problem with one click commands. I have to hit the pad fairly hard with one finger to get it to accept the command. Is this normal, is there another way that I am suppose to execute commands?

No you just need to turn on Tap to Click. Go into System Preferences - Trackpad and click the Point to Click tab and select the first box which will say Tap to Click and you should be in business.

How can I copy part of a larger PDF file and create a smaller one?

How can I copy part of a larger PDF file and create a smaller one?

Hi,
Copy the content of PDF file in Adobe Reader and paset it to MS Word then create PDF file from the Word file.
This may not work for all PDF files as some PDF files are not created correctly or some content cannot be copied.
Acrobat XI Pro has features to extract/delete/crop pages in PDF files and you can download it from www.adobe.com(Trial version- 30 days free). Or you can upgrade your subscription to Acrobat Plus and see more information at https://www.acrobat.com/acrobatplus/en/home.html
Hisami

How do I divide a large catalogue into two smaller one on the same computer?

How can I divide a large catalogue into two smaller ones on the same computer? Can I just create a new catalogue and move files and folders from the old one to the new one? I am using PSE 12 in Windows 7.

A quick update....
I copied the folder in ~Library/Mail/V2/Mailboxes that contains all of my local mailboxes over to the same location in the new account. When I go into mail, the entire file structure is there, however it does not let me view (or search) any of the messages. The messages can be accessed through the Finder, though.
I tried to "Rebuild" the local mailboxes, but it didn't seem to do anything. Any advice would be appreciated.
JEG

Hii i m frm BGD. I m using iphone 5. My carrier BGD ROBI AXIATA. When it was ios 6 it works better . But i recently upgrade to ios 7 and i facing the little problem. One of the ussd call. Plz help or suggest ir doing better about itz as soon as possible.

Hii i m frm BGD. I m using iphone 5. My carrier BGD ROBI AXIATA. When it was ios 6 it works better . But i recently upgrade to ios 7 and i facing the little problem. One of the ussd call. Plz help or suggest ir doing better about itz as soon as possible.

I'm not trying to minimize your issues, but I have an iPhone 5S and find that I have not had these types of problems on AT&T. I'm wonding if something has gotten stuck in a loop that is continually trying to use data. If you make a good backup of your phone, try restoring it as new, and do not add anything to the phone right away. Let the device run like this for a little while and see what kind of usage you have. You report you phone is showing usage of 21GB. Did you rese this setting on the phone to begin at your billing period? The reason I ask this is some people believe this setting resets on its own with your billing period, it does not. This has to be manually reset by the user, so it might not be that accurate depending on the last time that you reset it.
If the phone seems to not use so much extra data during the period the device does not have extra apps on it, then try restoring from your backup and see what happens. If this increases your data usage quite fast again, then there is probably something corrupt in the backup that is causing this issue.

Codec problem with one gateway

I am having a very strange problem with one of my gateways. No matter how I set up my regions and device pools I continue to have all calls go through this gateway as G729. This would be fine except that I can't do conference calls because of codec mismatches.
The gateway is a PRI running H323. CM 3.2.2(c) Gateway is a 3640 running 12.2.11(t)
All regions are currently set to G711.
I read something about a command under voice-port that sets the default codec. What I don't understand is, if this is what is causing it to go to G729, why is this the only gateway that ignores the regions.
Any help would be appreciated.

Cisco VoIP gateways support the codec negotiation feature. This feature provides the ability for a Cisco VoIP gateway to connect to other VoIP devices without necessarily knowing which codec is used for a call-setup. Also, this feature allows Cisco VoIP gateways to dynamically adjust to changes on remote devices. As long as the codec used by the remote VoIP device matches the capabilities-list of the Cisco VoIP gateway, the VoIP call is completed.
The following example shows how to configure codec negotiation:
Cisco-router# config t
Cisco-router(config)# voice class codec 1
!--- This sets up class 1 to be assigned to the dial peer.
Cisco-router(config-class)#codec preference 1 g723r63
Cisco-router(config-class)#codec preference 2 g729ar8
Cisco-router(config-class)#codec preference 3 g711ulaw
Cisco-router(config-class)#codec preference 4 g726r32 bytes 240
!--- These commands define the preferred codec list using 1,2,3, and 4 to set the preference.
Cisco-router(config)#dial-peer voice 1 voip
Cisco-router(config-dial-peer)#voice-class codec 1
!--- This assigns voice-class codec 1 to the dial-peer
Cisco-router(config-dial-peer)#destination-pattern 4723155
Cisco-router(config-dial-peer)#session target ipv4:192.168.100.1

Entire JDBC communication stopped if problem with one single JDBC interface

Hello,
Will the entire JDBC communication stopped if problem with one single JDBC interface?
Thanks,
Soorya.

hi surya,
this will happend if u use maintain order at runtime at interface determination.
just uncheck this option if u dont neet EOIO.
if you are getting the problem if u r going for EO then the problem might be using same JDBC channel for all interfaces.
if each interface is expected with a high load then it better to go for dedicated channels for interfaces.
like INTERFACE A should use JDBC A channel and INTERFACE B should use JDBC B channel.
Thanks & Regards,
Rama krishna

JDBC communication stopped if problem with one single JDBC interface

Hello,
Can you please explain this phrase
"JDBC communication stopped if problem with one single JDBC interface"
THanks,
Soorya

If you are having a problem with a JDBC interface (lets consider this to be a communication channel) then the communication is stopped (via that channel) (only in the case of EOIO).
Hope this clarifies.
Cheers,
Sarath
Award if helpful.

BDC problem with F-30

Hi All,
I want to record a BDC for F-30 to clear the deduction line items for a Document. These deduction line items have a "Reason code" with it... When I select a Document Number in F-30, it displays all the line items in a table control.. I need to select and clear only those items with "Reason code" in that...
How can I select a line item from the table control and clear it based on the reason code in a BDC?
I have looked at the previous posts... I have seen a solution provided by filling the structure BSELP. How this can be included in the program and how to fill the values... Is there any limit for the values to get it filled?.. Because I could see
FELDN_1 to FELDN_18 in BSELP structure.....
BDC problem in F-30
BSELP-FELDN_1 = "BELNR"
BSELP-SLVON_1 = "00002222221997003"
How the rfbibl00 program works?
Thanks for the help,
Asha

Hi,
    Use BAPI_PAYIT_POST_CLEARING
or FM POSTING_INTERFACE_CLEARING
or
try this code for transaction fb05:
DATA: BEGIN OF bkey OCCURS   0,
        belnr LIKE bseg-belnr,
        gjahr LIKE bseg-gjahr,
        buzei LIKE bseg-buzei,
      END OF bkey.
*Dynpro 122 - Header
    PERFORM bdc_dynpro USING 'SAPMF05A' '0122'.
    PERFORM bdc_field USING 'BKPF-BLDAT' agz-datum.
    PERFORM bdc_field USING 'BKPF-BLART' augblart.
    PERFORM bdc_field USING 'BKPF-BUKRS' htab-bukrs.
    PERFORM bdc_field USING 'BKPF-BUDAT' agz-datum.
    PERFORM bdc_field USING 'BKPF-WAERS' t001-waers.
    IF t003-xmref = 'X'.
      IF htab-xblnr <> space.
        PERFORM bdc_field USING 'BKPF-XBLNR' htab-xblnr.
      ELSE.
        PERFORM bdc_field USING 'BKPF-XBLNR' text-aag.
      ENDIF.
    ENDIF.
    UNPACK vorgang TO zeile.
    PERFORM bdc_field_loop USING zeile 'RF05A-XPOS1' 'X'.
    PERFORM bdc_field USING 'BDC_OKCODE'     'SL'.
    LOOP AT itab WHERE marked = 'X'.
*Dynpro 0710 -
      PERFORM bdc_dynpro USING 'SAPMF05A' '0710'.
      PERFORM bdc_field USING 'RF05A-AGKON' agku-kunnr.
      PERFORM bdc_field USING 'RF05A-AGBUK' agku-bukrs.
      PERFORM bdc_field USING 'BDC_OKCODE'     'SLB'.         "ins
*Dynpro 0733 - insert fi-document-nr.
      PERFORM bdc_dynpro USING 'SAPMF05A' '0733'.
      CLEAR:   zeile, cnt.
      LOOP AT htab WHERE agzif = agc-nr AND xfeld = 'X'
                    AND bukrs = agku-bukrs AND kunnr = agku-kunnr.
        CLEAR bkey.
        cnt = cnt + 1.
        UNPACK cnt TO zeile.
        PERFORM bdc_field_loop USING zeile 'RF05A-FELDN' 'BELNR'.
        MOVE-CORRESPONDING tab TO bkey.
        PERFORM bdc_field_loop USING zeile 'RF05A-SEL01' bkey.
      ENDLOOP.
<b>Reward points</b>
Regards

URGENT: BDC problem small one

Similar Messages

Maybe you are looking for