Read statement into an internal table

Hi Experts,
In my report i have several read statements, now my requirement is i want to put all the read statements into an internal table, how do i achieve it???
Thank you!

Hello Maya,
i want to know how many number of times the read statement is used .
Two ways:
1. use a counter after each read statement in your program and increase it by 1 everytime there is read statement and display the final value of the counter in the report that you want.
2. If you just want to know press (CNTRL + F) enter "READ" , select the radio button "In Main program" and then you will get all the read statement and can count it manually.
Hope I have not answered your question wrong. But if I have, please be more specific about your requirement so that many an help you.
Thanks,
Jayant Sahu.

Similar Messages

Read statement on dynamic internal tables

Hello All,
I have a dynamic internal table <G_T_ITAB> with fields F1, F2, F3 & F4 .
I want to read the internal table <G_T_ITAB>. So im using the below code.
LOOP AT G_T_DATA.
READ TABLE <G_T_ITAB> INTO <G_R_ITAB> WITH KEY F1 = G_T_DATA-F1.
IF SY-SUBRC <> 0.
ELSE.
ENDIF.
ENDLOOP.
But this is giving syntax error that F1 is not the field of <G_T_ITAB>. But the field is there in <G_T_ITAB>.
Can you suggest me to solve this issue. Or is there any other approach to use READ statement on dynamic internal tables.
Thanks in advance.
Best Regards,
Sasidhar Reddy Matli.

Hi ,
Read this way....
FIELD-SYMBOLS:
<fs_str> type any,
<fs_lf_fval> type any,
<fs_lt_result_rate> type any table,
<fs_ls_result_rate> type any.
DATA:
lv_fname type string.
lv_fname = 'MATNR'.
assign component 'matnr' of structure <fs_str> to <fs_lf_fval>.
READ TABLE <fs_lt_result_rate> INTO <fs_ls_result_rate>
WITH KEY (lv_fname) = <fs_lf_fval>.
Thanks,
Shailaja Ainala.

Read Statement in Dynamic Internal Table?

Hi,
Is it possible read statement in Dynamic Internal table?
Thanls,
Suresh.

Hi,
I think it will be possible. look at the following code u may get some idea.
FORM field_check_blank USING pi_zcheck_name TYPE zcheck_name
pi_mara TYPE mara
pi_keys TYPE yi_keys
CHANGING pio_failed TYPE char1.
DATA: li_ftab TYPE TABLE OF string,
 li_wtab TYPE TABLE OF string,
 l_tabnam TYPE string,
 l_tabfld TYPE string,
 l_txt TYPE string,
 lw_keys LIKE LINE OF pi_keys.
CONSTANTS: lc_key_def TYPE string VALUE '&1 = &2-&1'.
FIELD-SYMBOLS: <fval> TYPE ANY,
 <fval2> TYPE ANY,
 <fstruct> TYPE ANY.
CLEAR: pio_failed.
SPLIT pi_zcheck_name AT '-' INTO l_tabnam l_tabfld.
APPEND l_tabfld TO li_ftab.
ASSIGN (l_tabnam) TO <fstruct>.
IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH l_tabnam.
ENDIF.
CLEAR: <fstruct>.
LOOP AT pi_keys INTO lw_keys
WHERE TABLE = L_TABNAM.
 ASSIGN COMPONENT lw_keys-field OF STRUCTURE <fstruct> TO <fval>.
 IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH lw_keys-field.
 ENDIF.
 ASSIGN COMPONENT lw_keys-field OF STRUCTURE pi_mara TO <fval2>.
 IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH lw_keys-field.
 ENDIF.
 <fval> = <fval2>.
 l_txt = lc_key_def.
 REPLACE ALL OCCURRENCES OF '&1' IN l_txt WITH lw_keys-field.
 REPLACE '&2' IN l_txt WITH lw_keys-table.
 IF NOT li_wtab IS INITIAL.
 CONCATENATE 'AND' l_txt INTO l_txt SEPARATED BY space.
 ENDIF.
 APPEND l_txt TO li_wtab.
ENDLOOP.
ASSIGN (pi_zcheck_name) TO <fval>.
IF NOT sy-subrc EQ 0.
 MESSAGE e787 WITH pi_zcheck_name.
ENDIF.
SELECT SINGLE (li_ftab)
 INTO <fval>
 FROM (l_tabnam)
 WHERE (li_wtab).
IF NOT sy-subrc EQ 0
OR NOT <fval> IS INITIAL.
 pio_failed = c_true.
ENDIF.
ENDFORM. " FIELD_CHECK_BLANK
Note:
BEGIN OF y_keys,
 table TYPE tabname,
 field TYPE fieldname,
 END OF y_keys.
If helpful pl reward.
Cheers

Best way to read a CSV file into an internal table

Hi,
I have a comma seprated file, which I need to read into an internal table, and be able to look at particular values - basically looping round and populating BDC fields. Whats the easiest way of doing this?

The easiest way would be to define a flat interal table.
Data: begin of itab occurs 0,
      rec(1000) type c,
      end of itab.
Then call the function module GUI_UPLOAD to get the data into your internal table from the file on the frontend. I assume that you know how to use this function module. You could also use the method GUI_UPLOAD of the class CL_GUI_FRONTEND_SERVICES.
For example, say you have a comman delimited file with materail number, plant, quantity in it.
4000001,0004,1.00
4000002,0006,2.00
Define another internal table to hold the data.
Data: begin of itab2 occurs 0,
      matnr type mara-matnr
      werks type marc-werks
      quant(10) type c.
      end of itab2.
Then loop at the internal table(ITAB) and use the split statement to split it up into the appropriate fields of the other interal table(ITAB2).
Loop at itab.
clear itab2.
split itab-rec at ',' into itab2-matnr
                           itab2-werks
                           itab2-quant.
append itab2.
endloop.
That's it.
Regards,
Rich Heilman
Message was edited by: Rich Heilman

How to read data in correct format from EXCEL file into an internal table??

Hi Experts,
My requirement is to upload data from an excel file on presentation server into an internal table on SRM server.
I used 'GUI_UPLOAD' function module to achieve the same but all the the data is getting uploaded in # only.I had set in the 'HAS_FIELD_SEPARATOR' to 'X' to overcome this problem.
But all the efforts are in vain. The function module 'ALSM_EXCEL_TO_INTERNAL_TABLE' doesn't exist on SRM Server and I am not getting any other function module having similar functionality available on SRM server.
I have written the following code:-
TYPES: BEGIN OF ty_addr_loc,
 userid TYPE xubname, "User Id
 addr_code TYPE char4, "3 Digit Site Location Code/4 Digit
 "Alternate Address
 loc_id TYPE bbp_location, "Indicator: Address is standard address
 END OF ty_addr_loc.
*Retrieving file name
parameters: p_file type rlgrap-filename.
DATA:
 Local variable holding file name
 l_file TYPE string,
 Local Variable holding the file type,
 l_type TYPE filetype VALUE 'ASC',
 Local Variable holding the field separator
 l_sep TYPE char01,
 i_tab type standard table of ty_addr_loc.
Clearing local variables
CLEAR:
 l_file,
 l_sep.
Initializing the local variables
MOVE p_file TO l_file.
l_sep = 'X'.
CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = l_file
 filetype = l_type
 has_field_separator = l_sep
 HEADER_LENGTH = 0
 READ_BY_LINE = 'X'
 DAT_MODE = ' '
 CODEPAGE = ' '
 IGNORE_CERR = ABAP_TRUE
 REPLACEMENT = '#'
 CHECK_BOM = ' '
 VIRUS_SCAN_PROFILE =
 NO_AUTH_CHECK = ' '
IMPORTING
 FILELENGTH =
 HEADER =
 TABLES
 data_tab = i_tab
 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
 OTHERS = 17
IF sy-subrc <> 0.
Throwing an information message
 MESSAGE i003. "Data Upload Failed
 LEAVE LIST-PROCESSING.
ENDIF.
Please tell me a way out. I have to make a delivery urgently.
Thanks in advance,
Swati Gupta

Hi
Try the FM KCD_EXCEL_OLE_TO_INT_CONVERT
Sample:
call function 'KCD_EXCEL_OLE_TO_INT_CONVERT'
 exporting
 filename = i_filename
 i_begin_col = l_begin_col
 i_begin_row = l_begin_row
 i_end_col = l_end_col
 i_end_row = l_end_row
 tables
 intern = xt_intern
 exceptions
 INCONSISTENT_PARAMETERS = 201
 UPLOAD_OLE = 201.
if sy-subrc <> 0.
 e_subrc = sy-subrc.
 exit.
endif.
reward if Helpful.

How to read a table and transfer the data into an internal table?

Hello,
I try to read all the data from a table (all attribute values from a node) and to write these data into an internal table. Any idea how to do this?
Thanks for any help.

Hi,
Check this code.
Here i creates context one node i.e flights and attributes are from SFLIGHT table.
DATA: lo_nd_flights TYPE REF TO if_wd_context_node,
 lo_el_flights TYPE REF TO if_wd_context_element,
 ls_flights TYPE if_main=>element_flights,
 it_flights type if_main=>elements_flights.
navigate from <CONTEXT> to <FLIGHTS> via lead selection
lo_nd_flights = wd_context->get_child_node( 'FLIGHTS' ).
CALL METHOD LO_ND_FLIGHTS->GET_STATIC_ATTRIBUTES_TABLE
IMPORTING
 TABLE = it_flights.
now the table data will be in internal table it_flights.

How to read data from an internal table into a real table?

Hello experts,
I'm relatively new to ABAP and I'm trying to figure out how to read data from an internal table into a table that I created. I'm trying to use the RRW3_GET_QUERY_VIEW_DATA function module to read data from a multiprovider. I'm trying to read data from the e_cell_data and e_axis_data tables into a table that I've already created. Please see code below.
TABLES MULTITAB.
DATA:
query_name TYPE RSZCOMPID,
s_cubename TYPE RSINFOPROV,
t_cell_data TYPE RRWS_T_CELL,
t_axis_data TYPE RRWS_THX_AXIS_DATA,
t_axis_info TYPE RRWS_THX_AXIS_INFO,
wa_t_cell_data like line of t_cell_data,
wa_t_axis_data like line of t_axis_data,
w_corp_tab like line of t_cell_data.
s_cubename = 'CORP_MPO1'.
query_name = 'Z_corp_test'.
 CALL FUNCTION 'RRW3_GET_QUERY_VIEW_DATA'
 EXPORTING
 i_infoprovider = s_cubename
 i_query = query_name
 i_t_parameter = query_string_tab
 IMPORTING
 e_cell_data = t_cell_data
 e_axis_data = t_axis_data
 e_axis_info = t_axis_info.
If anyone has any information to help me, I would greatly appreciate it. Thanks.

Hi,
<li>Once you call the function module RRW3_GET_QUERY_VIEW_DATA, lets say data is available in the corresponding tables e_cell_data e_axis_data which you have mentioned.
<li>Modify your internal table defined for other purpose, with data from e_cell_data e_axis_data like below.
LOOP AT t_cell_data INTO wa_t_cell_data.
"Get the required data from t_cell_data.
MOVE-CORRESPONDING wa_t_cell_data TO it_ur_tab.
"Modify your internal table wih data
MODIFY it_ur_tab TRANSPORTING <field1> <field2> <field3>.
ENDLOOP.
LOOP AT t_axis_data INTO wa_t_axis_data.
"Get the required data from t_cell_data.
MOVE-CORRESPONDING wa_t_axis_data TO it_ur_tab.
"Modify your internal table wih data
MODIFY it_ur_tab TRANSPORTING <field1> <field2> <field3>.
ENDLOOP.
Thanks
Venkat.O

How to read xml file and place it into an internal table...

hello all,
can any one help me in - how to read xml data file (placed in application server) and placing the same into an internal table (remove the xml tags or say fetching the xml data without xml tags).

Hi Murashali,
use this.
TYPES: BEGIN OF day,
name TYPE string,
work(1) TYPE c,
END OF day.
DATA: BEGIN OF week,
day1 TYPE day,
day2 TYPE day,
day3 TYPE day,
day4 TYPE day,
day5 TYPE day,
day6 TYPE day,
day7 TYPE day,
END OF week.
DATA xml_string TYPE string.
DATA result LIKE week.
week-day1-name = 'Monday'. week-day1-work = 'X'.
week-day2-name = 'Tuesday'. week-day2-work = 'X'.
week-day3-name = 'Wednesday'. week-day3-work = 'X'.
week-day4-name = 'Thursday'. week-day4-work = 'X'.
week-day5-name = 'Friday'. week-day5-work = 'X'.
week-day6-name = 'Saturday'. week-day6-work = ' '.
week-day7-name = 'Sunday'. week-day7-work = ' '.
CALL TRANSFORMATION ...
SOURCE root = week
RESULT XML xml_string.
CALL TRANSFORMATION ...
SOURCE XML xml_string
RESULT root = result.
Regards,
Vijay

Reading Data from Unix file and write into an Internal table

Dear all,
 I am having an requirement of reading data from unix file and write the same into an internal table..how to do that ...experts please help me in this regard.

Hi,
do like this
PARAMETERS: p_unix LIKE rlgrap-filename OBLIGATORY.
DATA: v_buffer(2047) TYPE c.
DATA: BEGIN OF i_buffer OCCURS 0,
 line(2047) TYPE c,
END OF i_buffer.
* Open the unix file..
OPEN DATASET p_unix FOR INPUT IN TEXT MODE.
IF sy-subrc NE 0.
*** Error Message "Unable to open file.
ELSE.
 DO.
 CLEAR: v_buffer.
 READ DATASET p_unix INTO v_buffer.
 IF sy-subrc NE 0.
 EXIT.
 ENDIF.
 MOVE v_buffer TO i_buffer.
 APPEND i_buffer.
ENDDO.
ENDIF.
CLOSE DATASET p_unix.
Reward points if it helps,
Satish

Selecting from multiple tables, into one internal table

Hi,
What is the best & most efficient method of selecting from multiple table (in my case 6,) into one internal table?
Thanks,
John
Points will be rewarded and all responses will be highly appreciated.

I have simple example :
First one - Join 5 tables
data : f1 type i,
          f2 type i,
          f3 type i.
start-of-selection.
get run time field f1.
write the query 4 or 5 tables join.
get run time field f2.
f3 = f2 - f1 ( Total time).
Second one - joins 3 table and use for all entries
data : f1 type i,
          f2 type i,
          f3 type i.
start-of-selection.
get run time field f1.
write the query 3 tables join and use for all entries
get run time field f2.
f3 = f2 - f1. ( Total time )
Finally you can have time diffrence between the both sql statement.

How can i add two table data into third internal table see below

hi i insert diffferent table data into different internal table i did try to insert two different internal table data into third internal table by using move
but only single data is coming please help me
i want this two internal table data inot third internal table.
sELECT * FROM J_1IEXCHDR INTO CORRESPONDING FIELDS OF ITAB1 WHERE STATUS = 'P'.
SELECT * FROM J_1IEXCDTL INTO CORRESPONDING FIELDS OF ITAB2 WHERE LIFNR = J_1IEXCHDR-LIFNR.
                         AND DOCYR = J_1IEXCHDR-DOCYR,
                         AND DOCNO = J_1IEXCHDR-DOCNO.
WRITE: / ITAB1-LIFNR,
          ITAB1-DOCNO,
          ITAB1-EXYEAR,
          ITAB1-BUDAT,
          ITAB2-EXBED,
          ITAB2-RDOC,
          ITAB2-ECS.
ENDSELECT.
ENDSELECT.
thank you .

hi
Two add two internal tables data. first we need to create third internal table with all the fields of first two internal tables.
later u move the two internal tables data to third internal table
by looping the internal table which have more records or depending on the requirement and move the corresponding fields of first internal table to the third internal table and use the read statement with condition based on primary key of first itab and get the corresponding data of 2table into 3table.
i am sending the sample code to u.
check it out. i think u will understand how to move.
select vbeln waerk netwr erdat audat kunnr
   into table it_vbeln
   from vbak
   where vbeln in s_vbeln
     and erdat in s_erdat.
if not it_vbeln[] is initial.
select kunnr name1
   into table it_kunnr
   from kna1
   for all entries in it_vbeln
     where kunnr = it_vbeln-kunnr.
endif.
loop at it_vbeln.
clear it_final.
   it_final-vbeln = it_vbeln-vbeln.
   it_final-waerk = it_vbeln-waerk.
   it_final-netwr = it_vbeln-netwr.
   it_final-erdat = it_vbeln-erdat.
   it_final-audat = it_vbeln-audat.
read table it_kunnr with key kunnr = it_vbeln-kunnr.
   it_final-name1 = it_kunnr-name1.
append it_final.
endloop.

Download the KTOPL field data and GLT0 table data into one Internal table

Hi,
I have downloaded GLT0 table fields data to PC file . But i need to download KTOPL(Chart Of Accounts) data also. in GLT0 table there is no KTOPL field.
But in SKA1 table have KTOPL field. Then what is the issue is GLT0 data & KTOPL field data needs to download into one Internal Table.
anybody could you please solve this problem. immediately need to solve this.
Below is the code.
REPORT ZFXXEABL_1 NO STANDARD PAGE HEADING
 LINE-SIZE 200.
Tables Declaration
TABLES : GLT0.
Data Declaration
DATA : FP(8) TYPE C,
 YEAR LIKE GLT0-RYEAR,
 PERIOD(3) TYPE C,
 DBALANCE LIKE VBAP-NETWR VALUE 0 ,
 CBALANCE LIKE VBAP-NETWR VALUE 0.
*Internal table for for final data..
DATA : BEGIN OF REC1 OCCURS 0,
 BAL LIKE GLT0-TSLVT value 0,
 COAREA LIKE GLT0-RBUSA,
 CA(4) TYPE C,
 KTOPL LIKE ska1-ktopl,
 CCODE LIKE GLT0-BUKRS,
 CREDIT LIKE VBAP-NETWR,
 CURRENCY LIKE GLT0-RTCUR,
 CURTYPE(2) TYPE N,
 DEBIT LIKE VBAP-NETWR,
 YEAR(8) TYPE C,
 FY(2) TYPE C,
 ACCOUNT LIKE GLT0-RACCT,
 VER LIKE GLT0-RVERS,
 VTYPE(2) TYPE N,
 CLNT LIKE SY-MANDT,
 S_SYS(3) TYPE C,
 INDICATOR LIKE GLT0-DRCRK,
 END OF REC1.
DATA : C(2) TYPE N,
 D(2) TYPE N.
DATA REC1_H LIKE REC1.
Variable declarations
DATA :
 W_FILES(4) TYPE N,
 W_DEBIT LIKE GLT0-TSLVT,
 W_CREDIT LIKE GLT0-TSLVT,
 W_PCFILE LIKE RLGRAP-FILENAME ,
 W_UNIXFILE LIKE RLGRAP-FILENAME,
 W_PCFILE1 LIKE RLGRAP-FILENAME,
 W_UNIXFIL1 LIKE RLGRAP-FILENAME,
 W_EXT(3) TYPE C,
 W_UEXT(3) TYPE C,
 W_PATH LIKE RLGRAP-FILENAME,
 W_UPATH LIKE RLGRAP-FILENAME,
 W_FIRST(1) TYPE C VALUE 'Y',
 W_CFIRST(1) TYPE C VALUE 'Y',
 W_PCFIL LIKE RLGRAP-FILENAME.
DATA: "REC LIKE GLT0 OCCURS 0 WITH HEADER LINE,
 T_TEMP LIKE GLT0 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF REC3 OCCURS 0.
 INCLUDE STRUCTURE GLT0.
DATA: KTOPL LIKE SKA1-KTOPL,
 END OF REC3.
DATA: BEGIN OF T_KTOPL OCCURS 0,
 KTOPL LIKE SKA1-KTOPL,
 SAKNR LIKE SKA1-SAKNR,
 END OF T_KTOPL.
Download data.
DATA: BEGIN OF I_REC2 OCCURS 0,
 BAL(17), " like GLT0-TSLVT value 0,
 COAREA(4), " like glt0-rbusa,
 CA(4), " chart of accounts
 CCODE(4), " like glt0-bukrs,
 CREDIT(17), " like vbap-netwr,
 CURRENCY(5), " like glt0-rtcur,
 CURTYPE(2), " type n,
 DEBIT(17), " like vbap-netwr,
 YEAR(8), " type c,
 FY(2), " type c, fiscal yr variant
 ACCOUNT(10), " like glt0-racct,
 VER(3), " like glt0-rvers,
 VTYPE(3), " type n,
 CLNT(3), "like sy-mandt,
 S_SYS(3), "like sy-sysid,
 INDICATOR(1), " like glt0-drcrk,
 END OF I_REC2.
Selection screen. *
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
SELECT-OPTIONS : COMPCODE FOR GLT0-BUKRS,
 GLACC FOR GLT0-RACCT,
 FISYEAR FOR GLT0-RYEAR,
 no intervals no-extension, "- BG6661-070212
 FISCPER FOR GLT0-RPMAX,
 busarea for glt0-rbusa,
 CURRENCY FOR GLT0-RTCUR.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-BL2.
PARAMETERS:
P_UNIX AS CHECKBOX, "Check box for Unix Option
P_UNFIL LIKE RLGRAP-FILENAME, " Unix file Dnload file name
 default '/var/opt/arch/extract/GLT0.ASC', "- BG6661-070212
P_PCFILE AS CHECKBOX, "Check box for Local PC download.
P_PCFIL LIKE RLGRAP-FILENAME " PC file Dnload file name
 default 'C:\GLT0.ASC'. "- BG6661-070212
 DEFAULT 'C:\glt0_gl_balance_all.asc'. "+ BG6661-070212
SELECTION-SCREEN END OF BLOCK BL2.
*eject
Initialization. *
INITIALIZATION.
Try to default download filename
p_pcfil = c_pcfile.
p_unfil = c_unixfile.
if sy-sysid eq c_n01.
 p_unfil = c_unixfile.
endif.
if sy-sysid eq c_g21.
 p_unfil = c_g21_unixfile.
endif.
if sy-sysid eq c_g9d.
 p_unfil = c_g9d_unixfile.
endif.
Default for download filename
*{ Begin of BG6661-070212
CONCATENATE C_UNIXFILE
 SY-SYSID C_FSLASH C_CHRON C_FILENAME INTO P_UNFIL.
*} End of BG6661-070212
AT SELECTION-SCREEN OUTPUT.
loop at screen.
 if screen-name = 'P_PCFIL'. "PC FILE
 screen-input = '0'.
 modify screen.
 endif.
 if screen-name = 'P_UNFIL'. "UN FILE
 screen-input = '0'.
 modify screen.
 endif.
endloop.
if w_first = 'Y'.
 perform path_file.
 w_first = 'N'.
endif.
if w_cfirst = 'Y'.
 perform cpath_file.
 w_cfirst = 'N'.
endif.
Start-of-Selection. *
START-OF-SELECTION.
*COLLECT DATA
PERFORM COLLECT_DATA.
*BUILD FILENAMES
PERFORM BUILD_FILES.
*LOCAL
IF P_PCFILE = C_YES.
 PERFORM LOCAL_DOWNLOAD.
ENDIF.
*UNIX
IF P_UNIX = C_YES.
 PERFORM UNIX_DOWNLOAD.
ENDIF.
IF P_PCFILE IS INITIAL AND P_UNIX IS INITIAL.
 MESSAGE I000(ZL) WITH 'Down load flags both are unchecked'.
ENDIF.
END-OF-SELECTION.
IF P_PCFILE = C_YES.
WRITE :/ 'PC File' , C_UNDER, P_PCFIL.
ENDIF.
*& Form DOWNLOAD
 Download *
FORM DOWNLOAD.
P_PCFIL = W_PATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = P_PCFIL
 FILETYPE = C_ASC "c_dat "dat
 TABLES
 DATA_TAB = I_REC2 " t_str
 fieldnames = t_strhd
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 OTHERS = 8.
IF SY-SUBRC EQ 0.
ENDIF.
ENDFORM.
*& Form WRITE_TO_SERVER
 text *
--> p1 text
<-- p2 text
FORM WRITE_TO_SERVER.
DATA : L_MSG(100) TYPE C,
 L_LINE(5000) TYPE C.
P_UNFIL = W_UPATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
OPEN DATASET P_UNFIL FOR OUTPUT IN TEXT MODE. " message l_msg.
IF SY-SUBRC <> 0.
 WRITE: / L_MSG.
ENDIF.
perform header_text1.
LOOP AT I_REC2.
 TRANSFER I_REC2 TO P_UNFIL.
ENDLOOP.
CLOSE DATASET P_UNFIL.
WRITE : / C_TEXT , W_UPATH.
SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
CLEAR W_UPATH.
IF NOT W_UEXT IS INITIAL.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ELSE.
 W_UEXT = C_ASC. " c_csv.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ENDIF.
ENDFORM. " WRITE_TO_SERVER
*& Form BUILD_FILES
FORM BUILD_FILES.
IF P_PCFILE = C_YES.
 W_PCFILE = P_PCFIL.
***Split path at dot**
 SPLIT W_PCFILE AT C_DOT INTO W_PCFILE1 W_EXT.
 IF NOT W_EXT IS INITIAL.
 CONCATENATE W_PCFILE1 C_DOT W_EXT INTO W_PATH.
 ELSE.
 W_PATH = W_PCFILE1.
 ENDIF.
ENDIF.
IF P_UNIX = C_YES.
 W_UNIXFILE = P_UNFIL.
 SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
 IF NOT W_UEXT IS INITIAL.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
 ELSE.
 W_UPATH = W_UNIXFIL1.
 ENDIF.
ENDIF.
ENDFORM.
FORM CPATH_FILE.
CLEAR P_PCFIL.
 CONCATENATE C_PCFILE
 C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
 C_DOT C_ASC INTO P_PCFIL.
ENDFORM. " CPATH_FILE
FORM PATH_FILE.
CLEAR P_UNFIL.
if sy-sysid eq c_n01.
 CONCATENATE C_UNIXFILE
 C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
 C_DOT C_ASC INTO P_UNFIL.
endif.
if sy-sysid eq c_g21.
concatenate c_g21_unixfile
 c_comfile sy-sysid c_under sy-datum sy-uzeit
 c_dot c_asc into p_unfil.
endif.
if sy-sysid eq c_g9d.
concatenate c_g9d_unixfile
 c_comfile sy-sysid c_under sy-datum sy-uzeit
 c_dot c_asc into p_unfil.
endif.
ENDFORM. " PATH_FILE
Local_Download *
 Local *
FORM LOCAL_DOWNLOAD.
perform header_text.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
 REC1-COAREA TO I_REC2-COAREA,
 REC1-CA TO I_REC2-CA,
 REC1-KTOPL TO I_REC2-CA,
 REC1-CCODE TO I_REC2-CCODE,
 REC1-CREDIT TO I_REC2-CREDIT,
 REC1-CURRENCY TO I_REC2-CURRENCY,
 REC1-CURTYPE TO I_REC2-CURTYPE,
 REC1-DEBIT TO I_REC2-DEBIT,
 REC1-YEAR TO I_REC2-YEAR,
 REC1-FY TO I_REC2-FY,
 REC1-ACCOUNT TO I_REC2-ACCOUNT,
 REC1-VER TO I_REC2-VER,
 REC1-VTYPE TO I_REC2-VTYPE,
 REC1-CLNT TO I_REC2-CLNT,
 REC1-S_SYS TO I_REC2-S_SYS,
 REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
 PERFORM DOWNLOAD .
 CLEAR I_REC2.
 REFRESH I_REC2.
 ELSE.
 WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM. " LOCAL_DOWNLOAD
*& Form UNIX_DOWNLOAD
FORM UNIX_DOWNLOAD.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
 REC1-COAREA TO I_REC2-COAREA,
 REC1-CA TO I_REC2-CA,
 REC1-KTOPL TO I_REC2-CA,
 REC1-CCODE TO I_REC2-CCODE,
 REC1-CREDIT TO I_REC2-CREDIT,
 REC1-CURRENCY TO I_REC2-CURRENCY,
 REC1-CURTYPE TO I_REC2-CURTYPE,
 REC1-DEBIT TO I_REC2-DEBIT,
 REC1-YEAR TO I_REC2-YEAR,
 REC1-FY TO I_REC2-FY,
 REC1-ACCOUNT TO I_REC2-ACCOUNT,
 REC1-VER TO I_REC2-VER,
 REC1-VTYPE TO I_REC2-VTYPE,
 SY-MANDT TO I_REC2-CLNT,
 SY-SYSID TO I_REC2-S_SYS,
 REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
 PERFORM WRITE_TO_SERVER.
 CLEAR I_REC2.
 REFRESH I_REC2.
ELSE.
 WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM. " UNIX_DOWNLOAD
*& Form HEADER_TEXT
 text *
--> p1 text
<-- p2 text
*form header_text.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
 c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
 into t_strhd
 separated by c_comma.
append t_strhd.
*endform. " HEADER_TEXT
*& Form HEADER_TEXT1
 text *
*form header_text1.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
 c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
 into t_strhd1
 separated by c_comma.
append t_strhd1.
transfer t_strhd1 to p_unfil.
*endform. " HEADER_TEXT1
*& Form COLLECT_DATA
 Collect Data *
FORM COLLECT_DATA.
SELECT * FROM GLT0 INTO TABLE REC3
 WHERE BUKRS IN COMPCODE
 AND RYEAR IN FISYEAR
 AND RPMAX IN FISCPER
 AND RACCT IN GLACC
 AND RTCUR IN CURRENCY.
SELECT KTOPL FROM SKA1
 INTO TABLE T_KTOPL
 FOR ALL ENTRIES IN REC3
 WHERE SAKNR = REC3-RACCT.
LOOP AT REC3 .
 select *
 from glt0
 into table t_temp
 where rldnr = rec-rldnr
 and rrcty = rec-rrcty
 and rvers = rec-rvers
 and bukrs = rec-bukrs
 and ryear = rec-ryear
 and racct = rec-racct
 and rbusa = rec-rbusa
 and rtcur <> 'ZAR'
 and rpmax = rec-rpmax.
if sy-subrc = 0.
 rec1-bal = '0.00'.
else.
rec1-bal = rec-hslvt.
endif.
*READ TABLE T_KTOPL WITH KEY SAKNR = REC-RACCT BINARY SEARCH.
MOVE T_KTOPL-KTOPL TO REC3-KTOPL.
CLEAR: CBALANCE, DBALANCE.
REC1-BAL = REC3-HSLVT.
IF REC3-DRCRK = 'S'.
IF REC3-HSLVT NE C_ZERO.
 YEAR = REC-RYEAR.
 PERIOD = '000'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC-DRCRK.
 REC1-DEBIT = C_ZERO.
 REC1-CREDIT = C_ZERO.
 REC1-CCODE = REC-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC-RTCUR.
 REC1-ACCOUNT = REC-RACCT.
 rec1-bal = rec-hslvt.
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC-RBUSA.
 REC1-VER = REC-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART.
 APPEND REC1.
 C = 0.
 PERFORM D.
ENDIF.
IF REC3-HSL01 NE C_ZERO.
 YEAR = REC3-RYEAR.
 PERIOD = '001'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL01 .
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl01 + dbalance.
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART.
 REC1-KTOPL = REC3-KTOPL.
 APPEND REC1.
 C = 1.
 PERFORM D.
ENDIF.
IF REC3-HSL02 NE C_ZERO.
 REC1-DEBIT = REC3-HSL02.
 YEAR = REC3-RYEAR.
 PERIOD = '002'.
CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL02.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
rec1-bal = REC3-hsl02 + dbalance.
dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 C = 2.
PERFORM D.
ENDIF.
IF REC3-HSL03 NE C_ZERO.
 YEAR = REC3-RYEAR.
 PERIOD = '003'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL03.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl03 + dbalance .
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 C = 3.
PERFORM D.
ENDIF.
IF REC3-HSL04 NE C_ZERO.
 REC1-DEBIT = REC3-HSL04.
 YEAR = REC3-RYEAR.
 PERIOD = '004'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL04.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl04 + dbalance .
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 dbalance = rec1-bal.
 C = 4.
 PERFORM D.
ENDIF.
Thanks and Regards,
Ram

use logical database SDF, nodes ska1 and skc1c
A.

Excel data transfer into SAP internal table with GUI_UPLOAD

hi all,
i m using SRM4 system and i wanted to develop one report which will upload data from excel and convert it into IT.
i know that many threads are posted on this topic.
but my requirement is slight different. in the system only one function module is available that is "GUI_UPLOAD" and we want that user shd not save file as tab delimited before calling this fm. instead, program shd take care of all these things...
please suggest something asap..
helpful ans will be rewarded..
thanks,
jigs.

Dear Jigs,
Please go though the following lines of code:
D A T A D E C L A R A T I O N *
TABLES: ANEP,
BKPF.
TYPES: BEGIN OF TY_TABDATA,
MANDT LIKE SY-MANDT, " Client
ZSLNUM LIKE ZSHIFTDEPN-ZSLNUM, " Serial Number
ZASSET LIKE ZSHIFTDEPN-ZASSET, " Original asset that was transferred
ZYEAR LIKE ZSHIFTDEPN-ZYEAR, " Fiscal Year
ZPERIOD LIKE ZSHIFTDEPN-ZPERIOD, " Fiscal Period
ZSHIFT1 LIKE ZSHIFTDEPN-ZSHIFT1, " Shift No. 1
ZSHIFT2 LIKE ZSHIFTDEPN-ZSHIFT1, " Shift No. 2
ZSHIFT3 LIKE ZSHIFTDEPN-ZSHIFT1, " Shift No. 3
END OF TY_TABDATA.
Declaration of the Internal Table with Header Line comprising of the uploaded data.
DATA: BEGIN OF IT_FILE_UPLOAD OCCURS 0.
INCLUDE STRUCTURE ALSMEX_TABLINE. " Rows for Table with Excel Data
DATA: END OF IT_FILE_UPLOAD.
S E L E C T I O N - S C R E E N *
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME,
BEGIN OF BLOCK B2 WITH FRAME.
PARAMETERS: P_FNAME LIKE RLGRAP-FILENAME OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK B2,
END OF BLOCK B1.
E V E N T : AT S E L E C T I O N - S C R E E N *
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FNAME.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
EXPORTING
PROGRAM_NAME = SYST-REPID
DYNPRO_NUMBER = SYST-DYNNR
FIELD_NAME = ' '
STATIC = 'X'
MASK = '.'
CHANGING
FILE_NAME = P_FNAME
EXCEPTIONS
MASK_TOO_LONG = 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.
E V E N T : S T A R T - O F - S E L E C T I O N *
START-OF-SELECTION.
Upload Excel file into Internal Table.
PERFORM UPLOAD_EXCEL_FILE.
Organize the uploaded data into another Internal Table.
PERFORM ORGANIZE_UPLOADED_DATA.
E V E N T : E N D - O F - S E L E C T I O N *
END-OF-SELECTION.
*& Form UPLOAD_EXCEL_FILE
text
--> p1 text
<-- p2 text
FORM UPLOAD_EXCEL_FILE .
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
FILENAME = P_FNAME
I_BEGIN_COL = 1
I_BEGIN_ROW = 3
I_END_COL = 7
I_END_ROW = 32000
TABLES
INTERN = IT_FILE_UPLOAD
EXCEPTIONS
INCONSISTENT_PARAMETERS = 1
UPLOAD_OLE = 2
OTHERS = 3
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " UPLOAD_EXCEL_FILE
*& Form ORGANIZE_UPLOADED_DATA
text
--> p1 text
<-- p2 text
FORM ORGANIZE_UPLOADED_DATA .
SORT IT_FILE_UPLOAD BY ROW
COL.
LOOP AT IT_FILE_UPLOAD.
CASE IT_FILE_UPLOAD-COL.
WHEN 1.
WA_TABDATA-ZSLNUM = IT_FILE_UPLOAD-VALUE.
WHEN 2.
WA_TABDATA-ZASSET = IT_FILE_UPLOAD-VALUE.
WHEN 3.
WA_TABDATA-ZYEAR = IT_FILE_UPLOAD-VALUE.
WHEN 4.
WA_TABDATA-ZPERIOD = IT_FILE_UPLOAD-VALUE.
WHEN 5.
WA_TABDATA-ZSHIFT1 = IT_FILE_UPLOAD-VALUE.
WHEN 6.
WA_TABDATA-ZSHIFT2 = IT_FILE_UPLOAD-VALUE.
WHEN 7.
WA_TABDATA-ZSHIFT3 = IT_FILE_UPLOAD-VALUE.
ENDCASE.
AT END OF ROW.
WA_TABDATA-MANDT = SY-MANDT.
APPEND WA_TABDATA TO IT_TABDATA.
CLEAR: WA_TABDATA.
ENDAT.
ENDLOOP.
ENDFORM. " ORGANIZE_UPLOADED_DATA
In the subroutine --> ORGANIZE_UPLOADED_DATA, data are organized as per the structure declared above.
Regards,
Abir
Don't forget to award points *

How to do a SELECT from different tables into an internal table?

How to do a SELECT from different tables into an internal table?
I want to select data from MARA, MARC and ZPERSON and populate my ITAB_FINAL
REPORT zinternal_table.
TABLES:
mara,
marc,
zperson.
TYPES:
BEGIN OF str_table1,
v_name LIKE zperson-zname,
v_matnr LIKE marc-matnr,
v_emarc LIKE marc-emarc,
v_werks_d LIKE marc-werks_d,
v_dstat LIKE marc-dstat,
END OF str_table,
i_table1 TYPE STANDARD TABLE OF str_table1.
DATA:
BEGIN OF str_table2,
v_mandt LIKE mara-mandt,
v_ernam LIKE mara-ernam,
v_laeda LIKE mara-laeda,
END OF str_table2,
itab_final LIKE STANDARD TABLE OF str_table2.

first find the link between mara , marc and zperson , if u have link to 3 tables then u can jus write a join and populate the table u want ( thats final table with all the fields).
u defenitely have alink between mara and marc so join them and retrieve all data into one internal table.
then for all the entries in that internal table retrieve data from zperson into another internal table.
then loop at one internal table
read another internal table where key equals in both the tables.
finally assign fileds if sy-subrc = 0.
gs_finaltable-matnr = gs_table-matnr
etc...
and finally append gs_finaltable to gt_finaltable.
there u go ur final table has all the data u want.
regards
Edited by: BrightSide on Apr 2, 2009 3:49 PM

Upload a .CSV File into an Internal table

Hi,
What are the parameters to be filled into the Function Modules "GUI_UPLOAD" and "ALSM_EXCEL_TO_INTERNAL_TABLE" to Upload a .CSV File into an internal table.
Please send a sample code to support this....
Regards,
Aadhi.

Hi,
 Check the below code.
TYPE-POOLS: truxs.
TYPES:
BEGIN OF ty_line,
 vbeln LIKE vbap-vbeln,
 posnr LIKE vbap-posnr,
END OF ty_line.
*data: ty_Lines TYPE STANDARD TABLE of ty_Line WITH DEFAULT KEY.
DATA: itab TYPE STANDARD TABLE OF ty_line WITH DEFAULT KEY.
DATA: itab1 TYPE truxs_t_text_data.
SELECT
vbeln
posnr
UP TO 10 ROWS
FROM vbap
INTO TABLE itab.
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 = 'd:\TEMP\test1.txt'
TABLES
 data_tab = itab1
EXCEPTIONS
 OTHERS = 1.
IF sy-subrc eq 0.
WRITE: 'Data downloaded successfully'.
ENDIF.
DATA: BEGIN OF IEXCEL OCCURS 0.
 INCLUDE STRUCTURE ALSMEX_TABLINE.
DATA: END OF IEXCEL.
PARAMETERS: FILENM LIKE rlgrap-filename MEMORY ID M01,
 NOHEADER AS CHECKBOX.
call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
exporting
 filename = FILENM
 i_begin_col = 1
 i_begin_row = 1
 i_end_col = 100
 i_end_row = 30000
tables
 intern = IEXCEL
EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3.
if sy-subrc <> 0.
 WRITE: / 'EXCEL UPLOAD FAILED ', FILENM, SY-SUBRC.
endif.

Read statement into an internal table

Similar Messages

Maybe you are looking for