Attribute as internal table

I'm developing a BSP application that uses a application class. I created a table type in the data dictionary and used that as the type for an attribute of the class. In one of the methods of the class I use SELECT statement to fill the attribute but I get an error saying the attribute is not an internal table. Am I missing a step?
Thanks for any help,
Ross

Hello All,
Well I am able to use this method very easily...indeed.....
But I have a slightly different requirement....I have created a table-type in the data-dictionary....but what if I want to use the same method for many different tables....
Actually i was trying to develop a method to read values from active table of a DSO...by just passing the DSO name and Returning the internal table....
But if the table structure is different, then how can we (or can we ?) change the table type dynamically ???
Hope I'm clear...

Similar Messages

Defining attribute for internal table within class builder?

Hello there,
I use an function module that provides me an internal table which has the reference type of the DDIC object zml_output. Furthermore I call this function module within a global class that should keep the result of the function module into the attribute lt_result, that is declared as private and typed with
lt_result TYPE zml_output.
Even the definition of that attribute causes the following error message:
"lt_result" is not an internal table.
I don't have any clue how to type lt_result differently. Actually I would need the following type of typing "TYPE TABLE OF" but that does not exist within the class builder.
Thanks for your help in advanced!
Robert

Hi Konstantinidis ...
Of course I can provide it to you. The code of my methode load_data reads as follows:
method LOAD_DATA.
    CALL FUNCTION 'ZDATAGET'
    EXPORTING
      iv_dat    = iv_dat
      iv_time1 = iv_time1
      iv_delta = iv_delta
    TABLES
      et_result = lt_result.
endmethod.
Especially the lt_result causes the mentioned error message
The compiler seems to expect something "TABLE" like for attribute lt_result. But whatever I tried it doesn't seem to work out.
Many thanks for help...

How to create CMPCTRL attribute of the type internal table (as global list)

Hi,
I want to create global internal table to be able to access it across all my webdynpro views.
Ideally I will create this global internal table in CMPCTRL and will add different values from diffent methods of one view and use in another view as table of values. So I am thinking to use CMPCTRL Attribute declaration to my make internal table as global internal table. How do I achieve this ? Please help
Thanks
Praveen

Thanks Aditya, But I am getting "comp_attr" unknown.
I am pasting here What I am doing, Please let me know ehere is the error?
CMPCTRL:
it_pod Public clicked, Type Clikced Assoc Type:Element_<node_name>.
View access
DATA lo_nd_<node_name> TYPE REF TO if_wd_context_node.
DATA lo_el_nd_<node_name> TYPE REF TO if_wd_context_element.
DATA ls_nd_<node_name> TYPE wd_this->Element_<node_name>.
data podetails TYPE TABLE OF WD_COMP_CONTROLLER->IT_POD.
Here it says IT_POD unknown. any issues?
Thanks
Praveen

Passing select options internal table to BAPI attributes...

Hello Web Dynpro Gurus,
When I get the values from select options into interna table, how can I pass the same to the attribtues of the importing/exporting nodes of the BAPI by reading the context.
Please help .
Regards,
Jainam.

Hello,
The code in bold below sets attributes of my node one by one for the select option node atttributes i.e. SIGN, OPTION, LOW and HIGH.
Instead of that how can I set all attributes of node which is of type select-options in one shot.
method ONACTIONSEARCH .
DATA: S_WAERS TYPE REF TO DATA.
FIELD-SYMBOLS: <FS_WAERS> TYPE TABLE.
Retrieve the data from the select option
S_WAERS = WD_THIS->M_HANDLER->GET_RANGE_TABLE_OF_SEL_FIELD( I_ID = 'WAERS' ).
Assign it to a field symbol
   ASSIGN S_WAERS->* TO <FS_WAERS>.
   data:
    Node_Rep_Curr                       type ref to If_Wd_Context_Node,
    Elem_Rep_Curr                       type ref to If_Wd_Context_Element,
    Stru_Rep_Curr                       type If_Select_View=>Element_Rep_Curr .
navigate from <CONTEXT> to <REP_CURR> via lead selection
Node_Rep_Curr = wd_Context->get_Child_Node( Name = IF_SELECT_VIEW=>wdctx_Rep_Curr ).
get element via lead selection
Elem_Rep_Curr = Node_Rep_Curr->get_Element( ).
get all declared attributes
Elem_Rep_Curr->get_Static_Attributes(
    importing
      Static_Attributes = Stru_Rep_Curr ).
    Node_Rep_Curr->set_attribute(
    Exporting
      name = 'SIGN'
      value = 'I' ).{code}
endmethod.
Edited by: Jainam Shah on Feb 5, 2010 2:55 PM

SCREEN INTERNAL TABLE ATTRIBUTES

Hi
In the screen internal table attributes i have seen four groups namely by group1 to 4.
My doubt is what is the concept behind this??
How to find out the screen group for a particular field??
it is already assigned or we have to assign it??
Thanks and Regards
Arun Joseph

Hi Arun,
(1) what is the concept behind this??
I will try to give a simple example for the same
Imagine a field called TEST1 and test2 for which in the screen we have 4 groups
Now the requirement is that
(1) when user enters transaction X1 he needs to see the field TEST1 and TEST2
(2) when user enters transaction X1 he needs to see the field TEST1 and dont want to see TEST2
so if tcode = X1
we need both TEST1 and TEST2
so in group1 (first of the 4 boxes we write G1 for both TEST1 and TEST2)
we write the code
loop at screen
if screen-group1 = 'G1'
screen-active = 1.
else screen-active = 0.
so if tcode = X1
we need to see TEST1 and hide TEST2
in the second box of the group we write G2 only for TEST1
we write the code
loop at screen
if screen-group2 = 'G1'
screen-active = 1.
else screen-active = 0.
since TEST2 second box is empty the above code will execute the else part and hide field TEST2 but show TEST1
In short screen groups help us group a particular set of screen fields based on a particular requirement
in this case just 2 are mentioned , imagine a case with 10 fields,we can easily control thier screen properties through code by grouping them
(2) How to find out the screen group for a particular field??
Check the screen properties of the field in the screen painter and see which all groups are filled
In the screen painter just see the boxes which are filled for "Group"
if the first box is filled then in the ABAP code
check by writing if screen-group1 = 'XX'
if the second box is filled then in the ABAP code
check by writing if screen-group2 = 'XX'
the third box is filled then in the ABAP code
check by writing if screen-group3 = 'XX'
the fourth box is filled then in the ABAP code
check by writing if screen-group4 = 'XX'
this replaces the check if screen-name = a field and checks which all fields fall under a group and does action on all the fields based on the code written
(3)it is already assigned or we have to assign it??
If it is a stndard program then it comes predefined if the group property of the screen is used to control it..to change it an access key maybe required provided there are no user exits for the same
in a custom program we can fill the group properties of a screen element
Pls revert if you need more clarifications
Reward if helpful
Regards
Byju

Internal table as a class attribute

Hello everybody.
I think many of you hhave passed through the same problem. I have a requirement to pass internal table to class as for example class constructor parameter. It is desirable that class should get the table of variable structure.
How coult that be realized?
Thank you in advance for your kind help.
Best regards,
Andrey

Here is a quick sample........
report zrich_0003 .
*       CLASS lcl_app DEFINITION
class lcl_app definition.
public section.
    methods: constructor importing table type table.
endclass.
*       CLASS lcl_app IMPLEMENTATION
class lcl_app implementation.
method constructor.
    check sy-subrc = 0.
endmethod.
endclass.
data: app type ref to lcl_app.
data: imara type table of mara.
start-of-selection.
create object app
          exporting
                table = imara.
check sy-subrc = 0.
Regards,
Rich Heilman

Use internal table in Smartform

Hi All,
I want to use the internal table in program in smartform.
For that i have declare that table in TABLES attribute of the function module and trying to declare that table in form interface in smartform.I have created one stucture in data dictionary of same type for the associated type of that table.But it showing me error that only table types can be used as reference type for a table parameter.
Can anybody give me the solution or atleast tell me what is problem?
Thanks.

Hi,
First you define an internal table in your Driver program and populate the same with the data and put it in the Export parameters.
Then, in your Smartform, in the Form interface parameter's declarations, specify the name which you gave in the Driver program ( the Left hand side name in the interface list of the Function Module ) and specify it as type of the internal table you have used in the Driver program.
Please define in the same way as mentioned and let me know how it worked for you or still any issues on this.
Thanks,
Vishnu.

How to populate internal table field with text data?

Hello Experts,
I was able to load text file to a internal table but data is not populating each field. Can someone help me how to populate each field of internal table from text file?
Here is the text file:
io_name, io_type, io_txsht, io_txlng, io_datatype, io_length
ZEA_IO1, CHA, IO Test,     IO Test 1, CHAR,       20
ZEA_IO2, CHA, IO Test,     IO Test 2, CHAR,       20
Here is the Code:
*& Report ZAS_BAPI_TEST                                               *
*& InfoObject Creation through BAPI.
*& Read the Text file, call a BAPI to create InfoObjects.              *
*& Text file will hold the Info Object Structure. Text file will be    *
*& located either work station or local PC.
*& Step 1. Create internal table to hold InfoObject structure          *
*& Step 2. Retrieve/Load text file into Internal Table structure       *
*& Step 3. Call BAPI Function to Create IO                             *
*& Step 4. Call BAPI Function to Activate IO                           *
REPORT ZAS_BAPI_TEST                           .
Make data separator a comma
CONSTANTS: gc_tab TYPE c VALUE ','.
      Declaring Internal table for creating InfoObject
DATA: p_file TYPE string.
DATA: BEGIN OF itab-bapi OCCURS 0,
        io_name like BAPI6108-infoobject,
        io_type like BAPI6108-type,
        io_txsht like BAPI6108-textshort,
        io_txlng like BAPI6108-textlong,
        io_datatype like BAPI6108-datatp,
        io_length like BAPI6108-intlen,
      END OF itab-bapi.
DATA ibapi LIKE STANDARD TABLE OF itab-bapi.
PARAMETERS: sel_file(1500) TYPE c default ' ' OBLIGATORY LOWER CASE.
      PUT THE TEXT FILE PATH TO P_FILE
p_file = sel_file.
     Copy the file from the workstation to the server        ****
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
    filename                = p_file
               FILETYPE                = 'ASC'
               HAS_FIELD_SEPARATOR     = SPACE
               HEADER_LENGTH           = 0
               DAT_MODE                = SPACE
               CODEPAGE                = SPACE
               IGNORE_CERR             = ABAP_TRUE
               REPLACEMENT             = '#'
               READ_BY_LINE            = 'X'
             IMPORTING
               FILELENGTH              =
               HEADER                  =
TABLES
    data_tab                = itab-bapi[]
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.
MESSAGE e012(zea_spms) WITH 'Method' 'GUI_UPLOAD' sy-subrc.
&1 &2 issued return code &3
   ELSE.
     pit_data[] = lit_data[].
   ENDIF.
ENDIF.
loop at itab-bapi.
write: /5 itab-bapi-io_name,
           20 itab-bapi-io_type,
           30 itab-bapi-io_txsht,
           50 itab-bapi-io_txlng,
           75 itab-bapi-io_datatype,
           85 itab-bapi-io_length.
endloop.
      SELECT THE LOCATION FOR TEXT FILE
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sel_file.
CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_filename     = ''
      def_path         = 'C:\'
      mask             = ',Documentos de texto (*.txt), *.txt.'
      mode             = ''
    IMPORTING
      filename         = p_file
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error = 4
      OTHERS           = 5.
find '.txt' IN p_file.
if sy-subrc <> 0.
    concatenate p_file '.txt' into sel_file.
else.
    sel_file = p_file.
endif.
      Create InfoObject through BAPI Function
*CALL FUNCTION 'BAPI_IOBJ_CREATE'.
*IMPORTING
    VALUE(DETAILS) LIKE BAPI6108 STRUCTURE BAPI6108
*EXPORTING
    VALUE(INFOOBJECT) LIKE BAPI6108-INFOOBJECT
    VALUE(RETURN) LIKE BAPIRET2 STRUCTURE BAPIRET2
TABLES
     COMPOUNDS STRUCTURE BAPI6108CM OPTIONAL
     ATTRIBUTES STRUCTURE BAPI6108AT OPTIONAL
     NAVIGATIONATTRIBUTES STRUCTURE BAPI6108AN OPTIONAL
     ATRNAVINFOPROVIDER STRUCTURE BAPI6108NP OPTIONAL
     HIERARCHYCHARACTERISTICS STRUCTURE BAPI6108HC OPTIONAL
     ELIMINATION STRUCTURE BAPI6108IE OPTIONAL
     RETURNTABLE STRUCTURE BAPIRET2 OPTIONAL
      Activate InfoObject through BAPI Function
CALL FUNCTION 'BAPI_IOBJ_ACTIVATE_MULTIPLE'
*ENDFORM.                    " RETRIEVE_DATASET
I appreciate your help.
Regards,
Mau

I have used tab delimited file.
Here are file contents
io_name     io_type     io_txsht     io_txlng     io_datatype     io_length
ZEA_IO1     CHA     IO Test     IO Test 1     CHAR     20
ZEA_IO2     CHA     IO Test     IO Test 2     CHAR     20
And here is program used
*& Report ZAS_BAPI_TEST *
*& InfoObject Creation through BAPI.
*& Read the Text file, call a BAPI to create InfoObjects. *
*& Text file will hold the Info Object Structure. Text file will be *
*& located either work station or local PC.
*& Step 1. Create internal table to hold InfoObject structure *
*& Step 2. Retrieve/Load text file into Internal Table structure *
*& Step 3. Call BAPI Function to Create IO *
*& Step 4. Call BAPI Function to Activate IO *
REPORT ZAS_BAPI_TEST .
Make data separator a comma
CONSTANTS: gc_tab TYPE c VALUE ','.
Declaring Internal table for creating InfoObject
DATA: p_file TYPE string.
DATA: BEGIN OF itab-bapi OCCURS 0,
io_name like BAPI6108-infoobject,
io_type like BAPI6108-type,
io_txsht like BAPI6108-textshort,
io_txlng like BAPI6108-textlong,
io_datatype like BAPI6108-datatp,
io_length like BAPI6108-intlen,
END OF itab-bapi.
DATA ibapi LIKE STANDARD TABLE OF itab-bapi.
PARAMETERS: sel_file(1500) TYPE c default ' ' OBLIGATORY LOWER CASE.
PUT THE TEXT FILE PATH TO P_FILE
p_file = sel_file.
Copy the file from the workstation to the server ****
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = p_file
<b>FILETYPE = 'ASC'
HAS_FIELD_SEPARATOR = 'X'</b>
TABLES
data_tab = itab-bapi[]
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.
MESSAGE e012(zea_spms) WITH 'Method' 'GUI_UPLOAD' sy-subrc.
&1 &2 issued return code &3
ELSE.
pit_data[] = lit_data[].
ENDIF.
ENDIF.
loop at itab-bapi.
write: /5 itab-bapi-io_name,
20 itab-bapi-io_type,
30 itab-bapi-io_txsht,
50 itab-bapi-io_txlng,
75 itab-bapi-io_datatype,
85 itab-bapi-io_length.
endloop.
SELECT THE LOCATION FOR TEXT FILE
AT SELECTION-SCREEN ON VALUE-REQUEST FOR sel_file.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
def_filename = ''
def_path = 'C:\'
mask = ',Documentos de texto (*.txt), *.txt.'
mode = ''
IMPORTING
filename = p_file
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
find '.txt' IN p_file.
if sy-subrc <> 0.
concatenate p_file '.txt' into sel_file.
else.
sel_file = p_file.
endif.
Create InfoObject through BAPI Function
*CALL FUNCTION 'BAPI_IOBJ_CREATE'.
*IMPORTING
VALUE(DETAILS) LIKE BAPI6108 STRUCTURE BAPI6108
*EXPORTING
VALUE(INFOOBJECT) LIKE BAPI6108-INFOOBJECT
VALUE(RETURN) LIKE BAPIRET2 STRUCTURE BAPIRET2
TABLES
COMPOUNDS STRUCTURE BAPI6108CM OPTIONAL
ATTRIBUTES STRUCTURE BAPI6108AT OPTIONAL
NAVIGATIONATTRIBUTES STRUCTURE BAPI6108AN OPTIONAL
ATRNAVINFOPROVIDER STRUCTURE BAPI6108NP OPTIONAL
HIERARCHYCHARACTERISTICS STRUCTURE BAPI6108HC OPTIONAL
ELIMINATION STRUCTURE BAPI6108IE OPTIONAL
RETURNTABLE STRUCTURE BAPIRET2 OPTIONAL
Activate InfoObject through BAPI Function
CALL FUNCTION 'BAPI_IOBJ_ACTIVATE_MULTIPLE'
*ENDFORM. " RETRIEVE_DATASET
This program is working fine. You can test it.
Only problem is as the column headings are big for some columns, they are getting truncated which you can always change by changing the column width in declaration
Please let me know if this helps.
ashish

How to split all the fields of output ls-l from an internal table

Hi all,
Using ls-l command i have brought the file attributes of a file like its read and write permissions,creation date ,path etc in a internal table.
Now how to split all these fields from the internal table or what should be the splitting criteria.
The field contents of internal table are like this:
-rw-rw---- 1 devadm sapsys 18360 apr 29......so on
I want to split this into different fields.
Kindly suggest.
Thank You.

Hi,
I think the delimiter will be space. For date alone (Apr 29) you need to concatenate after the string has been split.
Thanks and regards,
S. Chandramouli

How to create a table control from a program internal table

Hi all,
I try to create a table control that matches following requirements :
- the source table is an internal table from program (not a dictionary table)
- I need to specify my own column header titles
- the fields need to be editable
- some of the columns fields must be displayed as checkboxes, other one as texts
When I try using "Table Control WIth Wizard", the generated TabControl has the expected columns titles but the fields are not displayed as checkboxes. Moreoever, when I look at "Dictionnary, program Fields list", the table fields choosed using wizard are locked (a padlock is displayed in front of the line) So, I can not check "checkbox display"
When I try using simple Table Control -I mean without ALV-, I can use the "checkbox display" for wanted fields but I don't know how to specify the resquired columns headers titles
So, could you please help me ? How to do both : maage columsn header titles and display some of the columns as checkboxes ?
thanks for help
Regards
morgan

Hi Morgan,
Create an Interanal Table in Top Include and activate it first. Then go the Screen Layout and Drag and Drop a Table control.
Enter a name like TC. now press F6 (Dictionary/Program Fields Window). Enter the Interanal Table and Press
Get From Program Push button. Select the required Columns and transfer them. Double click on the Table Control Area only (any corner of the TC) now you get attribute window POP UP. now select the check box for with column Header or remove the available column header and place your own Text Field and give meaningful Text for them. With in the Table control you can Drag and Drop a Check Box which will occupy all the rows. Make sure you include one more column in the TOP include type C with length one.
Hope this is very Clear to YOU.
Cheers
Ram

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.

Xml data into internal table

Hi Friends,
See the followong code which converts xml data into itab.
*& Report ZTEST_XML1                                                  *
REPORT ZTEST_XML1                              .
*PURPOSE: This program transfers XML data into SAP internal table format
*The nodes in DOM can be stored as fields in SAP Internal table
type pool definitions
TYPE-POOLS: ixml. "iXML Library Types
type definitions
TYPES: BEGIN OF t_xml_line, "Structure for holding XML data
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, " XML Table of the structure
*t_xml_line
l_xml_line TYPE t_xml_line, " Record of structure t_xml_line
l_xml_table_size TYPE i. " XML table size
DATA: l_filename TYPE string. " String to hold filename
data: begin of i_final occurs 0,
      pnumber(20),
      pname(50),
      pdes(70),
      end of i_final.
PARAMETERS: pa_file TYPE char1024 DEFAULT 'C:\product.xml'.
Validation of XML file: Only DTD included in XML document is supported
PARAMETERS: pa_val TYPE char1 AS CHECKBOX.
start of selection
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( ).
Creating a Parser
l_parser = l_ixml->create_parser( stream_factory = l_streamfactory
istream = l_istream
document = l_document ).
Validate a document
IF pa_val = 'X'.
l_parser->set_validating( mode = if_ixml_parser=>co_validate ).
ENDIF.
Parse the stream
IF l_parser->parse( ) <> 0.
IF l_parser->num_errors( ) <> 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
text
<--P_L_XML_TABLE_SIZE text
<--P_L_XML_TABLE text
FORM get_xml_table CHANGING p_l_xml_table_size
p_l_xml_table.
Local variable declarations
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 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
text
-->P_L_DOCUMENT text
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.
*delete adjacent duplicates from i_final.
*loop at i_final.
*write:/ i_final-pnumber,i_final-pname,i_final-pdes.
*endloop.
*if not i_final[] is initial.
*modify ztestproduct from table i_final.
*endif.
ENDFORM. " process_dom
in the above code at line no: 268 there is a method:
value = node->get_value( ).in which actual data from XML file is coming.
So the varibale "Value" contains the data.
see line no: 270:
WRITE: AT indent value COLOR COL_GROUP INVERSE.
what ever values i am getting here i want to append to a Internal table ...
Can any body tell me how to do that?
i am sure of reward points.

Hai Ravi
REPORT abc.
DATA
DATA : t001 LIKE TABLE OF t001 WITH HEADER LINE.
DATA : BEGIN OF itab OCCURS 0,
a(100) TYPE c,
END OF itab.
DATA: xml_out TYPE string .
DATA : BEGIN OF upl OCCURS 0,
f(255) TYPE c,
END OF upl.
DATA: xmlupl TYPE string .
FIRST PHASE
FIRST PHASE
FIRST PHASE
Fetch Data
SELECT * FROM t001 INTO TABLE t001.
XML
CALL TRANSFORMATION ('ID')
SOURCE tab = t001[]
RESULT XML xml_out.
Convert to TABLE
CALL FUNCTION 'HR_EFI_CONVERT_STRING_TO_TABLE'
EXPORTING
i_string = xml_out
i_tabline_length = 100
TABLES
et_table = itab.
Download
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
filetype = 'BIN'
filename = 'd:\xx.xml'
TABLES
data_tab = itab.
SECOND PHASE
SECOND PHASE
SECOND PHASE
BREAK-POINT.
REFRESH t001.
CLEAR t001.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = 'D:\XX.XML'
filetype = 'BIN'
TABLES
data_tab = upl.
LOOP AT upl.
CONCATENATE xmlupl upl-f INTO xmlupl.
ENDLOOP.
XML
CALL TRANSFORMATION ('ID')
SOURCE XML xmlupl
RESULT tab = t001[].
Regards
Sreeni

Upload .xls file in internal table in web dynpro abap

Hi everyone,
i want to upload .xls(excel file) into an internal table.....after lots of attempts i came to a conclusion that web dynpro only supports .CSV(another format of excel file) to be uploaded into internal table....i tried many ways....is there a way i can upload .xls file...kindly help me in the same. following is the code i m using
DATA LO_EL_CONTEXT TYPE REF TO IF_WD_CONTEXT_ELEMENT.
DATA LS_CONTEXT TYPE WD_THIS->ELEMENT_CONTEXT.
DATA ITEM_FILE TYPE WD_THIS->ELEMENT_CONTEXT-EXCEL_UPLOAD.
get element via lead selection
LO_EL_CONTEXT = WD_CONTEXT->GET_ELEMENT( ).
@TODO handle not set lead selection
IF LO_EL_CONTEXT IS INITIAL.
ENDIF.
get single attribute
LO_EL_CONTEXT->GET_ATTRIBUTE(
    EXPORTING
      NAME = `EXCEL_UPLOAD`
    IMPORTING
      VALUE = ITEM_FILE ). "xstring format
DATA S_CONT TYPE STRING.
DATA CONVT TYPE REF TO CL_ABAP_CONV_IN_CE.
DATA: FIELDS1 TYPE STRING_TABLE.
1st tried this code-> using "cl_abap_conv_in_ce"
CALL METHOD cl_abap_conv_in_ce=>create
EXPORTING
*encoding = c_encoding "optional
input = ITEM_FILE
RECEIVING
conv = CONVT.
CALL METHOD CONVT->read
IMPORTING
data = S_CONT.
when it didnt work out...then tried followin function module
CALL FUNCTION 'HR_KR_XSTRING_TO_STRING'
    EXPORTING
      IN_XSTRING        = ITEM_FILE "xsrting
   IMPORTING
     OUT_STRING          = S_CONT
TYPES: BEGIN OF TY_TAB,
       NAME_CHAR TYPE STRING,
       DESCR_CHAR TYPE STRING,
       NUMBER_DIGITS TYPE STRING,
       END OF TY_TAB.
DATA: FIELDS TYPE STRING_TABLE.
DATA: LV_FIELD TYPE STRING.
DATA: S_TABLE TYPE STRING_TABLE.
DATA: ITAB TYPE TABLE OF TY_TAB.
DATA: STR_ITAB TYPE TY_TAB.
*splits string based on new line
SPLIT S_CONT AT CL_ABAP_CHAR_UTILITIES=>CR_LF INTO TABLE S_TABLE.
FIELD-SYMBOLS: <WA_TABLE> LIKE LINE OF S_TABLE.
LOOP AT S_TABLE ASSIGNING <WA_TABLE>.
splits string on basis of tabs
SPLIT <WA_TABLE> AT ',' INTO
                  STR_ITAB-NAME_CHAR
                  STR_ITAB-DESCR_CHAR
                  STR_ITAB-NUMBER_DIGITS.
APPEND STR_ITAB TO ITAB.
ENDLOOP.
I am able to do the uploading if the file is in .CSV format and not .XLS format....
there are lots of forums on SDN for the same....but at the end there is no solution provided.....
experts kindly solve it this time...thanks in advance

Hi,
It is not possible to upload an xls file because it will be having some binary characters. better to go with .csv file format.
Refer this [link too|Re: Excel File Uplaod] it will explain you clearly.
Regards
Arun.P

Upload XML to internal table and vice versa in SAP 4.6C

Hi,
   Happy New Year to you all!
   We are using 46C and I am beginning to learn about XML. We have a requirement to (1) upload an XML file into an internal table as well as (2) create an XML file from an internal table.
   I read some of the posted messages about this but they didn't seem to be applicable in 46C (I could be wrong).
   Could someone please help me using the sample file below?
<?xml version="1.0" ?>
- <AUCTIONBLOCK>
- <ITEM>
<TITLE>Still Life / Onions</TITLE>
<ARTIST>Linda Mann</ARTIST>
<DIMENSIONS>20x30 inches</DIMENSIONS>
<MATERIALS>Oil</MATERIALS>
<YEAR>1997</YEAR>
<DESCRIPTION>Still Life</DESCRIPTION>
<TIMESTAMP>1974</TIMESTAMP>
</ITEM>
</AUCTIONBLOCK>
Many thanks,
Rosemarie

Hi,
Yes I'm on 4.6c. I've to comment several lines. Here is an example:
*& Report z_xit_xml_check
report z_xit_xml_check.
class cl_ixml definition load.
type-pools: ixml.
types: begin of t_xml_line,
          data(256) type x,
        end of t_xml_line,
        begin of tsfixml,
          data(1024) type c,
        end of tsfixml.
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
'd:joaodesenvolvimentos i act     este.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( ).
Regards,
Maria João Rocha
    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.
data: name2 type string,
      name_root type string,
      node_parent      type ref to if_ixml_node,
      node_root        type ref to if_ixml_node,
      num_children     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.
num_children = node->num_children( ).
      case node->get_type( ).
        when if_ixml_node=>co_node_element.
        element node
          name    = node->get_name( ).
          nodemap = node->get_attributes( ).
          node_root = node->get_root( ).
          name_root = node_root->get_name( ).
                    write: / 'ELEMENT :'.
          write: at indent name color col_positive inverse.
          write: 'NUM_CHILDREN:', num_children.
          write: 'ROOT:', name_root.
          node_parent = node->get_parent( ).
          name2    = node_parent->get_name( ).
          write: 'NAME2: ' , name2.
          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     :'.
mjprocha
          node_parent = node->get_parent( ).
          write: at indent value color col_group inverse.
          name2    = node_parent->get_name( ).
          write: 'NAME2: ' , name2.
      endcase.
    advance to next node
      node = iterator->get_next( ).
    endwhile.
endform.                    "process_dom

Xml to ABAP internal table mapping and schema validation

Hi Experts,
I'm trying to get data from an xml file into internal tables in ABAP. My requirement is to validate xml against an xsd schema, how can i do it?
My other question is, if there are any possible ways to map the fields of a table so that once the xml file is read, the fields automatically get populated depending on the different elements and attributes in the xml file.
-joe

Hi,
check out :
http://help.sap.com/saphelp_nw70/helpdata/en/fd/9d734b389211d596a200a0c94260a5/frameset.htm
Terry

Attribute as internal table

Similar Messages

Maybe you are looking for