Upload an INFOCUBE using ABAP Proagram

Hi Experts,
Can you please let me know, How to upload flat file data into Infocube using
ABAP in BI.
Thanks,
Arshad

Hi Arshad,
First - have you seen and used this white paper detailing how to upload a flat file into a cube using BPS User Exit Function:
Using SAP Gui: https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/4674d590-0201-0010-2793-eb97c24069c5
Using Web Browser:
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/7f6dd590-0201-0010-bca8-b1bb91f6951b
Second - when you put the flat file records into the table 'xth_data' are you inserting or just overwriting the table? If you are doing a move command in ABAP this will overwrite your 'other' data... also in the paper there is an if statement saying whether or not you want an overwrite or insert. Make sure you do not clear or refresh the xth_data table before inserting.
NOTE: when using the insert command you must be sure there are no duplicate entries - otherwise you will get a dump. (you might want to do a read first to see if there is a duplicate).
Regards,
Zane

Similar Messages

Using ABAP Webdynpr How to Upload File and download file in SAP R/3

Hi SAP GURUS ,
                         I wanted to save employee profile from ESS to SAP so i am creating ESS Application .
For that I go with BDS Approach and create test program for this I got success while uploading file in my folder
which i have created with the help of class and content repository . but when i Using ABAP Webdynpro , i got error FM "BDS_BUSINESSDOCUMENT_CREATEF" message " error_kpro " .
                       Also I wanted to use KM for storage of Documents and wanted to retrive with help of ABAP Webdynpro .
                       So pls tell me / mailed me the process , approach and if you have examples .
    Thanks in Advance ,
     Vishwassap at gmail

Hi Vishwas,
Check out the thread [Efficient way of saving documents uploaded|Re: Efficient way of saving documents uploaded by users; and check the blog by Raja Thangamani.
Also check the thread [Export Images through Function Modules   |Export Images through Function Modules;.
Hope it helps you.

How to upload excel file in Webdynpro application using ABAP

Hi Experts,
Am developing a webdynpro application in which it will take an excel file as input and display the contents in the form of a table in output. I am able to upload tab delimited text file and populate the table using the below code but not able to do the same with .xls file. Pls let me know if I need to use a different function module for upload excel file.
get single attribute
wd_context->get_attribute(
    EXPORTING
      name = `DATASOURCE`
    IMPORTING
      value = l_xstring ).
CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
    EXPORTING
      in_xstring = l_xstring
    IMPORTING
      out_string = l_string.
SPLIT l_string AT cl_abap_char_utilities=>newline INTO TABLE i_data.
Bind With table Element.
LOOP AT i_data INTO l_string.
    SPLIT l_string AT cl_abap_char_utilities=>horizontal_tab INTO TABLE fields.
    READ TABLE fields INTO lv_field INDEX 1.
    fs_table-name = lv_field.
    READ TABLE fields INTO lv_field INDEX 2.
    fs_table-age = lv_field.
    APPEND fs_table TO t_table1.
ENDLOOP.
lo_nd_data = wd_context->get_child_node( 'DATA_TAB' ).
lo_nd_data->bind_table( T_TABLE1 ).
Thanks,
Subathra

Dear Exports
Can anyone guide me how to uplode the .xlsx or ..xls formatted excel file using abap webdynpro without converting it to .txt file. Because my client requirement is only to upload the excel file. because to convert the .xlsx flie to .txt file it will be time taking and cost expanssive. Another requirement is suppose today i have create a application for uploading a file which has 8 columns and 10 rows. suppose tomorrow the client will make some changes in that flat file means the client will add 2 extra columns and 10 more columns in that fil. and will upload that file. Then the new file will be display on the browser or old file. but my requirement is to display the new file in browser.
Can anyone kindly help to solve my problem. I am completely fresher in this field and I need to do it as soon as possible. Please help to solve the problem.
Regards
Rashmita

How to upload data into IT0000 using ABAP-HR program

Hello,
I'm required to upload data into multiple infotypes [IT000, 0001, 0002, etc] using single input text file. Can anyone able to guide me, how to upload data into IT0000 using ABAP program ?
Thanks in advance.
Regards
Prabhakar.
Message was edited by:
        Prabhakara Muthyal

Example code for HR_MAINTAIN_MASTERDATA to COPY IT0002
DATA: INT_0002_FINAL TYPE STANDARD TABLE OF PA0002 WITH HEADER LINE.
DATA: VALUES        LIKE PPROP OCCURS 10 WITH HEADER LINE,
RETURN        LIKE BAPIRETURN1,.
LOOP AT INT_0002_FINAL.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-PERNR'.
      VALUES-FVAL = INT_0002_FINAL-PERNR.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-BEGDA'.
      VALUES-FVAL = INT_0002_FINAL-BEGDA.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-ENDDA'.
      VALUES-FVAL = INT_0002_FINAL-ENDDA.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-nachn'.
      VALUES-FVAL = INT_0002_FINAL-NACHN.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-gblnd'.
      VALUES-FVAL = INT_0002_FINAL-GBLND.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-vorna'.
      VALUES-FVAL = INT_0002_FINAL-VORNA.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-rufnm'.
      VALUES-FVAL = INT_0002_FINAL-RUFNM.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-name2'.
      VALUES-FVAL = INT_0002_FINAL-NAME2.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-inits'.
      VALUES-FVAL = INT_0002_FINAL-INITS.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-famst'.
      VALUES-FVAL = INT_0002_FINAL-FAMST.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-gbdat'.
      VALUES-FVAL = INT_0002_FINAL-GBDAT.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-sprsl'.
      VALUES-FVAL = INT_0002_FINAL-SPRSL.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-anzkd'.
      VALUES-FVAL = INT_0002_FINAL-ANZKD.
      APPEND VALUES.
      VALUES-INFTY = '0002'.
      VALUES-FNAME = 'P0002-natio'.
      VALUES-FVAL = INT_0002_FINAL-NATIO.
      APPEND VALUES.
* maintain master data
      CALL FUNCTION 'HR_MAINTAIN_MASTERDATA'
        EXPORTING
          PERNR           = INT_0002_FINAL-PERNR
          ACTIO           = 'COP'
          BEGDA           = INT_0002_FINAL-BEGDA
*         ENDDA           = INT_0002_FINAL-ENDDA
          SUBTY           = SPACE
          NO_ENQUEUE      = SPACE
          DIALOG_MODE        = '0'
          TCLAS              = 'A'
        IMPORTING
          RETURN1         = RETURN
        TABLES
          PROPOSED_VALUES = VALUES
*         MODIFIED_KEYS   =
        EXCEPTIONS
          OTHERS          = 1.
      IF RETURN IS INITIAL.
        WRITE:/' Done....'.
      ELSE.
        WRITE:/   RETURN-ID, RETURN-TYPE, RETURN-NUMBER, RETURN-MESSAGE_V1, RETURN-MESSAGE_V2, RETURN-MESSAGE_V3, RETURN-MESSAGE_V4.
      ENDIF.
      CLEAR VALUES.
      REFRESH VALUES.
    ENDLOOP.

How to upload an excel file using ABAP.

Hi,
Can anyone please help me in understanding how to upload an excel file using ABAP.
Thanks!!

http://diocio.wordpress.com/2007/02/12/sap-upload-excel-document-into-internal-table/
check the link
TYPES: Begin of t_record,
name1 like itab-value,
name2 like itab-value,
age   like itab-value,
End of t_record.
DATA: it_record type standard table of t_record initial size 0,
wa_record type t_record.
DATA: gd_currentrow type i.
*Selection Screen Declaration
PARAMETER p_infile like rlgrap-filename.
*START OF SELECTION
call function ALSM_EXCEL_TO_INTERNAL_TABLE
exporting
filename                = p_infile
i_begin_col             = 1′
i_begin_row             = 2′ Do not require headings
i_end_col               = 14′
i_end_row               = 31′
tables
intern                  = itab
exceptions
inconsistent_parameters = 1
upload_ole              = 2
others                  = 3.
if sy-subrc <> 0.
message e010(zz) with text-001. Problem uploading Excel Spreadsheet
endif.
Sort table by rows and colums
sort itab by row col.
Get first row retrieved
read table itab index 1.
Set first row retrieved to current row
gd_currentrow = itab-row.
loop at itab.
Reset values for next row
if itab-row ne gd_currentrow.
append wa_record to it_record.
clear wa_record.
gd_currentrow = itab-row.
endif.
case itab-col.
when 0001′.                              First name
wa_record-name1 = itab-value.
when 0002′.                              Surname
wa_record-name2 = itab-value.
when 0003′.                              Age
wa_record-age   = itab-value.
endcase.
endloop.
append wa_record to it_record.
*!! Excel data is now contained within the internal table IT_RECORD
Display report data for illustration purposes
loop at it_record into wa_record.
write:/     sy-vline,
(10) wa_record-name1, sy-vline,
(10) wa_record-name2, sy-vline,
(10) wa_record-age, sy-vline.
endloop.

File Upload in Web Dynpro ABAP not using File Upload UI element

Hi all ,
I have searching for a way to upload a file using the file open dialog ( or even by manually specifying the path/file name) without using the file upload UI Element in ABAP web Dynpro . The File Upload UI element works for smaller files however with large file sizes 64 MB , the system seems to be running of memory (SYSTEM_NO_ROLL) . This is due to a known fact that the UI element makes a duplicate copy of the whole copy while it does the upload.
I have been looking at the ACFUPDOWNLOAD as a way to solve this problem but cannot seem to figure out how it works , even the sample program provided by SAP does not work. I am working with a regular abap server and not kpro( knowledge mananagement provider) or portal .
Any help would be greatly appreciated.
thanks,
Ali.

If you are on NetWeaver 7.01, you can try both the ACFUpDownload UI element or try creating your own FileUpload in Adobe Flex with Flash Islands. ACFUpDownload requires the KPRO by default (which is why the same application isn't working for you), but you can write your own handler class to act as the KPRO receiver. Here is an eLearning on the topic:
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/109b9b52-bc00-2c10-8786-e4c5e96d7e04
and source code:
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/70645070-bb00-2c10-f086-f126721acdb4
If you want an eLearning on the FlashIslands approach, you can find it here as well:
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/50d42644-91ef-2b10-228c-9e0ae75b274e
and Source Code:
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/f044b62c-90ef-2b10-64a6-9ec25294d133
However in both of these approaches you still have to be careful with how you handle large files. The problem is that they are processed often a single binary string. This makes the processing easy, but requires total amount of session memory at least as large as the file being uploaded. In NetWeaver 7.02 ABAP adds the concept of Streams and Locators to help with the partial processing of large files. This feature doesn't come until later this year, but if you are interested you can learn about it here:
https://www.sdn.sap.com/irj/scn/go/portal/prtroot/docs/library/uuid/80f983df-213e-2c10-ba89-b5a12ef178e8

Upload an excel file input into an itab,display in ALV using ABAP objects

Requirement:
Create a selection screen which takes an excel file as input with parameters emp id, emp name, salary, mnth, ph no.
Create a database table with the same fields.
The program needs to have two modes. Display mode and update mode.
Display mode only displays the file data in alv grid and update mode updates database table with similar parameters as above and also shows alv grid output.
task is to do using Object oriented approach. This should also have the facility to modify the cell values in ALV grid and once saved then it needs to update the database accordingly.
I have done the same functionality in a report program without using ABAP objects but finding difficulty in using object oriented approach.Please help me as i am new to abap-objects.
Thanks in advance.......

Hi,
The selection screen design and all remains the same.
Get all the detials which you need in your final internal table.
This internal table will be used to display in the ALV grid.
The approach remains the same as the normal programing.
Prepare a field catalog table and then use it along with the internal table to display in the grid.
The only change is that instead of FM you will have to make us of classes and their methods.
Firstly you will have to create a screen.
On this screen create a custom control object and give it some name. say for eg. CC_CONTAINER.
This will be a container on which the ALV grid object will be placed.
2 objects are needed to display the grid
CL_GUI_CUSTOM_CONTAINER and CL_GUI_ALV_GRID.
In the PBO of the screen first create an instance of object CL_GUI_CUSTOM_CONTAINER
CREATE OBJECT y_lobj_cont
      EXPORTING
         container_name              = 'CC_CONTAINER'
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6.
    IF sy-subrc NE 0.
      MESSAGE ID sy-msgid TYPE y_k_s NUMBER sy-msgno
               WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
Then create a instance of the GRID
IF y_lobj_grid IS INITIAL.
      CREATE OBJECT y_lobj_grid
        EXPORTING
          i_parent          = y_lobj_cont
         EXCEPTIONS
           error_cntl_create = 1
           error_cntl_init   = 2
           error_cntl_link   = 3
           error_dp_create   = 4
           OTHERS            = 5 .
      IF sy-subrc NE 0.
        MESSAGE ID sy-msgid TYPE y_k_s NUMBER sy-msgno
                   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDIF.
Then call the method SET_TABLE_FOR_FIRST_DISPLAY to display the grid.
CALL METHOD y_lobj_grid->set_table_for_first_display
      EXPORTING
        it_toolbar_excluding          = y_v_lt_exclude
      CHANGING
        it_outtab                     = y_li_tbl
        it_fieldcatalog               = y_li_fcat
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.
    IF sy-subrc NE 0.
      MESSAGE ID sy-msgid TYPE y_k_s NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
Check the example program BCALV_GRID_EDIT for better understanding.
Regards,
Ankur Parab

How to extract data from BPC InfoCube via ABAP program?

Hi experts!!
I tried to extract data from a BPC InfoCube via ABAP program, but I did'n have succeed.
I used the function 'RSDRI_INFOPROV_READ' to extract data from standard InfoCubes such as '0COPC_C07' and it run OK! However, when I change the InfoCube name to '/CPMB/WAIX8NE' (BPC InfoCube), everything goes wrong...
Is there any difference between extracting data from BPC and standard InfoCubes?
Thank you all!

Moderator message - Welcome to SCN.
But please do not cross and duplicate post.
Thread locked.
Rob

Excel File Upload In Webdynpro For ABAP

Hi All,
I have a doubt regarding EXCEL file upload for Webdynpro for ABAP.
I am able to get the path of file using 'FILEUPLOAD' UI element.Now I need to upload the EXCEL file into ALV.I have tried out with GUI_UPLOAD and other excel upload function module.But these Function Module throws Dump.
Can you please suggest how to go about it.It will be a great help if u can suggest any function module or method.

Hi Amita,
Insetad of using GUI_UPLOAD use 'HR_KR_XSTRING_TO_STRING'
Here is the sample code,
TYPES :BEGIN OF str_itab,
              name(10) TYPE c,
              age(10) TYPE c,
             END OF str_itab.
DATA : t_table1 TYPE STANDARD TABLE OF str_itab,
       i_data TYPE STANDARD TABLE OF string,
               lo_nd_sflight TYPE REF TO if_wd_context_node,
                lo_el_sflight TYPE REF TO if_wd_context_element,
                l_string TYPE string,
        fs_table TYPE str_itab,
                l_xstring TYPE xstring,
fields TYPE string_table,
lv_field TYPE string.
DATA : t_table TYPE if_main=>elements_data_tab,
data_table TYPE if_main=>elements_data_tab.
* get single attribute
wd_context->get_attribute(EXPORTING name = `DATASOURCE`
                          IMPORTING value = l_xstring ).
CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
EXPORTING
in_xstring = l_xstring
IMPORTING
out_string = l_string.
SPLIT l_string AT
cl_abap_char_utilities=>newline INTO TABLE i_data.
* Bind With table Element.
LOOP AT i_data INTO l_string.
SPLIT l_string AT cl_abap_char_utilities=>horizontal_tab INTO TABLE
fields.
READ TABLE fields INTO lv_field INDEX 1.
fs_table-name = lv_field.
READ TABLE fields INTO lv_field INDEX 2.
fs_table-age = lv_field.
APPEND fs_table TO t_table1.
ENDLOOP.
lo_nd_sflight = wd_context->get_child_node( 'DATA_TAB' ).
lo_nd_sflight->bind_table( t_table1 ).
ENDMETHOD.
if correct give correct answer
Thanks & Regards,
Meenachi.R

Help!!! Can Anybody tell me how to read bookmarks of MS word using ABAP?

It took me around 3 days , but there is still no solutions...
Can Anybody tell me how to read bookmarks of MS word using ABAP ?
Many thanks.

Dear Nick ,
Thanks for your attention!
I have MS word installed in the R3 server , and I uploaded my word doc with some self-defined bookmarks into SAP R3 system.
Now I want to read these bookmarks using ABAP in this R3 system...
Is it clear enough?
Looking forward to your solution ...
Thanks again..
Best Regards,
Leon.

Missing code in "Offline Interactive Forms Using ABAP" SDN document?

I am trying to build a sample offline form scenario using the code published in the SDN document "Offline Interactive Forms Using ABAP" written by Vani Krishnamoorthy. Everything works perfectly up to the point where we instantiate the PDF Object to extract the data from the form. Then there seems to be some code missing just before we call the method SET_DOCUMENT. We are supposed to export the parameter pdfdata = pdf_data , but I cannot find where pdf_data variable is declared or assigned. Also, an ENDTRY statement seems to be missing.
Has anyone had success with Vani's offline scenario, and if so, do you know what code is missing, if any?
Thanks in advance for any help you can offer.

I found the missing code in sample program FP_PDF_TEST_06. Everything works well now.
The PDF file that was uploaded from the PC first needs to be converted from binary to XSTRING before you can create the PDF object:
data: lt_rawtab type standard table of raw255,
        g_pdfdata type xstring,
        l_len type i.
call method cl_gui_frontend_services=>gui_upload
    exporting
      filename                = l_filename
      filetype                = 'BIN'
    importing
      filelength              = l_len
    changing
      data_tab                = lt_rawtab   "PDF file (binary)
    exceptions
      file_open_error         = 1
      file_read_error         = 2
      etc. etc.
Convert binary tab to Xstring
call function 'SCMS_BINARY_TO_XSTRING'
    exporting
      input_length = l_len
    importing
      buffer       = g_pdfdata              "converted to Xstring
    tables
      binary_tab   = lt_rawtab
    exceptions
      failed       = 1
      others       = 2.
if sy-subrc is not initial.
    message id sy-msgid type sy-msgty number sy-msgno
               with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
Instantiate PDF object..
data: l_fp     type ref to if_fp value is initial,
        l_pdfobj type ref to if_fp_pdf_object value is initial,
        l_fpex    type ref to cx_fp_runtime,
        l_type    type string,
        l_errmsg type string.
Get FP reference
l_fp = cl_fp=>get_reference( ).
Handle exceptions with Try..Endtry
try.
Create PDF Object using destination 'ADS' (<--this is how it is
defined in SM59)
      l_pdfobj = l_fp->create_pdf_object( connection = 'ADS' ).
Set document
      l_pdfobj->set_document( exporting pdfdata = g_pdfdata ).
Tell PDF object to extract data
      l_pdfobj->set_extractdata( ).
Execute the call to ADS
      l_pdfobj->execute( ).
    catch cx_fp_runtime_internal
          cx_fp_runtime_system
          cx_fp_runtime_usage into l_fpex.
      case cl_abap_classdescr=>get_class_name( l_fpex ).
        when '\CLASS=CX_FP_RUNTIME_INTERNAL'.
          l_type = 'INTERNAL ERROR'.
        when '\CLASS=CX_FP_RUNTIME_SYSTEM'.
          l_type = 'SYSTEM ERROR'.
        when '\CLASS=CX_FP_RUNTIME_USAGE'.
          l_type = 'USAGE ERROR'.
      endcase.
      l_errmsg = l_fpex->get_short( ).
      message e010(ad) with l_type ':' l_errmsg.
endtry.

Opening a pdf file without using ABAP

Hi All,
    Can I open a pdf file in the ITS without using ABAP
    coding. I mean by using Java Script in an another
    dialog/page can i open a pdf file. If anyone has got
    any idea or sample code please let me know.
Thanks,
   Amitabh

Hi,
Where exactly you want to open the file?
The most simple way would be to upload the file under MIMES and provide the URL in the corresponding ITS service.
BR,
Disha.
Pls reward points for helpful answers.

Access KM using ABAP

Hi All,
How to access / create files in KM using ABAP code? Any FM available to create folder in KM via ABAP code? Searched the forum but most of the similar queries are unanswered.
Requirement:
Need to upload and retrieve documents from KM for web dynpro ABAP application.
Thanks
Krishnan

Hi,
KM is an application on SAP portal platform developed using Java. So direct communication from ABAP to KM through RFC or FM would not be possible.
I think through webservice there is a possibility. You can create a webservice on SAP. Portal This webservice can be used in your ABAP code.
Regards,
Jigar Oza

How to upload file in webdynpro abap alv

Hello Friends,
how to upload file in webdynpro abap alv
Regards
Narendra
Moderator message: please search for available information, post in correct "Web Dynpro ABAP" forum if still required.
Edited by: Thomas Zloch on Jun 6, 2011 11:55 AM

Hi Narendra,
You ahve to search before posting. This discussed many times.
You need to use file upload ui element to upload data. and display in alv.
Please go thorugh this..
http://wiki.sdn.sap.com/wiki/display/WDABAP/UploadandDownloadfilesinWebdynproABAP
Re: Upload .xls file in WDABAP
http://forums.sdn.sap.com/click.jspa?searchID=72307893&messageID=5425671
Cheers,
Kris.

Fm or class existing for fetching xml contents from a file using abap ?

Hi,
I need to fetch an xml file in a string of type xstring. I am using class cl_gui_frontend_services=>gui_upload.
This returns me content in table format, than i am planning to conver to xstring.
Is there any better approach or any existing function module any one know of ?
thanks
Regards
Pooja

Hi Pooja,
You can try out this program to read the XML file using abap.
*& Report ZXMLTOITAB                                                 *
REPORT ZXMLTOITAB                            .
TYPE-POOLS: ixml.
TYPES: BEGIN OF t_xml_line,
          data(256) TYPE x,
        END OF t_xml_line.
DATA: l_ixml            TYPE REF TO if_ixml,
        l_streamfactory   TYPE REF TO if_ixml_stream_factory,
        l_parser          TYPE REF TO if_ixml_parser,
        l_istream         TYPE REF TO if_ixml_istream,
        l_document        TYPE REF TO if_ixml_document,
        l_node            TYPE REF TO if_ixml_node,
        l_xmldata         TYPE string.
DATA: l_elem            TYPE REF TO if_ixml_element,
        l_root_node       TYPE REF TO if_ixml_node,
        l_next_node       TYPE REF TO if_ixml_node,
        l_name            TYPE string,
        l_iterator        TYPE REF TO if_ixml_node_iterator.
DATA: l_xml_table       TYPE TABLE OF t_xml_line,
        l_xml_line        TYPE t_xml_line,
        l_xml_table_size TYPE i.
DATA: l_filename        TYPE string.
PARAMETERS: pa_file TYPE char1024 DEFAULT 'c:\temp\orders_dtd.xml'.
* Validation of XML file: Only DTD included in xml document is supported
PARAMETERS: pa_val TYPE char1 AS CHECKBOX.
START-OF-SELECTION.
*   Creating the main iXML factory
    l_ixml = cl_ixml=>create( ).
*   Creating a stream factory
    l_streamfactory = l_ixml->create_stream_factory( ).
    PERFORM get_xml_table CHANGING l_xml_table_size l_xml_table.
*   wrap the table containing the file into a stream
    l_istream = l_streamfactory->create_istream_itable( table =
l_xml_table
                                                    size =
l_xml_table_size ).
*   Creating a document
    l_document = l_ixml->create_document( ).
*   Create a Parser
    l_parser = l_ixml->create_parser( stream_factory = l_streamfactory
                                      istream        = l_istream
                                      document       = l_document ).
*   Validate a document
    IF pa_val EQ 'X'.
      l_parser->set_validating( mode = if_ixml_parser=>co_validate ).
    ENDIF.
*   Parse the stream
    IF l_parser->parse( ) NE 0.
      IF l_parser->num_errors( ) NE 0.
        DATA: parseerror TYPE REF TO if_ixml_parse_error,
              str        TYPE string,
              i          TYPE i,
              count      TYPE i,
              index      TYPE i.
        count = l_parser->num_errors( ).
        WRITE: count, ' parse errors have occured:'.
        index = 0.
        WHILE index < count.
          parseerror = l_parser->get_error( index = index ).
          i = parseerror->get_line( ).
          WRITE: 'line: ', i.
          i = parseerror->get_column( ).
          WRITE: 'column: ', i.
          str = parseerror->get_reason( ).
          WRITE: str.
          index = index + 1.
        ENDWHILE.
      ENDIF.
    ENDIF.
*   Process the document
    IF l_parser->is_dom_generating( ) EQ 'X'.
      PERFORM process_dom USING l_document.
    ENDIF.
*&      Form get_xml_table
FORM get_xml_table CHANGING l_xml_table_size TYPE i
                              l_xml_table      TYPE STANDARD TABLE.
*   Local variable declaration
    DATA: l_len      TYPE i,
          l_len2     TYPE i,
          l_tab      TYPE tsfixml,
          l_content TYPE string,
          l_str1     TYPE string,
          c_conv     TYPE REF TO cl_abap_conv_in_ce,
          l_itab     TYPE TABLE OF string.
    l_filename = pa_file.
*   upload a file from the client's workstation
    CALL METHOD cl_gui_frontend_services=>gui_upload
      EXPORTING
        filename   = l_filename
        filetype   = 'BIN'
      IMPORTING
        filelength = l_xml_table_size
      CHANGING
        data_tab   = l_xml_table
      EXCEPTIONS
        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.
*   Writing the XML document to the screen
    CLEAR l_str1.
    LOOP AT l_xml_table INTO l_xml_line.
      c_conv = cl_abap_conv_in_ce=>create( input = l_xml_line-data
replacement = space ).
      c_conv->read( IMPORTING data = l_content len = l_len ).
      CONCATENATE l_str1 l_content INTO l_str1.
    ENDLOOP.
    l_str1 = l_str1+0(l_xml_table_size).
    SPLIT l_str1 AT cl_abap_char_utilities=>cr_lf INTO TABLE l_itab.
    WRITE: /.
    WRITE: /' XML File'.
    WRITE: /.
    LOOP AT l_itab INTO l_str1.
      REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab
IN
        l_str1 WITH space.
      WRITE: / l_str1.
    ENDLOOP.
    WRITE: /.
ENDFORM.                    "get_xml_table
*&      Form process_dom
FORM process_dom USING document TYPE REF TO if_ixml_document.
    DATA: node      TYPE REF TO if_ixml_node,
          iterator TYPE REF TO if_ixml_node_iterator,
          nodemap   TYPE REF TO if_ixml_named_node_map,
          attr      TYPE REF TO if_ixml_node,
          name      TYPE string,
          prefix    TYPE string,
          value     TYPE string,
          indent    TYPE i,
          count     TYPE i,
          index     TYPE i.
    node ?= document.
    CHECK NOT node IS INITIAL.
    ULINE.
    WRITE: /.
    WRITE: /' DOM-TREE'.
    WRITE: /.
    IF node IS INITIAL. EXIT. ENDIF.
*   create a node iterator
    iterator = node->create_iterator( ).
*   get current node
    node = iterator->get_next( ).
*   loop over all nodes
    WHILE NOT node IS INITIAL.
      indent = node->get_height( ) * 2.
      indent = indent + 20.
      CASE node->get_type( ).
        WHEN if_ixml_node=>co_node_element.
*         element node
          name    = node->get_name( ).
          nodemap = node->get_attributes( ).
          WRITE: / 'ELEMENT :'.
          WRITE: AT indent name COLOR COL_POSITIVE INVERSE.
          IF NOT nodemap IS INITIAL.
*           attributes
            count = nodemap->get_length( ).
            DO count TIMES.
              index = sy-index - 1.
              attr   = nodemap->get_item( index ).
              name   = attr->get_name( ).
              prefix = attr->get_namespace_prefix( ).
              value = attr->get_value( ).
              WRITE: / 'ATTRIBUTE:'.
              WRITE: AT indent name COLOR COL_HEADING INVERSE, '=',
                               value COLOR COL_TOTAL   INVERSE.
            ENDDO.
          ENDIF.
        WHEN if_ixml_node=>co_node_text OR
             if_ixml_node=>co_node_cdata_section.
*         text node
          value = node->get_value( ).
          WRITE: / 'VALUE     :'.
          WRITE: AT indent value COLOR COL_GROUP INVERSE.
      ENDCASE.
*     advance to next node
      node = iterator->get_next( ).
    ENDWHILE.
ENDFORM.                    "process_dom
Regards,
Samson Rodrigues.

Upload an INFOCUBE using ABAP Proagram

Similar Messages

Maybe you are looking for