During the material creation ,it is showing some error(bdc program)

Question

hi expects,
     during execution the program ,the material is created.but i am getting a message that field rmmg1-mbrsh(industrial sector) that "input value is longer than screen field.please help me solving this problem.

Answer 1

REPORT  ZMM_RDD0009_MATERIAL_CREATION           .
structure declaration.
types : begin of ty_upload,
        MAKTX TYPE MAKTX,   "Material Description
        WERKS TYPE WERKS,   "PLANT
        MTART TYPE MTART,   "Material Type
        MATKL TYPE MATKL,   "Material Group
        MEINS TYPE MEINS,   "Base Unit of Measure
        MFRPN TYPE MFRPN,   "Manufacturing part number
        SALK3 TYPE SALK3,   "net amounting
        PEINH TYPE PEINH,   "price unit
        VPRSV TYPE VPRSV,   "price control indicator
        BKLAS TYPE BKLAS,   "valuattion class
        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.
start-of-selection.
call function 'GUI_UPLOAD'
  exporting
    filename                      = 'D:/MATERIAL.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 'SAPLMGMM' '0060'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-MATNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RMMG1-MBRSH'
                              'W_UPLOAD-MBRSH'.
perform bdc_field       using 'RMMG1-MTART'
                              'W_UPLOAD-MTART'.
perform bdc_dynpro      using 'SAPLMGMM' '0070'.
perform bdc_field       using 'BDC_CURSOR'
                              'MSICHTAUSW-DYTXT(17)'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(01)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(04)'
                              'X'.
perform bdc_field       using 'MSICHTAUSW-KZSEL(17)'
                              'X'.
perform bdc_dynpro      using 'SAPLMGMM' '0080'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-WERKS'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'RMMG1-WERKS'
                              'W_UPLOAD-WERKS'.
perform bdc_dynpro      using 'SAPLMGMM' '4004'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              'W_UPLOAD-MAKTX'.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-MATKL'.
perform bdc_field       using 'MARA-MEINS'
                              'W_UPLOAD-MEINS'.
perform bdc_field       using 'MARA-MATKL'
                              'W_UPLOAD-MATKL'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              'W_UPLOAD-MAKTX'.
perform bdc_field       using 'MARA-MEINS'
                              'W_UPLOAD-MEINS'.
perform bdc_field       using 'MARA-MATKL'
                              'W_UPLOAD-MATKL'.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-MFRPN'.
perform bdc_field       using 'MARA-MFRPN'
                              'W_UPLOAD-MFRPN'.
perform bdc_dynpro      using 'SAPLMGMM' '4000'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              'W_UPLOAD-MAKTX'.
perform bdc_field       using 'MARA-MEINS'
                              'W_UPLOAD-MEINS'.
perform bdc_field       using 'BDC_CURSOR'
                              'MBEW-VERPR'.
perform bdc_field       using 'MBEW-BKLAS'
                              'W_UPLOAD-BKLAS'.
perform bdc_field       using 'MBEW-VPRSV'
                              'W_UPLOAD-VPRSV'.
perform bdc_field       using 'MBEW-PEINH'
                              '1'.
perform bdc_field       using 'MBEW-VERPR'
                              'W_UPLOAD-VERPR'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
*perform bdc_transaction using 'MM01'.
*perform close_group.
call transaction 'MM01' 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                  = 'MM01'
  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-maktx,'----', 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.
FLAT FILE
MAT.DESCRIPTION          PLANT     MAT.TYPE     MAT.GROUP                UNIT
        M                    1000          ROH               001          KG
MANU.PART              NET               PRICE          PRICE          VALUATION     
NUMBER                   AMOUNTING            UNIT              CONTROL        CLASS     
    1                  25                   1              V              3000