SAP Table EDPAR - Extract EDPAR (Convert External < > Internal Partner Number) Data From SAP Table to CSV Using ABAP Program

 *&---------------------------------------------------------------------*

Requirement - Extract EDPAR Data From SAP EDPAR Table For All Available Company Code(s) / Cost Center(s).

Field(s) To Be Extracted -  KUNNR ,MANDT,PARVW,EXPNR,INPNR

*&---------------------------------------------------------------------*

*& Report  Z_EDPAR_DATA_EXTRACT.

*& Data Will Be Extracted Based On Company Code and using INNER Joint.

*&*&---------------------------------------------------------------------*

*&

*& Extract SAP Data For Customer Master Segment SAP TABLE EDPAR Into cvs File Called EDPAR.csv

*& EDPAR (Convert External < > Internal Partner Number) is a standard table in SAP R\3 ERP systems.

*&---------------------------------------------------------------------*

*& Developed By - SAI CONSULTANCY SERVICES LIMITED

 

*& Date - 15/07/2024

*&---------------------------------------------------------------------*

REPORT  Z_EDPAR_DATA_EXTRACT.

 

type-pools:TRUXS.

data: begin of itab occurs 0,

      KUNNR like EDPAR-KUNNR,

        MANDT like EDPAR-MANDT,

        PARVW like EDPAR-PARVW,

        EXPNR like EDPAR-EXPNR,

   INPNR like EDPAR-INPNR,

   BUKRS like KNB1-BUKRS,

      end of itab.

data:  itab1 type TRUXS_T_TEXT_DATA.

  select  EDPAR~KUNNR

           EDPAR~MANDT

           EDPAR~PARVW

           EDPAR~EXPNR

   EDPAR~INPNR

                 KNB1~BUKRS

         FROM EDPAR INNER JOIN KNA1 ON EDPAR~KUNNR = KNA1~KUNNR INNER JOIN KNB1 ON EDPAR~KUNNR = KNB1~KUNNR 

         into table itab

         WHERE EDPAR~PARVW = 'AG' AND KNB1~BUKRS = 'UK01'.

CALL FUNCTION 'SAP_CONVERT_TO_CSV_FORMAT'

EXPORTING

   I_FIELD_SEPERATOR          = ','

  TABLES

    I_TAB_SAP_DATA             = itab

CHANGING

   I_TAB_CONVERTED_DATA       =  itab1

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.

 

   CALL FUNCTION 'GUI_DOWNLOAD'

    EXPORTING

      filename = 'C:\tmp\EDPAR.csv'

    TABLES

      data_tab = itab1

    EXCEPTIONS

      OTHERS   = 1.