Skip to Content
Author's profile photo Tarun Gambhir

Easy and efficient way of uploading pricing conditions in SAP system using a single exclusively designed program

Introduction

In order to upload pricing conditions in SAP system, we need to create a conversion program which caters to all condition tables and uploads the respective data. Now since all condition tables have different structures/key fields/fields, the BDC approach can’t solve the problem unless we do recordings for all Condition Types. Also in case a new condition type is added, then we need to add a new recording to the code, which increases the development/maintenance hours.

Each time pricing conditions need to be uploaded in the SAP system, a technical resource is required to create a conversion program which uploads the data into the system. This tool helps in uploading the pricing conditions for SD and MM module, thereby eliminating any multiple manual intervention.


Solution Details

As the requirement is to upload any condition table, we have to design a solution which caters to all condition type uploads.

So in order to make it generic for all condition types, we would be expecting the Condition Table name to be as a part of upload fields. Now using this Table Name, we would fetch the schema of corresponding Condition Table and map fields dynamically. Also we would be using the Conversion Exits on the various field values using the field information returned for each table.

For example, say the condition table name coming in upload file is A652. We will use FM “CATSXT_GET_DDIC_FIELDINFO” to the details for table fields. As a result from this FM, we will get all the fields with their attributes like:-

  • Key Flag (denotes whether the field is a part of Primary Key or not)
  • Domain Name
  • Data Element Name
  • Check Table Name
  • Length
  • Field Labels
  • Conversion Exit, etc..

The basic common fields in upload structure can be:-

  • KAPPL (Application)
  • KSCHL (Condition Type)
  • TABLE (Condition Table Name)

Now the point lies how we map the data from file to different condition tables, as each table has a different structure and also varying in number of fields.

Since any Database Table can have only 16 fields (max) as a part of Primary Keys. And there are 5 fields which are common in all A* tables:-

  • MANDT (Client)
  • KAPPL (Application)
  • KSCHL (Condition type)
  • KFRST (Release status)
  • DATBI (Validity end date of the condition record)

So remaining number of key fields left are 11 (16 – 5), now the upload structure of the file would have 11 fields as floating/generic value. So we keep FLD1-FLD11 of type FIELDNAME (Char 30).

The other fields in the upload file structure (common to all condition types) are:-

  • DATAB (Start Date of Condition Record)
  • DATBI (End Date of Condition Record)
  • KBETR (Condition Value)
  • KPEIN (Condition Price Unit)
  • MEINS (Unit of Measurement)
  • KRECH (Calculation Type for Condition)

So the final upload structure is:-

Field Names Data Type Description
KAPPL KAPPL Application
KSCHL KSCHL Condition Type
TABLE TABNAME Table Name
FLD1 FIELDNAME Field Name
FLD2 FIELDNAME Field Name
FLD3 FIELDNAME Field Name
FLD4 FIELDNAME Field Name
FLD5 FIELDNAME Field Name
FLD6 FIELDNAME Field Name
FLD7 FIELDNAME Field Name
FLD8 FIELDNAME Field Name
FLD9 FIELDNAME Field Name
FLD10 FIELDNAME Field Name
FLD11 FIELDNAME Field Name
DATAB KODATAB Validity start date of the condition record
DATBI KODATBI Validity end date of the condition record
KBETR KBETR_KOND Rate (condition amount or percentage) where no scale exists
KPEIN KPEIN Condition pricing unit
MEINS MEINS Base Unit of Measure
KRECH KRECH Calculation type for condition


Now since in every A* table first 3 key fields are:-

  • MANDT
  • KAPPL
  • KSCHL

(NOTE: other 2 fields KFRST and DATBI are the last 2 key fields)

And first 3 fields in upload file are:-

  • KAPPL
  • KSCHL
  • TABLE

So rest of the key fields from A* table would be mapped to upload file fields FLD1-FLD11 based on the number of primary keys. Thus we will start mapping from field 4 of condition table to FLD1, FLD2 and so on till FLD11, based on the number of key fields.

In case we have 3 more key fields (excluding 5 common key fields), then in the upload file we will have values in fields FLD1, FLD2 and FLD3. In case any other field has a value, then it is an erroneous data, and nor these 3 fields can be blank (as they are part of primary keys).


For instance, let consider the table A652 (refer the snapshot in attachments)

The mapping of upload file to Condition Table would be like:-

1.      FLD1 –> VBELN

2.      FLD2 –> MATNR

3.      FLD3 –> VRKME

4.      FLD4 -to- FLD11 would remain as blank.

Also the data coming in these fields should be in continuous chain.

For instance if FLD1, FLD2 and FLD4 has values and FLD3 is initial, then also this record is erroneous.

1.      In case of the above erroneous situation, an error message “Discontinuity in Variable Key Fields” is appended.

2.      Validate the Processing Status from table T686E. In case no valid record found then append an error message “Invalid Processing status for conditions”.

3.      Now using the field information returned from FM “CATSXT_GET_DDIC_FIELDINFO”, check if any Conversion Exit is applicable, and then use the value coming in the upload file field and apply the same to convert the value and then we can pass this to IDoc structures. In case any error occurs then append message coming from the Conversion Exit.

4.      Check if the field is present in Segment

  • E1KOMG,
  • E1KONH, and
  • E1KONP

If field is found in the segment, then pass the value in the segment(s).

5.      Also concatenate the key field values in a string called Variable Key.

6.      After all key fields are covered with the above steps specified; then check for the length of the field. If field length is greater than 100, append a message “Variable Key too big”.

7.      Get the Logical System Name from table T000 where Client = SY-MANDT. In case no record found then append an error message “No Partner Function Found”.

8.      Concatenate ‘SAP’ SY-SYSID to form the Port Number.

9.      In case no error is found till now and test run is not requested, then populate the IDoc Segments.

    1. a.      Pass Control Records
      • Pass the Sender and Receiver Information.
      • IDoc Type as COND_A04
      • Message Type as COND_A
      • Basic Type as COND_A04
      • Direction as Inbound
      1. b.      Pass Data Records
        • Now pass the above prepared data into segments
          • E1KOMG
            • Application
            • Condition Type
            • Variable Key
            • Region
            • E1KONH
              • Start Date
              • End Date
              • E1KONP
                • Condition Type
                • Condition Value
                • Condition Unit
                • Condition Price Unit
                • Calculation Type for Condition
                1. c.      DIRECT POST – Post the data using FM “IDOC_INPUT_COND_A
                  • Pass all the above prepared data into the FM.
                  • If some error is returned, then append the same.
                  • If no error found, and data is successfully posted then check for Status as 53. If found, append a success message “Changes done successfully”
                  1. d.      IDOC POST – Post the data using FM “IDOC_INBOUND_WRITE_TO_DB
                    • Pass the data records into the FM.
                    • If some error returned from FM, then append the same in the log, to be displayed to the user. If no error found, Commit Work and append message “Idoc successfully posted:” with the IDOC number.


Business benefits

The above explained approach will upload all the relevant condition records in to the SAP system for SD and MM module using the iDoc approach (which is faster as compared to using BDC’s or LSMW’s).

The only thing which is crucial for using this tool is to understand the mapping of condition table with the upload file format. Once the mapping is done and a Tab Delimited Text file is provided to this program, it uploads the data in the desired tables; and thereby saving around 80% of estimated time. For instance, the general effort spent in developing the conversion program is 40 hours -versus- 8 hours spent in using this tool.


In addition, no maintenance is required in case any other change request is to be catered.

Thus this solution minimizes:

  • The functional effort of manually entering conditions records one by one.
  • The technical effort of developing conversion program using BDC’s for different condition tables. The number of these conversion program can vary depending upon the conditions to be uploaded.
  • The maintenance effort required as and when new condition types are added.

Assigned tags

      12 Comments
      You must be Logged on to comment or reply to a post.
      Author's profile photo Former Member
      Former Member

      That's a very helpful piece of information and the code will help a lot of developers in the implementation projects as well AMS.

      Thanks for sharing.

      Regards.

      Author's profile photo Former Member
      Former Member

      To implement the same with Microsoft Dynamics Ax takes around 1 hour or even no code is needed. Why it is so complicated with SAP? There is not a tool to Import automaticaly the CSV file with data to the Prices?

      Author's profile photo Tarun Gambhir
      Tarun Gambhir
      Blog Post Author

      Hello Pedro,

      Thanks for the information. I wasn't aware of this tool. This solution was designed by me for one of my customer where they wanted to upload pricing through one custom transaction.

      Best Regards,

      Tarun

      Author's profile photo Former Member
      Former Member

      Hi Tarun. Yes with with Microsoft Dynamics you can upload the Price Conditions using AIF and doing only some mapping between the file and the data. You can also do that by code with no more than 100 hundred lines of code.

      Anyway, thanks a lot for the example. It is great.

      Author's profile photo Former Member
      Former Member

      its useful document.

      Thanks,

      Vivek

      Author's profile photo Former Member
      Former Member

      There is code attachment available I saw long back. But I cannot find it now. Where can I find the code attached to this particular blog. Thanks in anticipation

       

      Author's profile photo Devendra Singh
      Devendra Singh

      Hi Tarun ,

      Greetings for the day ahead .

      I have a similar requirement .

      Plz attach the code .

      Would be grateful for your Help .

      Thanks ,

      Devendra Singh

       

       

       

      Author's profile photo NARSAIAH THOTTEMPUDI
      NARSAIAH THOTTEMPUDI

      Hi Tarun,

      Could you please attach the code.

      Thank you,

      Narasaiah T

      Author's profile photo Willy Soetjoadi
      Willy Soetjoadi

      Hi Tarun ,

      I have a similar requirement.

      Appreciated if you could attach the code.

      Thank you for your Help .

      Regards,

      Willie T

       

      Author's profile photo Tarun Gambhir
      Tarun Gambhir
      ////////////////////////////////////////////////////////////////////////////////////////////////
      ////////////////////////////////////////////////////////////////////////////////////////////////
      *----------------------------------------------------------------------
      * Object ID : XXXXXX
      * Program : ZSD_PRICING_UPLOAD
      * Author : Tarun Gambhir
      * Date : 04/28/2015
      * Description: Pricing Conditions Upload Conversion for VK11/VK12/VK13
      *----------------------------------------------------------------------
      * MODIFICATIONS LOG
      *----------------------------------------------------------------------
      * Request Text
      * ---------- ----------------------------------------------------------
      * Initial Version
      *----------------------------------------------------------------------
      REPORT zsd_pricing_upload.
      *----------------------------------------------------------------------
      * INCLUDES
      *----------------------------------------------------------------------
      INCLUDE: zsd_pricing_upload_top, " Global Declaration
      zsd_pricing_upload_scr, " Selection Screen
      zsd_pricing_upload_cls, " Local Class
      zsd_pricing_upload_frm. " Sub-Routines
      *----------------------------------------------------------------------*
      * INITIALIZATION
      *----------------------------------------------------------------------*
      INITIALIZATION.
      CREATE OBJECT o_cond.
      *----------------------------------------------------------------------*
      * AT SELECTION-SCREEN
      *----------------------------------------------------------------------*
      AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
      o_cond->f4_help( ).
      AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_efile.
      o_cond->f4_ehelp( ).
      AT SELECTION-SCREEN ON p_file.
      o_cond->validate_file( ).
      AT SELECTION-SCREEN ON p_efile.
      o_cond->validate_efile( ).
      *----------------------------------------------------------------------*
      * START-OF-SELECTION
      *----------------------------------------------------------------------*
      START-OF-SELECTION.
      o_cond->sos( ).
      *----------------------------------------------------------------------*
      * END-OF-SELECTION
      *----------------------------------------------------------------------*
      END-OF-SELECTION.
      o_cond->eos( ).
      
      ////////////////////////////////////////////////////////////////////////////////////////////////
      ////////////////////////////////////////////////////////////////////////////////////////////////
      
      *&---------------------------------------------------------------------*
      *& Include ZSD_PRICING_UPLOAD_CLS
      *&---------------------------------------------------------------------*
      *----------------------------------------------------------------------*
      * CLASS lcl_cond DEFINITION
      *----------------------------------------------------------------------*
      * Local Class
      *----------------------------------------------------------------------*
      CLASS lcl_cond DEFINITION FINAL.
      PUBLIC SECTION.
      METHODS : constructor,
      f4_help,
      f4_ehelp,
      validate_file,
      validate_efile,
      sos,
      eos,
      upload_data,
      get_partner_num,
      get_check_data,
      process_data,
      display_alv,
      download_error_records,
      create_fcat,
      append_fcat IMPORTING im_field TYPE fieldname
      im_text TYPE scrtext_l,
      alv,
      get_table_details,
      validate_data,
      pass_isocode_for_vrkme,
      pass_vistex,
      conversion_routine IMPORTING im_convexit TYPE convexit
      im_leng TYPE ddleng,
      call_conv_exit IMPORTING im_func TYPE rs38l_fnam
      im_leng TYPE ddleng,
      populate_idoc_data,
      pass_control_record,
      pass_data_record,
      post_data,
      direct_update,
      append_log IMPORTING im_tabix TYPE sytabix
      im_key TYPE fc_text
      im_type TYPE msgty
      im_msg TYPE bapi_msg,
      format_message IMPORTING im_msgid TYPE sy-msgid
      im_msgno TYPE sy-msgno
      im_msgv1 TYPE sy-msgv1
      im_msgv2 TYPE sy-msgv2
      im_msgv3 TYPE sy-msgv3
      im_msgv4 TYPE sy-msgv4
      EXPORTING ex_msg TYPE any
      EXCEPTIONS not_found,
      upload_pres_file IMPORTING im_pfile TYPE localfile
      EXPORTING ex_data TYPE STANDARD TABLE
      EXCEPTIONS upload_failed,
      validate_txt_file IMPORTING im_file TYPE localfile
      EXCEPTIONS invalid_txt,
      validate_pres_file IMPORTING im_pfile TYPE localfile
      EXCEPTIONS filenotsplitted
      invalid_directory
      invalid_filename,
      split_file_path IMPORTING im_file TYPE localfile
      EXPORTING ex_dir TYPE any
      ex_fname TYPE any
      EXCEPTIONS filenotsplitted.
      ENDCLASS. "lcl_cond DEFINITION
      *----------------------------------------------------------------------*
      * CLASS lcl_cond IMPLEMENTATION
      *----------------------------------------------------------------------*
      * Local Class
      *----------------------------------------------------------------------*
      CLASS lcl_cond IMPLEMENTATION.
      METHOD constructor.
      v_repid = sy-repid.
      ENDMETHOD. "constructor
      METHOD f4_help.
      DATA: lt_table TYPE filetable,
      lv_rc TYPE i.
      FIELD-SYMBOLS: <lfs_table> TYPE file_table.
      CALL METHOD cl_gui_frontend_services=>file_open_dialog
      EXPORTING
      default_extension = c_text
      CHANGING
      file_table = lt_table
      rc = lv_rc
      EXCEPTIONS
      file_open_dialog_failed = 1
      cntl_error = 2
      error_no_gui = 3
      not_supported_by_gui = 4
      OTHERS = 5.
      IF sy-subrc <> 0.
      MESSAGE 'Error in value-request for upload file'(020) TYPE c_i.
      LEAVE LIST-PROCESSING.
      ELSE.
      READ TABLE lt_table ASSIGNING <lfs_table> INDEX 1.
      IF <lfs_table> IS ASSIGNED.
      p_file = <lfs_table>-filename.
      ENDIF.
      ENDIF.
      ENDMETHOD. "f4_help
      METHOD f4_ehelp.
      DATA lv_path TYPE string.
      CALL METHOD cl_gui_frontend_services=>directory_browse
      CHANGING
      selected_folder = lv_path
      EXCEPTIONS
      cntl_error = 1
      error_no_gui = 2
      not_supported_by_gui = 3
      OTHERS = 4.
      IF sy-subrc = 0.
      p_efile = lv_path.
      ELSE.
      MESSAGE 'Error in value-request for download path'(028) TYPE c_i.
      ENDIF.
      ENDMETHOD. "f4_ehelp
      METHOD validate_file.
      DATA: lv_result TYPE abap_bool,
      lv_file TYPE string.
      lv_file = p_file.
      CALL METHOD cl_gui_frontend_services=>file_exist
      EXPORTING
      file = lv_file
      RECEIVING
      result = lv_result
      EXCEPTIONS
      cntl_error = 1
      error_no_gui = 2
      wrong_parameter = 3
      not_supported_by_gui = 4
      OTHERS = 5.
      IF sy-subrc <> 0 OR ( sy-subrc = 0 AND lv_result = space ).
      MESSAGE 'Invalid file path'(024) TYPE c_e.
      ENDIF.
      ENDMETHOD. "validate_file
      METHOD validate_efile.
      DATA: lv_file TYPE string,
      lv_result TYPE abap_bool.
      IF p_error = abap_true.
      IF p_efile IS INITIAL.
      MESSAGE 'Enter a valid file path'(029) TYPE c_e.
      ENDIF.
      lv_file = p_efile.
      CALL METHOD cl_gui_frontend_services=>directory_exist
      EXPORTING
      directory = lv_file
      RECEIVING
      result = lv_result
      EXCEPTIONS
      cntl_error = 1
      error_no_gui = 2
      wrong_parameter = 3
      not_supported_by_gui = 4
      OTHERS = 5.
      IF sy-subrc <> 0 OR ( sy-subrc = 0 AND lv_result = space ).
      MESSAGE 'Invalid error file path'(030) TYPE c_e.
      ENDIF.
      ENDIF.
      ENDMETHOD. "validate_efile
      METHOD sos.
      *~~No File Path is given
      IF p_file IS INITIAL.
      MESSAGE 'File path missing'(010) TYPE c_s DISPLAY LIKE c_e.
      LEAVE LIST-PROCESSING.
      ENDIF.
      upload_data( ).
      CHECK v_flag IS INITIAL.
      get_partner_num( ).
      IF t_main IS NOT INITIAL AND " upload data
      v_error IS INITIAL. " error flag
      *~~Get Check Data for Condition Type & Iso codes
      get_check_data( ).
      *~~Process Upload Records
      process_data( ).
      ENDIF.
      ENDMETHOD. "sos
      METHOD eos.
      CHECK t_main IS NOT INITIAL.
      *~~If no upload error occured
      IF v_flag = space.
      *~~If error record(s) download is requested
      IF p_error = abap_true.
      IF t_error IS INITIAL.
      MESSAGE 'No error record(s) to be downloaded'(033) TYPE c_i.
      ELSE.
      download_error_records( ).
      ENDIF.
      ENDIF.
      *~~If no log is there to be displayed
      IF t_log IS INITIAL.
      MESSAGE 'No data to display'(002) TYPE c_i.
      ELSE.
      *~~Display complete log in ALV
      display_alv( ).
      ENDIF.
      ENDIF.
      ENDMETHOD. "eos
      METHOD upload_data.
      CLEAR : t_main, v_flag.
      CALL METHOD me->upload_pres_file
      EXPORTING
      im_pfile = p_file
      IMPORTING
      ex_data = t_main
      EXCEPTIONS
      upload_failed = 1
      OTHERS = 2.
      IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE c_i NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      v_flag = abap_true.
      ENDIF.
      ENDMETHOD. "upload_data
      METHOD get_partner_num.
      CLEAR : v_partn, v_port, v_error.
      CONCATENATE c_sap sy-sysid INTO v_port.
      SELECT SINGLE logsys FROM t000 INTO v_partn
      WHERE mandt = sy-mandt.
      IF sy-subrc <> 0.
      v_error = abap_true.
      CLEAR v_key.
      CALL METHOD append_log
      EXPORTING
      im_tabix = '0'
      im_key = v_key
      im_type = c_e
      im_msg = 'No Partner Function Found'(003).
      t_error = t_main.
      ENDIF.
      ENDMETHOD. "get_partner_num
      METHOD get_check_data.
      DATA li_main TYPE STANDARD TABLE OF ty_main.
      CLEAR : t_t685, t_t006.
      *~~Application
      li_main = t_main.
      SORT li_main BY kappl.
      DELETE ADJACENT DUPLICATES FROM li_main COMPARING kappl.
      IF li_main IS NOT INITIAL.
      SELECT kappl FROM t681a INTO TABLE t_t681a
      FOR ALL ENTRIES IN li_main
      WHERE kappl = li_main-kappl.
      IF sy-subrc = 0.
      SORT t_t681a BY kappl.
      ENDIF.
      ENDIF.
      *~~Condition Type
      CLEAR li_main.
      li_main = t_main.
      SORT li_main BY kappl kschl.
      DELETE ADJACENT DUPLICATES FROM li_main COMPARING kappl kschl.
      IF li_main IS NOT INITIAL.
      SELECT kschl FROM t685 INTO TABLE t_t685
      FOR ALL ENTRIES IN li_main
      WHERE kappl = li_main-kappl
      AND kschl = li_main-kschl.
      IF sy-subrc = 0.
      SORT t_t685 BY kschl.
      ENDIF.
      ENDIF.
      *~~Iso codes
      CLEAR li_main.
      li_main = t_main.
      SORT li_main BY meins.
      DELETE ADJACENT DUPLICATES FROM li_main COMPARING meins.
      IF li_main IS NOT INITIAL.
      SELECT msehi isocode FROM t006 INTO TABLE t_t006
      FOR ALL ENTRIES IN li_main
      WHERE msehi = li_main-meins.
      IF sy-subrc = 0.
      SORT t_t006 BY msehi.
      ENDIF.
      ENDIF.
      ENDMETHOD. "get_check_data
      METHOD process_data.
      UNASSIGN <fs_main>.
      CLEAR : o_e1komg, o_e1konh, o_e1konp.
      CREATE DATA : o_e1komg TYPE (c_komg),
      o_e1konh TYPE (c_konh),
      o_e1konp TYPE (c_konp).
      IF o_e1komg IS NOT INITIAL AND o_e1konh IS NOT INITIAL AND o_e1konp IS
      NOT INITIAL.
      UNASSIGN : <fs_komg>, <fs_konh>, <fs_konp>.
      ASSIGN : o_e1komg->* TO <fs_komg>,
      o_e1konh->* TO <fs_konh>,
      o_e1konp->* TO <fs_konp>.
      ENDIF.
      CLEAR t_error.
      LOOP AT t_main ASSIGNING <fs_main>.
      CLEAR : v_tabix, v_error, v_vakey.
      IF <fs_komg> IS ASSIGNED AND <fs_konh> IS ASSIGNED AND <fs_konp> IS A
      SSIGNED.
      CLEAR : <fs_komg>, <fs_konh>, <fs_konp>.
      ENDIF.
      v_tabix = sy-tabix.
      get_table_details( ).
      validate_data( ).
      IF v_error = space.
      populate_idoc_data( ).
      ENDIF.
      ENDLOOP.
      ENDMETHOD. "process_data
      METHOD download_error_records.
      CLEAR v_efile.
      CONCATENATE p_efile '\Error_' sy-datum sy-uzeit '.txt'
      INTO v_efile.
      CALL METHOD cl_gui_frontend_services=>gui_download
      EXPORTING
      filename = v_efile
      write_field_separator = abap_true
      CHANGING
      data_tab = t_error
      EXCEPTIONS
      file_write_error = 1
      no_batch = 2
      gui_refuse_filetransfer = 3
      invalid_type = 4
      no_authority = 5
      unknown_error = 6
      header_not_allowed = 7
      separator_not_allowed = 8
      filesize_not_allowed = 9
      header_too_long = 10
      dp_error_create = 11
      dp_error_send = 12
      dp_error_write = 13
      unknown_dp_error = 14
      access_denied = 15
      dp_out_of_memory = 16
      disk_full = 17
      dp_timeout = 18
      file_not_found = 19
      dataprovider_exception = 20
      control_flush_error = 21
      not_supported_by_gui = 22
      error_no_gui = 23
      OTHERS = 24.
      IF sy-subrc <> 0.
      MESSAGE 'Error downloading error record(s)'(031) TYPE c_i.
      ENDIF.
      ENDMETHOD. "download_error_records
      METHOD display_alv.
      IF t_log IS INITIAL.
      MESSAGE 'No log to be displayed'(017) TYPE c_i.
      LEAVE LIST-PROCESSING.
      ENDIF.
      create_fcat( ).
      alv( ).
      ENDMETHOD. "display_alv
      METHOD create_fcat.
      append_fcat( EXPORTING im_field = 'TYPE' im_text = 'Message Type'(018)
      ).
      append_fcat( EXPORTING im_field = 'TABIX' im_text = 'Record No'(019) ).
      append_fcat( EXPORTING im_field = 'KEY' im_text = 'Record Key'(021) ).
      append_fcat( EXPORTING im_field = 'MSG' im_text = 'Message'(022) ).
      ENDMETHOD. "create_fcat
      METHOD append_fcat.
      DATA lw_fcat TYPE slis_fieldcat_alv.
      lw_fcat-fieldname = im_field.
      lw_fcat-seltext_s = lw_fcat-seltext_m = lw_fcat-seltext_l = im_text.
      lw_fcat-ddictxt = 'L'.
      lw_fcat-tabname = 'T_LOG'.
      APPEND lw_fcat TO t_fcat.
      CLEAR lw_fcat.
      ENDMETHOD. "append_fcat
      METHOD alv.
      DATA : lw_layout TYPE slis_layout_alv.
      lw_layout-colwidth_optimize = abap_true.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
      EXPORTING
      i_callback_program = v_repid
      i_callback_top_of_page = 'TOP_OF_PAGE'
      is_layout = lw_layout
      it_fieldcat = t_fcat
      TABLES
      t_outtab = t_log
      EXCEPTIONS
      program_error = 1
      OTHERS = 2.
      IF sy-subrc <> 0.
      MESSAGE 'Error displaying ALV' TYPE c_i.
      LEAVE LIST-PROCESSING.
      ENDIF.
      ENDMETHOD. "alv
      METHOD get_table_details.
      FIELD-SYMBOLS <lfs_ddfields> TYPE STANDARD TABLE.
      CLEAR t_ddfields.
      UNASSIGN <fs_t006>.
      IF <fs_main> IS ASSIGNED.
      READ TABLE t_t006 ASSIGNING <fs_t006> WITH KEY msehi = <fs_main>-
      meins BINARY SEARCH.
      IF <fs_t006> IS ASSIGNED.
      <fs_main>-meins = <fs_t006>-isocode.
      ENDIF.
      UNASSIGN <fs_table>.
      READ TABLE t_table ASSIGNING <fs_table> WITH KEY table = <fs_main>-
      table.
      IF <fs_table> IS ASSIGNED.
      UNASSIGN <lfs_ddfields>.
      ASSIGN <fs_table>-info->* TO <lfs_ddfields>.
      IF <lfs_ddfields> IS ASSIGNED.
      t_ddfields = <lfs_ddfields>.
      ENDIF.
      ELSE.
      APPEND INITIAL LINE TO t_table ASSIGNING <fs_table>.
      IF <fs_table> IS ASSIGNED.
      <fs_table>-table = <fs_main>-table.
      UNASSIGN <lfs_ddfields>.
      CREATE DATA <fs_table>-info TYPE ddfields.
      ASSIGN <fs_table>-info->* TO <lfs_ddfields>.
      ENDIF.
      ENDIF.
      IF t_ddfields IS NOT INITIAL.
      RETURN.
      ENDIF.
      CALL FUNCTION 'CATSXT_GET_DDIC_FIELDINFO'
      EXPORTING
      im_structure_name = <fs_main>-table
      IMPORTING
      ex_ddic_info = t_ddfields
      EXCEPTIONS
      failed = 1
      OTHERS = 2.
      IF sy-subrc <> 0.
      v_error = abap_true.
      CLEAR v_key.
      v_key = <fs_main>-table.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = c_e
      im_msg = 'Invalid Condition Table'(004).
      *~~Append Error
      APPEND <fs_main> TO t_error.
      ENDIF.
      IF <lfs_ddfields> IS ASSIGNED.
      <lfs_ddfields> = t_ddfields.
      ENDIF.
      ENDIF.
      ENDMETHOD. "get_table_details
      METHOD validate_data.
      DATA : lv_count TYPE i,
      lv_tabix TYPE sytabix,
      lv_flag TYPE char1.
      FIELD-SYMBOLS <lfs_dfies> TYPE any.
      *~~Check for APPLICATION
      UNASSIGN <fs_t681a>.
      READ TABLE t_t681a ASSIGNING <fs_t681a> WITH KEY kappl = <fs_main>-
      kappl BINARY SEARCH.
      IF <fs_t681a> IS NOT ASSIGNED.
      v_error = abap_true.
      CLEAR v_key.
      CONCATENATE <fs_main>-kschl <fs_main>-
      table INTO v_key SEPARATED BY c_sep.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = c_e
      im_msg = 'Invalid Application'(005).
      *~~Append Error
      APPEND <fs_main> TO t_error.
      ENDIF.
      *~~Check for CONDITION TYPE
      UNASSIGN <fs_t685>.
      READ TABLE t_t685 ASSIGNING <fs_t685> WITH KEY kschl = <fs_main>-
      kschl BINARY SEARCH.
      IF <fs_t685> IS NOT ASSIGNED.
      v_error = abap_true.
      CLEAR v_key.
      CONCATENATE <fs_main>-kschl <fs_main>-
      table INTO v_key SEPARATED BY c_sep.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = c_e
      im_msg = 'Invalid Condition Type'(006).
      *~~Append Error
      APPEND <fs_main> TO t_error.
      ENDIF.
      *~~Check for FIELD CONTINUITY
      lv_count = 4.
      lv_tabix = 4.
      CLEAR : sy-index, lv_flag, v_leng, v_len.
      WHILE sy-index <= 11.
      UNASSIGN <fs_field>.
      ASSIGN COMPONENT lv_count OF STRUCTURE <fs_main> TO <fs_field>.
      IF <fs_field> IS ASSIGNED.
      IF <fs_field> IS INITIAL.
      lv_flag = abap_true.
      ELSE.
      IF lv_flag = abap_true.
      CLEAR v_key.
      v_key = <fs_main>-kschl.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = c_e
      im_msg = 'Discontinuity in Variable Key Fields'(007).
      v_error = abap_true.
      *~~Append Error
      APPEND <fs_main> TO t_error.
      EXIT.
      ELSE.
      CLEAR o_data.
      READ TABLE t_ddfields ASSIGNING <fs_dfies> INDEX lv_tabix.
      IF <fs_dfies> IS ASSIGNED.
      CREATE DATA o_data TYPE (<fs_dfies>-rollname).
      IF o_data IS BOUND.
      ASSIGN o_data->* TO <fs_value>.
      IF <fs_value> IS ASSIGNED.
      <fs_value> = <fs_field>.
      IF sy-index = 1.
      CLEAR v_leng.
      ELSE.
      v_leng = v_leng + v_len.
      ENDIF.
      IF <fs_dfies>-convexit IS NOT INITIAL.
      conversion_routine( EXPORTING im_convexit = <fs_dfies>-
      convexit
      im_leng = <fs_dfies>-leng ).
      ELSE.
      CLEAR v_len.
      v_len = <fs_dfies>-leng.
      v_vakey+v_leng(v_len) = <fs_value>.
      ENDIF.
      *~~Replace value of VRKME by T006-ISOCODE value
      pass_isocode_for_vrkme( ).
      *~~Assign the field value in KOMG structure
      UNASSIGN <lfs_dfies>.
      ASSIGN COMPONENT <fs_dfies>-
      fieldname OF STRUCTURE <fs_komg> TO <lfs_dfies>.
      IF <lfs_dfies> IS ASSIGNED.
      <lfs_dfies> = <fs_value>.
      ENDIF.
      *~~Assign the field value in KONH structure
      UNASSIGN <lfs_dfies>.
      ASSIGN COMPONENT <fs_dfies>-
      fieldname OF STRUCTURE <fs_konh> TO <lfs_dfies>.
      IF <lfs_dfies> IS ASSIGNED.
      <lfs_dfies> = <fs_value>.
      ENDIF.
      *~~Assign the field value in KONP structure
      UNASSIGN <lfs_dfies>.
      ASSIGN COMPONENT <fs_dfies>-
      fieldname OF STRUCTURE <fs_konp> TO <lfs_dfies>.
      IF <lfs_dfies> IS ASSIGNED.
      <lfs_dfies> = <fs_value>.
      ENDIF.
      *~~Pass Vistex Data if required
      pass_vistex( ).
      ENDIF.
      ENDIF.
      ENDIF.
      ENDIF.
      ENDIF.
      ENDIF.
      lv_count = lv_count + 1.
      lv_tabix = lv_tabix + 1.
      ENDWHILE.
      *~~Check variable key not more than 100 digits
      CLEAR lv_count.
      lv_count = strlen( v_vakey ).
      IF lv_count > 100.
      v_error = abap_true.
      CLEAR v_key.
      CONCATENATE <fs_main>-kschl <fs_main>-table v_vakey
      INTO v_key SEPARATED BY c_sep.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = c_e
      im_msg = 'Variable Key too big'(008).
      *~~Append Error
      APPEND <fs_main> TO t_error.
      ENDIF.
      ENDMETHOD. "validate_data
      METHOD pass_isocode_for_vrkme.
      IF <fs_dfies>-fieldname = c_vrkme.
      UNASSIGN <fs_t006>.
      READ TABLE t_t006 ASSIGNING <fs_t006>
      WITH KEY msehi = <fs_value> BINARY SEARCH.
      IF <fs_t006> IS ASSIGNED.
      <fs_value> = <fs_t006>-isocode.
      ENDIF.
      ENDIF.
      ENDMETHOD. "pass_isocode_for_vrkme
      METHOD pass_vistex.
      FIELD-SYMBOLS <lx_idoc> TYPE any.
      UNASSIGN <lx_idoc>.
      ASSIGN COMPONENT <fs_dfies>-
      fieldname OF STRUCTURE <fs_komg> TO <lx_idoc>.
      IF <lx_idoc> IS ASSIGNED.
      <lx_idoc> = <fs_value>.
      ENDIF.
      UNASSIGN <lx_idoc>.
      ASSIGN COMPONENT <fs_dfies>-
      fieldname OF STRUCTURE <fs_konh> TO <lx_idoc>.
      IF <lx_idoc> IS ASSIGNED.
      <lx_idoc> = <fs_value>.
      ENDIF.
      UNASSIGN <lx_idoc>.
      ASSIGN COMPONENT <fs_dfies>-
      fieldname OF STRUCTURE <fs_konp> TO <lx_idoc>.
      IF <lx_idoc> IS ASSIGNED.
      <lx_idoc> = <fs_value>.
      ENDIF.
      ENDMETHOD. "pass_vistex
      METHOD conversion_routine.
      DATA lv_func TYPE rs38l_fnam.
      CONCATENATE c_conv im_convexit c_input INTO lv_func.
      UNASSIGN <fs_cexit>.
      READ TABLE t_cexit ASSIGNING <fs_cexit> WITH KEY funcname = lv_func.
      IF <fs_cexit> IS NOT ASSIGNED.
      SELECT funcname parameter paramtype FROM fupararef
      APPENDING TABLE t_cexit
      WHERE funcname = lv_func.
      IF sy-subrc = 0.
      SORT t_cexit BY funcname.
      ENDIF.
      ENDIF.
      call_conv_exit( EXPORTING im_func = lv_func
      im_leng = im_leng ).
      ENDMETHOD. "conversion_routine
      METHOD call_conv_exit.
      DATA lv_msg TYPE bapi_msg.
      DATA : li_ptab TYPE abap_func_parmbind_tab,
      lw_ptab TYPE abap_func_parmbind,
      li_etab TYPE abap_func_excpbind_tab,
      lw_etab TYPE abap_func_excpbind.
      UNASSIGN <fs_cexit>.
      LOOP AT t_cexit ASSIGNING <fs_cexit> WHERE funcname = im_func.
      CASE <fs_cexit>-paramtype.
      WHEN 'I'.
      IF <fs_cexit>-parameter = c_inp.
      lw_ptab-name = <fs_cexit>-parameter.
      lw_ptab-kind = abap_func_exporting.
      GET REFERENCE OF <fs_value> INTO lw_ptab-value.
      INSERT lw_ptab INTO TABLE li_ptab.
      ENDIF.
      WHEN 'E'.
      IF <fs_cexit>-parameter = c_out.
      lw_ptab-name = <fs_cexit>-parameter.
      lw_ptab-kind = abap_func_importing.
      GET REFERENCE OF <fs_value> INTO lw_ptab-value.
      INSERT lw_ptab INTO TABLE li_ptab.
      ENDIF.
      WHEN 'X'.
      lw_etab-name = c_other.
      lw_etab-value = 1.
      INSERT lw_etab INTO TABLE li_etab.
      WHEN OTHERS.
      ENDCASE.
      ENDLOOP.
      IF sy-subrc = 0.
      CALL FUNCTION im_func
      PARAMETER-TABLE
      li_ptab
      EXCEPTION-TABLE
      li_etab.
      CASE sy-subrc.
      WHEN 0.
      CLEAR v_len.
      v_len = im_leng.
      v_vakey+v_leng(v_len) = <fs_value>.
      WHEN 1.
      v_error = abap_true.
      CALL METHOD me->format_message
      EXPORTING
      im_msgid = sy-msgid
      im_msgno = sy-msgno
      im_msgv1 = sy-msgv1
      im_msgv2 = sy-msgv2
      im_msgv3 = sy-msgv3
      im_msgv4 = sy-msgv4
      IMPORTING
      ex_msg = lv_msg
      EXCEPTIONS
      not_found = 1
      OTHERS = 2.
      IF sy-subrc <> 0.
      CLEAR lv_msg.
      CONCATENATE 'Error occured while using Conversion Exit'(009) im
      _func
      INTO lv_msg SEPARATED BY space.
      ENDIF.
      CLEAR v_key.
      CONCATENATE <fs_main>-kschl <fs_main>-
      table INTO v_key SEPARATED BY c_sep.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = c_e
      im_msg = lv_msg.
      *~~Append Error
      APPEND <fs_main> TO t_error.
      ENDCASE.
      ENDIF.
      ENDMETHOD. "call_conv_exit
      METHOD populate_idoc_data.
      *~~Populate IDOC Control Record
      pass_control_record( ).
      *~~Populate IDOC Data Record
      pass_data_record( ).
      *~~Post the data in IDOC
      post_data( ).
      ENDMETHOD. "populate_idoc_data
      METHOD pass_control_record.
      CLEAR : w_edidc, t_edidc.
      w_edidc-rcvpor = v_port.
      w_edidc-rcvprt = c_ls.
      w_edidc-rcvprn = v_partn.
      w_edidc-sndpor = v_port.
      w_edidc-sndprt = c_ls.
      w_edidc-sndprn = v_partn.
      w_edidc-doctyp = c_dctyp.
      w_edidc-mestyp = c_mstyp.
      w_edidc-idoctp = c_bstyp.
      w_edidc-direct = c_in.
      APPEND w_edidc TO t_edidc.
      CLEAR w_edidc.
      ENDMETHOD. "pass_control_record
      METHOD pass_data_record.
      CLEAR : w_edidd, t_edidd, w_e1komg, w_e1konh, w_e1konp,
      v_segnm, v_hlevl.
      IF <fs_komg> IS ASSIGNED.
      w_e1komg = <fs_komg>.
      ENDIF.
      IF <fs_konh> IS ASSIGNED.
      w_e1konh = <fs_konh>.
      ENDIF.
      IF <fs_konp> IS ASSIGNED.
      w_e1konp = <fs_konp>.
      ENDIF.
      *~~Initialize the Segment Number and Higher Level
      v_segnm = c_segnm.
      v_hlevl = c_hlevl.
      *~~Pass the data for E1KOMG
      w_edidd-segnum = v_segnm.
      w_edidd-segnam = c_komg.
      w_edidd-hlevel = v_hlevl.
      w_e1komg-kvewe = <fs_main>-table+0(1).
      w_e1komg-kotabnr = <fs_main>-table+1(3).
      w_e1komg-kappl = <fs_main>-kappl.
      w_e1komg-kschl = <fs_main>-kschl.
      w_e1komg-vakey = v_vakey.
      w_edidd-sdata = w_e1komg.
      APPEND w_edidd TO t_edidd.
      CLEAR w_edidd.
      *~~Increment the Segment Number
      v_segnm = v_segnm + 1.
      *~~Pass the data for E1KONH
      w_edidd-segnum = v_segnm.
      w_edidd-segnam = c_konh.
      w_edidd-hlevel = v_hlevl.
      w_e1konh-datab = <fs_main>-datab.
      w_e1konh-datbi = <fs_main>-datbi.
      w_edidd-sdata = w_e1konh.
      APPEND w_edidd TO t_edidd.
      CLEAR w_edidd.
      *~~Increment the Segment Number & Higher Level
      v_segnm = v_segnm + 1.
      v_hlevl = v_hlevl + 1.
      *~~Pass the data for E1KONP
      w_edidd-segnum = v_segnm.
      w_edidd-segnam = c_konp.
      w_edidd-hlevel = v_hlevl.
      w_e1konp-kschl = <fs_main>-kschl.
      w_e1konp-kbetr = <fs_main>-kbetr.
      w_e1konp-kpein = <fs_main>-kpein.
      w_e1konp-kmein = <fs_main>-meins.
      w_e1konp-krech = <fs_main>-krech.
      CASE w_e1konp-krech.
      WHEN c_a.
      w_e1konp-kzbzg = c_b.
      w_e1konp-konwa = c_per.
      WHEN c_c.
      w_e1konp-kzbzg = c_c.
      w_e1konp-konwa = <fs_main>-waers.
      ENDCASE.
      w_edidd-sdata = w_e1konp.
      APPEND w_edidd TO t_edidd.
      CLEAR w_edidd.
      ENDMETHOD. "pass_data_record
      METHOD post_data.
      *~~Update using DIRECT UPDATE
      direct_update( ).
      ENDMETHOD. "post_data
      METHOD direct_update.
      DATA: lv_msg TYPE bapi_msg,
      lv_type TYPE msgty.
      CLEAR : t_edids, t_return, t_bdi_ser.
      *~~Pass the details to the generated IDOC Number
      CALL FUNCTION 'IDOC_INPUT_COND_A'
      EXPORTING
      input_method = space
      mass_processing = space
      TABLES
      idoc_contrl = t_edidc
      idoc_data = t_edidd
      idoc_status = t_edids
      return_variables = t_return
      serialization_info = t_bdi_ser
      EXCEPTIONS
      wrong_function_called = 1
      OTHERS = 2.
      IF sy-subrc <> 0.
      CLEAR lv_msg.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
      INTO lv_msg.
      CLEAR v_key.
      CONCATENATE <fs_main>-kschl <fs_main>-table v_vakey
      INTO v_key SEPARATED BY c_sep.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = c_e
      im_msg = lv_msg.
      *~~Append Error
      APPEND <fs_main> TO t_error.
      ELSE.
      UNASSIGN <fs_edids>.
      LOOP AT t_edids ASSIGNING <fs_edids>.
      CLEAR lv_msg.
      IF <fs_edids>-status = c_53.
      lv_msg = 'Changes done successfully'(011).
      lv_type = c_s.
      ELSE.
      MESSAGE ID <fs_edids>-msgid TYPE <fs_edids>-
      msgty NUMBER <fs_edids>-msgno
      WITH <fs_edids>-msgv1 <fs_edids>-msgv2 <fs_edids>-
      msgv3 <fs_edids>-msgv4
      INTO lv_msg.
      lv_type = c_e.
      *~~Append Error
      APPEND <fs_main> TO t_error.
      ENDIF.
      CLEAR v_key.
      CONCATENATE <fs_main>-kschl <fs_main>-table v_vakey
      INTO v_key SEPARATED BY c_sep.
      CALL METHOD me->append_log
      EXPORTING
      im_tabix = v_tabix
      im_key = v_key
      im_type = lv_type
      im_msg = lv_msg.
      ENDLOOP.
      ENDIF.
      ENDMETHOD. "direct_update
      METHOD append_log.
      DATA lw_log TYPE ty_log.
      lw_log-tabix = im_tabix.
      lw_log-key = im_key.
      lw_log-type = im_type.
      lw_log-msg = im_msg.
      APPEND lw_log TO t_log.
      CLEAR lw_log.
      ENDMETHOD. "append_log
      METHOD format_message.
      CALL FUNCTION 'FORMAT_MESSAGE'
      EXPORTING
      id = im_msgid
      lang = sy-langu
      no = im_msgno
      v1 = im_msgv1
      v2 = im_msgv2
      v3 = im_msgv3
      v4 = im_msgv4
      IMPORTING
      msg = ex_msg
      EXCEPTIONS
      not_found = 1
      OTHERS = 2.
      IF sy-subrc <> 0.
      CLEAR ex_msg.
      RAISE not_found.
      ENDIF.
      ENDMETHOD. "format_message
      METHOD upload_pres_file.
      DATA : lv_file TYPE string.
      *~~Clear Log & File Name
      CLEAR : t_log, lv_file.
      lv_file = im_pfile.
      *~~Check file for a TXT File
      CALL METHOD me->validate_txt_file
      EXPORTING
      im_file = im_pfile
      EXCEPTIONS
      invalid_txt = 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
      RAISING upload_failed.
      ENDIF.
      *~~Validate File Path and File Name
      CALL METHOD me->validate_pres_file
      EXPORTING
      im_pfile = im_pfile
      EXCEPTIONS
      filenotsplitted = 1
      invalid_directory = 2
      invalid_filename = 3
      OTHERS = 4.
      IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
      RAISING upload_failed.
      ENDIF.
      CALL METHOD cl_gui_frontend_services=>gui_upload
      EXPORTING
      filename = lv_file
      has_field_separator = abap_true
      CHANGING
      data_tab = ex_data
      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
      not_supported_by_gui = 17
      error_no_gui = 18
      OTHERS = 19.
      IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
      WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4
      RAISING upload_failed.
      ENDIF.
      *~~Check for number of records upload
      IF ex_data IS INITIAL.
      MESSAGE 'No data found in the upload file'(012) TYPE c_i.
      ENDIF.
      ENDMETHOD. "upload_pres_file
      METHOD validate_txt_file.
      DATA : lv_len TYPE int4,
      lv_file TYPE char4.
      lv_len = strlen( im_file ).
      lv_len = lv_len - 3.
      lv_file = im_file+lv_len(3).
      CALL FUNCTION '/SAPDII/CONVERT_CASE'
      EXPORTING
      if_input = lv_file
      if_langu = sy-langu
      if_tocase = c_u
      IMPORTING
      ef_output = lv_file.
      IF lv_file <> c_text.
      MESSAGE 'Invalid Text File'(013) TYPE c_i RAISING invalid_txt.
      ENDIF.
      ENDMETHOD. "VALIDATE_TXT_FILE
      METHOD validate_pres_file.
      DATA : lv_res TYPE abap_bool,
      lv_fname TYPE string,
      lv_dir TYPE string.
      *~~Split FilePath and FileName
      CALL METHOD me->split_file_path
      EXPORTING
      im_file = im_pfile
      IMPORTING
      ex_dir = lv_dir
      ex_fname = lv_fname
      EXCEPTIONS
      filenotsplitted = 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
      RAISING filenotsplitted.
      ENDIF.
      *--Method to Validate Directory
      CALL METHOD cl_gui_frontend_services=>directory_exist
      EXPORTING
      directory = lv_dir
      RECEIVING
      result = lv_res
      EXCEPTIONS
      cntl_error = 1
      error_no_gui = 2
      wrong_parameter = 3
      not_supported_by_gui = 4
      OTHERS = 5.
      IF lv_res IS INITIAL.
      MESSAGE 'Invalid Directory'(014) TYPE c_i RAISING invalid_directory.
      ELSE.
      CLEAR lv_res.
      *--Method to Validate File
      CALL METHOD cl_gui_frontend_services=>file_exist
      EXPORTING
      file = lv_fname
      RECEIVING
      result = lv_res
      EXCEPTIONS
      cntl_error = 1
      error_no_gui = 2
      wrong_parameter = 3
      not_supported_by_gui = 4
      OTHERS = 5.
      IF lv_res IS INITIAL.
      MESSAGE 'Invalid Filename'(015) TYPE c_i RAISING invalid_filename.
      ENDIF.
      ENDIF.
      ENDMETHOD. "validate_pres_file
      METHOD split_file_path.
      *--FM to split File Path into Directory and File Name
      CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
      EXPORTING
      full_name = im_file
      IMPORTING
      stripped_name = ex_fname
      file_path = ex_dir
      EXCEPTIONS
      x_error = 1
      OTHERS = 2.
      IF sy-subrc <> 0.
      MESSAGE 'File and Path not splitted'(016) TYPE c_i RAISING filenotspl
      itted.
      ENDIF.
      ENDMETHOD. "split_file_path
      ENDCLASS. "lcl_cond IMPLEMENTATION
      
      ////////////////////////////////////////////////////////////////////////////////////////////////
      ////////////////////////////////////////////////////////////////////////////////////////////////
      
      *&---------------------------------------------------------------------*
      *& Include ZSD_PRICING_UPLOAD_FRM
      *&---------------------------------------------------------------------*
      *----------------------------------------------------------------------*
      * FORM TOP_OF_PAGE
      *----------------------------------------------------------------------*
      * Sub-Routine for Top Of Page for ALV
      *----------------------------------------------------------------------*
      FORM top_of_page.
      DATA: lt_top TYPE slis_t_listheader,
      lw_top TYPE slis_listheader,
      lv_datum TYPE char10.
      *~~Header
      lw_top-typ = c_h.
      lw_top-info = 'Pricing Upload'(023).
      APPEND lw_top TO lt_top. CLEAR lw_top.
      *~~Username
      lw_top-typ = c_s.
      lw_top-key = 'Username:'(025).
      lw_top-info = sy-uname.
      APPEND lw_top TO lt_top. CLEAR lw_top.
      *~~Date
      lw_top-typ = c_s.
      lw_top-key = 'Date:'(026).
      WRITE sy-datum TO lv_datum.
      lw_top-info = lv_datum.
      APPEND lw_top TO lt_top. CLEAR lw_top.
      *~~Error Log (if dowloaded)
      IF p_error = abap_true AND v_efile IS NOT INITIAL.
      lw_top-typ = c_s.
      lw_top-key = 'Error File Path:'(032).
      lw_top-info = v_efile.
      APPEND lw_top TO lt_top. CLEAR lw_top.
      ENDIF.
      *~~Print Top of page
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
      EXPORTING
      it_list_commentary = lt_top.
      ENDFORM. "top_of_page
      
      ////////////////////////////////////////////////////////////////////////////////////////////////
      ////////////////////////////////////////////////////////////////////////////////////////////////
      
      *&---------------------------------------------------------------------*
      *& Include ZSD_PRICING_UPLOAD_SCR
      *&---------------------------------------------------------------------*
      SELECTION-SCREEN BEGIN OF LINE.
      SELECTION-SCREEN COMMENT 1(70) text-034.
      SELECTION-SCREEN END OF LINE.
      SELECTION-SCREEN BEGIN OF LINE.
      SELECTION-SCREEN COMMENT 1(70) text-035.
      SELECTION-SCREEN END OF LINE.
      SELECTION-SCREEN BEGIN OF LINE.
      SELECTION-SCREEN COMMENT 1(70) text-036.
      SELECTION-SCREEN END OF LINE.
      SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
      PARAMETERS p_file TYPE localfile OBLIGATORY.
      SELECTION-SCREEN END OF BLOCK b1.
      SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-027.
      PARAMETERS: p_error AS CHECKBOX DEFAULT 'X',
      p_efile TYPE localfile.
      SELECTION-SCREEN END OF BLOCK b2.
      
      ////////////////////////////////////////////////////////////////////////////////////////////////
      ////////////////////////////////////////////////////////////////////////////////////////////////
      
      *&---------------------------------------------------------------------*
      *& Include ZSD_PRICING_UPLOAD_TOP
      *&---------------------------------------------------------------------*
      *----------------------------------------------------------------------
      * CLASS
      *----------------------------------------------------------------------
      CLASS lcl_cond DEFINITION DEFERRED.
      *----------------------------------------------------------------------
      * TYPES
      *----------------------------------------------------------------------
      TYPE-POOLS slis.
      TYPES: BEGIN OF ty_main,
      kappl TYPE kappl,
      kschl TYPE kschl,
      table TYPE tabname,
      fld1 TYPE fieldname,
      fld2 TYPE fieldname,
      fld3 TYPE fieldname,
      fld4 TYPE fieldname,
      fld5 TYPE fieldname,
      fld6 TYPE fieldname,
      fld7 TYPE fieldname,
      fld8 TYPE fieldname,
      fld9 TYPE fieldname,
      fld10 TYPE fieldname,
      fld11 TYPE fieldname,
      datab TYPE kodatab,
      datbi TYPE kodatbi,
      kbetr TYPE kbetr_kond,
      kpein TYPE kpein,
      meins TYPE meins,
      krech TYPE krech,
      waers TYPE waers,
      END OF ty_main,
      BEGIN OF ty_t681a,
      kappl TYPE kappl, " Application
      END OF ty_t681a,
      BEGIN OF ty_t685,
      kschl TYPE kschl, " Condition Type
      END OF ty_t685,
      BEGIN OF ty_t006,
      msehi TYPE msehi, " Uom
      isocode TYPE isocd_unit, " ISO Code
      END OF ty_t006,
      BEGIN OF ty_cexit,
      funcname TYPE rs38l_fnam, " FunctionMod Name
      parameter TYPE rs38l_par_, " Parameter
      paramtype TYPE rs38l_kind, " Parameter Type
      END OF ty_cexit,
      BEGIN OF ty_table,
      table TYPE tabname,
      info TYPE REF TO data,
      END OF ty_table,
      BEGIN OF ty_log,
      tabix TYPE sytabix,
      key TYPE fc_text,
      type TYPE msgty,
      msg TYPE bapi_msg,
      END OF ty_log.
      *----------------------------------------------------------------------
      * CONSTANTS
      *----------------------------------------------------------------------
      CONSTANTS : c_i TYPE char1 VALUE 'I', " Info
      c_s TYPE char1 VALUE 'S', " Success
      c_e TYPE char1 VALUE 'E', " Error
      c_segnm TYPE idocdsgnum VALUE '000001', " Segment Num
      c_hlevl TYPE edi_hlevel VALUE '01', " Higher Level
      c_komg TYPE edilsegtyp VALUE 'E1KOMG', " Segment Name
      c_konh TYPE edilsegtyp VALUE 'E1KONH', " Segment Name
      c_konp TYPE edilsegtyp VALUE 'E1KONP', " Segment Name
      c_dctyp TYPE edi_doctyp VALUE 'COND_A04', " IDOC Type
      c_bstyp TYPE edi_idoctp VALUE 'COND_A04', " Basic Type
      c_mstyp TYPE edi_mestyp VALUE 'COND_A', " Message Type
      c_ls TYPE edi_rcvprt VALUE 'LS', " Partner System
      c_in TYPE edi_direct VALUE '2', " Direction
      c_sap TYPE char3 VALUE 'SAP', " SAP
      c_53 TYPE edi_status VALUE '53', " Success Status
      c_a TYPE stfkz VALUE 'A', " Scale Type
      c_b TYPE kzbzg VALUE 'B', " Scale Type
      c_c TYPE kzbzg VALUE 'C', " Scale basis in
      dicator
      c_per TYPE konwa VALUE '%', " Rate unit (cur
      rency or percentage)
      c_conv TYPE char16 VALUE 'CONVERSION_EXIT_',
      c_input TYPE char6 VALUE '_INPUT',
      c_vrkme TYPE fieldname VALUE 'VRKME', " Sales Unit
      c_sep TYPE char1 VALUE '/', " Seperator
      c_u TYPE char1 VALUE 'U', " Upper Case
      c_text TYPE string VALUE 'TXT', " TXT
      c_inp TYPE rs38l_par_ VALUE 'INPUT',
      c_out TYPE rs38l_par_ VALUE 'OUTPUT',
      c_other TYPE abap_excpname VALUE 'OTHERS',
      c_h TYPE char01 VALUE 'H'.
      *----------------------------------------------------------------------
      * VARIABLES
      *----------------------------------------------------------------------
      DATA : v_repid TYPE syrepid, " Report ID
      v_efile TYPE string, " Error File Path
      v_flag TYPE char1, " Upload Failed
      v_tabix TYPE sytabix, " Record Index
      v_error TYPE char1, " Error in record
      v_vakey TYPE vakey_50, " Variable Key
      v_key TYPE fc_text, " Key for SALV Disp
      v_segnm TYPE idocdsgnum, " Segment Num
      v_hlevl TYPE edi_hlevel, " Higher Level
      v_partn TYPE edi_rcvprn, " Partner Number
      v_port TYPE edi_rcvpor, " Port
      v_len TYPE ddleng, " Strlen
      v_leng TYPE ddleng. " Strlen
      *----------------------------------------------------------------------
      * WORK AREAS
      *----------------------------------------------------------------------
      DATA : w_edidc TYPE edidc, " Control Record
      w_edidd TYPE edidd, " Data Record
      w_e1komg TYPE e1komg, " Segment Data
      w_e1konh TYPE e1konh, " Segment Data
      w_e1konp TYPE e1konp. " Segment Data
      *----------------------------------------------------------------------
      * INTERNAL TABLES
      *----------------------------------------------------------------------
      DATA : t_main TYPE STANDARD TABLE OF ty_main, " Upload Data
      t_error TYPE STANDARD TABLE OF ty_main, " Error Data
      t_t681a TYPE STANDARD TABLE OF ty_t681a, " Application
      t_t685 TYPE STANDARD TABLE OF ty_t685, " Condition Types
      t_t006 TYPE STANDARD TABLE OF ty_t006, " ISO Codes
      t_edidc TYPE STANDARD TABLE OF edidc, " Control Record
      t_edidd TYPE STANDARD TABLE OF edidd, " Data Record
      t_edids TYPE STANDARD TABLE OF bdidocstat, " Status Record
      t_return TYPE STANDARD TABLE OF bdwfretvar, " Return
      t_bdi_ser TYPE STANDARD TABLE OF bdi_ser, " IDOC Structure
      t_ddfields TYPE ddfields,
      t_cexit TYPE STANDARD TABLE OF ty_cexit,
      t_table TYPE STANDARD TABLE OF ty_table,
      t_log TYPE STANDARD TABLE OF ty_log,
      t_fcat TYPE slis_t_fieldcat_alv.
      *----------------------------------------------------------------------
      * OBJECTS
      *----------------------------------------------------------------------
      DATA : o_cond TYPE REF TO lcl_cond,
      o_data TYPE REF TO data,
      o_e1komg TYPE REF TO data,
      o_e1konh TYPE REF TO data,
      o_e1konp TYPE REF TO data.
      *----------------------------------------------------------------------
      * FIELD-SYMBOLS
      *----------------------------------------------------------------------
      FIELD-SYMBOLS : <fs_main> TYPE ty_main,
      <fs_t681a> TYPE ty_t681a,
      <fs_t685> TYPE ty_t685,
      <fs_t006> TYPE ty_t006,
      <fs_edids> TYPE bdidocstat,
      <fs_dfies> TYPE dfies,
      <fs_field> TYPE any,
      <fs_value> TYPE any,
      <fs_komg> TYPE any,
      <fs_konh> TYPE any,
      <fs_konp> TYPE any,
      <fs_cexit> TYPE ty_cexit,
      <fs_table> TYPE ty_table.
      
      ////////////////////////////////////////////////////////////////////////////////////////////////
      ////////////////////////////////////////////////////////////////////////////////////////////////

       

      Author's profile photo Guillermo vallejo
      Guillermo vallejo

      The code will solve TK11/TK12 uploads?

       

      Thanks

      Author's profile photo Raja Kella
      Raja Kella

      Hi Tarun,

      I tried using the same IDOC approach and also tried RV_CONDITION_COPY, RV_CONDITION_SAVE and RV_CONDITION_RESET.  I can see condition records are visible in table KONH, that records are created.  But now problem is same records are not visible in VK13 transaction code. I’m passing exactly the same parameters as you mentioned. Could you please let me know what might be the issue?