Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 

Hi i am not get the output for this can any one help please thanks in advance.

Go to solution
venkata_neha
Discoverer

‎04-15-2013 6:41 AM

0 Kudos

TYPE-POOLS truxs.

**********data Declaration**********

DATA   : wa_bank_ctry LIKE bapi1011_key-bank_ctry,

         bank_key LIKE bapi1011_key-bank_key,

         bank_address LIKE bapi1011_address,

         v_error LIKE bapiret2,

         bankcountry  LIKE  bapi1011_key-bank_ctry,

         bankkey  LIKE  bapi1011_key-bank_key.

DATA   : BEGIN OF wa_data,

         bank_ctry LIKE bapi1011_key-bank_ctry,

         bank_key LIKE bapi1011_key-bank_ctry,

         bank_name LIKE bapi1011_address-bank_name,

         city LIKE bapi1011_address-city,

         bank_branch LIKE bapi1011_address-bank_branch,

         END OF wa_data.

DATA  : it_data LIKE TABLE OF wa_data.

DATA   : it_raw TYPE  truxs_t_text_data.

PARAMETERS : p_file TYPE  rlgrap-filename.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  CALL FUNCTION 'F4_FILENAME'

EXPORTING

   program_name        = syst-cprog

*   DYNPRO_NUMBER       = SYST-DYNNR

   field_name          = 'P_FILE'

IMPORTING

   file_name           = p_file

            .

START-OF-SELECTION.

  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

    EXPORTING

*   I_FIELD_SEPERATOR          =

*   I_LINE_HEADER              =

      i_tab_raw_data             = it_raw

      i_filename                 = p_file

    TABLES

      i_tab_converted_data       = it_data

* EXCEPTIONS

*   CONVERSION_FAILED          = 1

*   OTHERS                     = 2

            .

  IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

  LOOP AT it_data INTO wa_data.

    MOVE-CORRESPONDING wa_data TO bank_address.

    CALL FUNCTION 'BAPI_BANK_CREATE'

      EXPORTING

        bank_ctry             = wa_bank_ctry

       bank_key              = bank_key

        bank_address          = bank_address

*   BANK_METHOD           =

*   BANK_FORMATTING       =

*   BANK_ADDRESS1         =

     IMPORTING

       return                = v_error

       bankcountry           = bankcountry

       bankkey               =  bankkey

              .

    IF v_error IS INITIAL.

      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

* EXPORTING

*   WAIT          =

* IMPORTING

*   RETURN        =

                .

    ELSE.

      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

      MESSAGE 'TRANSACTION NOT SUCC' TYPE 'E'.

    ENDIF.

  ENDLOOP.

1 ACCEPTED SOLUTION

Go to solution
former_member15255
Active Participant

‎04-15-2013 10:05 AM

0 Kudos

Hello Venkata,

Please refer to the below link which is the same of your previous post refer to the reply provided by Paul Bakker.

http://scn.sap.com/thread/3343366

Regards

Suresh Nair

2 REPLIES 2

Go to solution
former_member288351
Participant

‎04-15-2013 8:00 AM

0 Kudos

Hi Venkata,

Please check the below change in above code it is working now:

   TYPE-POOLS truxs.

**********data Declaration**********



DATA   : wa_bank_ctry LIKE bapi1011_key-bank_ctry,

         bank_key LIKE bapi1011_key-bank_key,

         bank_address LIKE bapi1011_address,

         v_error LIKE bapiret2,

         bankcountry  LIKE  bapi1011_key-bank_ctry,

         bankkey  LIKE  bapi1011_key-bank_key.



DATA   : BEGIN OF wa_data,

         bank_ctry LIKE bapi1011_key-bank_ctry,

         bank_key LIKE bapi1011_key-bank_key, "bapi1011_key-bank_ctry,

         bank_name LIKE bapi1011_address-bank_name,

         city LIKE bapi1011_address-city,

         bank_branch LIKE bapi1011_address-bank_branch,

         END OF wa_data.



DATA  : it_data LIKE TABLE OF wa_data.



DATA   : it_raw TYPE  truxs_t_text_data.



PARAMETERS : p_file TYPE  rlgrap-filename.



AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.





  CALL FUNCTION 'F4_FILENAME'

EXPORTING

   program_name        = syst-cprog

*   DYNPRO_NUMBER       = SYST-DYNNR

   field_name          = 'P_FILE'

IMPORTING

   file_name           = p_file

            .



START-OF-SELECTION.



  CALL FUNCTION 'TEXT_CONVERT_XLS_TO_SAP'

    EXPORTING

*   I_FIELD_SEPERATOR          =

*   I_LINE_HEADER              =

      i_tab_raw_data             = it_raw

      i_filename                 = p_file

    TABLES

      i_tab_converted_data       = it_data

* EXCEPTIONS

*   CONVERSION_FAILED          = 1

*   OTHERS                     = 2

            .

  IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.





  LOOP AT it_data INTO wa_data.



    MOVE-CORRESPONDING wa_data TO bank_address.



    CALL FUNCTION 'BAPI_BANK_CREATE'

      EXPORTING

        bank_ctry             = wa_data-bank_ctry "wa_bank_ctry

       bank_key              = wa_data-bank_key

        bank_address          = bank_address

*   BANK_METHOD           =

*   BANK_FORMATTING       =

*   BANK_ADDRESS1         =

     IMPORTING

       return                = v_error

       bankcountry           = bankcountry

       bankkey               =  bankkey

              .



    IF v_error IS INITIAL.



      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

* EXPORTING

*   WAIT          =

* IMPORTING

*   RETURN        =

                .
MESSAGE 'BANK CREATED' TYPE 'S'.
    ELSE.

      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.



      MESSAGE 'TRANSACTION NOT SUCC' TYPE 'E'.

    ENDIF.



  ENDLOOP.

with regards

vikas pandey

Go to solution
former_member15255
Active Participant

‎04-15-2013 10:05 AM

0 Kudos

Hello Venkata,

Please refer to the below link which is the same of your previous post refer to the reply provided by Paul Bakker.

http://scn.sap.com/thread/3343366

Regards

Suresh Nair