Application Development and Automation 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: 
Read only

Extract EDPAR Convert External < > Internal Partner Number Data in CSV File Using ABAP Program

VIVEK-NIGAM
Explorer

‎2024 Oct 15 2:17 PM

0 Kudos
424

ABAP Program - Z_EDPAR_CUSTOMER 

  • Program Type – ABAP  
  • ABAP Program Name – Z_EDPAR_CUSTOMER 
  • Tcode - Z_ EDPAR _CUST
  • Entity Description - Customer Master Sales Data 
  • Output File Location - “C:\tmp” 
  • Output File Name- EDPAR.CSV 
  • Output File Type – CSV (Column with Semicolon separator (;) 
  • SAP Table Name – EDPAR, KNA1, KNB1 
  • List of fields to be extracted -  
  • KUNNR 
  • MANDT 
  • PARVW 
  • EXPNR 
  • INPNR 

----------------ABAP PROGRAM START FROM HERE-------------------------

 

REPORT  Z_EDPAR_CUSTOMER.
 
TYPE-POOLS: VRM.
 
DATA: NAME  TYPE VRM_ID,
      LIST  TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST.
 
 
PARAMETERS: ENTITY(10) AS LISTBOX VISIBLE LENGTH 10.
PARAMETERS : OPATH TYPE STRING DEFAULT '\\SERVERNAME\tmp\EDPAR.csv'.
 
AT SELECTION-SCREEN OUTPUT.
 
NAME = 'ENTITY'.
 
VALUE-KEY = 'UK01'.
VALUE-TEXT = 'UK01'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK75'.
VALUE-TEXT = 'UK75'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK21'.
VALUE-TEXT = 'UK21'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK31'.
VALUE-TEXT = 'UK31'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK41'.
VALUE-TEXT = 'UK41'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK02'.
VALUE-TEXT = 'UK02'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK73'.
VALUE-TEXT = 'UK73'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK04'.
VALUE-TEXT = 'UK04'.
APPEND VALUE TO LIST.
 
VALUE-KEY = 'UK61'.
VALUE-TEXT = 'UK61'.
APPEND VALUE TO LIST.
 
CALL FUNCTION 'VRM_SET_VALUES' EXPORTING ID = NAME VALUES = LIST.
START-OF-SELECTION.
*&------WRITE: / 'LEGAL ENTITY NAME:', ENTITY.
*&------WRITE: / 'OUTPUT FILE PATH:', OPATH.
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 = ENTITY.
 
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 = OPATH
    TABLES
      data_tab = itab1
    EXCEPTIONS
      OTHERS   = 1.
Vivek Niagm (SAP Consultant)
1 REPLY 1
Read only

Sandra_Rossi
Active Contributor

‎2024 Oct 19 4:51 PM

0 Kudos
339

Sorry to say that but posting a "discussion" without any question or request, whose code is reading data from a table and stores it into CSV, in which the code is almost identical to the previous post (15 posts in 2 weeks!), just the table name is changing, it's there is nothing new, no challenge, so zero interest for a blog post, zero interest for a "discussion". But I can see the company name at the end, ad for free?