Uploading the Master records(MM01) to SAP System using Call Transaction method (Tab delimited flat file)


Steps :

  • Get the flat file from the customer. Flat file might be  text file.
  • Get a sample recording with the help of  transaction Code SHDB .
  • Screen look like this.
  • Click on new recording.
  •  Enter the recording name and enter the transaction code (MM01).
  • Click on Start Recording.
  • Create a master record without single error as per required fields.
  • Ex: MM01 .. 
  • Enter the Material number , Industry Sector , Material Type.
  • Press Enter.
  • Select the View and click on Continue.
  • Enter material description and base unit of measure.
  • Press Enter.
  • Click on Yes.
  • Note :This is similar structure of BDCDATA.


  •  Click on save and click on Back.
  • Select the recording and click on program.
  • Enter the program name starts with Z or Y <program name >.
  • Click on Transfer from recording .
  • Click on Continue.
  • Enter Title and select attribute type as Executable program.
  • Click on Source Code.
  • Save Package or Local package.


Source Code

report ZMM_BDC_CALL
       no standard page heading line-size 255.


TYPES BEGIN OF TY_MAT,
        MATNR(18TYPE C,
        MBRSH TYPE C,
        MTART(4TYPE C,
        MAKTX(40TYPE C,
        MEINS(3TYPE C,

       END OF TY_MAT.


DATAWA_MAT TYPE TY_MAT,
      IT_MAT TYPE TABLE OF TY_MAT.

data:   bdcdata like bdcdata    occurs with header line.
*       messages of call transaction
data:   messtab like bdcmsgcoll occurs with header line.

PARAMETERS FILE(120TYPE C.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR FILE.

PERFORM SEARCH_FILE CHANGING FILE.

START-OF-SELECTION.
PERFORM GET_DATA_FROM_FILE USING FILE CHANGING IT_MAT.


*include bdcrecx1.

PERFORM BDC_OPERATION.

PERFORM DISPLAY_MESS USING  messtab[].




*&---------------------------------------------------------------------*
*&      Form  SEARCH_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_FILE  text
*----------------------------------------------------------------------*
form SEARCH_FILE  changing p_file.

  DATA FILE_NAME TYPE  IBIPPARMS-PATH.

  call function 'F4_FILENAME'

   EXPORTING
     PROGRAM_NAME        SY-CPROG
*     DYNPRO_NUMBER       = SYST-DYNNR
*     FIELD_NAME          = ' '
   IMPORTING
     FILE_NAME           FILE_NAME
            .
P_FILE FILE_NAME.

endform.                    " SEARCH_FILE
*&---------------------------------------------------------------------*
*&      Form  GET_DATA_FROM_FILE
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_FILE  text
*      <--P_IT_MAT  text
*----------------------------------------------------------------------*
form GET_DATA_FROM_FILE  using    p_file
                         changing p_it_mat LIKE IT_MAT.


DATA FILENAME TYPE  STRING.

FILENAME p_file.
  call function 'GUI_UPLOAD'                                      * To upload Tab delimited data
    exporting
      filename                      FILENAME
     FILETYPE                      'ASC'
     HAS_FIELD_SEPARATOR           'X'
*     HEADER_LENGTH                 = 0
*     READ_BY_LINE                  = 'X'
*     DAT_MODE                      = ' '
*     CODEPAGE                      = ' '
*     IGNORE_CERR                   = ABAP_TRUE
*     REPLACEMENT                   = '#'
*     CHECK_BOM                     = ' '
*     VIRUS_SCAN_PROFILE            =
*     NO_AUTH_CHECK                 = ' '
*   IMPORTING
*     FILELENGTH                    =
*     HEADER                        =
    tables
      data_tab                      =  p_it_mat
   EXCEPTIONS
     FILE_OPEN_ERROR               1
     FILE_READ_ERROR               2
     NO_BATCH                      3
     GUI_REFUSE_FILETRANSFER       4
     INVALID_TYPE                  5
     NO_AUTHORITY                  6
     UNKNOWN_ERROR                 7
     BAD_DATA_FORMAT               8
     HEADER_NOT_ALLOWED            9
     SEPARATOR_NOT_ALLOWED         10
     HEADER_TOO_LONG               11
     UNKNOWN_DP_ERROR              12
     ACCESS_DENIED                 13
     DP_OUT_OF_MEMORY              14
     DISK_FULL                     15
     DP_TIMEOUT                    16
     OTHERS                        17
            .
  if sy-subrc <> 0.
* Implement suitable error handling here
  endif.


endform.                    " GET_DATA_FROM_FILE

*----------------------------------------------------------------------*
*        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.

    clear bdcdata.
    bdcdata-fnam fnam.
    bdcdata-fval fval.
    append bdcdata.

endform.
*&---------------------------------------------------------------------*
*&      Form  BDC_OPERATION
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
form BDC_OPERATION .

LOOP AT IT_MAT INTO WA_MAT.

REFRESH BDCDATA[].
 perform bdc_dynpro      using 'SAPLMGMM' '0060'.
perform bdc_field       using 'BDC_CURSOR'
                              'RMMG1-MTART'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'RMMG1-MATNR'
                              WA_MAT-MATNR.
perform bdc_field       using 'RMMG1-MBRSH'
                              WA_MAT-MBRSH.
perform bdc_field       using 'RMMG1-MTART'
                              WA_MAT-MTART.
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'
                              '/00'.
perform bdc_field       using 'MAKT-MAKTX'
                              WA_MAT-MAKTX.
perform bdc_field       using 'BDC_CURSOR'
                              'MARA-MEINS'.
perform bdc_field       using 'MARA-MEINS'
                              WA_MAT-MEINS.
perform bdc_field       using 'MARA-MTPOS_MARA'
                              'NORM'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.

CALL TRANSACTION 'MM01' USING bdcdata[] UPDATE 'S'
                             MODE 'A'
                             MESSAGES INTO messtab.

ENDLOOP.

endform.                    " BDC_OPERATION
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_MESS
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_MESSTAB  text
*----------------------------------------------------------------------*
form DISPLAY_MESS  using    p_messtab LIKE messtab[].

DATA MSG TYPE STRING.

DATA WA LIKE LINE OF p_messtab.
  LOOP AT p_messtab INTO WA.

    call function 'FORMAT_MESSAGE'
     EXPORTING
       ID              =  WA-MSGID
       LANG            SY-LANGU
       NO              WA-MSGNR
       V1              =  WA-MSGV1
       V2              =  WA-MSGV2
       V3              =  WA-MSGV3
       V4              =  WA-MSGV4
     IMPORTING
       MSG             MSG
     EXCEPTIONS
       NOT_FOUND       1
       OTHERS          2
              .
    if sy-subrc <> 0.
* Implement suitable error handling here
    endif.

WRITE / MSG.

 CLEAR WA.


  ENDLOOP.

endform.                    " DISPLAY_MESS

  • Save ->Check -> Activate -> Execute.

Input

  • Click on F4 and choose the Tab delimited file.
  • Click on Execute.
  • Click on Allow.
  • Keep on Clicking  Ok_code button.

Output

Comments

Popular posts from this blog

FOR ALL ENTRIES (FAE) -4 TABLES USING ALV_GRID_DISPLAY

RADIO-BUTTONS IN BASIC REPORT

MODULE POOL -TABLE CONTROL_1: