To get text into an Internal table

hi,
i need help regarding how to get the text or the header data into an internal table.

hi Mohan,
What exactly ur looking for.
1) if u want to append header data to internal table then use
append ITAB.
2) moving text to itab.
itab-field = 'Text'.
append itab.
NOte :- itab should be declared with header line
alternative.
append wa to itab

Similar Messages

How to get records into two internal tables from 1 internal table?

VERME LGPLA
252.000 EA 300 0149A 410 0149
276.000 EA 300 0149A 410 0107
516.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
I have above records in my one internal table ITAB.
I want to divide these records in to two internal tables ITAB1 and ITAB2. and this is based on LGPLA and VERME.
If there is same LGPLA (last column) and different VERME (1st column) available, then it should append ITAB1
Otherwise it should append ITAB2.
ITAB1 should contain ,
516.000 EA 300 0149A 400 3013
ITAB2 should contain ,
252.000 EA 300 0149A 410 0149
276.000 EA 300 0149A 410 0107
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
528.000 EA 300 0149A 400 3013
I have tried with this code
Loop at itab.
IF lv_prev_lgpla = wa-lgpla and lv_prev_verme <> wa-verme.
 APPEND wa TO itab1.
else.
 APPEND wa TO itab2.
endif.
lv_prev_lgpla = wa-vlpla.
lv_prev_verme = wa-anfme.
Endloop.
But it contains,
516.000 EA 300 0149A 400 3013
in table ITAB2 which I dont want.
Points rewarded soon.
Regards,
Ronn

Dear Ronny,
i am gining the solution below.But would request you to change your ITAB STRUCTURE LIKE THIS BEFORE USING THE CODE
VERME LGPLA
252.000 EA 300 0149A 0149 410
276.000 EA 300 0149A 0107 410
516.000 EA 300 0149A 3013 400
528.000 EA 300 0149A 3013 400
528.000 EA 300 0149A 3013 400
528.000 EA 300 0149A 3013 400
528.000 EA 300 0149A 3013 400
528.000 EA 300 0149A 3013 400
528.000 EA 300 0149A 3013 400
then do as follows.
SORT ITAB BY LGPLA VERME.
LOOP AT ITAB INTO WITAB.
W_INDEX = SY-TABIX.
here take all the abOve fields in temp fieds.
LW_VERME = WITAB-VERME..AND SO ON.
AT END OF LGPLA.
 MOVE: all LW fields to work area of ITAB1
 APPEND work area of ITAB1 TO ITAB1.
 DELETE ITAB INDEX W_INDEX
ENDAT.
ENDLOOP.
Basically what u r doing here is thet u r using processing event.
So whenerv VERME changes this event will be triggered.
Just try this out...something like this only will be he logic.
Please let me know further

Select data into deep internal table

Dear Experts.
I created a dynamiv deep internal table.
while selecting data , into the internal table it is giving a dump. saying that deep structure.
SELECT OBJTY OBJID ARBPL WERKS from crhd
INTO CORRESPONDING FIELDS OF TABLE <f_tab>
where WERKS = pr_werks.
I used the field catalog also.even same error is comming.
how to get data into deep internal table by select statement.
Please help me,
Regards,
Rahul

HI,
Try creating dynamic internal table like:
Field-symbols: <dyn_table> type standard table,
 <dyn_wa> ,
 <dyn_field>.
Data: dy_table type ref to data,
 ifc type lvc_t_fcat ,
 xfc type lvc_s_fcat ,
 Count type i ,
 Count1 type i ,
 Index type i ,
 dy_line type ref to data.
 Data counter type i.
Data: line type string ,
 List like table of line.
Data: idetails type abap_compdescr_tab,
 xdetails type abap_compdescr .
Data: ref_table_des type ref to cl_abap_structdescr.
*Looping at field cat internal table to populate another field cat to be passed
* In method used below for creating final dynamic internal table
Loop at fieldcat into fieldcat1.
 Clear xfc.
 Xfc-fieldname = fieldcat1-fieldname.
 Xfc-datatype = fieldcat1-datatype.
 Xfc-intlen = fieldcat1-intlen.
 Append xfc to ifc.
endloop.
Clear fieldcat1.
*Method called to create dynamic internal table on the basis of field catalog created above
Call method cl_alv_table_create=>create_dynamic_table
 Exporting
 it_fieldcatalog = ifc u201Cfield catalog appended above
 Importing
 ep_table = dy_table. u201CDynamic internal table which will be created
Assign dy_table->* to <dyn_table>.
*Create dynamic work area and assign to FS
Create data dy_line like line of <dyn_table>.
Assign dy_line->* to <dyn_wa>.
Then use this dynamic internal table created from above method
in the Select Query.
Hope it helps
Regards
Mansi

Get multiple selection data of Table into an internal table

Hi Guys,
I have a Table in my view layout and selected 'SelectionMode' as 'Multi' in the table properties.How to get the selected data into an internal table when rows selected on the table output.For example,I have a 10 rows in the table and selected only 5 rows,need to get these 5 rows into an internal table?
Regards
Nandana

Hi,
Here is some sample code. Please try this and let me know if you are still getting any errors.
DATA lo_nd_table_node TYPE REF TO if_wd_context_node.
DATA lo_el_table_node TYPE REF TO if_wd_context_element.
DATA ls_table_node TYPE wd_this->element_table_node.
DATA lt_table_node TYPE wd_this->elements_table_node.
DATA lt_table TYPE wdr_context_element_set.
lo_nd_table_node = wd_context->get_child_node( name = wd_this->wdctx_table_node ).
lt_table = lo_nd_table_node->get_selected_elements( including_lead_selection = abap_true ).
LOOP AT lt_table INTO lo_el_table_node.
    lo_el_table_node->get_static_attributes(
      IMPORTING
        static_attributes = ls_table_node ).
    APPEND ls_table_node TO lt_table_node.
    CLEAR ls_table_node.
ENDLOOP.
lt_table_node contains the selected rows.

Conversion of PDF file data into ABAP internal table

Hi all,
I am unable to convert the binary data into text format by using some function modules and classes .please find tthe function modules names and classes:
SCMS_BINARY_TO_TEXT,SCMS_BIN_TO_TEXT, CL_ABAP_CONV_IN_CE,CL_ABAP_CONV_OBJ. But these are not working as per my requirement.
My requirement is we need to upload PDF file (legecy file)which is saved under the PC into SAP and display the same PDF data into the adobe interactive form. For thise i have done coding by using above function modules and classes but i got the unwant on the adobe form i.e display lke "##############$$%%^^&&*((((()))%%%%%%###*^^&&***"
Thanks,
Ramana

I don't understand, the pdf is put into an internal table at
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF
the table is pdf and all info for the pdf is there already in a table?
if you continue the source code the only thing is that the table is combined with a file name and makes it happen that you get an actual file.
or do you want to have the pdf in a single field ?
or do you want to store the document on a server where the location is stored in an internal table ??
kind regards
arthur de smidt

Split a string into multiple internal tables

Hi all,
I need to split a string based internal table into multiple internal tables based on some sub strings in that string based internal table...
High priority help me out...
eg...
a | jhkhjk | kljdskj |lkjdlj |
b | kjhdkjh | kldjkj |
c | jndojkok |
d |
this data which is in the application server file is brought into a internal table as a text. Now i need to send 'a' to one internal table, 'b' to one internal table, so on... help me
<Priority downgraded>
Edited by: Suhas Saha on Oct 12, 2011 12:24 PM

Hi pradeep,
eg...
a | jhkhjk | kljdskj |lkjdlj |
b | kjhdkjh | kldjkj |
c | jndojkok |
d |
As per your statement "Now i need to send 'a' to one internal table, 'b' to one internal table"
Do you want only a to one internal table and b to one internal table
OR
Do you want the whole row of the internal table i mean
a | jhkhjk | kljdskj |lkjdlj | to 1 internal table
Having the case of an internal table which is of type string,
1) Loop through the internal table. LOOP AT lt_tab INTO lwa_tab.
2) Ge the work area contents and get the first char wa_tab-string+0(1)
3) FIELD-SYMBOLS: <t_itab> TYPE ANY TABLE.
w_tabname = p_table.
CREATE DATA w_dref TYPE TABLE OF (w_tabname).
ASSIGN w_dref->* TO <t_itab>.
Follow the link
http://www.sap-img.com/ab030.htm
http://www.sapdev.co.uk/tips/dynamic-structure.htm
and then based on the sy-tabix values you will get that many number of internal table
 <FS> = wa_tab-string+0(1)
 append <FS>
OR
USE SPLIT statement at the relevant seperator
revert for further clarification
Thanks
Sri
Edited by: SRIKANTH P on Oct 12, 2011 12:36 PM

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.

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.

Collect data from a dynamic XML file into multiple internal tables

I need to convert the XML file into multiple internal tables. I tried many links and posts in SDN but still was facing difficulty in achieving this. Can some one tell me where I am going wrong.
My XML file is of the following type.It is very complex and the dynamice.
The following tags occur more than once in the XML file. The "I" and "L" tags and its child tags can occur ones or more than once for each XML file and it is not constant. i.e in one file they can occur 1 time and in another they can occur 100 times.
"I" and "L" are child tags of <C>

 <J>10</J>
 <K>EN</K>

<L>
 <J>20</J>
 <N>BB</N>
</L>
Tags <C> and <F> occur only ones for each XML file. <C> is the child tag of "A" and "F" is the child tag of <C>.
I need to collect <D>, <E> in one internal table ITAB.
I need to collect <G>, <H> in one internal table JTAB.
I need to collect <J>, <K> in one internal table KTAB.
I need to collect <J>, <N> in one internal table PTAB.
Below is the complete XML file.
?xml version="1.0" encoding="iso-8859-1" ?>
<A>
 
 <C>
 <D>RED</D>
 <E>999</E>
 <F>
 <G>TRACK</G>
 <H>PACK</H>
 </F>
 
 <J>10</J>
 <K>EN</K>
 
 
 <J>20</J>
 <K>TN</K>
 
 
 <J>30</J>
 <K>KN</K>
 
 <L>
 <J>10</J>
 <N>AA</N>
 </L>
 <L>
 <J>20</J>
 <N>BB</N>
 </L>
 <L>
 <J>30</J>
 <N>CC</N>
 </L>
 </C>
</A>
With the help of SDN I am able to gather the values of <D> <E> in one internal table.
Now if I need to gather
<G>, <H> in one internal table JTAB.
<J>, <K> in one internal table KTAB.
<J>, <N> in one internal table PTAB.
I am unable to do. I am following XSLT transformation method. If some one has some suggestions. Please help.
Here is my ABAP program
TYPE-POOLS abap.
CONSTANTS gs_file TYPE string VALUE 'C:\TEMP\ABCD.xml'.
* This is the structure for the data from the XML file
TYPES: BEGIN OF ITAB,
 D(10) TYPE C,
 E(10) TYPE C,
 END OF ITAB.
* Table for the XML content
DATA: gt_itab TYPE STANDARD TABLE OF char2048.
* Table and work ares for the data from the XML file
DATA: gt_ITAB TYPE STANDARD TABLE OF ts_ITAB,
 gs_ITAB TYPE ts_ITAB.
* Result table that contains references
* of the internal tables to be filled
DATA: gt_result_xml TYPE abap_trans_resbind_tab,
 gs_result_xml TYPE abap_trans_resbind.
* For error handling
DATA: gs_rif_ex TYPE REF TO cx_root,
 gs_var_text TYPE string.
* Get the XML file from your client
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
 filename = gs_file
CHANGING
 data_tab = gt_itab1
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.
ENDIF.
* Fill the result table with a reference to the data table.
* Within the XSLT stylesheet, the data table can be accessed with
* "IITAB".
GET REFERENCE OF gt_shipment INTO gs_result_xml-value.
gs_result_xml-name = 'IITAB'.
APPEND gs_result_xml TO gt_result_xml.
* Perform the XSLT stylesheet
TRY.
 CALL TRANSFORMATION zxslt
 SOURCE XML gt_itab1
 RESULT (gt_result_xml).
CATCH cx_root INTO gs_rif_ex.
 gs_var_text = gs_rif_ex->get_text( ).
 MESSAGE gs_var_text TYPE 'E'.
ENDTRY.
* Now let's see what we got from the file
LOOP AT gt_ITAB INTO gs_ITAB.
WRITE: / 'D:', gs_ITAB-D.
WRITE: / 'E :', gs_ITAB-E.
ENDLOOP.
Transformation
<xsl:transform xmlns:xsl="http://www.w3.org/1999/XSL/Transform" version="1.0">
<xsl:output encoding="iso-8859-1" indent="yes" method="xml" version="1.0"/>
<xsl:strip-space elements="*"/>
<xsl:template match="/">
 <asx:abap xmlns:asx="http://www.sap.com/abapxml" version="1.0">
 <asx:values>
 <IITAB>
 <xsl:apply-templates select="//C"/>
 </IITAB>
 </asx:values>
 </asx:abap>
</xsl:template>
<item>
 <D>
 <xsl:value-of select="D"/>
 </D>
 <E>
 <xsl:value-of select="E"/>
 </E>
 </item>
</xsl:template>
</xsl:transform>
Now the above pgm and transformation work well and I am able to extract data into the ITAB. Now what changes should I make in transformation and in pgm to collect
<G>, <H> in one internal table JTAB.
<J>, <K> in one internal table KTAB.
<J>, <N> in one internal table PTAB.
Please help..i am really tring hard to figure this out. I am found lot of threads addressing this issue but not my problem.
Kindly help.
Regards,
VS

Hi Rammohan,
Thanks for the effort!
But I don't need to use GUI upload because my functionality does not require to fetch data from presentation server.
Moreover, the split command advised by you contains separate fields...f1, f2, f3... and I cannot use it because I have 164 fields. I will have to split into 164 fields and assign the values back to 164 fields in the work area/header line.
Moreover I have about 10 such work areas. so the effort would be ten times the above effort! I want to avoid this! Please help!
I would be very grateful if you could provide an alternative solution.
Thanks once again,
Best Regards,
Vinod.V

FM????? Text file to Internal table in Background

Hi,
I need to execute my prog in background and as per my req i need to dwnload a file from prsentation server to internal table for processing. I'm not sure whch FM to use to dwnload from text file to internal table. I cannot use GUI_UPLOAD FM for background runs.....pls help
Thanks in advance

Chesat,
You can not work for this requirement.You will have an idea on it.
Introduction
The use of FTP from ABAP seems to have been a hot topic on the ABAP Forums of late. I thought I might sit down and document whatever I could find on this subject and share it as a weblog.
Over the years I have seen lots of different solutions for moving files on and off of a SAP system. I have seen external FTP scripts written in OS shell languages. I have seen full blown custom applications that are made to interface to the SAP system. However I think you will find that most of the technology you need to perform a simple FTP from ABAP is already contained in the standard system. All of my examples and screen shots will be coming from a 46C system.
SAP's Solution
If you have ever taken a look at the kernel directory of your SAP system, you might have noticed an interesting little executable: sapftp.exe (the name of the file on Windows SAP Kernels). It is this part of the Kernel that exposes FTP functionality to the ABAP Programming language.
So you have a suspicion that there is FTP functionality in ABAP, but youre not quite sure how to use it. Where do you start? I always turn to the Service Marketplace first. A quick search on SAPFTP reveals there is an entire component (BC-SRV-COM-FTP) on the subject. The most general note and our starting place is OSS Note 93042. This note starts off with a nice description of what SAPFTP is: A client RFC application that is accessed via RFC from ABAP. But we also find out that in addition to SAPFTP being part of the kernel, it is also part of the SAPGui. That means that we can perform FTP commands originating from our R/3 Server or from a Client Workstation.
Well if this solution is accessed via RFC, then we must have to setup some RFC destinations. In fact we have two that we need; SAPFTP for Front-end FTP and SAPFTPA for access on the application server. Luckily we don't even have to mess with setting these RFC destinations up in SM59. SAP has supplied a program, RSFTP005, to generate the destinations for us.
Now before we go off and start written code on our own to hit these FTP functions, why don't we make sure everything is setup and working. Once again SAP has helped us out by providing us with a test program, RSFTP002. (In case you are wondering the FTP functionality and many other test programs are all contained in SAP Development Class SFTP). When we run this test, we get a set input parameters for the server, username password, etc. We want to start out simple and just make sure we are getting a connection. Therefore we will just execute the pwd command (Print Working Directory).
Your answer back should look something like this:
If you are wanting to see a list of FTP commands, try using the command HELP in place of PWD:
If something did go wrong during the test, I suggest that you active the trace option in SM59 for the FTP Destination. You can then use program RSFTP001 to display the current trace file.
Programming the FTP
Not only does the RSFTP002 program give us a test environment, but it also provides us with a programming example. We can see that the FTP functionality is really provided by a set of function modules all within the SFTP Function Group. We have the basic commands such as FTP_CONNECT, FTP_COMMAND, and FTP_DISCONNECT that can be strung together to create a complete file operation action. The FTP_COMMAND Function allows you to issue arbitrary FTP commands as long as the SAPFTP function, the Host, and the Destination server all support the command. Then you have the specialized functions such as FTP_R3_TO_SERVER, FTP_R3_TO_CLIENT, and FTP_CLIENT_TO_R3. This lets you take some data in memory and transfer it someplace else. This has the advantage of not having to write the data to the file system first and not to have to issue any FTP commands. However these functions are also limited to the scope described.
If you are already familiar with FTP in general, working with these function modules should not seem to difficult. The Connect, Command, Disconnect actions would seem somewhat self explanatory. So instead of looking at the entire program in detail let's focus on two things that may be unfamiliar. First the program starts off with an ABAP Kernel System call to AB_RFC_X_SCRAMBLE_STRING. Well we don't want to pass a potentially sensitive password openly. Therefore the FTP_CONNECT function module requires that the password be encrypted before it receives it. It is this System call that performs that one-way encryption. Now I checked a 620 SP42 system and in this example, SAP has replace the AB_RFC_X_SCRAMBLE_STRING with a function call to HTTP_SCRAMBLE. Unfortunately HTTP_SCRAMBLE doesn't even exist in my 46C system. The only other thing that I wanted to point out about these function calls is the exporting parameter on the FTP_CONNECT. It passes back a parameter called handle. This handle then becomes an importing parameter to all subsequent calls: FTP_COMMAND and FTP_CLOSE. This handle is the pointer to the instance of FTP that we started with the FTP_CONNECT. This assures that we get reconnected to the same FTP session with each command we issue.
FTP Development
I thought I would share a few of the things that can be built using this FTP functionality. First off I didn't want a bunch of ABAP programs directly working with the SAP FTP Function modules. As you can see there is already a difference in the examples for encrypting the password between 46C and 620. Therefore I thought it would be best to encapsulate all the FTP function in one custom ABAP OO Class. Not only did I get the opportunity to hid the inner SAP functionality and make it easy to switch out during upgrades, but I also get consistent error handling as well. I accept the User Name, Password, Host, and RFC Destination in during the Constructor of the class. I then store these values away in Protected Attributes. Each function module is then implemented as a Instance Method. The Password encryption functionality is then all tucked away nicely in the class. Also the calling program doesn't have to worry about keeping track of the FTP handle either since it is an instance attribute as well.
Next I got really carried away. I wanted a way to record entire FTP scripts that could be filled with values at runtime and ran as a step in a background job. My company used to have many interfaces that ran frequently sending files all over the place. We needed a mechanism to monitor and support these file moves. This was really the root of this tool, but it also gives you an idea of how powerful these functions can be.
Closing
I hope that anyone interested in FTP from ABAP will find this resource useful. If anyone has any other resources that should be included here, feel free to post them.
Thomas Jung is an Application Developer for Kimball Electronics Group (www.kegroup.com) and a huge fan of ABAP.
Comment on this weblog
Showing messages 1 through 7 of 7.
Titles Only
Main Topics
Oldest First
 New to SAP/ABAP-4
2005-02-24 13:03:06 Thomas Godfrey Business Card [Reply]
I've been in IT for over 30 years as a mainframe contract programmer/analyst. Recently a company hired me for my legacy knowledge of there business to become a developer on SAP for these same systems.
My first task is to develop a generalized ftp application to send data to the mainframe and then on to financial institutions. I have created an ABAP/4 test program with literals for the dest/host etc. And it works fine. I need more detail/guidance in creating the Class/Method/Function you have described to make this parameter driven and callable by other programs. I know this is a lot to ask, any help in pointing me in the right direction would be greatly appreciated. When I mention class creation to the existing staff they all say "Oh, we don't use or know anything about that object oriented stuff, we just right programs."
Thanks,
Tom
 New to SAP/ABAP-4
2005-02-24 13:13:33 Thomas Jung Business Card [Reply]
"we don't use or know anything about that object oriented stuff" That's something I might have expected to hear 4 years ago. That's kind of like saying that you only want to use half of the programming lanuage (the old half at that).
However it is true that you have to learn to walk before you run. There are some fundamentals to ABAP that are usefull to have down before you start in with ABAP OO. But I wouldn't let that hold you back for long.
I'm afraid that I wouldn't be able to teach you everything you would need to know to create a function module or a class in this posting. There was a nice weblog that was just posted the other day that had the steps to create your first simple class. I suggest you start there.
As far as my FTP class goes, I don't mind sending you the code for the class. My email address is already all over SDN (and spammers' lists) so just send me the address that you want the details sent to. My email is [email protected].
 New to SAP/ABAP-4
2005-02-24 13:05:42 Thomas Godfrey Business Card [Reply]
I just read what I typed, I meant "write programs" not "right programs" ... duh
 Good suggestions - now...
2004-11-24 09:15:27 Jacques Claassen Business Card [Reply]
...any chance you've used FTP via an HTTP proxy?
Any help using the HTTP* functions in the ZFTP function group will be greatly appreciated. Any one?
Thx
 Good suggestions - now...
2004-11-24 09:59:11 Thomas Jung Business Card [Reply]
I'm afraid I haven't done either. However I have used the HTTP client functionality in the WebAS 620 (if_http_client) along with an HTTP proxy. I have an example of this in another weblog.
 Pretty insightful
2004-11-15 19:27:26 Subramanian Venkateswaran Business Card [Reply]
Thanks for this weblog, and I can be pretty sure there are some(many) more weblogs in the waiting.
Regards,
Subramanian V.
 I have been using a local include ...
2004-11-15 16:29:39 Swapan Sarkar Business Card [Reply]
On the other hand I have been using a local include of ZCL_FTP_BASE in my programs for some time. Here's the signature:
<quote>
*& Include ZHR9_FTP_CLASSES
*& Utility class ZCL_FTP_BASE having all the
functions to upload and download files from an
FTP server.
CLASS zcl_ftp_base DEFINITION.
PUBLIC SECTION.
Output file type
TYPES: BEGIN OF t_scratch,
data(1024) TYPE c,
END OF t_scratch,
t_str_tab TYPE STANDARD TABLE OF t_scratch.
CONSTANTS: co_crlf(2) TYPE x VALUE '0D0A'.
DATA: status TYPE c VALUE space.
METHODS: constructor IMPORTING im_user TYPE string im_pwd TYPE string
im_server TYPE string,
send_table_data IMPORTING im_file TYPE string
im_table TYPE t_str_tab,
get_table_data IMPORTING im_file TYPE string
EXPORTING ex_table TYPE t_str_tab,
send_string_data IMPORTING im_file TYPE string
im_string TYPE string,
get_string_data IMPORTING im_file TYPE string
EXPORTING ex_string TYPE string,
disconnect.
PRIVATE SECTION.
DATA: v_user(64) TYPE c,
v_pwd_clear(30) TYPE c,
v_pwd(64) TYPE c,
v_server(30) TYPE c,
v_filename TYPE rlgrap-filename,
v_handle TYPE i.
METHODS: pwd_scramble IMPORTING im_pwd TYPE c.
ENDCLASS. "ZCL_FTP_BASE DEFINITION
</quote>
Showing messages 1 through 7 of 7.
Pls. mark if this doc. is useful

How to get data from an internal table in some other program

I would like to get data from the internal table in the other program. When I using FM "LIST_FROM_MEMORY" to get the data, it doesn't work and the exception is not fount.
If any special code need in the other program, like write data to memory .
Many thx .
From Ross Wang

Hi
<li>You need to have interaction if you want to use EXPORT/IMPORT statments.
<li>The internal tables in both programs must be same
<li>Program one ..Calling program
REPORT ZTEST_NOTEPAD.
DATA: BEGIN OF it_t001 OCCURS 0,
 bukrs TYPE t001-bukrs,
 butxt TYPE t001-butxt,
 END OF it_t001.
START-OF-SELECTION.
SUBMIT ztest_notepad1 AND RETURN.
IMPORT it_t001 FROM MEMORY ID 'ZTEST_T100'.
LOOP AT it_t001.
 WRITE:/ it_t001.
ENDLOOP.
<li>Program two ...Called program
REPORT ztest_notepad1.
DATA: BEGIN OF it_t001 OCCURS 0,
 bukrs TYPE t001-bukrs,
 butxt TYPE t001-butxt,
 END OF it_t001.
START-OF-SELECTION.
SELECT * FROM t001 INTO CORRESPONDING FIELDS OF TABLE it_t001 UP TO 10 ROWS.
IF sy-dbcnt > 1.
 EXPORT it_t001 TO MEMORY ID 'ZTEST_T100'.
ENDIF.
I hope that it gets you some idea.
Thanks
Venkat.O

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 extract data from info cube into an internal table using ABAP code

HI
Can Anyone plz suggest me
How to extract data from info cube into an internal table using ABAP code like BAPI's or function modules.
Thankx in advance
regds
AJAY

HI Dinesh,
Thankq for ur reply
but i ahve already tried to use the function module.
When I try to Use the function module RSDRI_INFOPOV_READ
I get an information message "ERROR GENERATION TEST FRAME".
can U plz tell me what could be the problem
Bye
AJAY

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

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.

To get text into an Internal table

Similar Messages

Maybe you are looking for