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(18) TYPE C,
        MBRSH TYPE C,
        MTART(4) TYPE C,
        MAKTX(40) TYPE C,
        MEINS(3) TYPE C,

       END OF TY_MAT.


DATA: WA_MAT TYPE TY_MAT,
      IT_MAT TYPE TABLE OF TY_MAT.

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

PARAMETERS : FILE(120) TYPE 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

Post a Comment

Popular posts from this blog

FOR ALL ENTRIES (FAE) -4 TABLES USING ALV_GRID_DISPLAY

Image
*&---------------------------------------------------------------------* *& Report  ZFAE_ALV *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT   ZFAE_ALV. TYPE-POOLS: SLIS. TYPES:  BEGIN  OF  TY_VBAK,         VBELN  TYPE  VBAK-VBELN,         ERNAM  TYPE  VBAK-ERNAM,         KUNNR  TYPE  VBAK-KUNNR,        END  OF  TY_VBAK.  TYPES:  BEGIN  OF  TY_VBAP,          VBELN  TYPE  VBAP-VBELN,          POSNR  TYPE  VBAP-POSNR,          MATNR  TYPE  VBAP-MATNR,         END  OF  TY_VBAP.  TYPES:BEGIN  OF  TY_MARA,        MATNR  TYPE  MARA-MATNR,        MBRSH  TYPE  MARA-MBRSH,         END  OF  TY_MARA.  TYPES:  BEGIN  OF  TY_MAKT,         MATNR  TYPE  MAKT-MATNR,         MAKTX  TYPE  MAKT-MAKTX,          END  OF  TY_MAKT.  TYPES:BEGIN  OF  TY_FINAL,          VBELN  TYPE  VBAK-VBELN,         ERNAM  TYPE  VBAK-ERNAM,     
Read more

RADIO-BUTTONS IN BASIC REPORT

Image
*&---------------------------------------------------------------------* *& Report  ZSAPRADIO *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT   ZSAPRADIO. TYPES:  BEGIN  OF  TY_VBAK,         VBELN  TYPE  VBAK-VBELN,         ERDAT  TYPE  VBAK-ERDAT,         VKORG  TYPE  VBAK-VKORG,        END  OF  TY_VBAK. TYPES:  BEGIN  OF  TY_VBAP,         VBELN  TYPE  VBAP-VBELN,         POSNR  TYPE  VBAP-POSNR,         MATNR  TYPE  VBAP-MATNR,         MATKL  TYPE  VBAP-MATKL,        END  OF  TY_VBAP. DATA:IT_VBAK  TYPE  TABLE  OF  TY_VBAK,       WA_VBAK  TYPE  TY_VBAK,         IT_VBAP  TYPE  TABLE  OF  TY_VBAP,       WA_VBAP  TYPE  TY_VBAP. SELECTION-SCREEN  BEGIN  OF  SCREEN  100. SELECT-OPTIONS  : S_VBELN  FOR  WA_VBAK-VBELN. SELECTION-SCREEN  END  OF  SCREEN  100. SELECTION-SCREEN  BEGIN  OF  SCREEN  200. SELECT-O
Read more

MODULE POOL -TABLE CONTROL_1:

Image
DECLARE  TABLES NAME AND STRUCTURE AND INTERNAL TABLES AND WORK AREA   CREATE SCREEN 9001 CLICK LAYOUT SEE THAT LAYOUT PAGE THEN WE DO THAT LIKE CLICK WIZARD AND DRAG INTO SCREEN  WE GET SCREEN LIKE SO AFTER WE CAN CREATE THAT STEPS  AFTER WE SEE SCREEN DESIGN IN AUTOMATICALLY IN TABLE CONTROL  SAVE AND CHECK AND ACTIVE  THEN MOVE TO BACK WE SEE THAT AUTOMATIC CODING WILL APPEAR   ENTER CALL SCREEN 9001. GO TO SCREEN 9001. THEN WE CAN FETCH DATA FROM PROGRAM SO    WE CAN CREATE MODULE   AND DESCRIBED ALL CODE IN SIDE OF MODULE. WE CAN GO TO  PAI SIDE  CLICK THAT MODULE AND ENTER  THAT CODING . AFTER SAVE AND ACTIVE PROGRAM  THEN WE CREATE T.CODE IN Z OR Y HERE I CAN CREATE T.CODE LIKE ZTABCLA AFTER WA CAN  GO TO NEW SCREEN 
Read more