Creating XML transformation using multiple internal tables

Hi everyone, 
 
I'm trying to transforme 3 internal tables (from customer master data) into a single XML document. 

DATA: BEGIN OF wtab OCCURS 0 , 
 kunnr LIKE kna1-kunnr, "Customer ID 
 ktokd LIKE kna1-ktokd, 
 land1 LIKE kna1-land1, 
 name1 LIKE kna1-name1, 
 ort01 LIKE kna1-ort01, 
 pstlz LIKE kna1-pstlz, 
 spras_iso LIKE kna1-spras, 
 smtp_addr LIKE adr6-smtp_addr, 
 stras LIKE kna1-stras, 
 END OF wtab. 
 
DATA: BEGIN OF wtab_o OCCURS 0 , 
 kunnr LIKE knvv-kunnr, "Customer ID 
 vkorg LIKE knvv-vkorg, "Sales organisation 
 waers LIKE knvv-waers, 
 END OF wtab_o. 
 
DATA: BEGIN OF wtab_p OCCURS 0 , 
 kunnr LIKE knvp-kunnr, "Customer ID 
 vkorg LIKE knvp-vkorg, "Sales organisation 
 parvw LIKE knvp-parvw, 
 kunn2 LIKE knvp-kunnr, 
 END OF wtab_p. 

The internal tables are related to each other as follows:* 
 
wtab-kunnr = wtab_o-kunnr 
 
AND 
 
wtab_o-vkorg = wtab_p-vkorg 
wtab_o-kunnr = wtab_p-kunnr 
 
I couldn't figure out how to declare this relationship when calling the transformation. Is it possible? 

ABAP 
 
 
REFRESH : gt_source_itab. 
CLEAR : g_rxml. 
 
GET REFERENCE OF wtab INTO gs_source_wa-value. 
gs_source_wa-name = 'DEBMAS04'. 
APPEND gs_source_wa TO gt_source_itab. 
 
GET REFERENCE OF wtab_o INTO gs_source_wa-value. 
gs_source_wa-name = 'E1KNVVM'. 
APPEND gs_source_wa TO gt_source_itab. 
 
GET REFERENCE OF wtab_p INTO gs_source_wa-value. 
gs_source_wa-name = 'E1KNVPM'. 
APPEND gs_source_wa TO gt_source_itab. 
 
TRY. 
 CALL TRANSFORMATION Z_XSLT_CLIENT 
 SOURCE (gt_source_itab) 
 RESULT XML g_rxml 
 OPTIONS xml_header = 'without_encoding'. 
CATCH cx_root INTO gs_rif_ex. 
 
 gs_var_text = gs_rif_ex->get_text( ). 
 MESSAGE gs_var_text TYPE 'E'. 
 ENDTRY. 
 
 
Transformation Z_XSLT_CLIENT: 
 
 
<xsl:transform version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" xmlns:sap="http://www.sap.com/sapxsl"> 
<xsl:output indent="yes" encoding="UTF-16" method="xml" version="1.0"/> 
<xsl:strip-space elements="*"/> 
<xsl:template match="/"> 
<DEBMAS04> 
<xsl:apply-templates select="//DEBMAS04/item"/> 
</DEBMAS04> 
</xsl:template> 
<xsl:template match="DEBMAS04/item"> 
 <IDOC> 
 <xsl:attribute name="BEGIN">1</xsl:attribute> 
 <E1KNA1M> 
 <xsl:attribute name="SEGMENT">1</xsl:attribute> 
 <KUNNR> 
 <xsl:value-of select="KUNNR"/> 
 </KUNNR> 
 <KTOKD> 
 <xsl:value-of select="KTOKD"/> 
 </KTOKD> 
 <LAND1> 
 <xsl:value-of select="LAND1"/> 
 </LAND1> 
 <NAME1> 
 <xsl:value-of select="NAME1"/> 
 </NAME1> 
 <ORT01> 
 <xsl:value-of select="ORT01"/> 
 </ORT01> 
 <PSTLZ> 
 <xsl:value-of select="PSTLZ"/> 
 </PSTLZ> 
 <SPRAS_ISO> 
 <xsl:value-of select="SPRAS_ISO"/> 
 </SPRAS_ISO> 
 <SMTP_ADDR> 
 <xsl:value-of select="SMTP_ADDR"/> 
 </SMTP_ADDR> 
 <STRAS> 
 <xsl:value-of select="STRAS"/> 
 </STRAS> 
 <xsl:apply-templates select="//E1KNVVM/item"/> 
 </E1KNA1M> 
</IDOC> 
</xsl:template> 
<xsl:template match="E1KNVVM/item"> 
 <E1KNVVM> 
 <xsl:attribute name="SEGMENT">1</xsl:attribute> 
 <VKORG> 
 <xsl:value-of select="VKORG"/> 
 </VKORG> 
 <WAERS> 
 <xsl:value-of select="WAERS"/> 
 </WAERS> 
 <xsl:apply-templates select="//E1KNVPM/item"/> 
 </E1KNVVM> 
</xsl:template> 
<xsl:template match="E1KNVPM/item"> 
 <E1KNVPM> 
 <xsl:attribute name="SEGMENT">1</xsl:attribute> 
 <PARVW> 
 <xsl:value-of select="PARVW"/> 
 </PARVW> 
 <KUNN2> 
 <xsl:value-of select="KUNN2"/> 
 </KUNN2> 
 </E1KNVPM> 
</xsl:template> 
</xsl:transform> 
 
The way the call transformation is now, for each line in table wtab (DEBMAS04) I'm getting all the lines in table wtab_o (E1KNVVM) and table wtab_p (E1KNVPM) 

 
Thank you for your help, 
 
Giselle

Hi Giselle,
I think it's possible (using xsl:if for instance), but an easier way is to nest your internal tables declarations (wtab_o inside wtab, kunnr becomes useless, and wtab_p inside wtab_o), and use the SAP standard "ID" transformation (no need for a custom XSL transformation). You'll get a slightly different result, but I don't think you want something very sophisticated.
Sandra

Similar Messages

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

Creating XML file from ABAP internal table data....

Hello,
I am fethcing data froma custom table and I have to write data in XMl format. Following is the XML format in which I want data. Is there any function module iN SAP which will help me in writing data from internal table to XML file ?
<batch>
<invoice>
 <StatusCode>10</StatusCode>
 <paymentamount>122.00</paymentamount>
 <ReferenceNumber>70980934</ReferenceNumber>
</invoice>
<invoice>
 <StatusCode>90</StatusCode>
 <paymentamount>122.00</paymentamount>
 <ReferenceNumber>70980934</ReferenceNumber>
</invoice>
<control>
 <InvoiceCount>2</InvoiceCount>
</control>
</batch>
Please help.
Regards,
Jainam.

I suggest you look into "simple transformations". That's SAP's most recent technology for such purposes, as far as I know.
http://help.sap.com/abapdocu_70/en/ABENABAP_ST.htm
Thomas

Creating XML file Using Call Transformation

Hello Friends,
 I have searched before posting thread, couldnt find anything.
 I am creating an XML file using Call Transformation. My internal table has 3 date fields and some other fields. For some records I dont have values for the date fields. In that case my XML file is giving the date value as 0000-00-00 since I declared it as Date type. This value 0000-00-00 is not accepted by the middle ware as the valid date. I can not change it as String type as per the suggestion.
In that case I am advised to skip printing the date field tag if it doesnt have value.
 Is there any way to skip the date field if it is empty. Any Suggestions please ?.
Thanks
Lakshmi.

Hi,
I had exactly the same problem before. When you call a transformation there is an option called initial_components. According to SAP if you use initial_components = 'SUPRESS' the empty fields should not being generated on the XML.
Now, this didn't work for me and I have seen some people with the same problem. Here is how I solved this (maybe not the best way but it worked):
First: My fields are all CHAR in my table
Second: In the transformation, you can use conditional transformation to not display a tag if field is empty, here a piece of my transformation (I am using simple transformations):
 <tt:root name="ROOT"/>
 <tt:cond s-check="not-initial(ref('ROOT.L1_NM')) or not-initial(ref('ROOT.L2_NM'))">
 <TRNMTR_NM>
 <tt:cond s-check="not-initial(ref('ROOT.L1_NM'))">
 <l1_nm>
 <tt:value ref="ROOT.L1_NM"/>
 </l1_nm>
 </tt:cond>
 <tt:cond s-check="not-initial(ref('ROOT.L2_NM'))">
 <l2_nm>
 <tt:value ref="ROOT.L2_NM"/>
 </l2_nm>
 </tt:cond>
 </TRNMTR_NM>
 </tt:cond>
As you can see, I first check if the fields have values.
Hope it helps
Edited by: carlosrv on Oct 4, 2011 8:22 PM

Create Table Control using Dynamic Internal Table.

Hi,
 I have requirement in which I will create a Dynamic Internal Table and then I need to create a Table Control Using that Internal Table. Now this can't be done using Screen Editor as it requires a pre-defined internal table or a DDIC Object.
Please Help.

This should be correct answer(I am not author of code below):
REPORT ztablemaintace NO STANDARD PAGE HEADING.
TYPE-POOLS: rsds.
DATA: is_x030l TYPE x030l,
it_dfies TYPE TABLE OF dfies,
is_dfies TYPE dfies,
it_fdiff TYPE TABLE OF field_dif,
is_fdiff TYPE field_dif.
DATA: w_selid TYPE rsdynsel-selid,
it_tables TYPE TABLE OF rsdstabs,
is_tables TYPE rsdstabs,
it_fields TYPE TABLE OF rsdsfields,
it_expr TYPE rsds_texpr,
it_ranges TYPE rsds_trange,
it_where TYPE rsds_twhere,
is_where TYPE rsds_where,
w_active TYPE i.
DATA: it_content TYPE REF TO data,
it_modif TYPE REF TO data,
it_fcat TYPE lvc_t_fcat.
DATA: w_okcode TYPE sy-ucomm.
FIELD-SYMBOLS: <itab> TYPE STANDARD TABLE,
<ntab> TYPE STANDARD TABLE.
* Macros
DEFINE table_error.
message e398(00) with 'Table' p_table &1.
END-OF-DEFINITION.
DEFINE fixed_val.
is_fdiff-fieldname = is_dfies-fieldname.
is_fdiff-fixed_val = &1.
is_fdiff-no_input = 'X'.
append is_fdiff to it_fdiff.
END-OF-DEFINITION.
* Selection screen
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME.
PARAMETERS: p_table TYPE tabname OBLIGATORY "table
MEMORY ID dtb
MATCHCODE OBJECT dd_dbtb_16.
SELECTION-SCREEN: BEGIN OF LINE,
PUSHBUTTON 33(20) selopt USER-COMMAND sel,
COMMENT 55(15) selcnt,
END OF LINE.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_rows TYPE i. "rows
SELECTION-SCREEN: END OF BLOCK b01,
SKIP,
BEGIN OF BLOCK b02 WITH FRAME.
PARAMETERS: p_displ TYPE c AS CHECKBOX. "display
SELECTION-SCREEN: END OF BLOCK b02.
* Initialization
INITIALIZATION.
MOVE '@4G@ Filter records' TO selopt.
* PBO
AT SELECTION-SCREEN OUTPUT.
IF w_active IS INITIAL.
 CLEAR: selcnt.
ELSE.
 WRITE w_active TO selcnt LEFT-JUSTIFIED.
ENDIF.
* PAI
AT SELECTION-SCREEN.
IF p_table NE is_x030l-tabname.
 CALL FUNCTION 'DDIF_NAMETAB_GET'
 EXPORTING
 tabname = p_table
 IMPORTING
 x030l_wa = is_x030l
 TABLES
 dfies_tab = it_dfies
 EXCEPTIONS
 OTHERS = 1.
 IF is_x030l IS INITIAL.
 table_error 'does not exist or is not active'.
 ELSEIF is_x030l-tabtype NE 'T'.
 table_error 'is not selectable'.
* ELSEIF is_x030l-align NE 0.
* table_error 'has alignment - cannot continue'.
 ENDIF.
* Default values for system fields
 REFRESH: it_fdiff.
 is_fdiff-tabname = p_table.
 LOOP AT it_dfies INTO is_dfies.
 IF is_dfies-datatype = 'CLNT'.
 fixed_val sy-mandt.
 ELSEIF is_dfies-rollname = 'ERDAT'
 OR is_dfies-rollname = 'ERSDA'
 OR is_dfies-rollname = 'AEDAT'
 OR is_dfies-rollname = 'LAEDA'.
 fixed_val sy-datum.
 ELSEIF is_dfies-rollname = 'ERTIM'
 OR is_dfies-rollname = 'AETIM'.
 fixed_val sy-uzeit.
 ELSEIF is_dfies-rollname = 'ERNAM'
 OR is_dfies-rollname = 'AENAM'.
 fixed_val sy-uname.
 ENDIF.
 CALL FUNCTION '/SAPDMC/DATAELEMENT_GET_TEXTS'
 EXPORTING
 name = is_dfies-rollname
 IMPORTING
 text_middle = is_dfies-reptext
 EXCEPTIONS
 not_found = 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.
 MODIFY it_dfies FROM is_dfies.
ENDLOOP.
* Prepare free selection on table
REFRESH it_tables.
is_tables-prim_tab = p_table.
APPEND is_tables TO it_tables.
CLEAR: w_selid.
ENDIF.
IF sy-ucomm = 'SEL'.
IF w_selid IS INITIAL.
* Init free selection dialog
 CALL FUNCTION 'FREE_SELECTIONS_INIT'
 EXPORTING
 expressions = it_expr
 IMPORTING
 selection_id = w_selid
 expressions = it_expr
 TABLES
 tables_tab = it_tables
 EXCEPTIONS
 OTHERS = 1.
ENDIF.
* Display free selection dialog
CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
 EXPORTING
 selection_id = w_selid
 title = 'Selection'
 status = 1
 as_window = 'X'
 IMPORTING
 expressions = it_expr
 field_ranges = it_ranges
 number_of_active_fields = w_active
 TABLES
 fields_tab = it_fields
 EXCEPTIONS
 OTHERS = 1.
ENDIF.
* Start of processing
START-OF-SELECTION.
PERFORM f_create_table USING p_table.
PERFORM f_select_table.
PERFORM f_display_table.
* FORM f_create_table *
FORM f_create_table USING in_tabname.
FIELD-SYMBOLS: <fcat> TYPE lvc_s_fcat.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
 EXPORTING
 i_structure_name = in_tabname
 CHANGING
 ct_fieldcat = it_fcat
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc = 0.
* Complete field catalog
 LOOP AT it_fcat ASSIGNING <fcat>.
 <fcat>-tabname = in_tabname.
 ENDLOOP.
 CALL FUNCTION 'LVC_FIELDCAT_COMPLETE'
 CHANGING
 ct_fieldcat = it_fcat
 EXCEPTIONS
 OTHERS = 1.
ELSE.
 WRITE: 'Error building field catalog'.
 STOP.
ENDIF.
* Create dynamic table for data
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fcat
 IMPORTING
 ep_table = it_content.
IF sy-subrc = 0.
 ASSIGN it_content->* TO <itab>.
ELSE.
 WRITE: 'Error creating internal table'.
 STOP.
ENDIF.
* Create dynamic table for modif
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fcat
 IMPORTING
 ep_table = it_modif.
IF sy-subrc = 0.
 ASSIGN it_modif->* TO <ntab>.
ELSE.
 WRITE: 'Error creating internal table'.
 STOP.
ENDIF.
ENDFORM. "f_create_table
* FORM f_select_table *
FORM f_select_table.
IF w_active = 0.
 SELECT * FROM (p_table)
 INTO CORRESPONDING FIELDS OF TABLE <itab>
 UP TO p_rows ROWS.
ELSE.
* Selection with parameters
 CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'
 EXPORTING
 field_ranges = it_ranges
 IMPORTING
 where_clauses = it_where.
 READ TABLE it_where INTO is_where WITH KEY tablename = p_table.
 SELECT * FROM (p_table)
 INTO CORRESPONDING FIELDS OF TABLE <itab>
 UP TO p_rows ROWS
 WHERE (is_where-where_tab).
ENDIF.
IF sy-dbcnt = 0.
 WRITE: 'No record selected'.
 STOP.
ENDIF.
ENDFORM. "f_select_table
* FORM f_display_table *
FORM f_display_table.
DATA: l_answer TYPE c,
l_eflag TYPE c.
CLEAR: w_okcode.
REFRESH: <ntab>.
* Display table contents
CALL FUNCTION 'STC1_FULLSCREEN_TABLE_CONTROL'
 EXPORTING
 header = p_table
 tabname = p_table
 display_only = p_displ
 endless = 'X'
 no_button = space
 IMPORTING
 okcode = w_okcode
 TABLES
* nametab = it_dfies
 table = <itab>
* fielddif = it_fdiff
 modif_table = <ntab>
 EXCEPTIONS
 OTHERS = 1.
IF sy-subrc = 0.
 IF p_displ IS INITIAL AND w_okcode = 'SAVE'.
* Confirm update
 CALL FUNCTION 'POPUP_TO_CONFIRM'
 EXPORTING
 titlebar = p_table
 text_question = 'Do you want to update table ?'
 default_button = '2'
 display_cancel_button = ' '
 IMPORTING
 answer = l_answer
 EXCEPTIONS
 OTHERS = 1.
 IF l_answer = '1'.
* Apply modifications
 IF NOT <ntab>[] IS INITIAL.
 PERFORM f_add_system USING space.
 MODIFY (p_table) FROM TABLE <ntab>.
 IF sy-subrc NE 0.
 l_eflag = 'X'.
 ENDIF.
 ENDIF.
* Apply deletions
 IF l_eflag IS INITIAL.
 REFRESH: <ntab>.
 CALL FUNCTION 'STC1_GET_DATA'
 TABLES
 deleted_data = <ntab>
 EXCEPTIONS
 OTHERS = 1.
 IF NOT <ntab>[] IS INITIAL.
 DELETE (p_table) FROM TABLE <ntab>.
 IF sy-subrc NE 0.
 ROLLBACK WORK.
 l_eflag = 'X'.
 ENDIF.
 ENDIF.
 ENDIF.
* Apply creations
 IF l_eflag IS INITIAL.
 REFRESH: <ntab>.
 CALL FUNCTION 'STC1_GET_DATA'
 TABLES
 new_data = <ntab>
 EXCEPTIONS
 OTHERS = 1.
 IF NOT <ntab>[] IS INITIAL.
 PERFORM f_add_system USING 'X'.
 INSERT (p_table) FROM TABLE <ntab>.
 IF sy-subrc NE 0.
 ROLLBACK WORK.
 l_eflag = 'X'.
 ENDIF.
 ENDIF.
 ENDIF.
 IF l_eflag IS INITIAL.
 COMMIT WORK.
 MESSAGE s261(53).
 ELSE.
 MESSAGE s075(3i).
 PERFORM f_select_table.
 ENDIF.
 ENDIF.
* Display table again
 PERFORM f_display_table.
 ENDIF.
ENDIF.
ENDFORM. "f_display_table
* FORM f_add_system *
FORM f_add_system USING new TYPE c.
FIELD-SYMBOLS: <irec> TYPE ANY,
<upd> TYPE ANY.
LOOP AT it_fdiff INTO is_fdiff.
 READ TABLE it_dfies INTO is_dfies
 WITH KEY fieldname = is_fdiff-fieldname.
 LOOP AT <ntab> ASSIGNING <irec>.
 ASSIGN COMPONENT is_fdiff-fieldname OF STRUCTURE <irec> TO <upd>.
 IF is_dfies-datatype = 'CLNT'.
 <upd> = sy-mandt.
 ELSE.
 CASE is_dfies-rollname.
 WHEN 'AENAM'.
 <upd> = sy-uname.
 WHEN 'AEDAT' OR 'LAEDA'.
 <upd> = sy-datum.
 WHEN 'AETIM'.
 <upd> = sy-uzeit.
 WHEN OTHERS.
 ENDCASE.
 ENDIF.
 ENDLOOP.
ENDLOOP.
ENDFORM. "f_add_system

Create xml file with nested internla table or with header & item tables

Hi I have a requirement like, I need to create an xml file for header and item details. For 1 header there may be multiple line items.
I did search in forums some where I came to know that we can use XSL:IF to achieve this. but I could not able to do this.
I tried with using nested internal tables also but now luck.
can anybody please suggest how can we create xml for header and item detials.
<xsl:transform version="1.0"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:sap="http://www.sap.com/sapxsl"
xmlns:asx="http://www.sap.com/abapxml"
exclude-result-prefixes="asx"
>
<xsl:template match="/">
<OrbisomRequest>
 <xsl:attribute name="Version">
 <xsl:value-of select="11.1"/>
 </xsl:attribute>
 <xsl:attribute name="IssuerID">
 <xsl:value-of select="1"/>
 </xsl:attribute>
 <xsl:for-each select="asx:abap[1]/asx:values[1]/T_FINAL[1]/*">
<CreateApprovedPurchaseRequest
 RerquestID="{VBLNR}"
 CommonName="User1"
 Amount="{WRBTR}"
 Comment="TestComment"
 CurrencyCode="978"
 PurchaseType="All"
 SupplierName="All"
 VCardAlias="PurchaseCard"
 ValidFrom="1M"
 CurrencyType="B">
 <CDFs>
 <Invoice> <xsl:value-of select="BELNR"/> </Invoice>
 <Amount> <xsl:value-of select="WRBTR"/> </Amount>
 </CDFs>
 </CreateApprovedPurchaseRequest>
 </xsl:for-each>
</OrbisomRequest>
</xsl:template>
</xsl:transform>
here belnr and wrbtr will be my item details. for each payment document I can have multiple invoices. in CDF I need to display the invoices for that particular payment document.
what conditions can I put there before CDFs to make the item internal table to loop based on header internal table.
Regards,
Ranganadh.

Looks like you have already created the transformation "Z_ID"
Take a look at the following thread, it answers many of the questions you have asked:
[ABAP data to XML conv with UTF-8 encoding and custom namespace|Re: ABAP data to XML conv with UTF-8 encoding and custom namespace;
Che

Upload an XML file into the Internal table

Hi Guys,
I want to know, how to upload an xml file into the Internal table through ABAP programming

you just wanted to load the xml file into internal table (as a table of binary strings)or load the xml data mapped to itab row columns
for the first one you can simply use gui_upload
and for the second one you need to load the xml file using gui_upload and use XLST program to transform into an itab
Regards
Raja

Xml string to abap internal table

HI Experts ,
I want to parse this XML file to abap internal table ,i read as usual the Help and i think
that something is missing on my code.
There is someone can help.
The fields is type string and the value is :
<Containers> <Container workitemid = "00000017" IsParent = "X"><Element name = "_WF" value = "USI029"/><Element name = "_WF_PRIOR" value = "5"/><Element name = "_WF_VERSION" value = "0000"/><Element name = "_WF_NESTING_LEVEL" value = ""/><Element name = "XUBNAME" value = ""/><Element name = "XUACCNT" value = ""/><Element name = "SHORTTEXT" value = ""/><Element name =
i use the call transformation code and there i put this code:
<?sap.transform simple?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates">
<tt:root name="XML_TAB"/>
<tt:template>
 <Containers>
 <tt:loop name="a" ref=".XML_TAB">
 <Container>
 <tt:attribute name="Element name" value-ref="$a.name"/>
 <tt:attribute name="value" value-ref="$a.value"/>
 </Container>
 </tt:loop>
 </Containers>
</tt:template>
</tt:transform>
I think that i miss something with the line :<Container workitemid = "0000007" IsParent = "X">
the dump is:
An exception occurred that is explained in detail below.
The exception, which is assigned to class 'CX_ST_MATCH_ATTRIBUTE', was not
caught and
therefore caused a runtime error.
The reason for the exception is:
XML matching error
Expected was attribute: "Elementname" [ ] Read was element-start: "Container" [
Please help
Regards
Chris
Edited by: Chris Teb on Aug 6, 2009 9:57 AM

H Siva,
Thanks ,
I try exactly like u tell and i get this dump:
An exception occurred that is explained in detail below.
The exception, which is assigned to class 'CX_ST_MATCH_ELEMENT', was not caught
and
therefore caused a runtime error.
The reason for the exception is:
XML matching error
Expected was element-end: "Containers" [ ] Read was element-start: "Container"
<Containers>
 <Container>
 <tt:loop name="a" ref=".XML_TAB">
 <Element >
 <tt:attribute name="name" value-ref="$a.name"/>
 <tt:attribute name="value" value-ref="$a.value"/>
 </Element>
 </tt:loop>
 </Container>
 </Containers> ->**the dump in the debugger is here .**
</tt:template>
</tt:transform>
Any Idea?
Regards
Chris

Need to Load data in XML file into multiple Oracle tables

Experts
I want to load data that is stored at XML file into multiple Oracle table using plsql.
I am novice in this area.Kindly explain in depth or step by step so that i can achive this.
Thanks in advnace.

Hi,
extract your xml and then you can use insert all clause.
here's very small example on 10.2.0.1.0
SQL> create table table1(id number,val varchar2(10));
Table created.
SQL> create table table2(id number,val varchar2(10));
Table created.
SQL> insert all
2 into table1 values(id,val)
3 into table2 values(id2,val2)
4 select extractValue(x.col,'/a/id1') id
5 ,extractValue(x.col,'/a/value') val
6 ,extractValue(x.col,'/a/value2') val2
7 ,extractValue(x.col,'/a/id2') id2
8 from (select xmltype('<a><id1>1</id1><value>a</value><id2>2</id2><value2>b</value2></a>') col from dual) x;
2 rows created.
SQL> select * from table1;
 ID VAL
 1 a
SQL> select * from table2;
 ID VAL
 2 b Ants

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

Read data from xml files and populate internal table

Hi.
How to read data from xml files into internal tables?
Can u tell me the classes and methods to read xml data..
Can u explain it with a sample program...

<pre>DATA itab_accontextdir TYPE TABLE OF ACCONTEXTDIR.
DATA struct_accontextdir LIKE LINE OF itab_accontextdir.
DATA l_o_error TYPE REF TO cx_root.
DATA: filename type string ,
 xmldata type xstring .
DATA: mr TYPE REF TO if_mr_api.
mr = cl_mime_repository_api=>get_api( ).
mr->get( EXPORTING i_url = 'SAP/PUBLIC/BC/xml_files_accontext/xml_accontextdir.xml'
 IMPORTING e_content = xmldata ).
WRITE xmldata.
TRY.
CALL TRANSFORMATION id
 SOURCE XML xmldata
 RESULT shiva = itab_accontextdir.
CATCH cx_root INTO l_o_error.
ENDTRY.
LOOP AT itab_accontextdir INTO struct_accontextdir.
 WRITE: / struct_accontextdir-context_id,
 struct_accontextdir-context_name,
 struct_accontextdir-context_type.
 NEW-LINE.
 ENDLOOP.</pre>
 
Description:
In the above code snippet I am storing the data in an xml file(you know xml is used to store and transport data ) called 'xml_accontextdir.xml' that is uploaded into the MIME repository at path 'SAP/PUBLIC/BC/xml_files_accontext/xml_accontextdir.xml'.
The below API is used to read a file in MIME repo and convert it into a string that is stored in ' xmldata'. (This is just a raw data that is got by appending the each line of xml file).
mr = cl_mime_repository_api=>get_api( ).
mr->get( EXPORTING i_url = 'SAP/PUBLIC/BC/xml_files_accontext/xml_accontextdir.xml'
 IMPORTING e_content = xmldata ).
 Once the 'xmldata' string is available we use the tranformation to parse the xml string that we have got from the above API and convert it into the internal table.
<pre>TRY.
CALL TRANSFORMATION id
 SOURCE XML xmldata
 RESULT shiva = itab_accontextdir.
CATCH cx_root INTO l_o_error.
ENDTRY.</pre>
Here the trasnsformation 'id ' is used to conververt the source xml 'xmldata' to resulting internal table itab_accontextdir, that have same structure as our xml file 'xml_accontextdir.xml'. In the RESULT root of the xml file has to be specified. (In my the root is 'shiva').
Things to be taken care:
One of the major problem that occurs when reading the xml file is 'format not compatible with the internal table' that you are reading into internal table. Iin order to get rid of this issue use one more tranformation to convert the data from the internal table into the xml file.
<pre>TRY.
 CALL TRANSFORMATION id
 SOURCE shiv = t_internal_tab
 RESULT XML xml.
 CATCH cx_root INTO l_o_error.
ENDTRY.
WRITE xml.
NEW-LINE.</pre>
 
This is the same transformation that we used above but the differnce is that the SOURCE and RESULT parameters are changed the source is now the internal table and result is *xml *string. Use xml browser that is available with the ABAP workbench to read the xml string displayed with proper indentation. In this way we get the format of xml file to be used that is compatable with the given internal table.
Thank you, Hope this will help you!!!
Edited by: Shiva Prasad L on Jun 15, 2009 7:30 AM
Edited by: Shiva Prasad L on Jun 15, 2009 11:56 AM
Edited by: Shiva Prasad L on Jun 15, 2009 12:06 PM

How to populate field catalogue fields in ALV using dynamic internal table

Hi All,
Please let me know how to populate field catalogue fields in ALV using dynamic internal table.
I have created <dyn_table> using code below.
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = g_t_ifc
 it_fieldcatalog = g_t_fieldcat
 IMPORTING
 ep_table = dy_table.
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>.
Now this <dyn_table> has fields like idoc no.,creation date ,
segment field 1, segment field 2 etc..Now idoc no.,creation date are static fields from table EDIDC. And segment field 1, segment field 2 etc are dynamic fields from table EDSAPPL.
In my ALV report I am getting the final layout properly but I am unable to move values to corresponding fields in the final layout shown.Please let me know how to populate these fields from different tables.
I tried this way but its not working.
SORT g_t_edid4 BY docnum.
LOOP AT g_t_edidc INTO g_r_edidc.
 READ TABLE g_t_edid4 into g_r_edid4
 WITH KEY docnum = g_r_edidc-docnum
 BINARY SEARCH.
 IF sy-subrc = 0.
 <dyn_wa> = g_r_edid4-sdata.
 MOVE-CORRESPONDING g_r_edid4 to <dyn_wa>.
 CLEAR g_r_edid4.
 ENDIF.
MOVE-CORRESPONDING g_r_edidc to <dyn_wa>.
APPEND <dyn_wa> TO <dyn_table>.

You have to assign each field to field symbol and then assign the value to that field symbol and asssign that field symbol to workarea field symbol.
LOOP AT g_t_edidc INTO g_r_edidc.
READ TABLE g_t_edid4 into g_r_edid4
WITH KEY docnum = g_r_edidc-docnum
BINARY SEARCH.
IF sy-subrc = 0.
ASSIGN COMPONENT 'SDATA' OF STRUCTURE <DYN_WA> TO <DYN_FLD>.
<DYN_FLD> = g_r_edid4-sdata.
" <dyn_wa> = g_r_edid4-sdata.
" Assign each fields like this.
" MOVE-CORRESPONDING g_r_edid4 to <dyn_wa>.
CLEAR g_r_edid4.
ENDIF.
" MOVE-CORRESPONDING g_r_edidc to <dyn_wa>.
APPEND <dyn_wa> TO <dyn_table>.
Regards,
Naimesh Patel

Create XML transformation in SAP R/3 4.7

Hi Experts,
Kindly let me know the transaction for creating xml transformation in sap r/3 4.7, if there is any.
Though i could not find anything through tstc or se93.
Is there any other way of creating xml transformation in r/3 4.7. There is a tcode STRANS in ecc6.0 but not in 4.7.
Also, please help me resolving this issue of converting abap data to xml file: -
is the following xml structure possible with transformation or by any other method.
<Process_Order>
 <item>
 <PO Number> PO123334 </PO Number>
 <Header_mat> Mat123 </Header_mat>
 <BOM>
 <PDLabels>
 <PDLabel>
 <PCode>P123456</PCode>
 <Batch>123ABC</Batch>
 <Quantity>6000</Quantity>
 <PDDCode>1234567890</PDDCode>
 </PDLabel>
 <PDLabel>
 <PCode>P234567</PCode>
 <Batch>567DEF</Batch>
 <Quantity>6000</Quantity>
 <PDDCode></PDDCode>
 </PDLabel>
 </PDLabels>
 <PDCartons>
 <PDCarton>
 <PCode>P556677</PCode>
 <Batch>589GFT</Batch>
 <Quantity>1200</Quantity>
 <PDDCode></PDDCode>
 </PDCarton>
 </PDCartons>
 </BOM>
 </item>
 <item>
 <PO Number> PO123334 </PO Number>
 <Header_mat> Mat123 </Header_mat>
 <BOM>
 <PDLabels>
 <PDLabel>
 <PCode>P123456</PCode>
 <Batch>123ABC</Batch>
 <Quantity>6000</Quantity>
 <PDDCode>1234567890</PDDCode>
 </PDLabel>
 <PDLabel>
 <PCode>P234567</PCode>
 <Batch>567DEF</Batch>
 <Quantity>6000</Quantity>
 <PDDCode></PDDCode>
 </PDLabel>
 </PDLabels>
 <PDCartons>
 <PDCarton>
 <PCode>P556677</PCode>
 <Batch>589GFT</Batch>
 <Quantity>1200</Quantity>
 <PDDCode></PDDCode>
 </PDCarton>
 </PDCartons>
 </BOM>
 </item>
</Process_Order>
What i mean to ask is, is the hierarchy to this structural level is attainable using either transfomation or any other alternative.
Thanks a lot in advance !
Shreya

oops the message structure has gone bad ........
What i meant was : --
<Process_Order>
<item>
 <PO Number> PO123334 </PO Number>
 <Header_mat> Mat123 </Header_mat>
 <BOM>
 <PDLabels>
 <PDLabel>
 <PCode>P123456</PCode>
 <Batch>123ABC</Batch>
 <Quantity>6000</Quantity>
 <PDDCode>1234567890</PDDCode>
 </PDLabel>
 <PDLabel>
 <PCode>P234567</PCode>
 <Batch>567DEF</Batch>
 <Quantity>6000</Quantity>
 <PDDCode></PDDCode>
 </PDLabel>
 </PDLabels>
 <PDCartons>
 <PDCarton>
 <PCode>P556677</PCode>
 <Batch>589GFT</Batch>
 <Quantity>1200</Quantity>
 <PDDCode></PDDCode>
 </PDCarton>
 </PDCartons>
 </BOM>
 </item>
</Process_Order>

*How can we use the internal table in module pool programming? Clarify plz*

If we creating a screen using the table having four fields(for e.g.). The screen has the functions of display, modify, delete, save, exit etc for the fields. The front-end of the screen having I/O fields of the table using internal table. How can we declare the internal table in the screen?

HI,
Create one WA for your Internal table and then map it to your fields.
For Example,
Data : begin of wa,
          name(10),
          age type i,
           end of wa.
data : it like table of wa with header line.
Then in screen create input fields with the name, age and ***.
Then the user entered values are stored in name age and ***.
then you can manipulate with that values using wa.
Thanks.

BADI cant use an internal table with header line

hi,
In BADI, we cant use an internal table with header line, and I am calling a function module which requires internal table as import parameter, now, the table I am passing is without a header line, So how to solve this problem ?

You can use a type and then create an internal table of that type.
types :
begin of t_<example>
*field list
end of t_<example>
data :
gt_<table> type standard table of t_<example>
pass this to the FM

Creating XML transformation using multiple internal tables

Similar Messages

Maybe you are looking for