Sample ABAP program to upload CSV data into Internal table and sending it to Application server

 REPORT.

*--Attaching type group to program

TYPE-POOLS KCDE.

*--Structure type

TYPES: BEGIN OF TY-STD,

RONO TYPE C LENGTH 4,

NAME1 TYPE C LENGTH 20,

GEN TYPE C LENGTH 6,

FEES TYPE C LENGTH 10,

END OF TY_STD.

*--Header line and Internal table

DATA WKA TYPE TY_STD.

DATA ITABLE TYPE TABLE OF TY_STD.

*--Header line and internal table for CSV data

DATA IS_CSV TYPE LINE OF KCDE_INTERN.

DATA IT_CSV TYPE KCDE_INTERN.

*--Application server files are known as "Datasets"

*--here "fname" is the Dataset

DATA FNAME TYPE C LENGTH 40 VALUE 'StudentsInfo.txt'.

*--Convert CSV flat file data into internal table

CALL FUNCTION 'KCD_CSV_FILE_TO_INTERN_CONVERT'

EXPORTING

I_FILENAME = 'C:\Documents and Settings\Administrator\Desktop\Students.csv'

I_SEPARATOR = ','

TABLES

E_INTERN = IT_CSV.

LOOP AT IT_CSV INTO IS_CSV.

CASE IS_CSV-COL.

WHEN 1.

WA-RONO = IS_CSV-VALUE.

WHEN 2.

WA-NAME1 = IS_CSV-VALUE.

WHEN 3.

WA-GEN = IS_CSV-VALUE.

WHEN 4.

WA- FEES = IS_CSV-VALUE.

ENDCASE.

AT END OF ROW.

APPEND WKA TO ITABLE

CLEAR WKA.

ENDAT.

ENDLOOP.

*--Sending data to application server

OPEN DATASET FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.

LOOP AT ITABLE INTO WKA.

TRANSFER WKA TO FNAME.

ENDLOOP.

CLOSE DATASET FNAME.




.

 

Comments

Post a Comment

Popular posts from this blog

Domains and Data Elements

  Domains A domain provided Technical attributes (type, length and possible values) for a field. The definition of domain in ABAP is same as that in Mathematics. In the world of Mathematics, a domain is defined as the set of input values that are valid for a given function. The same holds true for domains in ABAP. To understand this, let us first see what is the role of domains in ABAP data dictionary. Domains -> Data Elements -> (Structures, DB tables, program references etc.)
Read more

How to update exchange rates via process chain in BW

Image
 The exchange rate in the BW system may not be updated one. Also the business wants to see the amounts according to the exchange rates in the source. In such cases, you have to update the exchange rate in the BW system via process chain. Include the step ‘Execute ABAP Program’ in the process chain. Give the program name as ‘RSIMPCURR’. Create a variant for the program.
Read more

Sample ABAP program for Updating notepad file data to Internal table and Sending it to Application server

 *--Structure type TYPES: BEGIN OF TY_STD, RONO TYPE C LENGTH 4, NAME1 TYPE C LENGTH 20, GEN TYPE C LENGTH 6, FEES TYPE C LENGTH 10. END OF TY_STD. *--Header line and internal table DATA WKA TYPE TY_STD. DATA INT_TAB TYPE TABLE OF TY_STD. *--Application server files are known as "Datasets" *--here "fname" is the Dataset DATA FNAME TYPE C LENGTH 40 VALUE "StudentsInfo.txt". *--Convert notepad file data into internal table CALL FUNCTION 'GUI_UPLOAD' EXPORTING FILENAME = 'C:Documents and SettingsAdministratorDesktopstudents.txt' HAS FIELD_SEPARATOR = 'X' TABLES DATA_TAB = INT_TAB. *--Sending data to Application Server OPEN DATASET FNAME FOR OUTPUT IN TEXT MODE ENCODING DEFAULT. LOOP AT INT_TAB INTO WKA. TRANSFER WKA TO FNAME. ENDLOOP. CLOSE DATASET FNAME.
Read more