Upload the Bank details from excel file to SAP system by using BAPI in ABAP.

FM- BAPI_BANK_CREATE

Excel file



Report program.


REPORT zab_bapi_bank_create_excel.
TYPES: BEGIN OF ty_bank,
         lv_bc     TYPE bapi1011_key-bank_ctry,
         lv_bank   TYPE bapi1011_address-bank_name,
         lv_region TYPE bapi1011_address-region,
         lv_street TYPE bapi1011_address-street,
         lv_city   TYPE bapi1011_address-city,
         lv_branch TYPE bapi1011_address-bank_branch,
         lv_key    TYPE bapi1011_key-bank_key,
       END OF ty_bank.

DATA: lw_bank    TYPE ty_bank,
      it_bank    TYPE TABLE OF ty_bank,
      lw_address TYPE bapi1011_address,
      it_raw     TYPE truxs_t_text_data,
      lw_return  TYPE bapiret2,
      it_return  TYPE TABLE OF bapiret2.
PARAMETERS: p_file TYPE ibipparms-path DEFAULT 'C:\Users\JFR2KOR\Documents\BANK.xlsx'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
  CALL FUNCTION 'F4_FILENAME'
*   EXPORTING
*     PROGRAM_NAME        = SYST-CPROG
*     DYNPRO_NUMBER       = SYST-DYNNR
*     FIELD_NAME          = ' '
    IMPORTING
      file_name = p_file.

START-OF-SELECTION.
  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'
    EXPORTING
      i_line_header        = 'X'
      i_tab_raw_data       = it_raw
      i_filename           = p_file
    TABLES
      i_tab_converted_data = it_bank
    EXCEPTIONS
      conversion_failed    = 1
      OTHERS               = 2.

* cl_demo_output=>display( it_bank ).

  LOOP AT it_bank INTO lw_bank.
    CLEAR: lw_address,lw_return.
    lw_address-bank_name   = lw_bank-lv_bank.
    lw_address-region = lw_bank-lv_region.
    lw_address-street = lw_bank-lv_street.
    lw_address-city   = lw_bank-lv_city.
    lw_address-bank_branch = lw_bank-lv_branch.

    CALL FUNCTION 'BAPI_BANK_CREATE'
      EXPORTING
        bank_ctry    = lw_bank-lv_bc
        bank_key     = lw_bank-lv_key
        bank_address = lw_address
      IMPORTING
        return       = lw_return.

    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.
    APPEND lw_return TO it_return.

  ENDLOOP.
  LOOP AT it_return INTO lw_return.
    IF lw_return IS INITIAL.
      WRITE: / 'BANK CREATED'.
    ELSE.
      WRITE: / lw_return-message.
    ENDIF.
  ENDLOOP.

Input



Output


Check the data.

    1. Goto SE11 and give table name as BNKA.

    2. Goto contents Give BANKL as AJAY2006 TO AJAY2010.

    3. Execute.

        





Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more